since nobody answered....
by "eric williams" <eric_alt(at)hotmail.com>
|
Date: |
Mon, 03 Jul 2000 04:39:44 PDT |
To: |
hwg-languages(at)hwg.org |
|
todo: View
Thread,
Original
|
|
guess I just have to keep asking...
There's something in this code which causes the output file to fill up with
MB of invisible chars...I can't see it can you?
#open (LOG, $logpath )or &dienice( "Can't read data from $logpath \n");
#@data = <LOG>;
#close(LOG);
$url = "<tr><td align=\"right\"><a
href=\"$ENV{'SCRIPT_NAME'}\">$ENV{'SCRIPT_NAME'}</a>:</td>";
$count = 0;
$pad = "%.$pad"."d";
#print a count for each page. In counter log file.
#open (LOG, ">$logpath")or &dienice("Can't write data to $logpath \n");
# foreach $line(@data) {
# if ($line =~ /$url/) {
# $line =~ /<td>(.*)<\/td>/;
# $count = $1;
# $count++;
# $count = sprintf($pad, $count);
# print LOG "$url<td>$count<\/td><\/tr>\n";
# }
#
# elsif ($count == 0 && substr($line,0,8) eq "</table>") {
# $count++;
# $count = sprintf($pad, $count);
# print LOG "$url<td>$count<\/td><\/tr>\n";
# print LOG "$line";
# }
#
# else { print LOG "$line\n"; }
# }
#close(LOG);
________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com
HWG: hwg-languages mailing list archives,
maintained by Webmasters @ IWA