Webbasierte Adressdatenbank

AdressDB die Dritte
Das Script gibt es hier, einfach anklicken, und als adress_3.pl abspeichern.
Für die ganz Ungeduldigen jetzt eine Kurzanleitung zur Installation: Zuerst holt man sich das Modul  DBD::mysql  vom CPAN oder von ActiveState und installiert wie in Installation von Perl Modulen beschrieben. Dann Skript ins cgi-bin Verzeichnis des Webservers stellen und ausführbar machen (Linux Rechte 755). Beim ersten Mal mit adress_3.pl?init=1 aufrufen, damit die Datenbanktabelle erstellt wird.
Eine Darstellung der Bildschirmausgabe spare ich mir, da hier keine Veränderungen gegenüber den Versionen 1 und 2 entstanden sind. Damit alles funktioniert sollten die Vorbereitungen aus Verwendung von MySQL vorgenommen sein.

Wie funktioniert's?
Das Script funktioniert absolut analog zur zweiten Version. Die Änderungen gegenüber adress_2.pl sind minimal. Wir müssen nur die Variablen, welche für das Ansprechen der MySQL Datenbank verwendet werden anpassen. Weiterhin kennt MySQL den Befehl  CLIKE  nicht, sondern verwendet den Befehl  LIKE . Es werden im folgenden nur die geänderten Passagen des Scripts vorgestellt: 

 24: my $DB_DIR      = "./addressbook";
 25: my $DB_DSN      = "DBI:CSV:f_dir=$DB_DIR";
 26: my $DB_USER     = "";
 27: my $DB_PASSWD   = "";

wird ersetzt durch: 
 
 25: my $db_type    = 'mysql';
 26: my $port       = 0;
 27: my $hostname   = "localhost";
 28: my $db_name    = 'adressbuch';
 29: my $DB_DSN     = "DBI:$db_type:$db_name:$hostname:$port:";
 30: my $DB_USER    = "perl";
 31: my $DB_PASSWD  = "";
 32: my $DB_Table   = 'addressbook';
 
----

182:             WHERE fname CLIKE $keyword OR
183:                   lname CLIKE $keyword];

wird ersetzt durch:

187:             WHERE fname LIKE $keyword OR
188:                   lname LIKE $keyword];

----

Das folgende wird ersatzlos gestrichen:

255:     if(! -d $DB_DIR) {
256:         mkdir($DB_DIR, 0755) || 
257:             die "Cannot create dir $DB_DIR";
258:     }

Literaturhinweise:

Zurück zum Anfang dieses Projekts.