X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=fs_webdemo%2Fregister.cgi;h=e5f24efe09833dc8fff347870d5206836462c888;hb=859bfa57db033957bdb1778f042e7ee9a1df4e1e;hp=45b5d6aebcef1f7d0dba93e692ebc009d2e59e3c;hpb=9634d838efee4b155c89c36f524eca98d73d1868;p=freeside.git

diff --git a/fs_webdemo/register.cgi b/fs_webdemo/register.cgi
index 45b5d6aeb..e5f24efe0 100755
--- a/fs_webdemo/register.cgi
+++ b/fs_webdemo/register.cgi
@@ -1,16 +1,17 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: register.cgi,v 1.2 2000-03-01 08:15:10 ivan Exp $
+# $Id: register.cgi,v 1.4 2000-03-03 05:32:56 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 DBI;
@@ -75,8 +76,9 @@ $x = $DBI::errstr; #silly; to avoid "used only once" warning
 
 $sth = $dbh->prepare("INSERT INTO mysql_auth VALUES (". join(", ",
   $dbh->quote($username),
-  $dbh->quote("X"),
+#  $dbh->quote("X"),
 #  $dbh->quote($crypt_pw),
+  $dbh->quote($email),
   $dbh->quote('freeside'),
   $dbh->quote('unconfigured'),
 ). ")" );