#!/usr/bin/perl -w
#
-# $Id: registerd.Pg,v 1.3 2001-04-26 00:17:39 ivan Exp $
+# $Id: registerd.Pg,v 1.4 2001-04-26 00:18:36 ivan Exp $
use strict;
use vars qw(
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/* ".