CGI and QUERY Statement

samesale · Nov 2, 2003

I have created the following program. I want the program to ask the user to answer the first set of options. If they click the whole list, it goes to print_start_select, and if they click the choice option, it goes to the print_page_start. However, it shows all options and goes to cgi-bin/sub. Is it possible to do such a thing, and how? Please help.

#!/usr/bin/perl -w

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

use CGI;
$query = new CGI;

#testsub.cgi

print "<h2> FOR SALE</h2>\n";

# First we initialize some counters and hashes for storing the
# summarized data.
$countt =0;
$countt++;
$d ="\$";

print "<a href=\"&print_page_start\"> Do you want to choose by price? <a href=\"&print_start_select\"> Do you want to print the whole list of available product?\n<br>";

if ($query->param()) {
$search = $query->param('name');
print "<br><br>\n";

&print_start_select1;

# Wrap this code is an eval block in order to trap error

sub print_start_select {
print "all\n";
}

sub print_start_select1{
print "select\n";
}

}

else {
print "<FORM>\n";
print "<INPUT TYPE=\"text\" NAME=\"search\">Type the model, price, or year of the product?<BR>\n";
print "<input type=\"submit\"> <input type=\"reset\">\n";
print "<FORM>\n";
}

sub print_page_start {

print $query->header;
print "<html>\n<head>\n<TITLE>Search for Records</TITLE>\n";
print "</HEAD>\n<BODY>\n";
print "<h5><font color=\"blue\">HERE IS ONE \n";
print "<b><font color=\"black\"> YOU CAN LIST
E-MAIL.</h5>\n";
print "<H4><font color=\"red\"> click Submit Query</font>
</H4>\n";
}

print "</body>\n</html>\n";

siberian · Nov 2, 2003

There are a number of problems in this script.

Why are you defining subroutines within an 'if' block?

Your logic seems a bit off. You have no clear line of control in this script.

Here is my version, you fill in the blanks, and it ignores all those useless count variables. This is a good shell for you to work with.

----

#!/usr/bin/perl -w

use CGI;
$query = new CGI;

print $query->header ;

if( $query->param('whole_list') ) {
# If they clicked the 'whole_list link show the whole list
whole_list();

} elsif( $query->param('price') ) {
# If the clicked hte price list show the price
price_list() ;

} else {
# Otherwise show their options
default_options() ;
}

### Subroutines that the control block uses

sub whole_list {
print "Doing the whole list option here
}

sub price_list {
print "Doing the price list option here" ;
}

sub default_options {
print "<a href=\"?price=1\"> Do you want to choose by price?</A> <a href=\"?whole_list=1\">Do you want to print the whole list of available product?</A>\n<br>";
}

samesale · Nov 2, 2003

Thank you very much. It worked, I would have never thought of the statements you created. I appreciate your time. Thanks.

siberian · Nov 2, 2003

This is a nice 'generalized' architecture for any CGI app. CGI apps are 'request/response' due to the nature of the HTTP protocol. This structure lets you add in new actions etc very easily and support them with subsequent functions at the bottom.

Enjoy! Glad it helped.

samesale · Nov 3, 2003

Thanks for helping me with the following program. However, I would like the program to go to another part of the program to allow user to enter criteria for the search. However, this prgram prints heading "FOR SALE" and does not ask for any input. Please help.

#!/usr/bin/perl -w

use CGI;
$query = new CGI;
print $query->header;

#testsub.cgi

print "<h2> FOR SALE</h2>\n";

# First we initialize some counters and hashes for storing the
# summarized data.
$countt =0;
$countt++;
$d ="\$";

print $query->header;
if( $query->param('whole_list') ) {
# If they clicked the 'whole_list link show the whole list
whole_list();
}

# if this is true, I want it to allow user to specify price, item etc. in the subroutine price_list.

elsif( $query->param('price') ) {
# If the clicked hte price list show the price
price_list() ;
}

else {
# Otherwise show their options
default_options() ;
}

