#!/usr/local/bin/perl -w use CGI; # load CGI routines use DBI; use DBD::ODBC; my $cweb = CGI->new(); my $fname = $cweb->param('fname'); my $form_title = $cweb->param('form_title'); my $form_type = $cweb->param('form_type'); my $driver = "mysql"; my $server = "localhost"; my $database = "train"; my $url = "DBI:$driver:$database:$server"; my $user = ""; #--- taken out intentionally my $password = ""; #--- taken out intentionally our $db1 = DBI->connect( $url, $user, $password ) or die "Failure!\n"; our $html = ""; our $htmln = ""; our $hdr = 0; $html =< Forms-Search Results
EOF #---------------------- test printout only $htmln = < $fname
$form_title
$form_type
EOF $html .= $htmln; our %s_info; our $s_ref; $STMT3 = <prepare($STMT3); if ( !defined($sth3) ) { warn join (" ",'ERROR', $db1->errstr, "$STMT3"); return 1; } $sth3->execute(); while($s_ref = $sth3->fetchrow_hashref) { %s_info = %$s_ref; if ($hdr == 0) { $htmln =< File Name Title Description File Type EOF $html .= $htmln; $hdr = 1 } #------------------------------------ Rows $htmln =< $s_info{fname} $s_info{title} $s_info{desc} $s_info{form_type} EOF $html .= $htmln; #-------------------------------- end Rows } $htmln = < EOF $html .= $htmln; $htmln = < EOF $html .= $htmln; print $html; $db1->disconnect(); ------------------------------------------------------------