Grafik-Button: Ausgabe einer Grafik auf Homepage (Perl/CGI)

[thread]815[/thread]

Grafik-Button: Ausgabe einer Grafik auf Homepage

rommi

2006-09-21 01:25

User since
2005-03-03
54 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

also ich habe gerade mal den Anfang mit Perl und CGI geschafft. Soll heissen ich habe einen HTML-Code erstellt der ein Eingabefeld und einen Button "Abschicken" beim Aufruf der html-Seite ausgibt. Beim Anklicken des Buttons "Abschicken" werden die Werte vom Eingabefeld an ein Perlscript zur Verarbeitung weitergegen und anschliessend das Ergebnis wieder an den Browser zurück geschickt.

Jetzt zu meinem eigentlichen Anliegen:
Ich möchte eine Homepage erstellen auf der zwei Pfeilbuttons angebracht werden sollen die nach Betätigung eine Grafik auf der Homepage (keine neue Seite aufmachen) anzeigen. Je nach dem auf welchen Pfeil man klickt soll die vorherige Grafik angezeigt oder eine neue Grafik erscheinen. Beim Klick auf den Pfeilbutton für die neue Grafik soll ein Perlscript gestartet werden dass eine bestimmte neue Grafik erstellt und in ein Verzeichnis ablegt von dem aus die Grafik dann zur Anzeige auf meiner Homepage bereit steht! Die Grafik soll aber immer auf der Homepage und nicht auf einer neuen Seite angezeigt werden!

Wer kann mir da ein bisschen weiterhelfen oder Hinweise geben? Mir geht es hauptsächlich:

1. Um das Erstellen solcher Pfeilbuttons im Html-Code die wiederum dann bei Betätigung ein Perl-script aufrufen

2. Um die Rückgabe der Grafik an die Homepage, die vom Perlscript erstellt und in einem Verzeichnis abgelgt wurde.

Danke im vorraus
Gruss rommi

renee

2006-09-21 09:54

User since
2003-08-04
14371 Artikel
ModeratorIn

Dafür arbeitest Du am besten mit Templates. Dafür kannst Du CPAN:

HTML::Template::Compiled verwenden.

Template:

Code: (dl )

<html>
<body>
<img src="<!-- TMPL_VAR NAME=BILD -->"><br />
<a href="./bild.cgi?param1=<!-- TMPL_VAR NAME=PARAM -->"><img src="./images/pfeil1.jpg"></a>
<a href="./bild.cgi?param1=<!-- TMPL_VAR NAME=PARAM -->"><img src="./images/pfeil2.jpg"></a>
</body>
</html>

bild.cgi:

Code: (dl )

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;
use CGI;
use HTML::Template::Compiled;

my $cgi = CGI->new();
my %params = $cgi->Vars();

print $cgi->header();
my $template_file = 'template.tmpl';

my $tmpl_obj = HTML::Template::Compiled->new(filename => $template_file);

# berechne Bild

$tmpl_obj->param(BILD => 'pfad/zu/neuem/Bild', PARAM => 'Wert für PARAM');
print $tmpl_obj->output();

Du musst natürlich noch einiges anpassen und ggf. CPAN:

HTML::Template::Compiled Wiki:

installieren

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/

View all threads created 2006-09-21 01:25.