Re: [INTERFACES] heeeeeeeeeeeeelp meeeeeeeeeeee
| От | Constantin Teodorescu |
|---|---|
| Тема | Re: [INTERFACES] heeeeeeeeeeeeelp meeeeeeeeeeee |
| Дата | |
| Msg-id | 3597D9EC.4BCAA2EC@flex.ro обсуждение исходный текст |
| Ответ на | heeeeeeeeeeeeelp meeeeeeeeeeee ("rony khoury" <rkhoury@apotres.edu.lb>) |
| Список | pgsql-interfaces |
rony khoury wrote:
>
> First I have redhat linux 5.0 running on my system , with it comes
> postgresql I got these
> to run fine on my system using psql as the interface .
I would recommend you to install RedHat 5.1 and updates because it has a
lot of things improved, even PostgreSQL libraries preinstalled.
> Now I tried a two steps procedure to do so , first is to conect from C
> to postgresql , and latter to
> use C modules as cgi called from browsers .
With PHP you will mix : HTML generator, database connection and form
processing.
It's just simple. Look over my examples that I have sent to you and you
will see how.
In PHP, you will find the form variables that you have defined a
previous HTML form as local variables.
Just use them and don't even think how they have been passed.
You might get some problems trying to compile PHP with PostgreSQL
support and apache with PHP module, but reading their README's will be
just fine. Just follow them. If you have some problems, just ask.
Apache 1.3.0 + PHP 3.0 would be a good choice.
Also ,Perl cgi's would be fine.
I am giving you here an example how to get form variables in Perl and
how to connect to PostgreSQL database.
#!/usr/bin/perl
use Pg;
$datele = <STDIN>;
@pairs = split(/&/, $datele);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# restore blank
$value =~ tr/+/ /;
# restore special char
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# store them into associative array %VAR
chomp $value; $value =~ s/\r//;
$VAR{$name} = $value ;
}
# preluam cimpurile transmise in variabile
$nrfact = $VAR{'nrfact'};
$client = $VAR{'client'};
$valoare = $VAR{'valoare'};
$datafact = $VAR{'datafact'};
$continut = $VAR{'continut'};
$continut =~ s/'/\\'/g;
($zi,$luna,$an) = split(/\./,$datafact);
$datafact = $luna.'-'.$zi.'-'.$an;
# Acest rind este obligatoriu pentru inceput de HTML raspuns
print "Content-type:text/html\n\n";
print <<EOM;
<HTML>
<HEAD>
<TITLE>Emitere factura</TITLE>
</HEAD>
<BODY>
<H1>S-a emis urmatoarea factura</H1>
Factura cu numarul : $nrfact <br>
Data emiterii : $datafact <br>
Catre clientul : $client <br>
Valoarea facturii : $valoare <br><br>
EOM
$con=PQsetdb('',5432,'','','doc');
$res=PQexec($con,"select * from factemise where nrfact='$nrfact'");
$errmsg=PQerrorMessage($con);
if ($errmsg ne '') {
print "<B> Eroare select verificare dubluri<br>",$errmsg;
print "</body></html>\n";
PQclear($res); PQfinish($con);
exit 1;
}
if (PQntuples($res) > 0) {
print "<b>Eroare : Mai exista o factura cu numarul $nrfact<b>";
print "</body></html>\n";
PQclear($res); PQfinish($con);
exit 1;
}
PQclear($res);
$sqlcmd="insert into factemise (nrfact,datafact,client,valoare,
continut) values
('$nrfact','$datafact','$client','$valoare','$continut')";
#print $sqlcmd;
$res=PQexec($con,$sqlcmd);
$errmsg = PQerrorMessage($con);
if ( $errmsg ne '' ) {
print '<font color="#FF0000">';
print "<b>EROARE INSERT : MESAJ = ",$errmsg,"</b></font><br>";
} else {
print 'Inregistrarea a fost efectuata !';
}
print "</body></html>\n";
PQclear($res);
PQfinish($con);
--
Constantin Teodorescu
director FLEX Consulting Braila, ROMANIA
В списке pgsql-interfaces по дате отправления: