Revision bd23cc3e
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
| 70 | 70 |
} |
| 71 | 71 |
} |
| 72 | 72 |
|
| 73 |
&check_password;
|
|
| 73 |
check_password();
|
|
| 74 | 74 |
|
| 75 | 75 |
call_sub($subroutine); |
| 76 | 76 |
|
| ... | ... | |
| 92 | 92 |
close FH; |
| 93 | 93 |
} |
| 94 | 94 |
|
| 95 |
&adminlogin;
|
|
| 95 |
adminlogin();
|
|
| 96 | 96 |
|
| 97 | 97 |
} |
| 98 | 98 |
|
| ... | ... | |
| 169 | 169 |
$myconfig->{numberformat} = "1000,00";
|
| 170 | 170 |
$myconfig->{dateformat} = "dd.mm.yy";
|
| 171 | 171 |
|
| 172 |
&form_header;
|
|
| 173 |
&form_footer;
|
|
| 172 |
form_header();
|
|
| 173 |
form_footer();
|
|
| 174 | 174 |
|
| 175 | 175 |
} |
| 176 | 176 |
|
| ... | ... | |
| 182 | 182 |
. $locale->text('Edit User');
|
| 183 | 183 |
$form->{edit} = 1;
|
| 184 | 184 |
|
| 185 |
&form_header;
|
|
| 186 |
&form_footer;
|
|
| 185 |
form_header();
|
|
| 186 |
form_footer();
|
|
| 187 | 187 |
|
| 188 | 188 |
} |
| 189 | 189 |
|
| ... | ... | |
| 852 | 852 |
|
| 853 | 853 |
if ($line =~ /^\[/) {
|
| 854 | 854 |
last if ($line =~ /\[$form->{login}\]/);
|
| 855 |
$login = &login_name($line);
|
|
| 855 |
$login = login_name($line); |
|
| 856 | 856 |
} |
| 857 | 857 |
|
| 858 | 858 |
if ($line =~ /^templates=/) {
|
| 859 |
$user{$login} = &get_value($line);
|
|
| 859 |
$user{$login} = get_value($line);
|
|
| 860 | 860 |
} |
| 861 | 861 |
|
| 862 | 862 |
print CONF $line; |
| ... | ... | |
| 866 | 866 |
# and save template variable |
| 867 | 867 |
while ($line = shift @config) {
|
| 868 | 868 |
if ($line =~ /^templates=/) {
|
| 869 |
$templatedir = &get_value($line);
|
|
| 869 |
$templatedir = get_value($line); |
|
| 870 | 870 |
} |
| 871 | 871 |
last if ($line =~ /^\[/); |
| 872 | 872 |
} |
| ... | ... | |
| 874 | 874 |
# this one is either the next login or EOF |
| 875 | 875 |
print CONF $line; |
| 876 | 876 |
|
| 877 |
$login = &login_name($line);
|
|
| 877 |
$login = login_name($line); |
|
| 878 | 878 |
|
| 879 | 879 |
while ($line = shift @config) {
|
| 880 | 880 |
if ($line =~ /^\[/) {
|
| 881 |
$login = &login_name($line);
|
|
| 881 |
$login = login_name($line); |
|
| 882 | 882 |
} |
| 883 | 883 |
|
| 884 | 884 |
if ($line =~ /^templates=/) {
|
| 885 |
$user{$login} = &get_value($line);
|
|
| 885 |
$user{$login} = get_value($line);
|
|
| 886 | 886 |
} |
| 887 | 887 |
|
| 888 | 888 |
print CONF $line; |
| ... | ... | |
| 983 | 983 |
sub pg_database_administration {
|
| 984 | 984 |
|
| 985 | 985 |
$form->{dbdriver} = 'Pg';
|
| 986 |
&dbselect_source;
|
|
| 986 |
dbselect_source();
|
|
| 987 | 987 |
|
| 988 | 988 |
} |
| 989 | 989 |
|
| 990 | 990 |
sub oracle_database_administration {
|
| 991 | 991 |
|
| 992 | 992 |
$form->{dbdriver} = 'Oracle';
|
| 993 |
&dbselect_source;
|
|
| 993 |
dbselect_source();
|
|
| 994 | 994 |
|
| 995 | 995 |
} |
| 996 | 996 |
|
| ... | ... | |
| 1018 | 1018 |
|
| 1019 | 1019 |
sub dbselect_source {
|
| 1020 | 1020 |
|
| 1021 |
&dbdriver_defaults;
|
|
| 1021 |
dbdriver_defaults();
|
|
| 1022 | 1022 |
|
| 1023 | 1023 |
$msg{Pg} =
|
| 1024 | 1024 |
$locale->text( |
Auch abrufbar als: Unified diff
Funktionsaufrufe nicht mehr in der veralteten Syntax.