Download mittels -type=>'application/octet-stream' (Perl/CGI)

bieber

2009-01-16 10:50

User since
2007-06-18
148 Artikel
BenutzerIn
[default_avatar]

komme leider wieder mal nicht weiter :(

folgendes Problem: ich habe mir ein Download-Script zusammengebastelt (nach Vorlage des Wikis)

Code (perl): (dl )

my $db = $cgi->url_param('db');
my $datei = $cgi->url_param('datei');

download("/fester_pfad/".$db."/".$datei);

sub download {
 my $file = shift;
 print $cgi->header(-type=>'application/octet-stream',-attachment=>$file);
}

das funktioniert auch wunderbar, was micht stört ist, dass der Dateiname immer so aussieht:
_fester_pfad_datenbank_dateiname

er nimmt also den ganzen Pfad als Dateiname, wie kann ich das umgehen? ich möchte eigentlich nicht, dass jm. die Struktur auf meinem Server kennt

Auch wäre es schön, wenn man (wie es im Internet meist üblich ist) sieht wie groß die Datei ist, damit der Browser eine hochrechnung machen kann, wie lange der Download dauern wird

habe bezüglicher dieser Probleme leider nichts finden können, wäre super wenn mir jm. helfen könnte

Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.

GwenDragon

2009-01-16 11:08

User since
2005-01-17
14761 Artikel
Admin1

Code: (dl )

my $db = $cgi->url_param('db');
my $datei = $cgi->url_param('datei');

download("/fester_pfad/".$db."/".$datei);

sub download {
my $file = shift;
my $fn = (split "/", $file)[-1];
print $cgi->header(-type=>'application/octet-stream',-attachment=>$fn);
}

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

renee

2009-01-16 12:01

User since
2003-08-04
14371 Artikel
ModeratorIn

GwenDragon+2009-01-16 10:08:38--
Code: (dl )
my $fn = (split "/", $file)[-1];

Besser mit CPAN:

File::Basename und CPAN:

File::Spec arbeiten...

---
//Modedit Gwendragon: Tag für File::Basename geändert, da als dist nicht zu finden
---

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/

GwenDragon

2009-01-16 12:40

User since
2005-01-17
14761 Artikel
Admin1

Code: (dl )

use File::Basename;

my $db = $cgi->url_param('db');
my $datei = $cgi->url_param('datei');

download("/fester_pfad/".$db."/".$datei);

sub download {
my $file = shift;
my $fn = fileparse($file);
print $cgi->header(-type=>'application/octet-stream',-attachment=>$fn);
}

So ist es besser mit einem Standardmodul ;)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

renee

2009-01-16 12:50

User since
2003-08-04
14371 Artikel
ModeratorIn

renee+2009-01-16 11:01:22--
---
//Modedit Gwendragon: Tag für File::Basename geändert, da als dist nicht zu finden
---

Danke

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/

bieber

2009-01-16 15:22

User since
2007-06-18
148 Artikel
BenutzerIn
[default_avatar]

vielen Dank für die schnellen Antworten, auf euch ist immer verlass ;)

Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.

GwenDragon

2009-01-16 15:43

User since
2005-01-17
14761 Artikel
Admin1

Und geht es jetzt?

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

bieber

2009-01-19 09:04

User since
2007-06-18
148 Artikel
BenutzerIn
[default_avatar]

jupp, der gepostet Code hat bestens funktioniert, nur das mit der Anzeige der Dateigröße funst nicht... aber das ist mir auch nicht so wichtig

Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.