Leser: 3
|< 1 2 3 4 ... 6 >| | 59 Einträge, 6 Seiten |
QuoteCan't locate PseudEcom.pm in @INC at index.cgi line 7.
1 2 3 4 5 6 7 8 9
#!e:/programme/bin/perl.exe -w #index.cgi - Homepage der PseudEcom use strict; use lib qw /./; use WebDB; use WebDB::PseudEcom; use CGI qw /:standard/; use CGI::Carp qw /fatalsToBrowser/;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
package WebDB::PseudEcom; #öffentliche Funktionen die exportiert werden: require Exporter; @ISA = qw /Exporter/; @Exporter = qw ( haupt_url home_link dokumente_link tierpflege_link kontakt_link zufgarantie_link datenschutz_link feedback_link vote_link kkartentyp_liste ablauf_monat_liste ablauf_jahr_liste standardlayout schwerer_fehler ); use strict; use lib qw /./; use CGI qw /:standard escape escapeHTML/; use WebDB;
QuoteUndefined Subroutine & main::dokumente_link called at index.cgi line 11
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
my $page = h3 ('Willkommen auf der Webseite von PseudEcom.') . p ('Hier finden Sie Produkte und Dienstleistungen, die Sie alle online' . 'kaufen können') . ul ( li ('Sie wünschen sich finanzielle Unabhängigkeit? Lesen sie unsere' . dokumente_link ('Geheimnisse der Finanz') . '.'), li ('Wir bieten Ihnen auch' . tierpflege_link ('Tierpflegeprodukte') . '.'), li ('Lesen Sie unsere Kundenzufriedenheits-' . zufgarantie_link ('Garantie') . '.'), li ('Sie haben eine Frage, einen Kommentar? Wir freuen uns auf' . feedback_link ('Ihr Feedback') . '.'), li ('Wie Sie uns' . kontakt_link ('erreichen') . '.'), li ('Lesen sie auch unsere' . datenschutz_link ('Datenschutzrichtlinien') . '.'), li ('Wie gefällt ihnen unsere Site?' . vote_link ('Stimmen Sie ab!')) );
1 2 3 4 5 6
sub dokumente_link { my $bez = shift; return (gib_link (gib_url ("doku_laden.pl"), $bez)); }
use Blah;
QuoteExporter erwartet die zu exportierenden einträge in @EXPORT, und nicht in @Exporter.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
require Exporter; @ISA = qw /Exporter/; @EXPORT = qw ( haupt_url home_link dokumente_link tierpflege_link kontakt_link zufgarantie_link datenschutz_link feedback_link vote_link kkartentyp_liste ablauf_monat_liste ablauf_jahr_liste standardlayout schwerer_fehler );
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
require Exporter; @ISA = qw /Exporter/; @Export = qw ( haupt_url home_link dokumente_link tierpflege_link kontakt_link zufgarantie_link datenschutz_link feedback_link vote_link kkartentyp_liste ablauf_monat_liste ablauf_jahr_liste standardlayout schwerer_fehler );
|< 1 2 3 4 ... 6 >| | 59 Einträge, 6 Seiten |