#!/usr/bin/perl
##############################################################################
#Services.pl
# Perl program by Stéphane Maltais                                       #
#  services.pl Version 1.0                                               #
##############################################################################
##############
# DEBUG VARIABLES

#$basedir = "c:/temp/services";

##############
$basedir = "/home/stephm69/public_html/kayakdemer/services";
$cgi_url = "http://www.kayakdemer.net/services";
$services_url = "http://www.kayakdemer.net/services";
$regions_file="regions.txt";
$type_srv_file="type_services.txt";
$tous_services="tous_services.txt";
$template_base = "servicesbase_t.php";
$template = "services_t.php";
$background_im = "http://www.kayakdemer.net/bckgrnd.gif";

$title = "Kayak de Mer: Répertoire de services";
# Done
###########################################################################

&get_info;

&produire_page;

#######################
# Parse Form Subroutine

sub get_info {
   local($name,$value);

   # Get the input
$buffer = $ENV{'QUERY_STRING'};

# read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   
   $change = $buffer;
   
   
   # Split the name-value pairs
   @pairs = split(/&/, $change);

   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

      # Un-Webify plus signs and %-encoding
      $value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	
      # Remove any NULL characters, Server Side Includes
      $value =~ s/\0//g;
      $value =~ s/<!--(.|\n)*-->//g;
	  # Remove HTML
      $value =~ s/<([^>]|\n)*>//g;
      $FORM{$name} = $value;
   }
}

###############################
# Écrire la page des catégories

