Home | History | Annotate | Download | only in bin

Lines Matching refs:CurrentTime

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