#!c:\perl\bin\perl.exe
#!/usr/bin/perl
############################################
## ##
## Account Manager LITE User Signup ##
## by SiteInteractive.com ##
## http://siteinteractive.com/contact ##
## ##
## version: 1.09 ##
## last modified: 07/24/2002 ##
## copyright (c) 1998 - 2002 ##
## ##
## latest version is available from ##
## http://SiteInteractive.com ##
## ##
############################################
#
# Copyright 1998 Elite Host. All Rights Reserved.
#
# TERMS OF USE
# 1. Account Manager is for licensed customers
# only. Customer may use Account Manager as many
# times as customer wishes, as long as customer owns or runs the web
# site that Account Manager is installed on. Account
# Manager may not under any circumstances be sold
# or redistributed without the written consent of CGI Script Center and
# its owner Diran Alemshah.
#
# 2. CGI Script Center, at its own discresion, will decide if any terms
# of the this agreement have been violated by customer. Upon written e-
# mailed notification to Customer of Terms of Use violations, CGI
# Script Center may revoke customer's license to use Account Manager.
# In that event, Customer agrees to any and all of the following:
#
# a) Customers found in violation of this agreement, found reselling or
# redistributing Account Manager, or making
# Customers Members Area ID and password public to anyone in any
# manner will forfeit their Members area password and all rights to
# future versions of Account Manager.
#
# b). Customer will no longer be licensed to run any version of
# Account Manager.
#
# Indemnification
# 1. Customer agrees that it shall defend, indemnify, save and hold
# CGI Script Center, Elite Web Design and marketing, and any
# persons affiliated with either company, harmless from any and all
# demands, liabilities, losses, costs and claims, including reasonable
# attorney's fees asserted against CGI Script Center, its agents, its
# customers, officers and employees, that may arise or result from any
# service provided or performed or agreed to be performed or any product
# sold by customer, its agents, employees or assigns. Customer agrees to
# defend, indemnify and hold harmless CGI Script Center, its agents,
# its cusomters, officers, and employes,against
# liabilities arising out of; a) any injury to person or property caused
# by an products sold or otherwise distributed in connection with CGI
# Script Center products; (b) any material supplied by customer
# infringing or allegedly infringing on the proprietary rights of a
# third party; c) copyright infringement and (d) any defective products
# sold to customer from CGI Script Center products.
#
# This program may not be distributed in whole or part, freely, for pay,
# or any other form of compensation.
#
################################################## ###############
# This version designed for Win32 systems (NT). If you require
# a Unix version, please contact cgi@elitehost.com
################################################## ###############
################################################## ############
# EDIT USER CONFIGURATIONS BELOW
################################################## ############
# apache is in d DRIVE!!! not C
#require "d:/program files/apache software foundation/apache2.2/cgi-bin/config.pl";
# This completes this portion of your Account Manager setup
################################################## ############
# DO NOT EDIT BELOW THIS LINE
################################################## ############
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBD::mysql;
use DBI;
use Email::Valid;
my $query = CGI->new;
unless ($CGI::VERSION >= 2.47) {
error('Your version of CGI.pm is too old. You must have verison 2.47 or higher to use this script.')
}
#SECTION B
#=========================================
#Database initialization and initial query
my ($dbh, $data_source);
my $mysql_server_name = 'localhost';
my $mysql_database_name = 'test';
my $mysql_user_name = 'root';
my $mysql_password = 'mysql1';
my $data_source = 'DBI:mysql:' . $mysql_database_name . ':' . $mysql_server_name;
my $dbh = DBI->connect( $data_source, $mysql_user_name, $mysql_password, {RaiseError=>1}) || die "$DBI::errstr";
#important line to pass email address from html to perl
my $agree_field = $query->param("agree") || 'Annonymous';
my $first_name = $query->param("fname") || 'Annonymous';
my $last_name = $query->param("lname") || 'Annonymous';
my $email_address = $query->param("email") || 'Annonymous';
my $user_name = $query->param("username") || 'Annonymous';
my $password = $query->param("pwd") || 'Annonymous';
# End of Database initial Query
#==========================================
print $query->header(),
$query->start_html(-title=>'Input Successful'),
$query->p('Thanks for registrating your particulars with us!'),
$query->p("You Agree? : $agree_field:"),
$query->p("Your First Name : $first_name"),
$query->p("Your last Name : $last_name"),
$query->p("Your email address: $email_address"),
$query->p("Your username : $user_name"),
$query->p("Your Password : $password"),
$query->end_html;
sub error {
print $query->header(),
$query->start_html(-title=>'Error'),
shift,
$query->end_html;
exit(0);
}
my $sql = $dbh->prepare(qq{SELECT * FROM user_reg});
$sql->execute();
while (my @data = $sql->fetchrow_array()) {
# Print the date from the first two columns in the table
#print $data[0], "\t", $data[1], "<br>";
print $data[0], "\t", $data[1], "\t", $data[2], "\t", $data[3], "\t", $data[4], "\t", $data[5], "<br>";
}
1;
$sql = $dbh->prepare(qq{insert into user_reg(agree_field, first_name, last_name, email_address, user_name, password) values ( "$agree_field", "$first_name", "$last_name", "$email_address", "$user_name", "$password") } );
$sql->execute() or die "$dbh->errstr\n";;
$sql = $dbh->prepare(qq{SELECT * FROM user_reg});
$sql->execute();
while (my @data = $sql->fetchrow_array()){
# Print the date from the first four columns in the table
print $data[0], "\t", $data[1], "\t", $data[2], "\t", $data[3], "\t", $data[4], "\t", $data[5], "<br>";
}
1;
#Let's see if the email_address conforms to the RFC822 specification
print (Email::Valid->address($email_address) ? 'yes' : 'no');
#!C:\perl\bin\perl.exe
use FormValidator::Simple;
my $q = CGI->new;
$q->param( year => 2005 );
$q->param( month => 12 );
$q->param( day => 27 );
my $result = FormValidator::Simple->check( $q => [
{ date => ['year', 'month', 'day'] } => [ 'DATE' ],
] );
[% IF result.invalid('date') %]
<p>Set correct date.</p>
[% END %]
Comment