#!/usr/bin/perl

$file    = "/home/master/temp/perlskripts_ip.log";
$visited = "/home/master/temp/count.log";
$time = `date`;
if ($ENV{'REMOTE_ADDR'} !~ /192.168.0.(\d+)/) {
   if (!-e $file) {
      `touch $file`;
   }
   open(lg, ">>$file") || die "Can't open $file!\n";
   print lg "User from ".$ENV{'REMOTE_ADDR'}." logged on ".$time;
   close(lg);
   if (!-e $visited) {
      `touch $visited`;
   }
   open (vis, "<$visited") || die "Cannot open $visited for reading!\n";
   $count = <vis>;
   close (vis);
   print "count is ".$count,"\n";
   open (vis, ">$visited") || die "Cannot open $visited for writing!\n";
   if ($count ne "") {
      $count++;
   }else{
      $count = 1;
   }
   print vis $count;
   close (vis);
}