how to check for all the fields in user registrations perl script - Page 3

236 New Member

Hi All,

I modified the user registration script, but not sure how to make it check for each variable in terms of preventing junk registration and invalid characters?
Two codes below :
a) html
b) perl script (print and inserting into database)

Cheers...
Andrew

a) html
=====

Expand|Select|Wrap|Line Numbers

 
<!DOCTYPE HTML PUBLIC "-//SoftQuad//DTD HTML 3.2 + extensions for HoTMetaL PRO 3.0(U) 19961211//EN"

 "hmpro3.dtd">

<HTML>

<HEAD>

<TITLE></TITLE></HEAD>

<BODY>

<FORM ACTION="/cgi-bin/acctman2.pl" METHOD="POST">

<CENTER>

<TABLE BORDER="0" WIDTH="400">

<TR>

<TD ALIGN="CENTER">

<TABLE BORDER="0" CELLPADDING="5" BGCOLOR="#FF8000">

<TR>

<TD><INPUT TYPE="CHECKBOX" NAME="agree" VALUE="agree"></TD>

<TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>I agree to the Terms 

and Conditions above.</B></FONT></TD></TR></TABLE><BR></TD></TR>

<TR>

<TD>

<HR SIZE="2" NOSHADE="NOSHADE"></TD></TR>

<TR>

<TD ALIGN="CENTER">

<TABLE BORDER="0" WIDTH="350" NOWRAP="NOWRAP">

<TR>

<TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Customer Information</B></FONT><BR><FONT

SIZE="-2" FACE="verdana, arial, helvetica" COLOR="#FF0000"><B>Fields marked 

with an asterisk<BR>are required input fields.</B></FONT><BR><BR></TD></TR>

<TR>

<TD><INPUT TYPE="TEXT" NAME="fname">

<FONT SIZE="-1" FACE="verdana, arial, helvetica">First Name *</FONT></TD></TR>

<TR>

<TD><INPUT TYPE="TEXT" NAME="lname">

<FONT SIZE="-1" FACE="verdana, arial, helvetica">Last Name *</FONT></TD></TR>

<TR>

<TD><INPUT TYPE="TEXT" NAME="email">

<FONT SIZE="-1" FACE="verdana, arial, helvetica">E-Mail Address *</FONT></TD></TR></TABLE>

<TABLE BORDER="0" WIDTH="350" NOWRAP="NOWRAP">

<TR>

<TD><BR><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Choose a User 

Name</B></FONT><BR><INPUT TYPE="TEXT" NAME="username"> 

<FONT SIZE="-1" FACE="verdana, arial, helvetica">User Name</FONT>  

<FONT SIZE="-1" FACE="arial, helvetica"><BR><BR><B>Choose a Password</B></FONT><BR>
 
<INPUT TYPE="password" NAME="pwd">     

<FONT SIZE="-1" FACE="verdana, arial, helvetica">Password</FONT><BR><INPUT

TYPE="password" NAME="pwd2"> <FONT SIZE="-1" FACE="verdana, arial, helvetica">Verify

  Password</FONT></TD></TR></TABLE><BR><BR><INPUT

TYPE="SUBMIT" NAME="process" VALUE="Submit My Order"><INPUT

TYPE="RESET" NAME=""></TD></TR>

<TR>

<TD>

<HR SIZE="2" NOSHADE="NOSHADE"></TD></TR></TABLE></CENTER></FORM></BODY></HTML>

b) perl script
=========

Expand|Select|Wrap|Line Numbers

 
#!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;
 
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;

Oct 20 '08

Subscribe Reply

10060

<
1
2
3
4
5
>
Last »

KevinADC

4,059

Recognized Expert Specialist

Hi Kevin,

Please dont dig at me. hee hee. I am abit really effective sometimes when I see these codes....

Just want to complete the project. Cheers...

Thanks and Best Rgds,
Andrew

It wasn't a dig, it was a compliment. I meant that you seem to be learning quickly and in the near future you could be one of the people that is answering questions on forums, if that kind of thing interested you.

Kind regards,
Kevin

Oct 25 '08 #21

happyse27

236

New Member

Hi Kevin,

Thanks. Not likely but will seriously consider...

Btw, I was trying about formsimple.pl, I compiled it but got the error below. I could not find the formvalidator:: simple module at all, but found the formvalidator module.

Kindly advise why the package cant be found and the compilation error below.
Thanks in advance

Cheers...
Andrew

C:\Perl\bin>per l -c d:/formsimple.pl
Can't locate FormValidator/Simple.pm in @INC (@INC contains: C:/Perl/site/lib C:
/Perl/lib .) at d:/formsimple.pl line 2.
BEGIN failed--compilation aborted at d:/formsimple.pl line 2.

Expand|Select|Wrap|Line Numbers

  
#!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 %]

Oct 25 '08 #22

