  |
| Autor |
Nachricht |
Programmerfloh
Erfahrener [User]
Anmeldung: 29.10.04
Beiträge: 99
Wohnort: Deutschlan ...
|
 Verfasst am: 29.10.2004, 21:00 Titel: Prob mit CGI-Script |
 |
|
Hi Leutz...
bin neu hier und Webmaster von ner seite wie glaub ich jeder hier.
Nun meine Frage:
Und zwar hab ich mir das Perl-Script "agent.pl" von xwolf.de/perl gezogen.
Nun hab ich nen Fehler 500.
Weiß nur noch nicht, worans liegt.
Ich hab bisher folgendes gemacht:
-mein FTP-Progi beim 2. upload von auto auf text-transfer gestellt.
-den korrekten Perl-Pfad in die 1.Zeile geschrieben
bin trotzdem nicht weitergekommen. 
Bitte nicht hauen... bin cgi/pl-Anfänger. 
Hab vorher nur mit PHP geprogt.
MfG,
Floh
_________________
 
Mangacars/Pixelcars
www.rockerflori.net
|
|
| Nach oben |
|
 |
JörgK
Beliebter [Mod]
Anmeldung: 09.04.04
Beiträge: 376
|
| Verfasst am: 29.10.2004, 21:16 Titel: |
|
|
Das Script muss noch die entsprechenden Rechte haben, z.B. CHMOD auf 755, das müsstest du gegebenenfalls auch mit dem FTP-Programm ändern können
_________________
Webnotizen - Forum für XHTML, CSS und SEO - Bookmarks
|
|
| Nach oben |
|
|
Programmerfloh
Erfahrener [User]
Anmeldung: 29.10.04
Beiträge: 99
Wohnort: Deutschlan ...
|
|
| Nach oben |
|
|
JörgK
Beliebter [Mod]
Anmeldung: 09.04.04
Beiträge: 376
|
|
| Nach oben |
|
|
Programmerfloh
Erfahrener [User]
Anmeldung: 29.10.04
Beiträge: 99
Wohnort: Deutschlan ...
|
| Verfasst am: 29.10.2004, 21:40 Titel: |
|
|
ja ne, ganz so blöd bin ich auch nicht.
Beschäftige mich jetzt schon `n paar Jahre mit`n progen.
Bisher nur eben mit schwerpunkt php.
Jetzt neuerdings cgi.
Also so`n bisschen was weiß ich schon.
Soll jetzt nicht unhöflich sein.
Bin für jeden Ursachentipp dankbar.
Edit:
Hab noch ein Bannertauschsystem.
Dies funzt auch.
Natürlich alles in /cgi-bin/
Ansonsten könnte ich auch notfalls bei meinem Hoster die funktion aktivieren, das cgi-scripts in jedem Verzeichnis ausgeführt werden können.
MfG,
Programmerfloh
_________________
Mangacars/Pixelcars
www.rockerflori.net
|
|
| Nach oben |
|
|
Programmerfloh
Erfahrener [User]
Anmeldung: 29.10.04
Beiträge: 99
Wohnort: Deutschlan ...
|
| Verfasst am: 29.10.2004, 21:50 Titel: |
|
|
Vieleicht hilfts ja, wenn ich das Script poste.
hier ist die Datei agent.pl :
| Zitat: |
#!/usr/bin/perl
$url = $ARGV[0];
$STATUSONLY = $ARGV[1];
$OUTPUT = $ARGV[2];
$METHODE = $ARGV[3];
$PATH = $ARGV[4];
$outtime = $ARGV[5];
$PARAMETER = $ARGV[6];
if ($outtime <=0) { $outtime=200; }
$agentname = "MSIE 6.0";
##########################
if (not $ARGV[0]) {
print "Syntax:\n";
print "agent.pl (URL) (Status) (Ausgabe) (Methode) (Path) (Outtimer) (Parameter) \n";
print "wobei:\n";
print "\tURL: Seite die abgerufen werden soll.\n";
print "\tStatus: 1=Nur der Status wird zurueckgegeben (HEAD-Request), 0 sonst\n";
print "\tAusgabe: 0=Alles ausgaben, 1=Nur den Status, 2=Keine Ausgabe. \n";
print "\t (Exit-Wert der Programmes enthaelt Status.)\n";
print "\tMethode: 1=POST, 0=GET\n";
print "\tPath: 1=Pathinfo nutzen anstelle von Query\n";
print "\tOuttimer: Zeit in Sekunden, nachdem die Suche abgebrochen wird.\n";
print "\tParameter: Parameter fuer PUT oder PATHINFO-Requests\n";
exit;
}
$SIG{ALRM} = sub { die(" Timed out. "); };
alarm($outtime);
use LWP::UserAgent;
$ua= new LWP::UserAgent;
$ua->agent($agentname);
if ($PATH==1) {
if (length($PARAMETER) < 1) {$PATH=0;}
}
if ($METHODE==1) {
if (length($PARAMETER) < 1) {$METHODE=0;}
}
if ($STATUSONLY==1) {
$request= new HTTP::Request('HEAD',$url);
if (not $OUTPUT) {$OUTPUT=1;}
} else {
if ($METHODE==1) {
my $header = new HTTP::Headers (
Content_Type => 'application/x-www-form-urlencoded',
Content_Length => length($PARAMETER));
$request = new HTTP::Request ('POST',$url,$header,$PARAMETER);
} else {
if ($PARAMETER) {
if ($PATH==1) {
chop($url) if substr($url,-1,1) eq '/';
$url .= "/$PARAMETER";
} else {
$url .= "?$PARAMETER";
}
}
$request = new HTTP::Request('GET',$url);
}
}
local $response = $ua->request($request);
$code = $response->code;
$message = $response->message;
$laenge=$response->content_length;
$inhalt = $response->content;
if ($OUTPUT !=2) {
print "Status: $code, $message, $laenge\n";
if (not $OUTPUT) {print "\n$inhalt\n";}
}
exit($code);
|
_________________
Mangacars/Pixelcars
www.rockerflori.net
|
|
| Nach oben |
|
|
JörgK
Beliebter [Mod]
Anmeldung: 09.04.04
Beiträge: 376
|
| Verfasst am: 29.10.2004, 22:10 Titel: |
|
|
ich wollte dir da nichts unterstellen - bin selbst auch nicht der Perl-Experte 
ich hab das Script bei mir hochgeladen und bekomm auch 'ne 500
vielleicht hat jemand, der mehr Ahnung von Perl hat, ne Idee, wie man das Script zum Laufen bringt
_________________
Webnotizen - Forum für XHTML, CSS und SEO - Bookmarks
|
|
| Nach oben |
|
|
Programmerfloh
Erfahrener [User]
Anmeldung: 29.10.04
Beiträge: 99
Wohnort: Deutschlan ...
|
| Verfasst am: 29.10.2004, 22:14 Titel: |
|
|
ne, hab ich auch nicht gedacht.
Aber hier mal, was noch bei der Skriptbeschreibung bei cgi.xwolf.de stand:
| Zitat: | | Allerdings muß man die Perl-Libraries libwww installiert haben. |
Kann es daran liegen?
_________________
Mangacars/Pixelcars
www.rockerflori.net
|
|
| Nach oben |
|
|
JörgK
Beliebter [Mod]
Anmeldung: 09.04.04
Beiträge: 376
|
| Verfasst am: 29.10.2004, 22:21 Titel: |
|
|
Ja, ich denke, daran könnt's liegen, wenn sie schon ausdrücklich schreiben, dass diese Libraries installiert sein müssen, dann ist dies gewöhnlich wohl nicht der Fall
_________________
Webnotizen - Forum für XHTML, CSS und SEO - Bookmarks
|
|
| Nach oben |
|
|
Programmerfloh
Erfahrener [User]
Anmeldung: 29.10.04
Beiträge: 99
Wohnort: Deutschlan ...
|
| Verfasst am: 29.10.2004, 22:58 Titel: |
|
|
naja... kann ich warscheinlich vergessen.
Mein Hoster tut sich schwer, wenn es um das Installieren von librarys, etc. geht.
Hatte ich schon mit PHP-Librarys.
Dann kommse mir wieder mit "Wenn das jeder wöllte, blablabla...".
Naja... muß man schon nen eigenen Server haben, dann hat man keine Probs.
Wär aber ganz jut, wenn wemand sagen könnte, für was die library genau is.
_________________
Mangacars/Pixelcars
www.rockerflori.net
|
|
| Nach oben |
|
|
JörgK
Beliebter [Mod]
Anmeldung: 09.04.04
Beiträge: 376
|
| Verfasst am: 29.10.2004, 23:30 Titel: |
|
|
Diese Erklärung findet man auf debian.org:
| Zitat: |
Libwww-perl ist eine Sammlung von Perl Modulen welche eine einfache und konsistente Programmierschnittstelle (API) für das World-Wide Web bereitstellen. Das Hauptaugenmerk der Bibliothek ist die Bereitstellung von Klassen und Funktionen welche das Schreiben von WWW-Clients erlaubt, man kann auch sagen libwww-perl ist ein WWW Client Bibliothek. Die Bibliothek enthält aber auch Module für allgemeine Aufgaben, ebenso wie eine einfache HTTP/1.1 kompatible Server-Implemetierung.
|
Quelle
_________________
Webnotizen - Forum für XHTML, CSS und SEO - Bookmarks
|
|
| Nach oben |
|
|
Programmerfloh
Erfahrener [User]
Anmeldung: 29.10.04
Beiträge: 99
Wohnort: Deutschlan ...
|
| Verfasst am: 30.10.2004, 17:04 Titel: |
|
|
Also wird das bei mir nicht funzen 
Ist ja auch ein Useragent-Script, also ist klar, das es die Library braucht.
Aber trotzdem danke für deine echt klasse Hilfe.
Du bistn spitzen-Mod.
_________________
Mangacars/Pixelcars
www.rockerflori.net
|
|
| Nach oben |
|
|
|
|
