Perl : embedding java script with cgi perl script Post: 302783821

Sponsored Content

Top Forums Shell Programming and Scripting Perl : embedding java script with cgi perl script Post 302783821 by scriptscript on Thursday 21st of March 2013 04:01:55 AM

03-21-2013

Registered User

Perl : embedding java script with cgi perl script

Hi All,

I am aware that html tags can be embedded in cgi script as below.. In the same way is it possible to embed the below javascript in perl cgi script ??

Code:

print("<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">");
print("<input type = "text" name="message">");
print("<input type = "password" name="password">");
print("<input type="submit" name = "submitbutton" value=" Edit ">");
print("</form>");

Now how to embed the below html with script in perl cgi ?

Code:

<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">
<input type = "text" name="message">
<input type = "password" name="password">
<input type="submit" name = "submitbutton" value=" Edit ">
</form>
<script>
function submitForm(s) { // when submit form button pressed
var pwd = document.forms[0].password.value;
if (pwd != 1111) {
alert ("Wrong Password! Your greedy has given up! ");
return false;
}}
</script>

scriptscript

View Public Profile for scriptscript

Find all posts by scriptscript

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

call shell script from perl cgi script problem

hi,, i have perl scipt with line : system('./try.sh $t $d $m'); in shell scipt try.sh i have the line: echo $1 its not printing value of $t that i hav passed..y is it so..i am running it from apache web server

2. Web Development

in cgi perl script a form

hi,i hav a form in cgi perl script.this script accepts a value from user from another html form, and depending upon this value,i need to disable /enable radio buttons in cgi-perl script wen second page is displayed on executing cgi perl script.how do i do it using javascript?

3. Shell Programming and Scripting

Perl cgi script to call bash script?

Novice to perl here. I have created a simple web page in perl, with only one submit button. I would like to execute a bash script on the same server when this button is clicked on. Is this possible in perl? I have spent a few days researching this and am unable to find any useful information....

4. Shell Programming and Scripting

Perl-cgi with java

hi, I am writing a perl-cgi which will extract data from DB and show on portal (like a report). Now I have one portal ready with Java (war deployed). Can I use same portal which will directly call my perl-cgi script ?

5. Shell Programming and Scripting

Embedding HTML in Perl script

My webpage is hosted from perlscript(homepage.pl), i want to add piece of html code in the footer of the homepage. I simply pasted the html code at the end of the perl script as below... ======================================================== close(OUTSQL); ...

6. Web Development

perl cgi script not working

Hello, Met a problem learning perl cgi script. 1 #!/usr/bin/perl -wT 2 3 use strict; 4 use CGI qw(:standard); 5 6 my $q = new CGI; 7 8 my $filename = $q->param('/home/yifangt/hello.cgi'); 9 my $contenttype = $q->uploadInfo($filename)->{'Content-Type'}; 10...

7. Web Development

problem with exporting vairable from one perl cgi to another perl cgi script while redirecting.

Can anyone tell me how to export a variable from one perl CGI script to another perl cgi script when using a redirect. Upon running the login.pl the user is prompted to enter user name and password. Upon entering the correct credentials (admin/admin) the user is redirected to welcome page. My...

8. Programming

CGI Perl script to execute bash script- unable to create folder

Hi I have a bash script which takes parameters sh /tmp/gdg.sh -b BASE-NAME -n 1 -s /source/data -p /dest/data/archive -m ARC gdg.sh will scan the /source/data and will move the contents to /dest/data/archive after passing through some filters. Its working superb from bash I have...

9. Shell Programming and Scripting

Perl CGI : unable to download the excel sheet from perl cgi page

Hi All, I have written an cgi perl script that displays an image(Excel image) and when clicked on that Image I need to download a excel sheet. I made sure that excel sheet exists in the folder with the given name but still I am not able to download the sheet. print "<center><table...

10. Shell Programming and Scripting

Not able to copy the file in perl cgi script

Hello experts, I am facing an very typical problem and hope the issue can be solved. I have a page download.cgi in /cgi-bin folder. use CGI; use CGI::Carp qw ( fatalsToBrowser ); use File::Copy copy("C:\\Program Files\\Apache Software...

LEARN ABOUT DEBIAN

cgi::extratags

Extratags(3pm)						User Contributed Perl Documentation					    Extratags(3pm)

NAME

       CGI::Extratags - Useful Extensions for the CGI Module

SYNOPSIS

	 use CGI::Extratags;
	 $cgi = new CGI::Extratags;

	 print $cgi -> email ('racke@linuxia.de');

	 print $cgi -> jump ('CONTACT', 'contact us');
	 print $cgi -> mark ('CONTACT', $cgi -> h2 ('How to contact us'));

	 print $cgi -> row ('Date', 18, 1, 1966);
	 print $cgi -> recall ('Debian CD', artnum => '0-123456');

DESCRIPTION

       CGI::Extratags adds several useful methods to the CGI class.

       email ADDRESS
	     print $cgi -> email ('racke@linuxia.de');

	   Produces HTML code for a link to an email ADDRESS.

       jump MARK TEXT
	     print $cgi -> jump ('CONTACT', 'contact us');

	   Produces HTML code for a link pointing to a target within the current document.

       mark NAME TEXT
	     print $cgi -> mark ('CONTACT', $cgi -> h2 ('How to contact us'));

	   Generates target NAME for hyperlinks.

       row [ITEM ...]
	     print $cgi -> row ('Date', 18, 1, 1966);

	   Produces HTML code for a table row with ITEM arguments as cell contents.

       recall TEXT [NAME [VALUE]] ...
	     foreach my $num (sort (keys %artmap))
	       {
		   print $cgi -> recall ($artmap{$num}, artnum => $num);
		   print $cgi -> br;
	       }

	   Produces a link to the script itself labeled with TEXT. The NAME/VALUE pairs will be passed as parameters.

AUTHOR

       Stefan Hornburg, racke@linuxia.de

SEE ALSO

       perl(1), URI::Escape(3), CGI(3).

perl v5.8.4							    2004-07-11							    Extratags(3pm)