Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]13007[/thread]

Download mittels -type=>'application/octet-stream'



<< >> 8 Einträge, 1 Seite
bieber
 2009-01-16 10:50
#118060 #118060
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 )
1
2
3
4
5
6
7
8
9

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
#118062 #118062
User since
2005-01-17
14748 Artikel
Admin1
[Homepage]
user image
Code: (dl )
1
2
3
4
5
6
7
8
9
10
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
#118071 #118071
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
#118075 #118075
User since
2005-01-17
14748 Artikel
Admin1
[Homepage]
user image
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
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
#118077 #118077
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
#118090 #118090
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
#118091 #118091
User since
2005-01-17
14748 Artikel
Admin1
[Homepage]
user image
Und geht es jetzt?
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
bieber
 2009-01-19 09:04
#118153 #118153
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.
<< >> 8 Einträge, 1 Seite



View all threads created 2009-01-16 10:50.