after mulling over your responce for a while a trying several versions. I finally have
a working script that I understand so thank you very much. now I have to figure out
the forms section and passwording. The only question I have is security wit respect
to passwords. The options I have is en
smrtalec <[EMAIL PROTECTED]> wrote:
:
: before I begin thanks for taking the time to help me out.
You're welcome. That's what we are here for.
: > print
: > header(),
: > start_html( 'This page has no title' ),
: > gen_table( '%Ave%' ),
: > end_html();
: >
:
before I begin thanks for taking the time to help me out.
> print
> header(),
> start_html( 'This page has no title' ),
> gen_table( '%Ave%' ),
> end_html();
>
>
> sub gen_table {
>
> my $search = shift;
>
> # define table heading
> my @rows= th( [ 'i
smrtalec <[EMAIL PROTECTED]> wrote:
:
: #! /usr/bin/perl -w
You should add:
use strict;
: use DBI;
: use CGI qw/:standard :html3/;
: use CGI::Carp qw(fatalsToBrowser);
This is great for debugging. Make sure you remove it
once you go into production.
When outputting to the browser
#! /usr/bin/perl -w
use DBI;
use CGI qw/:standard :html3/;
use CGI::Carp qw(fatalsToBrowser);
gen_table();
extract data from DB
sub query_data {
my $user_entry = @_;
my $dbh = connect_try("rowan","**");
my $user_quoted = $dbh->quote ($user_entry);
my $sth = $dbh->prepar
smrtalec <[EMAIL PROTECTED]> wrote:
:
: I am trying to scavange a example script I found on the
: web. The subroutine is below. Basically I want to extract
: data from a sql db then generate a table of values on the
: fly. The script below keeps generating a malformed header
: error.
If you
