Log Viewer Script Perl CGI

Search Engine Optimization Techniques | Search Engine Optimization for dynamic pages | Free Perl CGI scripts | Online Test Engine

#!/usr/bin/perl
#####################################################
# Script by M.P.Prakash R.Lewis@bestnetcraft.com    #
# http://www.bestnetcraft.com                       #
# Inclusion of this copyright message is mandatory  #
# for using this script.		            #						# 
#						    #
# This script is offered in the same terms as Perl. #
# Comments and suggestions may be sent through      #
# http://www.bestnetcraft.com/contact.html          #
# No liability or damage will be accepted by the    # 
# author under any circumstances.                   #
#####################################################
# Reads the Guide log and displays the content
#

# Configuration 
my $diro= 'user/'; # User directory
my $log= $diro.'guide.log'; 
my $pasf='password'; # change this password in the production server

# parse the form
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
  @pairs=split(/&/,$temp);
  foreach $item(@pairs)
   {
    ($key,$content)=split(/=/,$item,2);
    $content=~tr/+/ /;
    $content=~s/%(..)/pack("c",hex($1))/ge;
    $content =~ s///g;
    $fields{$key}=$content;
    $i++;
    $item{$i}=$key;
    $response{$i}=$content;
   }

# Display the start page asking for authentication
&start unless ($fields{'auth'});
&nyet('Illegal User') unless ($fields{'auth'} eq $ENV{'SERVER_ADDR'});
&authenticate;

sub authenticate {
my $pass=$fields{'user_p'};
my $name=$fields{'nama'};# A little more security through obscurity

&nyet('Identification Required!') unless ($name);
&nyet('Authentication Required!') unless ($pass); 
if ($pass eq $pasf) {
    &reportage;
    }
else {&nyet('Wrong User!');}
}

sub start {
print "Content-type: text/html\n\n";
print <<eof;
<html>
<head><title>Bestnetcraft - User Tracking Report</title>
</head>
<body bgcolor="#FFFFFF">
<div align="center"><font color="#0000FF"><h2>Bestnetcraft</h2>
</div>
<br><b>User Tracking Report </b>
<hr>
<form name="sec" method="post" action="guider.pl">
<p align="left">Name: <input type="text"  name="nama" size=25 maxlength=25></p>
<p align="left">Password: <input type="password" name="user_p" size=9 maxlength=9></p>
<input type=hidden name="auth" value=$ENV{'SERVER_ADDR'}>
<p align="center"><input type=submit value="Submit"></p>
</form>
<hr>
<font color ="#FF0000" size="-1">©2000-2002. All rights reserved ! </font>
</body></html>

eof

exit(0);
}

sub nyet
{ print "Content-type: text/html\n\n";

print <<endo;

<html>
<head>
<Title>Error in Information</title>
</head>
<body bgcolor=#000080 text=#FFFFFF font face=Garamond>

Apparently you have not entered the information in full. 
<b>$_[0] </b><br>
Please ensure that you type your name and password correctly.
Remember that all the inputs are case-sensitive. Your User details are
logged for future reference. In case of persistent problem, please contact us 
<a href="http://www.bestnetcraft.com/contact.html" title="Contact Page">here</a>.
<br><br>

endo

die "Something is wrong with the $_[0] field.\n";
}

sub reportage {
# Has many methods of display
# 1. Simple table of all entries
# 2. Display various targets
# 3. Form page to change user name and password
my $count=0;
open (FILE,"$log") || die "Log file not found \n";
@logs=<FILE>;
close(FILE);

# print the report
print "Content-type: text/html\n\n";
print qq~
<html><head><title>User Tracking Report </title>
</head>
<body bgcolor="#FFFFFF">
<table border=5>
<tr><th>S.No</th>
<th>Date</th>
<th>Cat</th>
<th>IP Add</th>
<th>Referrer</th></tr> 
~;

foreach $no (@logs) {
$count++;
@fields = split (/\|/,$no);

print qq~
<tr>
<td>$count</td>
~;
foreach $f (@fields)
{
print "<td> $f</td>";
}
print "</tr>";
}
print <<endo;
</table>
<hr>

exit(0);
}