Thread Meldeliste auf Website erstellen (23 answers)
Opened by seemann at 2011-07-14 18:45

rosti
 2011-07-16 23:29
#150470 #150470
User since
2011-03-19
3472 Artikel
BenutzerIn
[Homepage]
user image
hi,

Kladde.pm ist nur das Perl-Modul, was den SQL-Kram erledigt.

Für Deine Anwendung brauchst Du ein CGI-Script, was das Modul einbindet. Natürlich ist das CGI-Script auch in Perl. Das könnte ersteinmal so aussehen:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $cgi = CGI->new;

print $cgi->header('text/html; charset=UTF-8');

if($cgi->param){
  # vorerst nur ein Test, ob das Formular funktioniert
  print "Es gibt Parameter";
}
else{
  # hier gibtst du mit print deine Seite aus und
  # das Formular
  # form action="$ENV{SCRIPT_NAME}"
}



Die erste Zeile ist die Shebang, da ist ggf. der Pfad zum Perl-Interpreter anzupassen.

Auf Linux & Co muss die Datei ausführbar sein, chmod 755

Das Script bekommt den Dateinamen kladde.cgi und kommt in das dem Server entsprechende Verzeichnis /cgi-bin/

Speichere das Script in Kodierug UTF-8 (Ohne BOM) und prüfe, ob die Umlaute richtig dargestellt werden.

Das muss ersteinmal laufen, die DB-Anbindung später. Ich werde am Modul noch einiges machen und dir dann einen Link schicken, wo die neueste Version liegt.

Zum Testen des Moduls ohne Webserver, ein test.pl:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl

use strict;
use warnings;
use Kladde; # Groß/Kleinschreibung beachten!

# Credentials für mysql
my %myopts = (
  user => '',
  pass => '',
  base => 'datenbankname',
  tabn => 'tabellenname',
);
my $dbo = Kladde->new(%myopts) or die $@;
$dbo->create_table or die $@;
$dbo->drop_table or die $@;


Das ist der Anfang Deiner (hoffentlich) langen Freundschaft mit Perl und gerne unterstütze ich das. Wenns nicht gleich geht, nicht wegwerfen. Guck Dir die Fehlermeldungen an, vieles erklärt sich von selbst.

Bis dann ;)

View full thread Meldeliste auf Website erstellen