sub produire_page 
{
  open(MAIN,"$basedir/$tous_services") || die $!;
    @tous_services = <MAIN>;
  close(MAIN);
  $nmbr_services = scalar (@tous_services);
  open(MAIN,"$basedir/$regions_file") || die $!;
    @regions = <MAIN>;
  close(MAIN);
  foreach $rg (@regions)
  {
    ($rg_srt,$rg_lg)=split(/\|/,$rg);
	$REGION{$rg_srt}=$rg_lg;
  }
  open(MAIN,"$basedir/$type_srv_file") || die $!;
    @type_service = <MAIN>;
  close(MAIN);
  foreach $srv (@type_service)
  {
    ($srv_srt,$srv_lg)=split(/\|/,$srv);
	$SERVICE{$srv_srt}=$srv_lg;
  }
  #############################
  if (!$FORM{'rg_sel'})
  {
    $tmpl=$template_base;
    open(MAIN,"$basedir/$tmpl") || die $!;
      @main = <MAIN>;
    close(MAIN);
  	print "Content-type: text/html\n\n";
  	foreach $main_line (@main) 
  	{
      if ($main_line =~ /<!--debut-->/)
      {
        print "<!--debut--> \n";
		print "<center>\n";
		print "<form name=\"searchfrm\" method=get action=$cgi_url/services.pl>\n";
		print "<font size=+1>RECHERCHE DE SERVICES</font><BR>\n";
		print "<i>$nmbr_services services répertoriés<br><br></i>\n";
		print "<input type=submit value=Rechercher> <input type=reset value=\" X \"><br><br>\n";
	  	print "<table>\n";
	  	print "<tr><td valign=top align=right><b>Régions</b><img src=\"$services_url/spacer.gif\" width=30></td><td><img src=\"$services_url/spacer.gif\" width=50></td><td><center><b>Types de service</b><br><font size=-1>(Offrant au moins un de ceux sélectionnés)</font></td></tr>\n";
		print "<tr><td>";
		print "<select name=\"rg_sel\" size=\"15\">";
		print "<option value=\"tous\" selected><font size=\"2\">TOUTES LES RÉGIONS</option>\n";
	  	foreach $short_region (sort keys %REGION)
	  	{
	      $lg_reg=$REGION{$short_region};
		  print "<option value=\"$short_region\"><font size=\"2\">$lg_reg</option>\n";
	    }
	  	print "</select></td><td></td><td valign=top><table cellpadding=0  cellspacing=0>\n";
		print "<tr><td align=right valign=top><font size=\"2\">TOUS LES TYPES DE SERVICE&nbsp;</td><td><input type=checkbox name=tous_serv checked></td><td></td><tr>\n";
	  	foreach $short_service (sort keys %SERVICE)
	  	{
		  $lg_service=$SERVICE{$short_service};
		  print "<tr><td align=right valign=top height=25><font size=\"2\">$lg_service&nbsp;</td><td><input type=checkbox name=$short_service onClick=\"val=document.searchfrm.$short_service.checked\;unselect_tous\(val\)\"></td><td><img src='".$short_service.".gif' height='20' align='absmiddle' hspace='5'></td><tr>\n";
	    }
	  	print "</table></td></tr>\n";
	 	print "</form>\n";
	  	print "</table>\n";
      }
	  else 
	  {
	    print "$main_line";
      }
    } 
  }

### Fin fct=""
#######################

  if ($FORM{'rg_sel'})
  {
    $servprnt=0;
    $tmpl=$template;
    open(MAIN,"$basedir/$tmpl") || die $!;
      @main = <MAIN>;
    close(MAIN);
  	print "Content-type: text/html\n\n";
  	foreach $main_line (@main) 
  	{
      if ($main_line =~ /<!--debut-->/)
      {
        print "<!--debut--> \n";
		print "<center>\n";
		$reg_srt=$FORM{'rg_sel'};
		$region=$REGION{$reg_srt};
		$ss=0;
		if($FORM{'rg_sel'} eq "tous")
		{
		  $region="Toutes les régions";
		}
		if($FORM{'tous_serv'} eq "on")
		{
		  $services_sels="Tous les types de service";
		  $ss=1;
		}
		else
		{
		  foreach $sn (keys %SERVICE)
		  {
		    if($FORM{$sn} eq "on")
		    {
		      if($virg == 1)
			  {
			    $services_sels .=", ";
			  }
			  $services_sels.=$sn;
			  $virg = 1;
			  $ss=1;
		    }
		  }
		}
		if($ss == 0)
		{
		  $services_sels="VOUS DEVEZ SÉLECTIONNER UN TYPE DE SERVICE";
		}
		print "<font size=+1>SERVICES CORRESPONDANT À VOS CRITÈRES:</font> <br>Région: <b><i>$region</i></b><br>Services: <b><i>$services_sels</i></b><BR><br>\n";
		print "[ <A href=../pourvoyeurs.php>AUTRE RECHERCHE</A> ]<BR><BR>\n";
	  	print "<table cellspacing=0>\n";
	  	print "<tr><td style='border-bottom:3px #666666 solid;'><center><b>Entreprise</b><img src=$services_url/spacer.gif width=100></td><td colspan=8 style='border-bottom:3px #666666 solid;'><center><b>Services</b></td></tr>\n";
	  	foreach $entreprise (@tous_services)
	  	{
	      ($ref_nbr,$nom,$region,$services,$adresse,$ville,$code,$telephone,$url,$contact,$email,$commentaires,$affiliate)=split(/\|/,$entreprise);
		  @servs=split(/\:/,$services);
		  foreach $servp (@servs)
	      {
			($servcd,$dispv)=split(/\=/,$servp);
			$SERV{$servcd}=$dispv;
		  }
		  @affil=split(/\:/,$affiliate);
		  $serv_disp=0;
		  foreach $chk_disp (keys %SERVICE)
		  {
		    if($FORM{$chk_disp} eq "on" && $SERV{$chk_disp} ==1 || $FORM{'tous_serv'} eq "on")
			{
			  $serv_disp=1;
			}
		  }
		  $apr=0;
		  foreach $tp (@affil)
		  {
  		    if($tp eq $FORM{'rg_sel'})
  		  	{
    	  	  $apr=1;
  		  	}
		  }
		  if (($region eq $FORM{'rg_sel'} || $FORM{'rg_sel'} eq "tous" || $apr ==1) && $serv_disp==1 && $nom)
		  {
		    print "<tr><td style='border-bottom:1px #1581d0 solid;'><div style='font-size:1.2em;display:inline-block;'>&nbsp;<a href=\"javascript\:openWindow\(500\,500\,\'$cgi_url/show_details.pl?ref=$ref_nbr\'\)\">$nom</a></div>";
			print '<a href="javascript:openWindow(500,500,\''."$cgi_url/rep_mods.pl?ref=$ref_nbr".'\')" title="Rapporter une modification à ce pourvoyeur"><img src="../forum/images/forum_message.gif" width=15 align="absmiddle" hspace=10></a>';
			if($FORM{'rg_sel'} eq "tous" || $FORM{'rg_sel'} eq "can" || $FORM{'rg_sel'} eq "pq" || $FORM{'rg_sel'} eq "estcan")
			{
			  $rer_ln=$REGION{$region};
			  print "<br><font size=-1>$rer_ln";
			}
			else
			{
			  print "<br><font size=-1>$ville";
			}
			print " <span style='font-size:0.8em;'>(pourv.#$ref_nbr)</span></td>\n";
			foreach $val (keys %SERV)
			{
			print "<td style='border-bottom:1px #1581d0 solid;'>&nbsp;";
			if ($SERV{$val} == 1)
			{
			  $lgservname=$SERVICE{$val};
			  $alt_txt=$SERVICE{$val};
			  $alt_txt =~ s/\n//g;
			  $alt_txt =~ s/\s$//g;
			  print "<img src=\"$services_url/$val.gif\" alt=\"$alt_txt\" height=25>";
			}
			print "</td>";
			}
			print "</tr>\n";
			++$servprnt;
		  }
		}
		if ($servprnt ==0)
		{
		  print "<tr><td colspan=9><CENTER><br><br>AUCUN SERVICE NE CORRESPOND<BR>À VOTRE RECHERCHE</td></tr>\n";
		}
		else
		{
		  print "<tr><td colspan=9><BR><CENTER><HR ALIGN=center NOSHADE SIZE=1 WIDTH=350>$servprnt ";
		  if($servprnt ==1)
		  {
		    print "SERVICE AFFICHÉ</td></tr>\n";
		  }
		  else
		  {
		    print "SERVICES AFFICHÉS</td></tr>\n";
		  }
		}
	  	print "</table>\n";
      }
	  else 
	  {
	    print "$main_line";
      }
    } 
  }
## Fin fct="pregion"
############################
  
}