#!/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;
$dbh->quote($username),
# $dbh->quote("X"),
# $dbh->quote($crypt_pw),
- $dbh->quote($email);
+ $dbh->quote($email),
$dbh->quote('freeside'),
$dbh->quote('unconfigured'),
). ")" );