Lines Matching full:tzone
8 print "Usage: tzone [year month day hour minute]\n";
15 my @TZONE;
34 foreach my $tzone (@TZONE_RAW) {
35 chomp($tzone);
36 if (-e $tzone) {
37 $TZONE[$index] = substr($tzone, 20);
48 foreach my $tzone (@TZONE) {
50 $ENV{'TZ'} = "$tzone";
56 print "\nTIME ZONE: $tzone\n";
