#!/usr/local/bin/perl # print "Content-type: text/html\n\n"; $based = "/home/funa/public_html/sha"; $LS = `/bin/ls -1 $based/s-data/zzzjunk`; $da = `/bin/date +%D`; $da =~ s/\n//g; @LIST = split(/\s+/, $LS) ; $cnt=1; $l=0; $file="list"; #print "\n"; #print "
\n";
$wc = @LIST;
foreach $LIST (@LIST) {
	if ($l eq 0) { 
	    $file="$based/abuse/list$cnt.html";
	    open(FILE,">$file") || die ;
	    print FILE "\n";
	    print FILE "ABUSE USER LIST-$cnt\n";
	    print FILE "\n";
	    print FILE "
\n";
	    print FILE "LIST-$cnt\n";
	    print FILE "
\n";
	}
        print FILE "$LIST\n";
	$l++;
	if ($l > 50) { 
	    $cnt++;
	    $l=0;
	    print FILE "
\n";
	    print FILE "
\n";
	    print FILE "\n";
	    print FILE "\n";
	    close(FILE);
	}
}
	    print FILE "
\n";
	    print FILE "
\n"; print FILE "\n"; print FILE "\n"; close(FILE); $file="abuse/cnt.txt"; open(FILE,">$based/$file") || die ; print FILE "now($da) \n"; print FILE "$wc account"; close(FILE); exit;