HTML::Template include: tmpl-file via parameter festlegen (Seite 2) (Perl/CGI)

pq

2006-07-08 17:24

User since
2003-08-04
12208 Artikel
Admin1

[quote=styx-cc,08.07.2006, 01:47]our $VERSION = "0.63";[/quote]
aua, steinzeit =)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

styx-cc

2006-07-08 17:38

User since
2006-05-20
533 Artikel
BenutzerIn

user image

[quote=pq,08.July.2006, 15:24][quote=styx-cc,08.07.2006, 01:47]our $VERSION = "0.63";[/quote]
aua, steinzeit =)[/quote]
*gg
Das hat ppm mir vor 3 tagen oder so gegeben..
Habs jetzt ueber die CPAN-Shell geholt und is Version 0.70,
funktioniert :-))

Als naechstes werde ich dann mal versuchen das Modul aufm Webspace zum laufen zu bringen.

MfG, Stefan

Edit: mit "funktioniert" meinte ich, das ich jetzt auch relative Pfadnamen benutzen kann..\n\n

Pörl.

renee

2006-07-08 22:05

User since
2003-08-04
14371 Artikel
ModeratorIn

Das auf'm Webspace zum laufen zu bringen ist gar kein Problem.

Bevor man sich ein Modul installiert sollte man sich auf CPAN anschauen, welche Version es gibt. Wenn es über PPM nur veraltete Versionen gibt, kannst Du entweder mit

Code: (dl )

perl -MCPAN -e "install Modul"

arbeiten oder - bei Modulen mit C/XS-Anteil - bei Randy Kobes nachfragen, ob er die aktuelle Version als PPM-Version erstellt.

Ich hatte schon mehrmals das Problem, dass über PPM nur eine alte Version zu finden war, die genau die Features, die ich brauchte, nicht hatte...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

styx-cc

2006-07-09 16:22

User since
2006-05-20
533 Artikel
BenutzerIn

user image

[quote=renee,08.July.2006, 20:05]Das auf'm Webspace zum laufen zu bringen ist gar kein Problem.

Bevor man sich ein Modul installiert sollte man sich auf CPAN anschauen, welche Version es gibt. Wenn es über PPM nur veraltete Versionen gibt, kannst Du entweder mit

Code: (dl )

perl -MCPAN -e "install Modul"

arbeiten oder - bei Modulen mit C/XS-Anteil - bei Randy Kobes nachfragen, ob er die aktuelle Version als PPM-Version erstellt.

Ich hatte schon mehrmals das Problem, dass über PPM nur eine alte Version zu finden war, die genau die Features, die ich brauchte, nicht hatte...[/quote]
Danke, werd ich mir zu Herzen nehmen.

Und im allgemeinen:

Hab HTC jetzt aufm Webspace, und es macht genau das was es soll,
schick schick...

Dankääschöön :- )

MfG

Pörl.

pq

2006-07-09 16:55

User since
2003-08-04
12208 Artikel
Admin1

[quote=styx-cc,09.07.2006, 14:22]Hab HTC jetzt aufm Webspace, und es macht genau das was es soll,
schick schick...[/quote]
das freut mich. falls du einen bug findest, immer her damit.
da es noch nicht soo viele leute benutzen, kann immer nochmal
ein bug auftreten, obwohl die testsuite schon ziemlich groß ist.
ich suche immer noch nach einer eleganten lösung, mit dem ich
mehrere features automatisch mit verschiedenen cache-optionen
testen kann, ohne das alles von hand einzugeben.
da treten i.d.R. die meisten bugs auf, da jedes feature auch
beim caching mit beachtet werden muss.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

styx-cc

2006-07-09 17:01

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Joa, kein Problem..

Ich bastel jetzt erstma fuer mich die Seite, mit dem erlernten werd ich mich dann an die vom Theater machen, deswegen wollt ich auch unbedingt Templates nehmen, kann man das Main-CGI so schoen wiederverwenden

Da hab ich ja dann genuegend Gelegenheit zum Testen :-)

MfG

Pörl.

styx-cc

2006-07-10 02:41

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Hallo, hab wieder ein Problem, was hier ganz gut reinpasst und will das Forum ja nich zuspammen :-)

Also, ich hab folgendes versucht:

Code: (dl )

my $page = param('p');

my $tmpl = HTML::Template::Compiled->new(filename => '../templates/main.tmpl');

my %content = ();
my @pages = qw(home me friends hobbys blog gb snippets projekte linktips impressum);
%content = map { getkey($_) => "$_.tmpl" } @pages;

$tmpl->param(content => "../templates/$content{$page}");

Allerdings sagt er bei:

Code: (dl )

%content = map { getkey($_) => "$_.tmpl" } @pages;

Undefined subroutine &main::getkey called at ...

Aber ich hab das so von hier uebernommen...

Mfg

Pörl.

renee

2006-07-10 09:59

User since
2003-08-04
14371 Artikel
ModeratorIn

Das Beispiel ist nur da um die Syntax zu verdeutlichen. Es gibt keine getkey-Funktion...

Nimm doch das Array-Element als Schlüssel. Du solltest auch abfangen, wenn es das Template nicht gibt. Was machst Du z.B. wenn in $page ein 'startseite' steht?

Mach doch:

Code: (dl )

my $page = param('p');

my $tmpl = HTML::Template::Compiled->new(filename => '../templates/main.tmpl');

my %content;
my @pages = qw(home me friends hobbys blog gb snippets projekte linktips impressum);
@content{@pages} = 1;

if(exists $content{$page}){
   $tmpl->param(content => "../templates/".$page}.".tmpl");
}
else{
   $tmpl->param(content => "../templates/home.tmpl");
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

styx-cc

2006-07-10 10:25

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Danke fuer die erklaereung seh schon, so wirds wohl besser klappen, das mit dem Abfangen hatte ich wie folgt geloest:

Code: (dl )

$tmpl->param(content => "../templates/test.tmpl") unless $content{$page};

MfG

P.s.: freut mich das der zuletztuebergebene Parameter ans Template vorherige mit selbem Namen ueberrschreibt :)

Pörl.

pq

2006-07-10 11:51

User since
2003-08-04
12208 Artikel
Admin1

[quote=renee,10.07.2006, 07:59]

Code: (dl )

1
2
3

@content{@pages} = 1;

if(exists $content{$page}){

[/quote]
das finde ich unsauber. entweder setzt man alle hash-values auf 1 (z.b.)
oder auf undef. aber mit deinem hash-slice setzt du nur den wert des
ersten keys auf 1. da du mit exists abfragst, stört das nicht, aber ich
finde es trotzdem unsauber.
@content{@pages} = (); # oder @content{@pages} = (1) x @pages;

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem