projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
purge message
[freeside.git]
/
fs_webdemo
/
registerd.Pg
diff --git
a/fs_webdemo/registerd.Pg
b/fs_webdemo/registerd.Pg
index
7fa4c9a
..
8c8b945
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.
6 2001-04-26 02:20:41
ivan Exp $
+# $Id: registerd.Pg,v 1.
10 2001-09-30 07:55:52
ivan Exp $
use strict;
use vars qw(
use strict;
use vars qw(
@@
-85,16
+85,16
@@
while ( 1 ) {
my $username = $row->{'username'};
my $email = $row->{'passwd'};
my $username = $row->{'username'};
my $email = $row->{'passwd'};
- my $pdbh = DBI->connect( 'DBI:Pg:host=localhost;d
atabas
e=demo_template', 'freeside', 'maelcolm' )
+ my $pdbh = DBI->connect( 'DBI:Pg:host=localhost;d
bnam
e=demo_template', 'freeside', 'maelcolm' )
or do { &myerr("$username: ". $DBI::errstr); next; };
my $psth = $pdbh->prepare("CREATE DATABASE demo_$username")
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()
$psth->execute()
- or do { &myerr("$username: ". $psth->errstr
;
); next; };
+ or do { &myerr("$username: ". $psth->errstr); next; };
$pdbh->disconnect
$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; };
open(PSQL,"|psql -U freeside demo_$username")
or do { &myerr("|psql -U freeside demo_$username: $!"); next; };
@@
-184,6
+184,8
@@
while ( 1 ) {
"\n",
"Your sample Freeside database has been setup.\n",
"\n",
"\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",
"Point your web browswer at http://freeside.sisd.com/ and use the following\n",
"authentication information:\n",
"\n",
@@
-211,7
+213,7
@@
while ( 1 ) {
sub myerr {
my $msg = shift;
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;
print MAIL $msg, "\n\n";
print MAIL $msg, "\n\n";
close MAIL;