> I have this script stolen and modified from somewhere
Stealling is bad! :)
>
> #!/usr/bin/perl -w
> use strict;
> use File::Find;
> print "Content-type: text/html\n\n";
>
> my $u=shift;
> my $sizes = 0;
> # replace this with your absolute path
> my $path = "/home/$u/";
>
> find (sub {$si
Owen wrote:
I have this script stolen and modified from somewhere
#!/usr/bin/perl -w
use strict;
use File::Find;
print "Content-type: text/html\n\n";
my $u=shift;
my $sizes = 0;
# replace this with your absolute path
my $path = "/home/$u/";
find (sub {$sizes += -s ;}, $path);
print "$sizes\n";
I
I have this script stolen and modified from somewhere
#!/usr/bin/perl -w
use strict;
use File::Find;
print "Content-type: text/html\n\n";
my $u=shift;
my $sizes = 0;
# replace this with your absolute path
my $path = "/home/$u/";
find (sub {$sizes += -s ;}, $path);
print "$sizes\n";
I am log
