arfuckingargh

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 672b892..6f882da 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.7 2001-04-26 02:21:19 ivan Exp $
+# $Id: registerd.Pg,v 1.8 2001-04-26 02:23:27 ivan Exp $

 
 use strict;
 use vars qw(
 
 use strict;
 use vars qw(


@@ -94,7 +94,7 @@ while ( 1 ) {
       or do { &myerr("$username: ". $psth->errstr); next; };
 
     $pdbh->disconnect
       or do { &myerr("$username: ". $psth->errstr); next; };
 
     $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; };


@@ -211,7 +211,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;