#!/usr/bin/perl $passcode = '1002'; $datafile = 'log.txt'; if($ENV{'QUERY_STRING'} eq $passcode){ flock(FH, LOCK_EX); open(FH,"${datafile}"); @log = ; close(FH); flock(FH, LOCK_NB); $log = join("\n",@log); @log = split(/\n/ , $log); @log = grep(/\S/,@log); @log = sort { (split(/\t/,$a))[2] cmp (split(/\t/,$b))[2]} @log; for($cnt=0;$cnt<@log;$cnt++){ @logdata = split(/\t/,$log[0]); if($logdata[0] ne $null){ @count = grep {/$logdata[2]\t/} @log; $count = @count; push @results,"${logdata[2]},${count}"; @log = grep {!/$logdata[2]\t/} @log; } } @results = sort { (split(/,/,$b))[1] <=> (split(/,/,$a))[1]} @results; print "Content-type: text/html\n\n"; print "\n"; print "\t\n"; print "\t\tfavorite Logs\n"; print "\t\n"; print "\t\n"; print "favorite Logs
    "; for($cnt=0;$cnt<@results;$cnt++){ @logdata = split(/\,/,$results[$cnt]); print "
  1. ${logdata[0]}"; $total += $logdata[1]; } print "
  2. favorite TOTAL"; print "\t
\n"; print ""; } elsif($ENV{'REQUEST_METHOD'} ne "POST"){ $input_url = $ENV{'HTTP_REFERER'}; $buffer = $ENV{'QUERY_STRING'}; $post_url = 'http://' . $ENV{'SERVER_NAME'} . $ENV{'SCRIPT_NAME'} . "?" . $ENV{'QUERY_STRING'}; $id = $ENV{'QUERY_STRING'}; print "Pragma: no-cache\n"; print "Cache-Control: no-cache\n"; print "Content-type: text/plain\n\n"; print "\n"; } else { read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} ); $gettime = time(); ($sec,$min,$hour,$day,$mon,$year) = localtime($gettime); $mon++;$year += 1900; $stmp = sprintf("%04d\/%02d\/%02d %02d\:%02d",$year,$mon,$day,$hour,$min); @get = split(/\n/,$buffer); unshift @get,$gettime; unshift @get,$stmp; $putlist = join("\t",@get); $putlist .= "\t\n"; flock(FH, LOCK_EX); open(FH,">>${datafile}"); print FH "${putlist}"; close(FH); flock(FH, LOCK_NB); print "Content-type: text/html\n\n"; } exit;