#!/usr/bin/perl -w
#
-# $Id: registerd.Pg,v 1.2 2001-04-23 16:25:05 ivan Exp $
+# $Id: registerd.Pg,v 1.4 2001-04-26 00:18:36 ivan Exp $
use strict;
use vars qw(
my $username = $row->{'username'};
my $email = $row->{'passwd'};
- system("/usr/bin/createdb --username freeside demo_$username >/dev/null");
+ system("/usr/bin/createdb --username freeside demo_$username | mail ivan-createdb\@420.am");
- system "psql -U freeside demo_$username </usr/local/etc/freeside/demo_template.Pg";
+ system "psql -U freeside demo_$username </usr/local/etc/freeside/demo_template.Pg | mail ivan-psql\@420.am";
mkdir "${freeside_conf}conf.DBI:Pg:host=localhost;dbname=demo_$username", 0755;
system "cp -pr ${freeside_conf}conf.DBI:Pg:host=localhost\\;dbname=demo_template/* ".