version 1.242, 2004/08/25 21:00:46
|
version 1.244, 2004/08/28 15:52:51
|
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) = @_; |
|
my $userinput = "$cmd:$ududir"; |
|
my $duout=''; |
|
my $du_cmd; |
|
$du_cmd = 'du -ks '.$ududir.' 2>/dev/null)'; |
|
$duout = qx[$du_cmd]; |
|
print $client "$du_cmd -- $ududir -- $duout\n"; |
|
return 1; |
|
} |
|
®ister_handler("du", \&du_handler, 0, 1, 0); |
|
|
|
|
# |
# |
Line 1349 sub ls_handler {
|
Line 1377 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. |