Revision 2ff46003
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/kopf.pl | ||
|---|---|---|
| 5 | 5 |
|
| 6 | 6 |
use CGI::Carp qw(fatalsToBrowser); |
| 7 | 7 |
|
| 8 |
use strict; |
|
| 9 |
|
|
| 10 |
my $form = $main::form; |
|
| 11 |
my $locale = $main::locale; |
|
| 12 |
|
|
| 8 | 13 |
$form->header; |
| 9 |
$paramstring = $ENV{"QUERY_STRING"};
|
|
| 10 |
@felder = split "&", $paramstring; |
|
| 14 |
my $paramstring = $ENV{"QUERY_STRING"};
|
|
| 15 |
my @felder = split "&", $paramstring; |
|
| 16 |
my ($name, $wert); |
|
| 11 | 17 |
foreach (@felder) {
|
| 12 | 18 |
($name, $wert) = split "=", $_; |
| 13 | 19 |
$wert =~ tr/+/ /; |
| 14 |
$$name = $wert;
|
|
| 20 |
$name = $wert; |
|
| 15 | 21 |
} |
| 16 |
$login = |
|
| 22 |
my $login =
|
|
| 17 | 23 |
"[" . $form->{login}
|
| 18 | 24 |
. " - <a href=\"login.pl?action=logout\" target=\"_top\">" |
| 19 | 25 |
. $locale->text('Logout')
|
| ... | ... | |
| 33 | 39 |
"April", "Mai", "Juni", "Juli", |
| 34 | 40 |
"August", "September", "Oktober", "November", |
| 35 | 41 |
"Dezember"); |
| 36 |
$datum = |
|
| 42 |
my $datum =
|
|
| 37 | 43 |
$Wochentage[$Wochentag] . ", der " |
| 38 | 44 |
. $Monatstag . "." |
| 39 | 45 |
. $Monat . "." |
Auch abrufbar als: Unified diff
kopf strict (wird die eigentlich irgendwo benutzt?)