#!/usr/bin/perl -w
#
-# $Id: registerd.Pg,v 1.2 2001-04-23 16:25:05 ivan Exp $
+# $Id: registerd.Pg,v 1.3 2001-04-26 00:17:39 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";