#!/usr/bin/perl
use strict;

# Do parts of setup that require afsagent privileges

$ENV{PATH} = '';

my $baselogdir = '/afs/athena.mit.edu/user/j/b/jbarnold/web_logs';
my $touchdir = '/afs/athena.mit.edu/user/j/b/jbarnold/script_srv_users';
my $user = $ARGV[0];

exit(0) if(!defined $user);
exit(0) unless($user =~ /^[\w_-]+$/);

`/bin/touch 2>/dev/null "$touchdir/$user"`;

`/bin/mkdir "$baselogdir/$user"`;
`/usr/bin/fs sa "$baselogdir/$user" "$user" rl`;
`/usr/bin/fs sa "$baselogdir/$user" "system:anyuser" none`;
`/bin/touch "$baselogdir/$user/apache.err"`;

`/bin/touch /tmp/new_user_flag`;
