version 1.239, 2004/08/24 10:59:50
|
version 1.245, 2004/08/29 04:12:18
|
Line 1282 sub push_file_handler {
|
Line 1282 sub push_file_handler {
|
} |
} |
®ister_handler("pushfile", \&push_file_handler, 1, 0, 1); |
®ister_handler("pushfile", \&push_file_handler, 1, 0, 1); |
|
|
|
# |
|
# du - list the disk usuage of a directory recursively. |
|
# |
|
# note: stolen code from the ls file handler |
|
# under construction by Rick Banghart |
|
# . |
|
# Parameters: |
|
# $cmd - The command that dispatched us (du). |
|
# $ududir - The directory path to list... I'm not sure what this |
|
# is relative as things like ls:. return e.g. |
|
# no_such_dir. |
|
# $client - Socket open on the client. |
|
# Returns: |
|
# 1 - indicating that the daemon should not disconnect. |
|
# Side Effects: |
|
# The reply is written to $client. |
|
# |
|
|
|
sub du_handler { |
|
my ($cmd, $ududir, $client) = @_; |
|
if ($ududir=~/\.\./ || $ududir!~m|^/home/httpd/|) { |
|
&Failure($client,"refused\n","$cmd:$ududir"); |
|
return 1; |
|
} |
|
my $duout = `du -ks $ududir 2>/dev/null`; |
|
$duout=~s/[^\d]//g; #preserve only the numbers |
|
&Reply($client,"$duout\n","$cmd:$ududir"); |
|
return 1; |
|
} |
|
®ister_handler("du", \&du_handler, 0, 1, 0); |
|
|
|
|
# |
# |
Line 1349 sub ls_handler {
|
Line 1378 sub ls_handler {
|
®ister_handler("ls", \&ls_handler, 0, 1, 0); |
®ister_handler("ls", \&ls_handler, 0, 1, 0); |
|
|
|
|
|
|
|
|
# Process a reinit request. Reinit requests that either |
# Process a reinit request. Reinit requests that either |
# lonc or lond be reinitialized so that an updated |
# lonc or lond be reinitialized so that an updated |
# host.tab or domain.tab can be processed. |
# host.tab or domain.tab can be processed. |
Line 1908 sub remove_user_file_handler {
|
Line 1939 sub remove_user_file_handler {
|
if (-e $udir) { |
if (-e $udir) { |
my $file=$udir.'/userfiles/'.$ufile; |
my $file=$udir.'/userfiles/'.$ufile; |
if (-e $file) { |
if (-e $file) { |
unlink($file); |
if (-f $file){ |
|
unlink($file); |
|
} elsif(-d $file) { |
|
rmdir($file); |
|
} |
if (-e $file) { |
if (-e $file) { |
&Failure($client, "failed\n", "$cmd:$tail"); |
&Failure($client, "failed\n", "$cmd:$tail"); |
} else { |
} else { |
Line 2173 sub put_user_profile_entry {
|
Line 2208 sub put_user_profile_entry {
|
|
|
my $userinput = "$cmd:$tail"; |
my $userinput = "$cmd:$tail"; |
|
|
my ($udom,$uname,$namespace,$what) =split(/:/,$tail); |
my ($udom,$uname,$namespace,$what) =split(/:/,$tail,4); |
if ($namespace ne 'roles') { |
if ($namespace ne 'roles') { |
chomp($what); |
chomp($what); |
my $hashref = &tie_user_hash($udom, $uname, $namespace, |
my $hashref = &tie_user_hash($udom, $uname, $namespace, |