numberwhun

3,509

Recognized Expert Moderator Specialist

That may end up being a case where PPM does not have the module available.

[soapbox]
That is one reason I hate active perl when working on Windows and now ONLY use Strawberry Perl. PPM is limited to what modules that ActiveState decides to port, thus they don't have all of them. So, if you want to be able to use any module, I would switch to Strawberry Perl
Installing modules with SP is as siimple as using the standard CPAN interface, thus, no limitations on modules available. :)
[/soapbox]

Regards,

Jeff

Oct 25 '08 #23

KevinADC

4,059

Recognized Expert Specialist

PPM is limited to what modules that ActiveState decides to port

Not trying to split hairs Jeff but that is only true for modules Activestate decides to release as part of activeperl or via the activestate PPM repositories. Anyone is free to port modules over to PPM as you can see by checking modules available on other PPM repositories. DBD::mysql is an example. On activestate they have an old version 2.x (which only comes with perl 5.6) but the latest version is 4.x (on CPAN and one of the third party PPM repositories).

Of course the number of modules is still limited compared to CPAN and Strawberry perl is a good alternative for users that don't need commercial support or well tested industry standard performance. The makers of Strawberry perl are working on that though if you can judge by the website.

Oct 25 '08 #24

happyse27

236

New Member

hi Jeff and Kevin,

Thanks, but can I install both strawberry and activestate perl at the same time? Any problem to use both manager's packages simultaneously?

Cheers...
Andrew

Oct 26 '08 #25

numberwhun

3,509

Recognized Expert Moderator Specialist

hi Jeff and Kevin,

Thanks, but can I install both strawberry and activestate perl at the same time? Any problem to use both manager's packages simultaneously?

Cheers...
Andrew

It would be an issue because on Windows, the shebang line is not read unless its a CGI script and you are using the -T option. So, you can't implicitly say "use this one" like you can in Unix. It will take whichever one is in the path variable first unless you kick the script off with the absolute path to the Perl interpreter you want to use.

Oct 26 '08 #26

numberwhun

3,509

Recognized Expert Moderator Specialist

Not trying to split hairs Jeff but that is only true for modules Activestate decides to release as part of activeperl or via the activestate PPM repositories. Anyone is free to port modules over to PPM as you can see by checking modules available on other PPM repositories. DBD::mysql is an example. On activestate they have an old version 2.x (which only comes with perl 5.6) but the latest version is 4.x (on CPAN and one of the third party PPM repositories).

Of course the number of modules is still limited compared to CPAN and Strawberry perl is a good alternative for users that don't need commercial support or well tested industry standard performance. The makers of Strawberry perl are working on that though if you can judge by the website.

**checks** Nope, no hairs damaged. :-) Although, I would rather only point to one place that has everything rather than have to point and a bunch of different repositories and still be limited.

I had more than one issue when I used ActiveState (before you told me about Strawberry Perl), where I couldn't find a module and voila, it had errors in its port or just wasnt ported altogether.

Oct 26 '08 #27

KevinADC

4,059

Recognized Expert Specialist

I agree with Jeff. I wouldn't try installing Strawberry perl and Activeperl on the same machine unless you really know what you are doing. I'm not going to say its not possible, I did it once myself but it did create problems in the registry. Unfortunately I no longer remember what the problem was. I uninstalled Strawberry perl and activeperl and reinstalled activeperl to clear up whatever the problem was.

But that was also the first version of Strawberry perl. Newer versions seem to be working out bugs and you can now install it on a different drive besides the C drive like the version I had tried. So if you want to try it you do so at your own risk.

Oct 26 '08 #28

KevinADC

4,059

Recognized Expert Specialist

**checks** Nope, no hairs damaged. :-) Although, I would rather only point to one place that has everything rather than have to point and a bunch of different repositories and still be limited.

I had more than one issue when I used ActiveState (before you told me about Strawberry Perl), where I couldn't find a module and voila, it had errors in its port or just wasnt ported altogether.

All true, but there are just as many and probably many more problematic modules posted on CPAN just because of the sheer number of modules. Anyone can post a module on CPAN that signs up with PAUSE , like yours truely, although after signing up and requesting a name space I never completed my intended module (File::Compare: :Util). Maybe someday I will.

There is lots and lots of crappy and buggy modules posted on CPAN. I always urge people to read the bug reports and reviews of modules and check the authors other modules before using a module. Many modules are uploaded and quickly abandoned never to be updated even when bugs are reported.

Oct 26 '08 #29

numberwhun

3,509

Recognized Expert Moderator Specialist

All true, but there are just as many and probably many more problematic modules posted on CPAN just because of the sheer number of modules. Anyone can post a module on CPAN that signs up with PAUSE , like yours truely, although after signing up and requesting a name space I never completed my intended module (File::Compare: :Util). Maybe someday I will.

