projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ip_netmask is gone now
[freeside.git]
/
fs_webdemo
/
register.cgi
diff --git
a/fs_webdemo/register.cgi
b/fs_webdemo/register.cgi
index
45b5d6a
..
8255822
100755
(executable)
--- a/
fs_webdemo/register.cgi
+++ b/
fs_webdemo/register.cgi
@@
-1,18
+1,19
@@
#!/usr/bin/perl -Tw
#
#!/usr/bin/perl -Tw
#
-# $Id: register.cgi,v 1.
2 2000-03-01 08:15:10
ivan Exp $
+# $Id: register.cgi,v 1.
5 2000-03-03 18:22:42
ivan Exp $
use strict;
use strict;
-use vars qw(
#$freeside_bin $freeside_test $freeside_conf
+use vars qw(
$datasrc $user $pass $x
$datasrc $user $pass $x
- #@pw_set @saltset
$cgi $username $email
$cgi $username $email
- #$user_pw $crypt_pw
$dbh $sth
$dbh $sth
- #$header $msg
);
);
+ #$freeside_bin $freeside_test $freeside_conf
+ #@pw_set @saltset
+ #$user_pw $crypt_pw
+ #$header $msg
use CGI;
use CGI;
-
#
use CGI::Carp qw(fatalsToBrowser);
+use CGI::Carp qw(fatalsToBrowser);
use DBI;
#use Mail::Internet;
#use Mail::Header;
use DBI;
#use Mail::Internet;
#use Mail::Header;
@@
-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),
$sth = $dbh->prepare("INSERT INTO mysql_auth VALUES (". join(", ",
$dbh->quote($username),
- $dbh->quote("X"),
+
#
$dbh->quote("X"),
# $dbh->quote($crypt_pw),
# $dbh->quote($crypt_pw),
+ $dbh->quote($email),
$dbh->quote('freeside'),
$dbh->quote('unconfigured'),
). ")" );
$dbh->quote('freeside'),
$dbh->quote('unconfigured'),
). ")" );