Re: calling other cgi's in PERL
I've used LWP to call cgi scripts like that. This example is probably more
complicated than it needs to be, because I had to use the POST method to
call the scripts I was running behind the scenes:
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
...
my $em = new CGI;
$em->delete_all;
$em->param( name => $name ); ## define parameters you want to pass here
$em->param( email => $email );
$em->param( msg => $msg );
my $pass_path = $em->query_string;
my $location = "./another-that-returns-no-html.cgi";
my $agent = new LWP::UserAgent;
my $req = new HTTP::Request ("POST", $location);
$req->header('Accept' => 'text/html');
$req->content ($pass_path);
my $result = $agent->request( $req );
You can test the value of $result to make sure the script executed ok:
if ($result->headers_as_string=~m/Title\:\sSuccess/){
## it worked!
}else{
## didn't work
}
Todd F.
- Original Message -
From: "David Gilden" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, September 29, 2003 10:42 PM
Subject: calling other cgi's in PERL
> Can anyone enlighten me on how to do this:
> Goal: call different PERL scripts from current PERL script.
>
> Below is what I am trying to accomplish, but I am not sure I have the
syntax correct.
> (can't seem to find anything this in my PERL books)
> Thanks,
> Dave
> -
> #!/usr/bin/perl -w
>
> #some code...
>
>
> # have current cgi redirect the web browser to a html page
> print redirect("/index.html");
>
> # call another cgi -- that does something behind the scenes -- send an
email or somthing.
> print "./another-that-returns-no-html.cgi";
> exit;
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
calling other cgi's in PERL
Can anyone enlighten me on how to do this:
Goal: call different PERL scripts from current PERL script.
Below is what I am trying to accomplish, but I am not sure I have the syntax correct.
(can't seem to find anything this in my PERL books)
Thanks,
Dave
-
#!/usr/bin/perl -w
#some code...
# have current cgi redirect the web browser to a html page
print redirect("/index.html");
# call another cgi -- that does something behind the scenes -- send an email or
somthing.
print "./another-that-returns-no-html.cgi";
exit;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
SQL -- getting one row problem -- clever mySQL trick
Hello out there...
I wanted to thank everyone who has kindly offered their assistance
with my current project. Of course I have more questions,
But first I wanted to share how I solved my current issue.
It's displays a clever mySQL trick! -- see script below:
Dave Gilden
( kora musician / audiophile / web master @ cora connection / Ft. Worth, TX, USA)
And here is a question for anyone who knows sendmail.
How can I add a 'CC' or even better a 'BCC' instead of
using multiple email address comma delimited.
my $mailprog = '/usr/lib/sendmail';
my $recipient = '[EMAIL PROTECTED],[EMAIL PROTECTED]';
...some code...
sub send_mail {
my $data;
$email ||= '[EMAIL PROTECTED]';
open(MAIL, "|$mailprog -t");
print MAIL "To: $recipient\n";
print MAIL "From: $name <$email>\n";
print MAIL "Subject: $subject\n\n";
print MAIL "lots of text from the database\n";
close(MAIL);
}
MySQL TRICK
###
#!/usr/bin/perl -w
use DBI;
use strict;
... some stuff removed ...
my $subject = "Jakes's Lawncare Guestbook New Entry";
my ($id,$sql,$dbh,$sth,$datecreated,$name,$email,$comments);
&initialize_dbi;
Read from Guestbook ###
### get and store MAX(id) -- the last entry-- via SQL
$sql = "SELECT [EMAIL PROTECTED]:=MAX(id) FROM $table_name;";
run_statement($sql);
$sql = "SELECT id, DATE_FORMAT(DATE_ADD(datecreated, INTERVAL 2 HOUR),
'%c/%e/%y at: %l:%i %p'),email, name, comments FROM $table_name where id = [EMAIL
PROTECTED];";
run_statement($sql);
($id,$datecreated,$email,$name,$comments) = $sth->fetchrow;
$sth->finish;
#debug
#print "$id\n$datecreated\n$email\n$name\n$comments";
$dbh->disconnect; # close date base connection
sub initialize_dbi{
my $drh = DBI->install_driver( 'mysql' );
$dbh = DBI->connect("DBI:mysql:$user_name:$sql_server", $user_name, $user_password);
die "Cannot connect: $DBI::errstr\n" unless $ ;
}
sub run_statement{
my $stmt = shift;
$sth = $dbh->prepare($stmt);
$sth->execute;
}
__END__
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
SQL -- getting one row problem
Good afternoon,
Here is the output of my script, and can’t understand why this is not working.
Thanks for any and all pointers!
Dave Gilden
[EMAIL PROTECTED]:~/cgi-bin$ mail_guest_to_jk.cgi
Use of uninitialized value in concatenation (.) or string at ./mail_guest_to_jk.cgi
line 33.
Use of uninitialized value in concatenation (.) or string at ./mail_guest_to_jk.cgi
line 37.
DBD::mysql::st execute failed: You have an error in your SQL syntax near '' at line 1
at ./mail_guest_to_jk.cgi line 60.
DBD::mysql::st fetchrow failed: fetch() without execute() at ./mail_guest_to_jk.cgi
line 40.
Use of uninitialized value in concatenation (.) or string at ./mail_guest_to_jk.cgi
line 41.
Use of uninitialized value in concatenation (.) or string at ./mail_guest_to_jk.cgi
line 41.
Use of uninitialized value in concatenation (.) or string at ./mail_guest_to_jk.cgi
line 41.
Use of uninitialized value in concatenation (.) or string at ./mail_guest_to_jk.cgi
line 41.
Use of uninitialized value in concatenation (.) or string at ./mail_guest_to_jk.cgi
line 41.
the script:
-
#!/usr/bin/perl -w
use DBI;
use strict;
## Sensitive stuff deleted :)
my ($sql,$dbh,$sth,$datecreated,$name,$email,$comments);
&initialize_dbi;
Read from Guestbook ###
### get id for last entry
$sql ="SELECT MAX(id) FROM $table_name;";
run_statement($sql);
my $id = $sth->{id};
print "$id\n";
$sth->finish;
$sql = "SELECT id, DATE_FORMAT(DATE_ADD(datecreated, INTERVAL 2 HOUR), '%c/%e/%y at:
%l:%i %p'),email, name, comments FROM $table_name where id = $id;";
run_statement($sql);
# get the one row selected
($id,$datecreated,$email,$name,$comments) = $sth->fetchrow;
print "$id\n$datecreated\n$email\n$name\n$comments";
$dbh->disconnect; # close date base connection
exit;
sub initialize_dbi{
my $drh = DBI->install_driver( 'mysql' );
$dbh = DBI->connect("DBI:mysql:$user_name:$sql_server", $user_name, $user_password);
die "Cannot connect: $DBI::errstr\n" unless $ ;
}
sub run_statement{
my $stmt = shift;
$sth = $dbh->prepare($stmt);
$sth->execute;
}
__END__
==
Cora Connection: Your West African Music Source
Resources, Recordings, Instruments & More!
RE: SQL question // date_format
David Gilden wrote: > Good evening, > > The following mySQL query works fine, but the server is in > California. I would like add 2 hours to %l, > because the client is in Texas. I could just go to time in GMT and > forget about it :) But I'm wondering if there is a simple solution > here. > > "SELECT id, DATE_FORMAT(datecreated, '%c/%e/%y at: %l:%i > %p'), email, name, comments FROM $table_name order by id limit > $offset,10;" I don't use MySQL, but PostgreSQL has a SET TIME ZONE statement you can issue to define the "local" time zone for a session. Perhaps MySQL has a similar thing? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
