Skripta za ubacivanje oglasa na vasim stranicama by Begzudin Omerovic - 06/2006

Od samog pocetka rada oglasi.com, a bilo je to nekada davno :) 2000-te godine, dobivali smo razne ponude za preuzimanje sadrzaja tako da smo krajem 2003-e konacno napravili malu export skriptu koja omogucuje dinamicko prikazivanje oglasa na bilo kojoj stranici uz pomoc par linija JavaScript-a.
U osnovi, ideja je vidjena na drugim stranicama, prije svih na google.com i njihovom AdSense programu.

Naime, Google koristi za prikaz svojih reklama sljedeci JavaScript  

 
    <script type="text/javascript"><!--
    google_ad_width = 468;
    google_ad_height = 15;
    google_ad_format = "468x15_0ads_al_s";
    google_ad_channel = "";
    google_color_border = "F5F5F5";
    google_color_bg = "F5F5F5";
    google_color_link = "0000FF";
    google_color_text = "000000";
    google_color_url = "008000";
    --></script>
   <script type="text/javascript"
   src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
   </script>
  
  

Pogledajte i zapamtite ga, trebati ce nam ova struktura u buducnosti. :-)

OK ? Analizom JavaScript programa, koji mozete vidjeti ovdje :
http://pagead2.googlesyndication.com/pagead/show_ads.js
vidimo da se sve vrti oko jednostavne ali mocne JavaScript komande

 document.write("neki tekst") 

Ova komanda omogucuje pisanje dodatnog HTML-a u vec postojeci HTML dokument i to u momentu kada se isti prikazuje u internet pregledniku (browseru).

Za nas experiment to znaci mnogo :) :

• Treba samo napisati program koji ce periodicno iz baze podataka vaditi jedan oglas
• rezultat ce biti smjesten u fajl koji ce opet biti obican JavaScript program

Evo programa za "vadjenje" jednog oglasa iz baze podataka.

#!/usr/bin/perl 
use strict;
use DBI;
use Getopt::Long;
use File::Basename;

my $delete;

sub usage () {
  my $sname = File::Basename::basename($0);
  return "Usage: \n $sname \n";
}

my $re = GetOptions (
                     "h", sub { print usage; exit } );

my $cfg = { dbserver => "localhost",
            dbschema   => "classifieds",
            dbuser   => "classifieds",
            dbpwd    => "password",
          };

my $dbh = DBI->connect("DBI:mysql:$cfg->{dbschema}:$cfg->{dbserver}",
                       $cfg->{dbuser},
                       $cfg->{dbpwd},
                       {RaiseError => 1,
                        AutoCommit => 1}
                      );

my $sql = "SELECT * FROM ads 
WHERE ads.add_date > UNIX_TIMESTAMP( date_add(now(),interval - 1 hour))";
my $sth = $dbh->prepare($sql);
$sth->execute;

my $script;
while (my $ref = $sth->fetchrow_hashref()) {
  my $subject = $ref->{subject};
  my $url     = sprintf("http://%s/detail_%s_%s.htm", "www.oglasi.com",
                          $ref->{cid}, $ref->{id});
  $script     = sprintf("document.write('<a title=\"%s\" href=\"%s\">%s</a>');\n",
                          $subject,$url,$subject);
}
open (F, "> oglasi.js");
print F $script, "\n";
close (F);

Pozovemo program:

$ perl export.pl 
$ cat oglasi.js 
  

Program ce ispisati sljedeci JavaScript code

document.write('<a title="Fujiiryoki-Fotelja koja Vas Masira!" href="http://www.oglasi.com/detail_35_67395.htm">
Fujiiryoki-Fotelja koja Vas Masira!</a>');

I ovaj code ce biti upisan u fajl oglasi.js.

Preuzeti ovako generisan oglas u Vasu stranicu mozete sa

 <script type="text/javascript" src="http://www.oglasi.com/oglasi.js"></script>

A formatiranje izgleda mozete izvrsiti sami kroz prepravku CSS style-a.

Sada smo uspjeli da napravimo jednostavan nacin preuzimanja jednog oglasa za druge stranice :-).

Sta hocemo vise ?

Procitajte dalje :

• Kako napraviti da prikazemo vise od jednog oglasa ?
• Sta tu treba uraditi ?
• I kako napraviti program koji ce omogucavati da, kao kod Google, imas i mogucnost da lokalno ubacis svoju konfiguraciju vec u samom JavaScript codu ?

• Za prikaz vise od jednog oglasa potrebno je modificirati SQL liniju tako da je to najmanji problem :)
• Da bi se varijable koje definisiemo u JavaScript codu ispravno prenijele u daljnji program, potrebno je da napisemo malo vise JavScript coda.

• Remotely called JavaScript with local configuration

Dalje nebi trebalo da idete :-). Ovdje je sve sto nam je potrebno da bismo napravili prikazivanje malo vise oglasa

U ovom odlicnom primjeru mozemo procitati da nam treba JavaScript program sastavljen iz 2 dijela:

• Lokalna konfiguracija varijabli u prvom dijelu i
• poziv programa sa servera u drugom dijelu

Kako to izgleda :

Prvi dio, lokalna konfiguracija za korisnika

  
<script type="text/javascript"> 
<!-- 
    variabla = 'tekst';
//-->
</script>
  
  

Drugi dio, poziv JavaScript programa sa servera

<script type="text/javascript"
  src="http://www.oglasi.com/oglasi.js">
</script>

• Promijeniti cemo SQL naredbu da nam da vise oglasa iz razlicitih kategorija
• Napraviti cemo da krajnja print naredba u perl skripti ispise JavaSkript code

JavaScript code izgleda ovako

<script type="text/javascript" >
<!--
// mozete staviti nekretnine, posao, turizam, razno, svastara ili "" (nista) :)
category = "automobili"; 
box_width = 220;
box_color = "6699cc";
subject =	"Oglasi.com - pravi oglasi"
background = "f5f5f5";
naslov_color = "6699cc";
link_color = "000000";
text_color = "000000";
border_color = "000000";
//-->
</script>
<script type="text/javascript" src="http://www.oglasi.com/export.js"
type="text/javascript"></script>

bas kao sto je vidjeno kod Google-a :), zar ne.

Rezultat ce ovako izgledati:

Perl skripta kao i rezultat rada JavaScript code mozete slobodno koristiti, licenca je navedena ovdje :

// This software is licensed under Creative Commons License
// Look here for details http://creativecommons.org/licenses/by/2.0/de/deed.en

SdP, OmerBeg !!!!

www.oglasi.com