#!/usr/bin/perl
use IO::File;
use DB_File;
use Fcntl;
use Time::localtime;
#use File::stat;
#my $now = ctime();

#my $datetime = ctime();
#print "$datetime\n";

#my $date_string = ctime(stat($file)->mtime);
#print "$datestring\n";

##### For date conversion ie: Jan -> 1
my %months = (
	Jan => '1',
	Feb => '2',
	Mar => '3',
        Apr => '4',
        May => '5',
        Jun => '6',
        Jul => '7',
        Aug => '8',
        Sep => '9',
        Oct => '10',
        Nov => '11',
        Dec => '12',
    );
########

#opening database   
#tie (%lsnet_db, DB_File, "/tmp/lsnet.db") ||
#die ("Cannot open /tmp/lsnet.db");

#my $var = $lsnet_db{"mem1"};
#Thu Feb  5 08:46:41 2009 2026.77 119.75 691.67 370.94 1907.02 10722.93 10722.92 0.01
#$var =~ /.{3}\s+(.{3})\s+(\d{1,2})\s+(\d{2}).(\d{2}).(\d{2})\s+(\d{4})\s+(\d+.?\d*)\s+(\d+.?\d*)\s+(\d+.?\d*)\s+(\d+.?\d*)\s+(\d+.?\d*)\s+(\d+.?\d*)\s+(\d+.?\d*)\s+(\d+.?\d*)\s*/;
#print "$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14\n";

#my $month = sprintf("%s",$1);
#$month = $months{$month};
#my $day = sprintf("%d",$2);
#my $hour = sprintf("%d",$3);
#my $min = sprintf("%d",$4);
#my $sec = sprintf("%d",$5); #seconds are ignored to account for program runtime variances
#my $year = sprintf("%d",$6);
#$min = $min + (($hour * 60) + ($sec / 60)); #convert hours/sec to min and add to min, max of 1440min/24h 

#print "$month\n";
#print "$min\n";
#print "$months{$month}\n";

#my $lastmin = $min;
#my $lastyear = $year;
#my $lastmonth = $month;
#my $lastday = $day;

#if (($year == $lastyear) && ($month == $lastmonth) && ($day == $lastday))
#{

#print "$month\n";   
#print "$min\n";

#}			

#$min = $min - 3;

#if ($min < $lastmin) 
#{
#	my $difference = $lastmin - 2;
#	#print "$difference\n";
#	if ($min <= $difference)
#	{
#		print "$difference\n";
#	}
#	$difference = $lastmin - $min;
##	for (my $i = 1; $i < $difference; $i++) 
#	{ 
#		print "$i\n";	
#	}
#
#
#}


sub leapyear {
        my($isleap);
	my $year = $_[0];
        #&mysubroutine($_);
        my $modulo1 = $year % 4;
        my $modulo2 = $year % 100;
        my $modulo3 = $year % 400;
         
        if (($modulo1 == 0) && ($modulo2 == 0) && ($modulo3 == 0))
        {
                $isleap = 1;
        }else{
                $isleap = 0;
        }
        return($isleap);  
}



sub daysinmonth {
  	my($daysinmonth);

        my $modulo1 = $year % 4;
        my $modulo2 = $year % 100;
        my $modulo3 = $year % 400;

        if (($modulo1 == 0) && ($modulo2 == 0) && ($modulo3 == 0))
        {
                $isleap = 1;
        }else{
                $isleap = 0;
        }

        my %daysinmonths = (    
                1 => '31',
                2 => '',  
                3 => '31',
                4 => '30',
                5 => '31',
                6 => '30',
                7 => '31',
                8 => '31',  
                9 => '30', 
                10 => '31', 
                11 => '30',
                12 => '31',
        );



        if ($isleap == 1)
        {
                #my $febdays = 29;
		$daysinmonths{$month} = 29;
        }else{
                #my $febdays = 28;
		$daysinmonths{$month} = 28; 
        }
         
       my $daysinmonth = $daysinmonths{$month};        
print "$month\n";
print "$daysinmonths{2}\n";
	return($daysinmonth);
}


my $year = 2009;
my $month = 2;

#&daysinmonth($year, $month);

my($daysinmonth) = daysinmonth($month);


print "$daysinmonth\n";
print "$month\n";

#close database  
#untie(%lsnet_db);