Home | History | Annotate | Download | only in bin

Lines Matching refs:CurrentTime

162   my @CurrentTime = localtime();
163   my $year  = $CurrentTime[5] + 1900;
164   my $day   = $CurrentTime[3];
165   my $month = $CurrentTime[4] + 1;
166   my $hour =  $CurrentTime[2];
167   my $min =   $CurrentTime[1];
168   my $sec =   $CurrentTime[0];