X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_webdemo%2Fregisterd.Pg;h=b1409a92cb4e327c25e348e39cc41489a222c444;hp=7fa4c9a3da1d8e2cb6361f88f2642a6467ef609f;hb=2ce72aa7adbac1ff4ecafd2e79311b62362d4f68;hpb=85c2ddbd1de869de87001bbf16b50dd63ac4b6a1

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 7fa4c9a3d..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.6 2001-04-26 02:20:41 ivan Exp $
+# $Id: registerd.Pg,v 1.9 2001-04-26 02:28:40 ivan Exp $
 
 use strict;
 use vars qw(
@@ -85,16 +85,16 @@ 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")
-      or do { &myerr("$username: ". $pdbh->errstr;); next; };
+      or do { &myerr("$username: ". $pdbh->errstr); next; };
     $psth->execute()
-      or do { &myerr("$username: ". $psth->errstr;); next; };
+      or do { &myerr("$username: ". $psth->errstr); next; };
 
     $pdbh->disconnect
-      or do { &myerr("fatal: $DBI:errstr"); die; };
+      or do { &myerr("fatal: $DBI::errstr"); die; };
 
     open(PSQL,"|psql -U freeside demo_$username")
       or do { &myerr("|psql -U freeside demo_$username: $!"); next; };
@@ -211,7 +211,7 @@ while ( 1 ) {
 
 sub myerr {
   my $msg = shift;
-  open(MAIL,"|mail ivan-fsdemoerr@420.am");
+  open(MAIL,"|mail ivan-fsdemoerr\@420.am");
   print MAIL $msg, "\n\n";
   print MAIL $msg, "\n\n";
   close MAIL;