projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
s/icradius/sqlradius/
[freeside.git]
/
fs_webdemo
/
register.cgi
diff --git
a/fs_webdemo/register.cgi
b/fs_webdemo/register.cgi
index
e240a97
..
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.
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 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;
@@
-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($username),
# $dbh->quote("X"),
# $dbh->quote($crypt_pw),
- $dbh->quote($email)
;
+ $dbh->quote($email)
,
$dbh->quote('freeside'),
$dbh->quote('unconfigured'),
). ")" );
$dbh->quote('freeside'),
$dbh->quote('unconfigured'),
). ")" );