PHP > CGI

[Lun]

Trebao bi mi neki CGI skript koji bi uradio isto sto i ovakav PHP skript:
----------------------

/* Povezivanje za MySql bazom podataka */
mysql_connect ("localhost", "korisnik", "lozinka");

/* Vracanje stare vrednosti */
$query = "update Firme SET brid='777' where user='lun' ";
$result = mysql_db_query("lunkv", $query);

?>

----------------------
Uglavnom skript bi trebao da odradi taj posao a da bude u CGI-u jer na serveru PHP nije kompajliran sa podrskom za MySql.

Da li bi neko mogao ovo da mi napise?

[acim]

Evo najjednostavnije resenja:

------------------------------------------------
#!/usr/bin/perl -w
# Na nekim masinama je /usr/local/bin/perl

# Ako je Perl >= 5.6.0, onda moze umesto -w sledeca linija:
# use warnings;
use strict;

print "Content-type: text/htmlnn";
`/usr/bin/mysql -u korisnik -p lozinka -e "UPDATE Firme SET brid='777'
WHERE user='lun'" ime_baze`;
print 'Tabela updateovana';
0;
------------------------------------------------

To je sve. Bolje resenje je instalirati DBI i DBD::mysql, a u tom slucaju procitaj "man DBD::mysql" i "man DBI". Ne zaboravi da uradis "chmod +x ime_skripta.pl".

[Lun]

a kako sve ovo da povucem iz http-a?

[acim]

Sta da povuces iz HTTP-a? Mislis na parametre korisnik i lozinka? Pogledaj "man CGI", a ako CGI modul nije instaliran, potrazi ga http://stein.cshl.org/WWW/software/CGI/">ovde. Naravno, varijable se mogu preneti i drugacije, bez upotrebe CGI modula, ali je onda to komplikovanije i drugacije za GET i POST metode. Dovoljno je pri pocetku programa dodati:

use CGI qw(:standard);
my $korisnik = param('korisnik');
my $lozinka = param('lozinka');