sub whole_list {

eval {
open(GUEST, "<truc.out&quot

or dienice("Couldn't open auto.out for reading: $! \n&quot

;
while (<GUEST>) {
chomp;
($name,$add,$city,$state,$zip,$make,$photo,$model,$color,$mile,
$eyear,$price,$email,$tele,$time,$comment1,$month,$day,$year)=split/\|/;

# this is the same as $count = $count + 1;

$countt++;

if ($photo eq 'Yes') {
print "<table width=\"100%\">\n";
print "<tr bgcolor=\"red\"><th width=\"130\">Picture <font size=\"1\" >(to enlarge: right click the picture, then view image)</font> </tr>\n";
}

if ($photo eq 'No') {
print "<table width=\"100%\">\n";
print "<tr bgcolor=\"red\"><th>Year</th><th>Make</th><th>Model</th><th>Color</th><th>Miles</th>\n";

}
}
}
}

#New sub;

sub price_list {

eval {
open(GUEST, "<truc.out&quot

or dienice("Couldn't open auto.out for reading: $! \n&quot

;
while (<GUEST>) {
chomp;
($name,$add,$city,$state,$zip,$make,$photo,$model,$color,$mile,
$eyear,$price,$email,$tele,$time,$comment1,$month,$day,$year)=split/\|/;

$countt++;

# this is the same as $count = $count + 1;

if (/$search_name/) {

if ($photo eq 'Yes') {
print "<table width=\"100%\">\n";
print "<tr bgcolor=\"red\"><th width=\"130\">Picture <font size=\"1\" color=\"green\">(to enlarge: right click the picture, then view image)</font></th>\n";
}

if ($photo eq 'No') {
print "<table width=\"100%\">\n";
print "<tr bgcolor=\"red\"><th>Year</th><th>Make</th><th>Model</th><th>Color</th><th>Miles</th>\n";
}
}
}
}
}

sub price_list {

print $query->header;
print "<html>\n<head>\n<TITLE>Search for Records</TITLE>\n";
print "</HEAD>\n<BODY>\n";

print "<img src=\"/images/9897736497.jpg\" width=\"250\" height=\"250\" align=\"left\" vspace=\"5\" hspace=\"5\">\n";
print "<h5><font color=\"blue\">HERE IS ONE \n";
print "<FORM>\n";
print "<INPUT TYPE=\"text\" NAME=\"search_name\"><BR>\n";
print "<INPUT TYPE=\"submit\">\n";
print "<FORM>\n";

}

sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;
}

siberian · Nov 3, 2003

Great so add another elsif

elsif( $query->param(search_name) ) {
# If they entered search criteria do that
search_name() ;
}

sub search_name {
# do the search
}

See, you just have to add elsif and then a subroutine to handle the elsif....

samesale · Nov 3, 2003

I have added your suggestion. However, it does not work. I am sure it is my mistake. But I do not how the if and sub work in two locations. Please help. I am asking too much help. But if you can, I would appreciate it. Thanks.

#!/usr/bin/perl -w

use CGI;
$query = new CGI;
print $query->header;

#testsub.cgi

print "<h2> FOR SALE</h2>\n";

# First we initialize some counters and hashes for storing the
# summarized data.
$countt =0;
$countt++;
$d ="\$";

print $query->header;
if( $query->param('whole_list') ) {
# If they clicked the 'whole_list link show the whole list
whole_list();
}

elsif( $query->param('price') ) {
# If the clicked hte price list show the price
price_list() ;
}

elsif( $query->param(search_name) ) {
# If they entered search criteria do that
search_name() ;
}

else {
# Otherwise show their options
default_options() ;
}

sub whole_list {

eval {
open(GUEST, "<truc.out&quot

or dienice("Couldn't open auto.out for reading: $! \n&quot

;
while (<GUEST>) {
chomp;
($name,$add,$city,$state,$zip,$make,$photo,$model,$color,$mile,
$eyear,$price,$email,$tele,$time,$comment1,$month,$day,$year)=split/\|/;

# this is the same as $count = $count + 1;

$countt++;

if ($photo eq 'Yes') {
print "<table width=\"100%\">\n";
print "<tr bgcolor=\"red\"><th width=\"130\">Picture <font size=\"1\" >(to enlarge: right click the picture, then view image)</font> </tr>\n";
}

if ($photo eq 'No') {
print "<table width=\"100%\">\n";
print "<tr bgcolor=\"red\"><th>Year</th><th>Make</th><th>Model</th><th>Color</th><th>Miles</th>\n";

}
}
}
}

#New sub;

sub search_name {

eval {
open(GUEST, "<truc.out&quot

or dienice("Couldn't open auto.out for reading: $! \n&quot

;
while (<GUEST>) {
chomp;
($name,$add,$city,$state,$zip,$make,$photo,$model,$color,$mile,
$eyear,$price,$email,$tele,$time,$comment1,$month,$day,$year)=split/\|/;

$countt++;

# this is the same as $count = $count + 1;

if (/$search_name/) {

if ($photo eq 'Yes') {
print "<table width=\"100%\">\n";
print "<tr bgcolor=\"red\"><th width=\"130\">Picture <font size=\"1\" color=\"green\">(to enlarge: right click the picture, then view image)</font></th>\n";
}

if ($photo eq 'No') {
print "<table width=\"100%\">\n";
print "<tr bgcolor=\"red\"><th>Year</th><th>Make</th><th>Model</th><th>Color</th><th>Miles</th>\n";
}
}
}
}
}

sub price_list {

print $query->header;
print "<html>\n<head>\n<TITLE>Search for Records</TITLE>\n";
print "</HEAD>\n<BODY>\n";

print "<img src=\"/images/9897736497.jpg\" width=\"250\" height=\"250\" align=\"left\" vspace=\"5\" hspace=\"5\">\n";
print "<h5><font color=\"blue\">HERE IS ONE \n";
print "<FORM>\n";
print "<INPUT TYPE=\"text\" NAME=\"search_name\"><BR>\n";
print "<INPUT TYPE=\"submit\">\n";
print "<FORM>\n";

}

sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;

siberian · Nov 3, 2003

You have no 'default_options()' subroutine defined.

This means that the 'else' statement effectively does nothing, giving you your lack of output.

fietse · Nov 6, 2003

and why dousnt any one use CGI like its ment
to be.
Like $q->header(),start_html etc...;
it would make scripts much more readble up2date with html genartion..and life much easyer.
and read some books too about sub being on the bottum of the script

siberian · Nov 6, 2003

People who read books rarely show up on tek-tips.com

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

CGI and QUERY Statement

samesale

Programmer

siberian

Programmer

samesale

Programmer

siberian

Programmer

samesale

Programmer

siberian

Programmer

samesale

Programmer

siberian

Programmer

fietse

Programmer

siberian

Programmer

Similar threads

Part and Inventory Search

Sponsor