Apache a CGI skripty VI. - reklamní bannery

16. února 1999
Computer 3/99 SDÍLET NA FACEBOOKU TWEETNOUT
Dnes si ukážeme, jak vytvořit jednoduchý reklamní banner, a soubor s jeho záznamy.
Dnes si ukážeme, jak vytvořit jednoduchý reklamní banner, a soubor s jeho záznamy.

Přesměrování URL odkazu
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.

Příklad přesměrování URL odkazu
Ř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>
  

CGI skript pro přesměrování URL
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
  

Váš názor Další článek: Computer 3/99

Témata článku: Software, Programování, Linux, Reklama, CGI, Print, Skript, Reklamní odkaz, Reklamní banner, Ban, Kody, Banner, REK, Cast, Apache, Pozor, Exit


Určitě si přečtěte



Aktuální číslo časopisu Computer

Velký test fotolabů

Oklamali jsme rozpoznání obličeje

13 tipů pro rychlejší Wi-Fi

Test NVMe SSD 500 GB