How to enter data into a file from html form using perl

2 New Member

Expand|Select|Wrap|Line Numbers

 
#!c:/perl/bin/perl.exe

$basedir="c:/program files/apache software foundation/apache2.2/cgi-bin";

$datafile="regstr.txt";

$name=$in{'login'};

$passwd=$in{'passwd'};

open(FH1,"+>>regstr.txt");

@input=<FH1>;

print(@input);

@input=($login,$password);

close(FH1);

print "Content-type: text/plain; charset=iso-8859-1\n\n";

{

chop();

if($arr[1] eq $login)

{

 if($arr[3] eq $password)

 {

  print "<HTML>";

  print "<HEAD>";

  print "<SCRIPT>";

  print "function back(form){history.back();}";

  print "</SCRIPT>";

  print "</HEAD>";

  print "<BODY text=green>";

  print "<BR><BR><BR>";

  print "<CENTER><H1>Thanks your registeration is saved".$name."</H1><FORM><BR>";

  print "<FORM>";

  print "<BR><A HREF='http://10.199.44.116/cgi-bin/latest.html'></A><BR><BR>";

  print "</FORM>";

  print "</BODY>";

  print "</HTML>";

  flag=1;  

}

}

}

if($flag=!1)

{

  print "<HTML>";

  print "<HEAD>";

  print "<SCRIPT>";

  print "<function home(form){history.back()}";

  print "</SCRIPT>";

  print "</HEAD>";

  print "<BODY text=green>";

  print "<BR><BR><BR>";

  print "<H1><CENTER>Sorry your login and password does not exist.</H1><BR>";                

  print "</FORM>";

  print "</BODY>";

  print "</HTML>"; 

}b

Oct 4 '06 #1

Subscribe Reply

1737

Similar topics

2766

Passing data from PHP to Perl?

by: google_nospam | last post by:

Thanks in advance for any help. I'm looking for a way to pass data from php to perl. Basically, I want to take some dynamic data from a database, mixed with user input, then reformat it to make a...

PHP

9577

Submit button and click vs. enter

by: ivanhoe | last post by:

All articles and tutorials I've seen on subject of forms say that if there's name and value for submit button(input tag with type="submit"), they'll get submitted along with the rest of the...

HTML / CSS

5827

Is there a way to enter text into an HTML Form edit field

by: Angus Comber | last post by:

Hello I can run a command as below: start www.iteloffice.com this launches my web browser and opens up the url www.iteloffice.com What I want to do is open a particular web page and then...

HTML / CSS

16240

auto POST-ing login data via "javascript:document.form.submit()" link

by: dschruth | last post by:

Hello. Can anybody solve this problem? I am using a server-side language (PERL) to *try* to POST data to a HTTPS login script that doesn't have a standard "submit" button. The form appears...

Javascript

14451

preserve POST data when using the back-button

by: Bjorn | last post by:

Hi. Every time i post data in a form the contents are being checked for validity. When i click the back-button, all data is gone and i have to retype it. It's obvious that only a few or none of...

HTML / CSS

1633

logging to a website and data is being stored in a text file using perl

by: supern | last post by:

this is my perl script saved as login.pl #!c:/perl/bin/perl.exe $basedir="c:/program files/apache software foundation/apache2.2/cgi-bin"; $datafile="regstr.txt"; $name=$in{'login'};...

Perl

24239

Way to save form data locally w/o server?

by: greg_e | last post by:

Is there a way to create a form in a local html file where the contents of the form are written to a local file when a 'save' button is selected? It would be nice if it was as easy as changing...

HTML / CSS

7302

Sorting Data with the Schwartzian Transform

by: KevinADC | last post by:

If you are entirely unfamiliar with using Perl to sort data, read the "Sorting Data with Perl - Part One and Two" articles before reading this article. Beginning Perl coders may find this article...

Perl

3432

zip file corrupted over HTTP

by: nitupatra | last post by:

I have perl script which will make a zip file and create a HTML form with asubmit button to send the zip file client. When user click the download button the zip file will be downloaded. But the...

Perl

7226

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

7125

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

7328

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

7049

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

7499

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...

General

5631

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,...

Career Advice

3199

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...

Networking - Hardware / Configuration

3186

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

422

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...

General