#!/usr/bin/perl
use IO::File;
use DB_File;
use Fcntl;
use Time::localtime;

my $stop = 1;

while ( $stop == 1)
{
        if (-e "/tmp/lsniclock")
        {
                $stop = 1;
                sleep(1);
        } else {
                $stop = 0;
        }
}

#create lock file
open lsniclock, ">/tmp/lsniclock";




#creating and/or opening database
tie (%lsnic_db, DB_File, "/tmp/lsnic.db", O_CREAT|O_RDWR, 0644) ||
die ("Cannot create or open /tmp/lsnic.db");


#$lsnic_db{"net0"} = 12650;

my $var = $lsnic_db{"net0"};
print "this is the net0 db entry: $var\n";
my $some = $lsnic_db{"net1"};
print "this is the net1 db entry: $some\n";
#$var = $var +20;


for ($i=61; $i>0; $i--)
{
#       # Delete a key/value pair.
#       delete $lsnet_db{"net$i"};
	my $test = $lsnic_db{"net$var"};
	#$test =~ /(.{3}\s+.{3}\s+\d{1,2}\s+.{8}\s+\d{4})/;
	print "this is the net$var db entry: $test\n";
	$var--;
}
exit;

my $num = 0;
if (exists $lsic_db{"net$num"}) {
        my $var = $lsnic_db{"net$num"};
        $num = $var;
        my $test = $lsnic_db{"net$num"};
        print "this is the net0 db entry: $test\n";

        my $var2 = $lsnic_db{"net$var"};

        $var2 =~ /(.{3}\s+.{3}\s+\d{1,2}\s+.{8}\s+\d{4})/;
        print "Last entry was $var on $1\n";
}else{
        print "place holder key net$num does not exist. created!\n";
        $lsnet_db{"net0"} = "$num";
}

#close database
untie(%lsnet_db);

#remove lock file
close lsmemlock;
unlink "/tmp/lsmemlock";