Schrift
[thread]10437[/thread]

Skript macht nach Dateiupload nicht weiter



<< >> 10 Einträge, 1 Seite
vayu
 2007-09-21 16:17
#99806 #99806
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
Also das zip file wird hochgeladen, ausgepackt und wieder gelöscht.
das komische ist, ein print dass ich irgendwo vor dem qx einfüge wird ausgegeben. nach dem qx nicht. das unlink wird aber komischerweise noch ausgeführt. mehr aber nicht, die foreach-schleife wird auch nicht durchlaufen, zumindest glaube ich das, kann es ja mangels print nicht nachvollziehen.

hab die Stellen mal per kommentar markiert

Hat da jemand ne idee?

achso, den start des skript hab ich mal weggelassen, also fehlen ein paar variablen deklarationen :) und start_html etc

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
if(defined($cgi->param('zip'))) {
        my $zip = $cgi->param('zip');
        binmode $zip;
        open(FILE, ">", $img_dir."imgs.zip") or die $!;
        binmode FILE;
        my $data;
        while(read $zip, $data, 1024) {
                print FILE $data;
        }
        close FILE;
        my $cmd = "unzip ".$img_dir."imgs.zip -d ".$img_dir;
###### 0 ######
        qx($cmd);
###### 1 ######
        unlink $img_dir."imgs.zip";
###### 2 ######
        foreach my $img (glob($img_dir."*")) {
                next if $img =~ /^.{1,2}$/;
                print $img."<br />";
                &doShrinking($img);
        }
        
}

sub getBaseName {
        my $file = shift;
        if($file =~ /^(.+)\/([^\/]+)\.(.{3})$/) {
                return ($1,$2,$3);
        }
}

sub doShrinking {
        my $file = shift;
        my ($dir, $base, $mime) = getBaseName($file);
        my $thumbfile = $dir.$base."_thumb".$mime;
        print $thumbfile."<br />";
        my $src = new Image::Magick;
        $src->Read($file);
        my ($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,450);
        $thumb->Write($file);
        ($thumb,$x,$y) = Image::Magick::Thumbnail::create($src,50);
        $thumb->Write($thumbfile);
}
Taulmarill
 2007-09-21 16:38
#99810 #99810
User since
2004-02-19
1750 Artikel
BenutzerIn

user image
Bei allen vorangegangenen Anweisungen, verwendest du $img_dir als ob es mit einem / aufhören würde, beim glob hängst du aber ein weiteres / an. Was genau steht in $img_dir?
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
vayu
 2007-09-21 16:39
#99811 #99811
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
ah ja tippfehler, den hatte ich schon korrigiert, aber hier vergessen ... hat leider auch nichts geholfen
renee
 2007-09-21 16:43
#99812 #99812
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Speicher doch mal den Returnwert von qx und schau Dir mal an, was da drin steht... Das Kommando ist wohl falsch bzw. die Ausführung schläg fehl.

Du könntest stattdessen auch mal "system" nehmen und den Returnwert anschauen...

Und warum nimmst Du kein Modul?
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/
vayu
 2007-09-21 16:56
#99816 #99816
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
das hochladen, entpacken und löschen funktioniert ja ... das ist ja das komische

hatte auch schon system probiert. und wofür ein modul? zum hochladen der files?

achso und den returnwert von qx kann ich mir ja nicht ausgeben lassen :) weil danach kein print mehr ausgegeben wird
renee
 2007-09-21 17:07
#99818 #99818
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Nein, zum entpacken...

Dass das Entpacken funktioniert, hast Du aber nirgends geschrieben!
Steht irgendwas im ErrorLog?
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/
vayu
 2007-09-21 17:12
#99819 #99819
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
steht gleich im eingangspost :)

Quote
Also das zip file wird hochgeladen, ausgepackt und wieder gelöscht.


nein im error_log steht nichts
vayu
 2007-09-21 17:30
#99824 #99824
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
hmm hab das problem ... nur keinen plan wie das zu beseitigen is :(

hab das skript mal in der shell aufgerufen:

Quote
perl: error while loading shared libraries: /usr/local/lib/ImageMagick-6.3.5/modules-Q16/coders/jpeg.so: undefined symbol: ConstantString


ich hab ImageMagick heute komplett neu kompiliert aus den aktuellen sourcen. Dachte das jpeg.so sollte dabei sein?
renee
 2007-09-21 17:34
#99827 #99827
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
vayu+2007-09-21 15:12:52--
steht gleich im eingangspost :)


Nö, da steht, dass unlink ausgeführt wird, dass aber kein print funktioniert... Von dem "unzip"-Kommando steht da gar nichts...
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/
vayu
 2007-09-21 17:36
#99828 #99828
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
da steht doch "ausgepackt" O.o aber gut whatever ...

das problem scheint ja bei ner defekten datei zu liegen. nur keine ahnung wo ich ne funktionierende herkrieg -.-
<< >> 10 Einträge, 1 Seite



View all threads created 2007-09-21 16:17.