X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_webdemo%2Fregisterd.Pg;h=8c8b94557b757473a275fbd6ffe67e445e905cab;hb=fba31d6a0954ccfbb1d491ec018f0513d2a4ee2a;hp=6f882da7792747a590490d1adf95619deed5c9f8;hpb=836e20fbc7e694ac5be5ee067637cae4b855e40a;p=freeside.git

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 6f882da77..8c8b94557 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.10 2001-09-30 07:55:52 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")
@@ -184,6 +184,8 @@ while ( 1 ) {
     "\n",
     "Your sample Freeside database has been setup.\n",
     "\n",
+    "Your login and database will be automatically deleted in 1-2 months.\n",
+    "\n",        
     "Point your web browswer at http://freeside.sisd.com/ and use the following\n",
     "authentication information:\n",
     "\n",