download.pl script

Du kan gøre det snedige at lave http headers som referer til en anden sti med location..
altså noget ala....

#!/usr/bin/perl
$fil = \"minfil/placering\";
print \"Location: $fil\\n\";

Jeg er dog umiddelbart lidt i tvivl om, om man får stien vist når den redirecter.... men prøv i første omgang!

Du kunne selvfølgelig også åbne filen og udskrive den som output....

#!/usr/bin/perl

open(SJOV, filnavn.noget) || die(\'Hovsa!\');
@var=<SJOV>;
close(SJOV) || die (\'Øv!\');
print \"Content-type: din filtype\"\\n\\n\";
foreach (@var)
{
print $_;
}

noget i den retning... sidder du på en windoze maskine skal du nok overveje at sætte binmode...

hmm... på mystisk vis har der vist sneget sig et \" for meget ind i print content-type linien...

mit ovenstående svar virker egentlig kun med tekstfiler, nu jeg tænker mig om... hvad du leder efter er nok mere noget i retning af-->

#!/usr/bin/perl

$filnavn=$ENV{\'QUERY_STRING\'};
$filnavn=~ s/~!/ ~!/g;
$filnavn=~tr/+/ /;
$filnavn=~s/%([a-fA-F0-9][a-fA-F0-9])/pack(\"C\", hex($1))/eg;
$filnavn=~s/\\n//gi;
$filnavn=~s/\\///g;
$filnavn=~s/\\\\//g;

open(SJOV, \"</home/absoluttebrugersti/$filnavn\" ) or die(\"Øv!: $!\\n\");
print \"Content-type: dinfiltype\\r\\n\\r\\n\";
binmode(SJOV);
binmode(STDOUT);
while ($cb=read(SJOV, $data, 4096))
{
    print $data;
}
close(SJOV) or die(\"Øv!: $!\\n\");

<-- det skulle faktisk gøre tricket... helt og holdent...

scriptet skal så kaldes således her: http://www.domæne.xyz/cgi-bin/download.pl?filnavn

det er forøvrigt ret vigtigt, at du angiver den absolutte sti til dine filer, da du ellers giver alle og enhver idiot ret til at læse alle filer på din maskine... og det er ikke godt...

der hvor der står dinfiltype skal du forøvrgt angive, hvilken type fil, du ønsker at sende afsted... så det er lettest for dig, hvis du har alle dine filer i samme format, ex .tar.gz eller zip... .exe-filer o.l. kan selvfølgelig også bruges... bare du skriver hvilken type fil du ønsker at sende... ønsker du fx at sende en .jpg fil skal der stå print \"Content-type: image/jpeg\\r\\n\\r\\n\";

held og lykke med det!

kan du bruge svaret til noget?

Ja og så ikke helt men du kan jo ikke læse tanker vel :-)

Jeg har fundet ud af at det jeg gerne vil ikke helt kan lade sig gøre men dit svar er nok det tætteste.

Det jeg egentligt gerne ville var at uanset Cuntent-Type så skulle browseren spørge om \'save-as\' hvilket den ikke gør hvis den kender fil typen (eks. pdf)

/Nazaq

du kan måske sætte content-type til eet eller andet mærkeligt, således at du er sikker på, at ingen browser kender det... så burde den bare hente det...

det kunne være noget i retning af \"Content-type: image/zxgh\\n\\n\".... det dur måske... prøv dig frem... det KAN næsten med garanti lade sig gøre...

Er prøvet og det er IE totalt ligeglad med.

BTW: her er mit script

#!/perl/bin/perl
use CGI ;
use CGI::Carp qw(fatalsToBrowser);

$query = new CGI;
# hent parametre
my $fil = $query->param(\'fil\');

$fil =~ /([^\\/\\\\]+)$/;
my $name = $1;

open (file,\"<C:/filer\".\"$fil\") || exit print header.$!;
binmode(file);
binmode(STDOUT);
$size = -s file;
$dat = -M file;

read( file, $buf, $size);
close file;
print \"Content-Type: application/octet-stream\\n\";
print \"Accept-Ranges: bytes\\n\";
if ($ENV{\'HTTP_USER_AGENT\'} =~ \"MSIE 5.5\") {
    print \"Content-Disposition: file; filename=\\\"$name\\\"\\n\";
}
    else {print \"Content-Disposition: attachment; filename=\\\"$name\\\"\\n\";
}
print \"Content-Length: $size\\n\\n\";
print $buf;
exit;

DEt virker men ikke helt alligevel, det kunne være rart hvis IE selv spurgte om den skal gemme som eller åbne :-)

/Nazaq

Den spørger vel, hvis den ikke kender content-type... alt andet ville da være underligt... er du sikker på, at det ikke kun er din egen ie, der er underligt konfigureret? :)

Nej min IE er ikke underlig (bortset fra hvordan den normal er)

Hvis jeg vil downloade en .pdf, .doc og .xls (har kun prøvet disse) så spørger IE ikke om noget da den går udfra at knuden (mig) som sidder bag skærmen ikke ved hvad han vil/skal og sikkert har brug for hjælp...

Jeg har nu ledt nettet tyndt og har fundet ud af at hvis IE har spurgt til eet filformat og den har fået at vide den ikke behøver at spørge mere så gør den det ikke mere. Og dette uanset at \'Content-Disposition:\' skal bevirke at \'Gem som..\' dialogen kommer frem. Alle andre browsere reagere som de skal undtagen MS-IE.

/Torben

mærkelig skodbrowser... brug den nye mozilla i stedet...:)

http://www.mozilla.org/releases/