diff options
| author | ivan <ivan> | 2001-04-26 02:28:40 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-04-26 02:28:40 +0000 |
| commit | 2ce72aa7adbac1ff4ecafd2e79311b62362d4f68 (patch) | |
| tree | a726659f1fb484893fd31b5afe3bd7665f10ae10 /fs_webdemo | |
| parent | 836e20fbc7e694ac5be5ee067637cae4b855e40a (diff) | |
argh
Diffstat (limited to 'fs_webdemo')
| -rwxr-xr-x | fs_webdemo/registerd.Pg | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg index 6f882da77..b1409a92c 100755 --- a/fs_webdemo/registerd.Pg +++ b/fs_webdemo/registerd.Pg @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# $Id: registerd.Pg,v 1.8 2001-04-26 02:23:27 ivan Exp $ +# $Id: registerd.Pg,v 1.9 2001-04-26 02:28:40 ivan Exp $ use strict; use vars qw( @@ -85,7 +85,7 @@ while ( 1 ) { my $username = $row->{'username'}; my $email = $row->{'passwd'}; - my $pdbh = DBI->connect( 'DBI:Pg:host=localhost;database=demo_template', 'freeside', 'maelcolm' ) + my $pdbh = DBI->connect( 'DBI:Pg:host=localhost;dbname=demo_template', 'freeside', 'maelcolm' ) or do { &myerr("$username: ". $DBI::errstr); next; }; my $psth = $pdbh->prepare("CREATE DATABASE demo_$username") |