How to get HTML output using perl/CGI ?

147 100+

Hi,
When i run the program in web server, getting the only output Content-type: text/html . Not displaying anything else. I don't know, whats a problem ? Please check my code.

Expand|Select|Wrap|Line Numbers

 #!c:/perl/bin/perl

use CGI qw(:all);

$login=uc(param('uid'));

$passwd=param('pwd');
 
$kid = time;

$cookie = cookie(-name=>'logtime',

        -value=>$kid,

        -path=>'/cgi-bin/');
 
if ($login eq "" || $passwd eq "")

{

    print "Content-type: text/html\n\n";

    print "<body bgcolor=\"#ffcccc\">";

    print "<h2>Please enter your userid and password</h2>";

    print "<hr>";

}

else

{
 
    use DBI;

    my $dbh = DBI->connect("DBI:ODBC:sample","aaaa","test")

            or die "Can not connect: $DBI::errstr\n"; 

        $sth = $dbh->prepare("select rollno,passwd from stuacmst where rollno=\'$login\' ") or die "Can not prepare SQL statement: $DBI::errstr\n"; 

        $sth->execute or die "Can not execute SQL statement: $DBI::errstr\n";

        @ary = $sth->fetchrow_array();

        while(substr($ary[1],length($ary[1]) - 1,1) eq ' '){ $ary[1] = substr($ary[1],0,length($ary[1])-2)};

        if ($passwd eq $ary[1])

        {

                $sth = $dbh->prepare("update stuacmst set kid = ? where rollno = ?") or die "Can not prepare SQL statement: $DBI::errstr\n"; 

                $sth->execute($kid,$login) or die "Can not execute SQL statement: $DBI::errstr\n"; 

                print header(-cookie=>$cookie);
     print "Content-type: text/html\n\n";
 
                print "<HTML>";

                print "<HEAD>";

                print "<TITLE>Student page</TITLE>";

                print "</HEAD>";

print "<FRAMESET ROWS='21,78'>";

print "<FRAME SRC=/cgi-bin/auth/header.cgi>";

                print "<FRAMESET COLS='170,*'>";

                print "<FRAME SRC=/cgi-bin/auth/studopts.cgi?rollno=$login>";

                print "<FRAME SRC=/cgi-bin/auth/ssesschk.cgi?sid=1 name=workwind>";

                print "</FRAMESET>";

print "</FRAMESET>";

                print "</HTML>";
 
        }  #Frames are not displaying in the browser."header.cgi" contains only print "<img src=/icons/header.jpg height=100px>";[/b]
 
        else

        {

                print "Content-type: text/html\n\n";

                print "<body bgcolor=\"#ffcccc\">";

                print "<h2>Invalid Attempt!</h2>\n";

                print "<hr>";

        }

    $dbh->disconnect;

}

My output in browser
Content-type: text/html

Feb 10 '11 #1

Subscribe Post Reply

2503

numberwhun

3,509

Expert Mod 2GB

For development purposes, you may want to install the CGI::Carp module and put the following in your Perl script:

Expand|Select|Wrap|Line Numbers

use CGI::Carp qw(fatalsToBrowser);

That will print errors to your browser and may reveal your issue (possibly).

Regards,

Jeff

Feb 10 '11 #2

by: Sam | last post by:

I would like to store html templates in a database. By using perl I would like to retrive the template ask the user to fill the template and store the whole file is template + the user data in a...

Perl

Remove javascript content from HTML page using Perl

by: Mark | last post by:

I am creating a search engine that will scan pages on my Web site. I do not want any false-positive hits, being defined as any match that does not appear on the page using a Web browser. I am...

Perl

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

by: supern | last post by:

#!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");...

Perl

trying to login JMS using perl and execute commands

by: jonathan184 | last post by:

Hi I am trying to login a JMS admin tool and execute JMS commands and using perl windows to do this. This is the e.g of connection string they said to use when trying to connec to jms ****connect ...

Perl

Extracting info from html page using perl

by: fox | last post by:

I need to extract patterns from a line in a web page and these patterns sometimes show up twice in the same line so using grep with the pattern only grabs one. Exaple is I need <td width="30%"...

Perl

Refresh page using perl

by: norma | last post by:

How can i make refresh of a HTML page using Perl? At this moment i am using "<META HTTP-EQUIV='REFRESH' CONTENT='900;URL= ....... " buth i want to refresh the htlm page every 15 minutes using de...

Perl

How to count names and dates by parsing an HTML file using perl?

by: moddster | last post by:

Hi Guys. I am a newbie to perl and need some help with a problem. PROBLEM: I have to parse an HTML file and get rid of all the HTML tags and count the number of sumbissions a person has through...

Perl

using perl to override output redirection

by: prajil | last post by:

Hi, Could anyone point how can i override output redirection using perl. i.e. command > file 2>&1 will redirect both output and error of command to file I need to print a message to...

Perl

Accessing cell of a HTML table using Perl

by: mahalakshmiDevi | last post by:

I am automating the testing of an web application. The application consist of HTML table with the list of items. I wanted to click on particular item of the table. I have provided the source code of...

Perl

Remove all javascript code/content/references from the HTML code using Perl code lang

by: shivsa | last post by:

Hi Experts, I have a simple Perl code, in this, I have a Perl variable , say $original = '<html>..........................................................................<html>' in between...

Perl

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

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

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

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

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

Online Marketing

How to get HTML output using perl/CGI ?

Similar topics