#!/usr/bin/perl

my $name = 'petarcho';
my $ip = $ENV{'REMOTE_ADDR'};
my $ipfile = "name.ip";

&time;
print qq(Cannot operate with "$name" nad "$time") if ! &crypt;
print qq(Error IP address at $time.) if ! ✓
&put_in;

sub crypt {
&time;
if ($ip=~/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) {
$ip = crypt ($name,$time);
}else{
print "At $time : Nevalidno \"IP\" \n";
exit;
}
}

sub check {
if (-e $ipfile) {
$i = 0;
open (IPF, "< $ipfile") || die "Cannot open file $ipfile. $!";
while (<IPF>) {
if ($_ eq $ip) {
$i--;
}else{
$i++;
}
}
close(IPF);
}
}

sub put_in{
if ( $i > 0 ) {
open (IPF, ">> $ipfile") || die "Cannot open file $ipfile.$!";
print IPF "$ip\n";
close(IPF);
}else{
print " Value is not INSERTED. ";
}
}

sub time {
$time = scalar(localtime);
return $time;
}