projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cec8397
)
arg
author
ivan
<ivan>
Thu, 26 Apr 2001 02:20:41 +0000
(
02:20
+0000)
committer
ivan
<ivan>
Thu, 26 Apr 2001 02:20:41 +0000
(
02:20
+0000)
fs_webdemo/registerd.Pg
patch
|
blob
|
history
diff --git
a/fs_webdemo/registerd.Pg
b/fs_webdemo/registerd.Pg
index
996ac8b
..
7fa4c9a
100755
(executable)
--- a/
fs_webdemo/registerd.Pg
+++ b/
fs_webdemo/registerd.Pg
@@
-1,6
+1,6
@@
#!/usr/bin/perl -w
#
#!/usr/bin/perl -w
#
-# $Id: registerd.Pg,v 1.
5 2001-04-26 02:18:15
ivan Exp $
+# $Id: registerd.Pg,v 1.
6 2001-04-26 02:20:41
ivan Exp $
use strict;
use vars qw(
use strict;
use vars qw(
@@
-85,14
+85,17
@@
while ( 1 ) {
my $username = $row->{'username'};
my $email = $row->{'passwd'};
my $username = $row->{'username'};
my $email = $row->{'passwd'};
- $pdbh = DBI->connect( 'DBI:Pg:host=localhost;database=demo_template', 'freeside', 'maelcolm' )
+
my
$pdbh = DBI->connect( 'DBI:Pg:host=localhost;database=demo_template', 'freeside', 'maelcolm' )
or do { &myerr("$username: ". $DBI::errstr); next; };
or do { &myerr("$username: ". $DBI::errstr); next; };
- $psth = $pdbh->prepare("CREATE DATABASE demo_$username")
+
my
$psth = $pdbh->prepare("CREATE DATABASE demo_$username")
or do { &myerr("$username: ". $pdbh->errstr;); next; };
$psth->execute()
or do { &myerr("$username: ". $psth->errstr;); next; };
or do { &myerr("$username: ". $pdbh->errstr;); next; };
$psth->execute()
or do { &myerr("$username: ". $psth->errstr;); next; };
+ $pdbh->disconnect
+ or do { &myerr("fatal: $DBI:errstr"); die; };
+
open(PSQL,"|psql -U freeside demo_$username")
or do { &myerr("|psql -U freeside demo_$username: $!"); next; };
open(PSQLDATA, "</usr/local/etc/freeside/demo_template.Pg")
open(PSQL,"|psql -U freeside demo_$username")
or do { &myerr("|psql -U freeside demo_$username: $!"); next; };
open(PSQLDATA, "</usr/local/etc/freeside/demo_template.Pg")