version 1.292, 2005/08/26 19:40:38
|
version 1.294, 2005/08/31 21:47:29
|
Line 1370 sub du_handler {
|
Line 1370 sub du_handler {
|
if ($_=~/\.meta$/) { return;} |
if ($_=~/\.meta$/) { return;} |
$total_size+=(stat($_))[7]; |
$total_size+=(stat($_))[7]; |
}; |
}; |
|
chdir($ududur); |
find($code,$ududir); |
find($code,$ududir); |
$total_size=int($total_size/1024); |
$total_size=int($total_size/1024); |
&Reply($client,"$total_size\n","$cmd:$ududir"); |
&Reply($client,"$total_size\n","$cmd:$ududir"); |
Line 5468 sub thisversion {
|
Line 5469 sub thisversion {
|
sub subscribe { |
sub subscribe { |
my ($userinput,$clientip)=@_; |
my ($userinput,$clientip)=@_; |
my $result; |
my $result; |
my ($cmd,$fname)=split(/:/,$userinput); |
my ($cmd,$fname)=split(/:/,$userinput,2); |
my $ownership=&ishome($fname); |
my $ownership=&ishome($fname); |
if ($ownership eq 'owner') { |
if ($ownership eq 'owner') { |
# explitly asking for the current version? |
# explitly asking for the current version? |