X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_webdemo%2Fregister.cgi;h=825582262c22006f0f9b1c01d504293765078f61;hp=e240a974e81e056e53ca201d8509db79640ba98d;hb=c2146ae32fdef80049abfa13098db2d45f3ebdd5;hpb=dab9ff90d22cd188c4f4a436c320814f24af6846

diff --git a/fs_webdemo/register.cgi b/fs_webdemo/register.cgi
index e240a974e..825582262 100755
--- a/fs_webdemo/register.cgi
+++ b/fs_webdemo/register.cgi
@@ -1,18 +1,19 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: register.cgi,v 1.3 2000-03-03 05:29:24 ivan Exp $
+# $Id: register.cgi,v 1.5 2000-03-03 18:22:42 ivan Exp $
 
 use strict;
-use vars qw( #$freeside_bin $freeside_test $freeside_conf
+use vars qw(
              $datasrc $user $pass $x
-             #@pw_set @saltset
              $cgi $username $email 
-             #$user_pw $crypt_pw 
              $dbh $sth
-             #$header $msg
              );
+             #$freeside_bin $freeside_test $freeside_conf
+             #@pw_set @saltset
+             #$user_pw $crypt_pw 
+             #$header $msg
 use CGI;
-#use CGI::Carp qw(fatalsToBrowser);
+use CGI::Carp qw(fatalsToBrowser);
 use DBI;
 #use Mail::Internet;
 #use Mail::Header;
@@ -77,7 +78,7 @@ $sth = $dbh->prepare("INSERT INTO mysql_auth VALUES (". join(", ",
   $dbh->quote($username),
 #  $dbh->quote("X"),
 #  $dbh->quote($crypt_pw),
-  $dbh->quote($email);
+  $dbh->quote($email),
   $dbh->quote('freeside'),
   $dbh->quote('unconfigured'),
 ). ")" );