@@ -1998,49 +1993,6 @@ sub saverule
}
}
}
-sub timeconvert
-{
- my $orgtime=shift;
- my $type=shift;
- my $newtime;
- my ($hour,$min) = split (":", $orgtime);
- my @locar = localtime(time);
- my @gmtar = gmtime();
- my $oldtime = $hour*60 + $min;
- my $gmt = $gmtar[2]*60 + $gmtar[1];
- my $loc = $locar[2]*60 + $locar[1];
- my $diff;
- my $newtime;
- if ($gmt > $loc)
- {
- $diff = $gmt - $loc;
- if ($type eq '2utc')
- {
- print"umrechnen nach UTC
";
- $newtime = $oldtime + $diff;
- }else{
- $newtime = $oldtime - $diff;
- }
- }else{
- $diff = $loc - $gmt;
- if ($type eq '2utc')
- {
- $newtime = $oldtime - $diff;
- }else{
- $newtime = $oldtime + $diff;
- }
- }
- if ($newtime < 0 ){
- $newtime += 1440;
- }
- if ($newtime >= 1440){
- $newtime -= 1440;
- }
- my $newhour =sprintf"%02d", $newtime/60;
- my $newmin = sprintf"%02d",$newtime % 60;
- $newtime = "$newhour:$newmin";
- return $newtime;
-}
sub validremark
{
# Checks a hostname against RFC1035
@@ -2221,10 +2173,7 @@ END
if($$hash{$key}[25] ne ''){push (@days,$Lang::tr{'fwdfw wd_sun'});}
my $weekdays=join(",",@days);
if (@days){
- my $from = &timeconvert($$hash{$key}[26],'2loc');
- my $to = &timeconvert($$hash{$key}[27],'2loc');;
-
- print"$weekdays   $from - $to | ";
+ print"$weekdays   $$hash{$key}[26] - $$hash{$key}[27] | ";
}
}else{
print"24/7 | ";