That could have been entertaining. Still gives me a blank variable tho =/
I would be more than happy to post complete source code, but it's VERY lengthy
(I got 8 modules, each of about 300 lines of code or more...).
Dennis
----- Original Message -----
From: "Kristofer Hoch" <[EMAIL PROTECTED]>
To: "Dennis Stout" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Wednesday, July 02, 2003 10 21
Subject: Re: Getting the right value >:|
> sub select_decode
> {
> my $self = shift;
> my $dbh = $self->{dbh};
> my($select,$from,$where,$other) = @_;
>
> my $sql="SELECT DECODE($select,\'blah\') ";
> $sql .= "FROM $from " if $from;
> $sql .= "WHERE $where " if $where;
> $sql .= $other if $other;
>
> # connect , or reuse $dbh, prepare and execute
> my_warn $sql;
>
> my $sth = $dbh->prepare($sql);
> # Unless your 'self' is a dbi handle....
> # my $sth = $self->prepare($sql);
>
> $sth->execute or die "execute failed: $DBI::errstr";
> }
> --- Dennis Stout <[EMAIL PROTECTED]> wrote:
> > Hi.
> >
> > Whenever I try to get the value of a field in a row from a SQL
> > database, I'm
> > either passed a blank line or the name of the spot in memory in which
> > the
> > information I want resides (like HASHx('80fd23afcc') or something).
> > Earlier
> > in the code, the right use statements as well as $Sql =
> > TTMSSQL->new;.
> > TTMSSQL is a customized engine for generating SQL queries, if you
> > need to
> > see the whole thing I can make it available.
> >
> > emit_ and post_ routines are called via a RequestHandler when the
> > user goes
> > to certain URI's on the server... The RequestHandler and Dispatch
> > Table
> > work just fine as I've thoroughly tested them.. This SQL is simply
> > not
> > working tho >:|
> >
> > Here are the routines.
> >
> > sub get_password {
> > my $state = shift;
> >
> > my $sth = $Sql->select_decode('PWORD', 'techs',
> > "TECH=\"$state->{q}->{login_user}\"
> > ");
> > my $row = $sth->fetchrow_hashref;
> >
> > return $row->{PWORD};
> > }
> >
> > sub emit_login_form {
> > my $state = shift;
> > my %args = $state->{q};
> > $state->{template} = 'generic.tmpl';
> > $state->{title} = 'TTMS Login';
> >
> > $args{body} = <<EOF;
> > <DEFANGED_form method="post"
action="http://ttms.stout.dyndns.org/login.cgi";>
> > <table border-"0" cellpadding="0" cellspacing="0">
> > <tr><td>Username</td><td><input type="text"
> > name="login_user"></td></tr>
> > <tr><td>Password</td><td><input type="password"
> > name="login_pass"></td></tr>
> > <tr><td colspan="2" align="center"><DEFANGED_input type="submit"
> > value="submit"></td></tr>
> > </table>
> > </DEFANGED_form>
> > EOF
> >
> > return output_html($state, %args);
> > }
> >
> > sub post_login_form {
> > my $state = shift;
> > my %args = $state->{q};
> > $state->{template} = 'generic.tmpl';
> > $state->{title} = 'TTMS Login';
> >
> > my $checkpass = get_password($state);
> >
> > # if ($checkpass eq $state->{q}{login_pass}) {
> > # $state->{login_user} = $state->{q}{login_user};
> > # $state->{login_pass} = $state->{q}{login_pass};
> > # $state->{auth_status} = "Logged in as
> > $state->{login_user}";
> > # $state->{cookie_out} = set_auth_cookie($state);
> >
> > # $args{body} = "Login Successful!";
> > # } else {
> > # $state->{cookie_out} = set_logout_cookie($state);
> >
> > # $args{body} = "Login Unsuccessful.";
> > # }
> >
> > $args{body} = "login_user:
> > $state->{q}{login_user}<br>login_pass:
> > $state->{q}{login
> > _pass}<br>checkpass: $checkpass";
> > return output_html($state, %args);
> > }
> >
> > sub select_decode
> > {
> > my $self = shift;
> > my $dbh = $self->{dbh};
> > my($select,$from,$where,$other) = @_;
> >
> > my $sql="SELECT DECODE($select,\'blah\') ";
> > $sql .= "FROM $from " if $from;
> > $sql .= "WHERE $where " if $where;
> > $sql .= $other if $other;
> >
> > # connect , or reuse $dbh, prepare and execute
> > my_warn $sql;
> > my $sth = $self->prepare($sql);
> >
> > $sth->execute or die "execute failed:
> > $DBI::errstr";
> >
> > $sth;
> > }
> >
> > Thanks,
> > Dennis
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
>
>
> =====
> -----BEGIN GEEK CODE BLOCK-----
> Version: 3.12
> GIT d s+:++ a C++ UL++ US+ P+++ L++
> W+++ w PS PE t++ b+ G e r+++ z++++
> ------END GEEK CODE BLOCK------
>
> __________________________________
> Do you Yahoo!?
> SBC Yahoo! DSL - Now only $29.95 per month!
> http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
