perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 29
 Click for quality!



10.02.2012 / 20:39
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  CGI: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


Beitraghtml in cgi einbinden.
 Seitenanfang
Hi zusammen
Ich möchte gerne eine .html Datei in ein cgi Formular einbinden. Ich habe es mal so versucht:
In die datei xy.cgi habe ich folgendes:

#!/usr/bin/perl

use strict;

use CGI;

my $textdatei ='text.txt';

my $adresse = 'http://www.wasser-engineering.ch/javascript/javascript-htmlcode.html';

my $q = new CGI;

if($q->param('message')){
open(DAT, ">$textdatei");
flock(DAT, 2);
print DAT $q->param('message');
close(DAT);
}

print "Content-type: text/html\n\n";

print q|
print get ($adresse);
q|

die datei: javascript-htmlcode.html ist reines js in html und hat chmod 755

doch das hat nicht geklappt. wie kann Ich das machen? es sollte etwa das <?php include("datei.txt"); ?> sein, nur in cgi.

thx für eure hilfe

Beat

Datum: 11.05.2005-17:00
Beitragre: html in cgi einbinden.
 Seitenanfang
Hallo

schau Dir

LWP::UserAgent

an. Damit kannst Du den Content einer Quelle im Web abrufen und denn weiterverarbeiten.

Ciao
Ingo

Datum: 11.05.2005-18:18
Beitragre: html in cgi einbinden.
 Seitenanfang
hi
hab ich schon. Hat mir nicht weitergeholfen. Kannst du mir vielleicht schreiben, was ich genau wo und in welche Datei renschreiben muss? sorry, aber ich kenn mich da noch nicht besonders gut aus...
Vielen Dank!
Beat

Datum: 11.05.2005-18:41
Beitragre: html in cgi einbinden.
 Seitenanfang
Hallo,

ein kleines Bespiel:


#!/perl/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
# Identifikation als Mozilla 1.7.5
my $ua=LWP::UserAgent->new(agent=>'Mozilla/5.0 (Windows; U; Win98; de-AT; rv:1.7.5) Gecko/20041217');
my $req;
my $adresse = 'http://www.wasser-engineering.ch/javascript/javascript-htmlcode.html';
my $response;
$req = $ua->get($adresse);
$response = $req->content;
print "Inhalt:\n\n",$response;

Ciao
Ingo

Datum: 12.05.2005-08:06
Beitragre: html in cgi einbinden.
 Seitenanfang
LWP::Simple ist völlig ausreichend...

#!/usr/bin/perl
use strict;
use LWP::Simple;
use CGI;
my $textdatei ='text.txt';
my $adresse = 'http://www.wasser-engineering.ch/javascript/javascript-htmlcode.html';
my $q = new CGI;
if($q->param('message')){
open(DAT, ">$textdatei");
flock(DAT, 2);
print DAT $q->param('message');
close(DAT);
}
print "Content-type: text/html\n\n";
print get ($adresse);

Datum: 13.05.2005-12:35
Beitragre: html in cgi einbinden.
 Seitenanfang
Es gibt mittlerweile Server, die eine Auslieferung von Daten ablehnen, wenn sich der UserAgent nicht identifiziert. Es bleibt dahingestellt, wie weit Lügen hier erkannt werden. Deshalb empfehle ich nicht mehr das Simple-Modul.

Ciao
Ingo

Datum: 13.05.2005-15:18
-






-
 -