There is lots and lots of crappy and buggy modules posted on CPAN. I always urge people to read the bug reports and reviews of modules and check the authors other modules before using a module. Many modules are uploaded and quickly abandoned never to be updated even when bugs are reported.

I completely agree that there are a lot of modules out there that are, as you say, crap. As a general rule of thumb, you don't want to look at anything below version 1.0, although there are a few modules that are the exception to that rule and are avidly used by myself and many others in the coummunity due to their stability and usefulness. Just as an example.... case in point. That module is heavily used in the software that I support at work. While I am not 100% about all its capabilities, what it can do is simply amazing and I recommend it to anyone working with complex configuration files.

I just realized that we have (somewhat) hijacked this thread without meaning to. My appologies to the OP that started it.

Regards,

Jeff

Oct 26 '08 #30

Similar topics

7859

Using perl to check services

by: Jason Miles | last post by:

Hi, I wrote this little script to check to see if our Lotus Notes servers are running, and from the command line it works fine if I type perl notescheck.pl When I invoke the script from a web page I get an error: Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request.

Perl

3583

Null fields

by: Craig | last post by:

I have an Access 2000 database that has a table 'tblCourse' and a table 'tblRegistration'. They are linked via a Primary key 'CourseID' in 'tblCourse' to a foreign key 'CourseID' in the tblRegistration, this is a one to many relationship. The Primary key in the tblRegistration is RegistrationID. When I construct a query that has 'CourseID' and then e.g. "CountRegistrationID:

Microsoft Access / VBA

14161

Parse PDF Form fields in PHP

by: Perks | last post by:

Hi. I am trying to find out if it is possible to open a pdf file from within PHP, and parse its contents in order to extract all form fieldnames that might have been previously setup within the pdf itself. I want to find this out so that I can then generate a HTML form with all required questions, which when submitted, will generate a fdf / xfdf file, using the techniques from the following tutorial

PHP

108010

How to check if a textbox contains a number

by: Frinavale | last post by:

Filtering user input is extremely important for web programming. If input is left unfiltered users can input malicious code that can cripple your website. This article will explain how to make sure that the user only submits a number to your .NET web application and also demonstrate how to add JavaScript to your ASPX pages. Upon popular demand, I have added a section that also covers how to use a validator control to check if a text box...

ASP.NET

3322

check javascripr enable/disable

by: Anshul | last post by:

I want to check through perl whether javascript is enabled or disabled in mozilla browser. If it is disabled I want to display a message to user to enable it. What code can I use please help. I tried "navigator.javaEnabled() but it is in javascript again. If javascript will be disabled so browser can neither read this code even. Thanks

Javascript

2133

Form to run a JS Mandatory check before toggling <div> tag..

by: plumba | last post by:

Let me explain.... I have a form (most of which you guys have helped me with!!). The initial problem I was having is that it was holding the data in the fields after submit, I resolved this by putting the whole form in a set of <div> tags and the form now collapses after they click submit. Perfect!! But, have set some mandatory fields using java, and I need to it validate the these fields before it collapses the form - otherwise it says...

Javascript

6046

Run a Perl program from an HTML page without user intervention

by: owlice | last post by:

Greetings! I thought I'd add a little something to a web site, a "tip of the week," and wanted it automated so that if I get hit by a truck (or, more likely, am forgetful), the tip is updated automatically. I learned enough Perl (read: just enough) to code a script that does what I want it to do. Now the question is: how to get it to run automatically. I would like the program to be invoked when someone, anyone, hits my homepage. I...

Perl

2058

FORM processing .cgi script - can someone check this?

by: patelxxx | last post by:

I have a FORM with allows user to input their name and then user clicks submit which this goes to my .cgi script. Can someone check this .cgi script as the results are not being displayed as expected. My post_it.cgi: #!C:/perl/bin/perl.exe print "Content-type:text/html\n\n"; @values = split(/&/,$ENV{'QUERY_STRING'}); foreach $i(@values) {

Perl

6850

mysql health check script

by: polycom | last post by:

Hi, I am coding a mysql health check script. The logic is to execute the commands (only once)show status,show slave status,show variables and fetch the variable name and value in a hash refer or any other fetch machanism and dynamically use the values to do calculation like the following threhold values($uptime > 10800) && (Handler_read_rnd_next > 4000) && ((100-(((Handler_read_rnd_next + Handler_read_rnd) / (##Handler_read_rnd_next +...

Perl

9957

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...

Online Marketing

9775

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...

General

8780

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...

Career Advice

7332

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...

Microsoft Access / VBA

6609

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...

C# / C Sharp

5229

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...

Networking - Hardware / Configuration

5373

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

3456

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP

2752

Comprehensive Guide to Website Development in Toronto: Expert Insights from BSMN Consultancy

by: bsmnconsultancy | last post by:

In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

General