Perl-CGI and MySQL

[idorjee]

Hi guys,
I have a small problem with my Perl-CGI script, and I would appreciate if anyone can help me out with this. I'm trying to get this done in two stages. 1st to get a bunch of info from the web and display it (which is working fine), but the 2nd part is, I want to add some of these info into my MySQL table after viewing them (I don't know how to do in Perl). Right now the script immediately adds values to the MySQL table, before I even click on submit button.
Thanks alot in advance.
Following is the script that I'm trying to write.

 
#!/usr/bin/perl -w
use strict;
use CGI;
use LWP::Simple;
use Bio::DB::SwissProt;
use DBI;
 
my $cgi = new CGI;
 
print $cgi->header() .
$cgi->start_html(   -title => 'Results',
                    -bgcolor => '#6699CC').
# HTML table starts...
        print '<TABLE border="1" cellspacing="0" cellpadding="3" width="80%">' . "\n";
......
print "<tr><th width='15%'>Entry Name</th><td>" . $id . "</td></tr>\n"; 
        print "<tr><th>Accession</th><td>" . $accession . "</td></tr>\n";
        print "<tr><th>Protein Name</th><td>" . $sequence . "</td></tr>\n";
......
 
print "<tr><td><INPUT type=\"reset\" name=\"cancel\" value=\"Cancel\"></td>";        print "<td><INPUT type=\"submit\" name=\"update\" value=\"Update\" onsubmit=\"???\"></td></tr>";
 
....
my $dbh = DBI->connect ("DBI:mysql:database:xxx.xxx.xxx.xxx","root","password") or die "Error: $DBI::errstr\n";
        my $sql = "INSERT INTO table (a, b, c) VALUES ('$accession', '$sequence', '$id')";
        my $in = $dbh->prepare($sql);
        $in->execute;
 

[kaioshin00]

I'm a beginner at perl, and have never used it for CGI development, but I think I see your problem -- your code is adding to the database right below displaying them.

You can set up your page as a form


[display values]

<form action="insert. cgi">
<input type = "submit">
</form>


Then, in insert.cgi, you add the values to your mySQL database.

Or something of that nature ... since I've never used perl for CGI :)

[idorjee]

thanks kaioshin00 for your reply.
does anyone know why i can't execute the subroutine like this, and any other ways?:

print $cgi->button(-name=>'update', -value=>'UPDATE', -onClick=>&update_db);
 
sub update_db{
my $dbh = DBI->connect ("DBI:mysql:......);
my $sql = "INSERT INTO .......
}
 

Appreciate it!

[numberwhun]

thanks kaioshin00 for your reply.
does anyone know why i can't execute the subroutine like this, and any other ways?:

print $cgi->button(-name=>'update', -value=>'UPDATE', -onClick=>&update_db);
 
sub update_db{
my $dbh = DBI->connect ("DBI:mysql:......);
my $sql = "INSERT INTO .......
}
 

Appreciate it!

Can we please learn how to use code tags?! There is a sample in the REPLY GUIDELINES to the right of the message window when posting. Please read it and follow the example.

Thank you!

-Moderator

[KevinADC]

thanks kaioshin00 for your reply.
does anyone know why i can't execute the subroutine like this, and any other ways?:

print $cgi->button(-name=>'update', -value=>'UPDATE', -onClick=>&update_db);
 
sub update_db{
my $dbh = DBI->connect ("DBI:mysql:......);
my $sql = "INSERT INTO .......
}
 

Appreciate it!

onClick is to initiate javascript code, not perl code.

[KevinADC]

Can we please learn how to use code tags?! There is a sample in the REPLY GUIDELINES to the right of the message window when posting. Please read it and follow the example.

Thank you!

-Moderator

Looks like MIller left you hanging. Give yourself a break Jeff, don't worry about the code tags, what's Mary gonna do, fire you? ;)

[numberwhun]

Looks like MIller left you hanging. Give yourself a break Jeff, don't worry about the code tags, what's Mary gonna do, fire you? ;)

Nah, not in my nature. I am too anal to let it go. :-)

What did happen to Miller? I haven't seen him. Haven't had a response to PM's. Mary says she saw him online but no hide nor hair.

[KevinADC]

Nah, not in my nature. I am too anal to let it go. :-)

What did happen to Miller? I haven't seen him. Haven't had a response to PM's. Mary says she saw him online but no hide nor hair.

hehehe...

I have no clue what happend to M. I hope he's on a tropical island dancing naked with the beautiful natives. I'll drop him an email and see if he responds. He might have just got burned out with the whole forum posting stuff, it happens.

[numberwhun]

hehehe...

I have no clue what happend to M. I hope he's on a tropical island dancing naked with the beautiful natives. I'll drop him an email and see if he responds. He might have just got burned out with the whole forum posting stuff, it happens.

True, it certainly does! Let me know if you hear from him. Just want to make sure he's ok.

[idorjee]

heheheeee....yo u guys are funny.
happy chatting!