German Time Mod (Deutsche Zeit Modifikation) 1.1 Makes german time formats. Ersetzt die Zeitformate durch in Deutschland übliche Zeitformate und zwar durch folgende: 31. Jan. 2001, 13:15 Uhr 31. Jan. 2001, 13:15:17 Uhr 31. Jan. 01, 13:15 Uhr 2001-01-31, 13:15 Uhr 31. Januar 2001, 13:15 Uhr 31. Januar 01, 13:15 Uhr Lediglich bei der Veränderung des Anmeldezeitpunktes eines Users im Admin-Modus bleibt (bis auf eine kleine Korrektur der Übersetzung in german.lng) die alte Anzeige. Das vom Nutzer eingestellte Zeitformat wird anders als in den in diesem Punkten inkonsequenten Originaldateien auch in der Liste der aktuellsten Mails des Bulletin Boards und in der Liste der aktuellsten Mails eines Users verwendet. In diesen beiden Listen wird "Datum:" nicht angezeigt, da dahinter nicht nur das Datum, sondern auch die Zeit steht. Bei der Änderung der Profile ist die Forumzeit an das deutsche Uhrzeitformat angepaßt. Verändert werden die Dateien german.lng, Recent.pl, Profile.pl und Subs.pl. Der Hack ist nicht geeignet, wenn das Bulletin Board mehrsprachig verwendet wird. Versionsgeschichte: - Version 1.0: erste Version - Version 1.1: Forumzeit in Profil ändern ebenfalls angepaßt Uwe Wiedemann http://www.philtalk.de/ Sources/Subs.pl if ($mytimeselected == 1) { $newformat = qq~$newmonth/$newday/$newshortyear $txt{'107'} $newtime~; return $newformat; } elsif ($mytimeselected == 2) { $newformat = qq~$newday.$newmonth.$newshortyear $txt{'107'} $newtime~; return $newformat; } elsif ($mytimeselected == 3) { $newformat = qq~$newday.$newmonth.$newyear $txt{'107'} $newtime~; return $newformat; } elsif ($mytimeselected == 4) { $newmonth--; $ampm = $newhour > 11 ? 'pm' : 'am'; $newhour2 = $newhour % 12 || 12; $newmonth2 = $months[$newmonth]; if( $newday > 10 && $newday < 20 ) { $newday2 = 'th'; } elsif( $newday % 10 == 1 ) { $newday2 = 'st'; } elsif( $newday % 10 == 2 ) { $newday2 = 'nd'; } elsif( $newday % 10 == 3 ) { $newday2 = 'rd'; } else{ $newday2 = 'th'; } $newformat = qq~$newmonth2 $newday$newday2, $newyear, $newhour2:$newminute$ampm~; return $newformat; } elsif ($mytimeselected == 5) { $ampm = $newhour > 11 ? 'pm' : 'am'; $newhour2 = $newhour % 12 || 12; $newformat = qq~$newmonth/$newday/$newshortyear $txt{'107'} $newhour2:$newminute$ampm~; return $newformat; } elsif ($mytimeselected == 6) { $newmonth2 = $months[$newmonth-1]; $newformat = qq~$newday. $newmonth2 $newyear $txt{'107'} $newhour:$newminute~; return $newformat; } # german time mod @shortmonths = ('Jan.','Feb.','März','Apr.','Mai','Juni','Juli','Aug.','Sept.','Okt.','Nov.','Dez.'); $newmonth2 = $months[$newmonth-1]; $newmonth3 = $shortmonths[$newmonth-1]; if ($mytimeselected == 1) { $newformat = qq~$newday. $newmonth3 $newyear, $newhour:$newminute Uhr~; return $newformat; } elsif ($mytimeselected == 2) { $newformat = qq~$newyear-$newmonth-$newday, $newhour:$newminute Uhr~; return $newformat; } elsif ($mytimeselected == 3) { $newformat = qq~$newday. $newmonth2 $newyear, $newhour:$newminute Uhr~; return $newformat; } elsif ($mytimeselected == 4) { $newformat = qq~$newday. $newmonth3 $newshortyear, $newhour:$newminute Uhr~; return $newformat; } elsif ($mytimeselected == 5) { $newformat = qq~$newday. $newmonth3 $newyear, $newhour:$newminute:$newsecond Uhr~; return $newformat; } elsif ($mytimeselected == 6) { $newformat = qq~$newday. $newmonth3 $newshortyear, $newhour:$newminute Uhr~; return $newformat; } # end german time mod Sources/Recent.pl print <<"EOT";

$counter	$catname{$cat{$board}} / $boardinfo{$board}->[0] / $msub	$txt{'30'}: $mdate
$txt{'109'} $tname | $txt{'22'} $txt{'525'} $mname
$message
$img{'reply'}$menusep$img{'replyquote'}$notify

EOT # german time mod $mdate = timeformat($mdate); print <<"EOT";

$counter	$catname{$cat{$board}} / $boardinfo{$board}->[0] / $msub	$mdate
$txt{'109'} $tname | $txt{'22'} $txt{'525'} $mname
$message
$img{'reply'}$menusep$img{'replyquote'}$notify

EOT # end german time mod Sources/Profile.pl $proftime = $phour.":".$pmin.":".$psec; $ampm = $phour > 11 ? 'pm' : 'am'; $phour = $phour % 12 || 12; $proftime = qq~$phour:$pmin:$psec$ampm~; # german time mod # $proftime = $phour.":".$pmin.":".$psec; # $ampm = $phour > 11 ? 'pm' : 'am'; # $phour = $phour % 12 || 12; # $proftime = qq~$phour:$pmin:$psec$ampm~; $proftime = qq~$phour:$pmin Uhr~; # end german time mod print <<"EOT";

$counter	$catname{$cat{$board}} / $boardinfo{$board}->[0] / $msub	$txt{'30'}: $mdate
$message
$img{'reply'}$menusep$img{'replyquote'}$notify

EOT # german time mod $mdate = timeformat($mdate); print <<"EOT";

$counter	$catname{$cat{$board}} / $boardinfo{$board}->[0] / $msub	$mdate
$message
$img{'reply'}$menusep$img{'replyquote'}$notify

EOT # end german time mod german.lng $txt{'421'} = "Bitte das Format 01/31/01 at 01:01:01<\/b> benutzen."; # german time mod $txt{'421'} = "Bitte das Format 01/31/01 um 01:01:01<\/b> benutzen."; # end german time mod $txt{'480'} = "01/31/01 $txt{'107'} 13:15:17"; $txt{'481'} = "31.01.01 $txt{'107'} 13:15:17"; $txt{'482'} = "31.01.2001 $txt{'107'} 13:15:17"; $txt{'483'} = "January 12th, 2001, 1:15:17pm"; $txt{'484'} = "01/31/01 $txt{'107'} 1:15pm"; $txt{'485'} = "31. Januar $txt{'107'} 13:15"; # german time mod $txt{'480'} = "31. Jan. 2001, 13:15 Uhr"; $txt{'484'} = "31. Jan. 2001, 13:15:17 Uhr"; $txt{'483'} = "31. Jan. 01, 13:15 Uhr"; $txt{'481'} = "2001-01-31, 13:15 Uhr"; $txt{'482'} = "31. Januar 2001, 13:15 Uhr"; $txt{'485'} = "31. Januar 01, 13:15 Uhr"; # end german time mod $txt{'741'} = "Aktuelle Forum-Zeit"; # german time mod $txt{'741'} = "Aktuelle Forumzeit"; # end german time mod