Apache a CGI skripty VI. - reklamní bannery

Dnes si ukážeme, jak vytvořit jednoduchý reklamní banner, a soubor s jeho záznamy.

Když uživatel klikne na reklamní banner, potřebujeme vědět, kdo na banner kliknul, v kolik hodin, z jaké IP adresy, jakým WWW prohlížečem, atd. Pro zjištění těchto údajů potřebujeme, abychom tyto údaje zapsali na server. To můžeme udělat CGI skriptem, který zapíše tyto údaje a potom přesměruje na příslušný URL odkaz, kam reklama odkazuje.

Řekněme, že máme klienta FIRMA1, který chce odkaz přesměrovat na URL http://www.firma1.cz/

Pak by odkaz vypadal takto:

<A HREF=http://localhost/cgi-bin/cgi7-redir.cgi?url=http://www.firma1.cz/&idu=FIRMA1>
  <IMG SRC=http://localhost/img/FIRMA1.gif WIDTH=468 HEIGHT=60 BORDER=0>
  popis reklamniho banneru</A>
  

Skript uložte do souboru C:\Program Files\Apache Group\Apache\cgi-bin\cgi7-redir.cgi ($HOME/apache/share/cgi-bin/cgi7-redir.cgi) , z pohledu serveru je to adresa http://localhost/cgi-bin/cgi7-redir.cgi

Pokud skript chcete spustit na unix/linux počítači, pak místo první řádky zadejte toto:

#!/usr/bin/perl
  
  #!/perl/bin/perl.exe
  # zde vlozte cast kodu CGI skriptu cgi5.cgi 
  # oznacene jako POPIS1 az POPIS3 z prechazejiciho
  # clanku, Apache a CGI skripty V - metoda GET
  @Mesice = ('01','02','03','04','05','06','07','08','09','10','11','12');
  ($Sekundy,$Minuty,$Hodiny,$Den,$Mesic,$Rok)  = (localtime)[0,1,2,3,4,5,6];
  
  if ($Hodiny < 10) { $Hodiny = "0$Hodiny"; }
  if ($Den < 10) { $Den = "0$Den"; }
  $datum_a_cas = "19$Rok-$Mesice[$Mesic]-$Den";
  
  # otevreni souboru pro zapis udaju o klientovi
  # který kliknul na reklamní banner
  open(STAT_SOUBOR, ">>../dbase/$promena{'idu'}.txt");
  # zapis udajů do textového souboru
  print STAT_SOUBOR "$promena{'url'}--$promena{'idu'}--";
  print STAT_SOUBOR "$ENV{'HTTP_USER_AGENT'}--$datum_a_cas\n";
  # zavreni souboru
  close(STAT_SOUBOR);
  
  # POZOR !!! V zadnem pripade nesmite ve tomto 
  # POZOR !!! skriptu pouzit nasledujici radek 
  # POZOR !!! print "Content-type: text/html\n\n";
  
  # Presmerovani URL odkazu
  print "Location: $promena{'url'}\n\n";
  exit;
  

Příště si ukážeme jednoduchý CGI skript na výměnu reklamních bannerů. Pokud máte jakékoliv dotazy, či připomínky, zasílejte jej na erik@email.cz