Lines Matching refs:localtm

124 	my @localtm = localtime($time);
126 	my $localmin = $localtm[1] + $localtm[2] * 60;
128 	if ($localtm[0] != $gmttm[0]) {
131 	if ((($gmttm[6] + 1) % 7) == $localtm[6]) {
133 	} elsif ((($gmttm[6] - 1) % 7) == $localtm[6]) {
135 	} elsif ($gmttm[6] != $localtm[6]) {
146 		       qw(Sun Mon Tue Wed Thu Fri Sat)[$localtm[6]],
147 		       $localtm[3],
149 			  Jul Aug Sep Oct Nov Dec)[$localtm[4]],
150 		       $localtm[5]+1900,
151 		       $localtm[2],
152 		       $localtm[1],
153 		       $localtm[0],