DELSYS

#!/usr/bin/perl ############################################################################# # PROGRAMME : # -> # -> # PARAMETRES : * login # * mot de passe # * type en francais # * reference du type # AUTEUR : Franck Charbonneau # DATE :15 decembre 1999 ############################################################################# #programme basé sur le module DBD::Mysql du DBI use DBI; use DBD::mysql; #fonction de decodage CGI #require ("../decode_cgi.pl"); # module CGI qw/:standard/ utilise pour la recuperation des donnees # du formulaire envoye use CGI qw/:standard/; require "../caddie_config.pl"; require "../executionRequete.pl"; require "../tailleTableau.pl"; ########################################## # # RECEPTION DES DONNEES CGI # #$cgi = new CGI qw/:standard/; # nouveau CGI_Lite utilise pour decoder les donnees du formulaire @parametre = param(); foreach $p (@parametre) {$in{$p} = param($p);}; ############################################# # # CONNEXION A LA BASE DE DONNEES # & connexionBD($user, $pass,$nom_base, $host); # # cette requete permet de recuperer l'ensemble des postes #$ma_requete = "SELECT * FROM postes ORDER BY ref_rubrique,libelle"; ############################################# # # EXECUTION DE LA REQUETE # #$sth = & executionRequete($ma_requete); & affichPostes(); # en-tete commun pour que ce qui suit soit interprete comme du HTML printf("Content-type: text/html\n\n"); print << "CODE_HTML"; DELSYS

$prechaine

$chaine

Si aucune annonce ne vous concerne, n'hesitez pas a nous envoyer votre cv de façon spontanée

CODE_HTML sub affichPostes { # cette requete permet de recuperer l'ensemble des postes $ma_requete = "SELECT * FROM postes ORDER BY libelle"; $sth = & executionRequete($ma_requete); while(@ligne=$sth->fetchrow) { $prechaine .="\n" ."

Ref: $ligne[$eq_postes{'ref_poste'}]\n" ."$ligne[$eq_postes{'libelle'}]\n" ."\n"; # $prechaine .="\n" # ." \n" # ."Ref: $ligne[$eq_postes{'ref_poste'}]\n" # ."$ligne[$eq_postes{'libelle'}] \n" # ."\n"; $chaine .="

\n" ." \n" ."

\n" ."

\n" ." Ref : $ligne[$eq_postes{'ref_poste'}]
\n" ."$ligne[$eq_postes{'libelle'}] :\n" ."$ligne[$eq_postes{'description'}]

\n" ."

$ligne[$eq_postes{'divers'}]

\n"; # $chaine .="

\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."
Ref :
$ligne[$eq_postes{'ref_poste'}] $ligne[$eq_postes{'libelle'}] :
\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."
\n" # ." \n" # ."
$ligne[$eq_postes{'description'}]\n" # ."
\n" # ."\n" # ."\n" # ."\n" # ."\n" # ."
\n" # ." \n" # ."$ligne[$eq_postes{'divers'}]\n" # ."
\n" # ."

\n" # ."

Retour

\n" # ."

\n"; #END OF BODY # #

# # } }