file downloaden

[luke]

hallo zusammen....

ich moechte aus dem perl-script gerade ein file an den broswer schicken damit der user es direkt mit "save as" downloaden kann.

wie mach ich das ...???

luke

[R.Schulze]

Hallo,

ich moechte aus dem perl-script gerade ein file an den broswer schicken damit der user es direkt mit "save as" downloaden kann.

könnte vielleicht so funktionieren:

<i>#!/usr/bin/perl

print "Location: /URL_DER_DATEI_NATÜRLICH_MIT_EXTENSION","\n\n";

exit(0);
</i>

Das entspricht einer Server-Weiterleitung

[luke]

könnte vielleicht so funktionieren:

<i>#!/usr/bin/perl

print "Location: /URL_DER_DATEI_NATÜRLICH_MIT_EXTENSION","\n\n";

exit(0);
</i>

Das entspricht einer Server-Weiterleitung

das habe ich bereits eingefuegt....als resultat erscheint im browser:

Location: /usr/users/tsp70001/70001_998_20000627500043.lpw HTTP/1.1 200 OK Date: Tue, 27 Jun 2000 14:28:20 GMT Server: Apache/1.3.9 (Unix) mod_perl/1.21 mod_ssl/2.4.8 OpenSSL/0.9.4 Content-Length: 1876
Keep-Alive: timeout=15, max=100 Connection: Keep-Alive Content-Type: text/html

wie schaffe ich es, dass es der browser oeffnet..???

luke

[R.Schulze]

Hi

das habe ich bereits eingefuegt....als resultat erscheint im browser:

Location: /usr/users/tsp70001/70001_998_20000627500043.lpw HTTP/1.1 200 OK Date: Tue, 27 Jun 2000 14:28:20 GMT Server: Apache/1.3.9 (Unix) mod_perl/1.21 mod_ssl/2.4.8 OpenSSL/0.9.4 Content-Length: 1876
Keep-Alive: timeout=15, max=100 Connection: Keep-Alive Content-Type: text/html

wie schaffe ich es, dass es der browser oeffnet..???

Schreib doch mal wie genau bei dir der Code aussieht und den Pfad zur Datei
und was es für eine Datei ist

[Rolf]

hallo zusammen....

ich moechte aus dem perl-script gerade ein file an den broswer schicken damit der user es direkt mit "save as" downloaden kann.

wie mach ich das ...???

luke

Hi, sowas habch mal hier beschrieben http://www.i-netlab.de/download/download.htm: Ein Script was Scripte o.a. Textdateien anzeigt - das ist das erste Beispiel.

Viele Grüße, Rolf

[klaus]

hallo zusammen....

ich moechte aus dem perl-script gerade ein file an den broswer schicken damit der user es direkt mit "save as" downloaden kann.

wie mach ich das ...???

luke

vielleicht meinst diu sowas:
wichtig ist , dasz vorher nicht, wie auch immer, ein HTTP-Header geschriben wird (via CGI.pm oder gleich direkt).
weil die Zeile
    print "Content-Type: mime/type\n\n";
dies macht.
(Datei kann irgendwo im File-System und musz nicht unbedingt direkt im Webserver-Bereich sein).

#!/usr/bin/perl
use CGI;

my $query= new CGI;
print $query->header('mime/type'); # den mimetype der datei angeben, je nach Dateityp
open(IN, "$filename");
binmode(IN); # immer gut, wenns unter Win32 passiert und eine Binaer-Datei ist
print while <IN>;
close IN;

oder auch anders als Umleitung auf den neuen URL
(Datei musz ueber den Web-Server erreichbar sein)

#!/usr/bin/perl
use CGI;

my $query= new CGI;
print $query->header(-Refrsh=>"0; URL=$url_zur_datei");

Gruß
klaus