Revision 12a7cea9
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
| 635 | 635 |
print $form->parse_html_template("admin/dbadmin");
|
| 636 | 636 |
} |
| 637 | 637 |
|
| 638 |
sub test_db_connection {
|
|
| 639 |
$form->{dbdriver} = 'Pg';
|
|
| 640 |
User::dbconnect_vars($form, $form->{dbname});
|
|
| 641 |
|
|
| 642 |
my $dbh = DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd});
|
|
| 643 |
|
|
| 644 |
$form->{connection_ok} = $dbh ? 1 : 0;
|
|
| 645 |
$form->{errstr} = $DBI::errstr;
|
|
| 646 |
|
|
| 647 |
$dbh->disconnect() if ($dbh); |
|
| 648 |
|
|
| 649 |
$form->{title} = $locale->text('Database Connection Test');
|
|
| 650 |
$form->header(); |
|
| 651 |
print $form->parse_html_template("admin/test_db_connection");
|
|
| 652 |
} |
|
| 653 |
|
|
| 638 | 654 |
sub continue {
|
| 639 | 655 |
call_sub($form->{"nextsub"});
|
| 640 | 656 |
} |
Auch abrufbar als: Unified diff
Administration: Einen Button zum Testen der Datenbankeinstellung in der Maske zur Bearbeitung der Benutzerdaten eingefügt.