Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Installation und Konfiguration
[thread]12160[/thread]

Problem mit Perl Modul bei Image::Magick Installation (Seite 2)



<< |< 1 2 >| >> 20 Einträge, 2 Seiten
Nature
 2008-07-10 18:05
#112000 #112000
User since
2008-07-10
11 Artikel
BenutzerIn
[default_avatar]
Komisch um die Uhrzeit wo du den Get ausgeführt hast besteht keine Meldung oder auch Fehlermeldung in der access.log oder error.log des Apache

Das was besteht ist in der suexec.log das, dass Skript buttons.cgi ausgeführt wird

[2008-07-10 15:54:29]: uid: (1392/web91) gid: (1392/1392) cmd: button.cgi
Nature
 2008-07-10 18:12
#112001 #112001
User since
2008-07-10
11 Artikel
BenutzerIn
[default_avatar]
Also nach Anleitung des Skripterstellers

Sollte dieser allerdings eine Image aufrufen

button.cgi?usr=xxx&btn=y

Button mit einer Rang Anzeige, das xxx steht für einen Accountnamen,
y steht für Button 1, 2 oder 3
GwenDragon
 2008-07-10 18:33
#112002 #112002
User since
2005-01-17
14861 Artikel
Admin1
[Homepage]
user image
Nature+2008-07-10 16:12:27--
Also nach Anleitung des Skripterstellers

Ist das Skript irgendwo her oder hat das jemand extra für euch erstellt?
Es wäre praktisch irgendwo mal den Quellcode zu sehen.

Im suexec_log steht nur was drin, wenn es üble Probleme mit su_exec gibt.
Im Error_log steht nur was, wenn es ein Problem gab. Im access_log muss was drin sein, denn ich habe ja was abgeholt!
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
Nature
 2008-07-10 18:36
#112003 #112003
User since
2008-07-10
11 Artikel
BenutzerIn
[default_avatar]
Ja das ist von einem Hersteller. Es funktionierte auch auf einem anderen Server nur auf unserem nun nicht

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

if(-e "protected/var_3.pl"    ) {require "protected/var_3.pl";$|=1;    } else {&fehler($msg="File protected/var_3.pl not found!");}
if(-e "protected/data/ranklist.lst") {require "protected/data/ranklist.lst";$|=1;}

&init_cgi;
sub init_cgi {
use CGI; 
   $req = new CGI;
   @daten=$req->param;
   for(@daten) {
   my $value = $req->param($_);
    $in{$_} = $value;
   }
}
if($in{'usr'} ne '') {
if($in{'btn'} eq '') {$nr=1;} else {$nr=$in{'btn'};}
if($in{'cat'} ne '') {if(-e "protected/data/$in{'cat'}\_ranklist.lst") {require "protected/data/$in{'cat'}\_ranklist.lst";$|=1;}}
$name    = $in{'usr'};

if($in{'cat'} eq '') {
$button  = $btn{$nr};
if($rank{$name} eq ''){$rank{$name} = $norangtxt{$nr};}
if($rank{$name} eq '0'){$rank{$name} = $norangtxt{$nr};}
}
if($in{'cat'} ne '') {
$nr      = $in{'cat'}."_".$nr;
$button  = $btn{$nr};
if($catrank{$name} eq ''){$catrank{$name} = $norangtxt{$nr};}
if($catrank{$name} eq '0'){$catrank{$name} = $norangtxt{$nr};}
$rank{$name}=$catrank{$name};
}
&print_button;
exit;
} else {&fehler($msg="unknown parameter!");}

sub print_button {
use Image::Magick;
$image=Image::Magick->new;

$image->Read($button);

$image->Quantize(
#colors=>256,
colorspace=>$colorspace{$nr},
dither=>True,
measure_error=>True,
global_colormap=>True
);

#$image->Set(
#antialias=>'True', 
#colorspace=>RGB, 
#compression=>None, 
#fill=>black, 
#magick=>PNG, 
#matte=>True,
#mattecolor=>black,
#quality=>PNG,
#type=>TrueColorMatte
#);

$antialias{$nr} = 'false' if $antialias{$nr} eq '';

$image->Annotate(
font                     => $font{$nr}, 
pointsize                => $fsize{$nr}, 
fill                     => $fcolor{$nr}, 
text                     => $rank{$name} , 
x                                => $coordx{$nr}, 
y                                => $coordy{$nr}, 
align                    => $balign{$nr},
antialias                => $antialias{$nr}
);

print "Content-type: image/gif\n\n";
$image->Write("$bformat{$nr}:-");
undef $image;
}










sub fehler {
print "Content-Type: text/html\n\n";
print $msg;
exit;
}
Nature
 2008-07-10 18:41
#112004 #112004
User since
2008-07-10
11 Artikel
BenutzerIn
[default_avatar]
GwenDragon+2008-07-10 16:33:32--
Nature+2008-07-10 16:12:27--
Also nach Anleitung des Skripterstellers

Ist das Skript irgendwo her oder hat das jemand extra für euch erstellt?
Es wäre praktisch irgendwo mal den Quellcode zu sehen.

Im suexec_log steht nur was drin, wenn es üble Probleme mit su_exec gibt.
Im Error_log steht nur was, wenn es ein Problem gab. Im access_log muss was drin sein, denn ich habe ja was abgeholt!


::1 - - [10/Jul/2008:15:54:18 +0200] "GET / HTTP/1.0" 302 389 "-" "Apache/2.2.3 (Debian) mod_python/3.2.10 Python/2.4.4 PHP/4.4.4-8+etch6 mod_ssl/2.2.3 OpenSSL/0.9.8c (internal dummy connection)"
::1 - - [10/Jul/2008:15:54:20 +0200] "GET / HTTP/1.0" 302 389 "-" "Apache/2.2.3 (Debian) mod_python/3.2.10 Python/2.4.4 PHP/4.4.4-8+etch6 mod_ssl/2.2.3 OpenSSL/0.9.8c (internal dummy connection)"
::1 - - [10/Jul/2008:15:54:22 +0200] "GET / HTTP/1.0" 302 389 "-" "Apache/2.2.3 (Debian) mod_python/3.2.10 Python/2.4.4 PHP/4.4.4-8+etch6 mod_ssl/2.2.3 OpenSSL/0.9.8c (internal dummy connection)"
::1 - - [10/Jul/2008:15:54:26 +0200] "GET / HTTP/1.0" 302 389 "-" "Apache/2.2.3 (Debian) mod_python/3.2.10 Python/2.4.4 PHP/4.4.4-8+etch6 mod_ssl/2.2.3 OpenSSL/0.9.8c (internal dummy connection)"

Das steht noch in der access_log
GwenDragon
 2008-07-10 18:51
#112005 #112005
User since
2005-01-17
14861 Artikel
Admin1
[Homepage]
user image
Na so kurz gesehen, ist das Skript schon etwas merkwürdig an manchen Stellen geschrieben.
Da wird sich darauf verlassen, dass immer und alles klappt, und keine Rückgabewerte von Methoden geprüft.

Bestimmt fehlt auch am Anfang des Skripts folgendes:
Code: (dl )
1
2
use strict;
use warnings;

Was nämlich bei Problemen enorm hilft.


Zeile 75:
Schreibe mal anstatt:
Code: (dl )
$image->Write("$bformat{$nr}:-");

das
Code: (dl )
1
2
my $errorwr = $image->Write("$bformat{$nr}:-");
warn ("ERROR $errorwr # Writing image") if defined $errorwr;


Dann sollte auch was im error_log stehen bei einem Problem.
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
Nature
 2008-07-10 19:08
#112006 #112006
User since
2008-07-10
11 Artikel
BenutzerIn
[default_avatar]
Danke das sieht schonmal was besser aus

folgendes kommt aus der error_log


Code: (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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Variable "$msg" is not imported at button.cgi line 58.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$req" requires explicit package name at button.cgi line 32.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "@daten" requires explicit package name at button.cgi line 33.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$req" requires explicit package name at button.cgi line 33.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "@daten" requires explicit package name at button.cgi line 34.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$req" requires explicit package name at button.cgi line 35.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 36.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 39.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 40.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 40.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 40.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 40.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 41.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 41.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 41.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 42.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 42.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 44.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$button" requires explicit package name at button.cgi line 45.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%btn" requires explicit package name at button.cgi line 45.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 45.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%rank" requires explicit package name at button.cgi line 46.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 46.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%rank" requires explicit package name at button.cgi line 46.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 46.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%norangtxt" requires explicit package name at button.cgi line 46.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 46.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%rank" requires explicit package name at button.cgi line 47.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 47.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%rank" requires explicit package name at button.cgi line 47.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 47.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%norangtxt" requires explicit package name at button.cgi line 47.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 47.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 49.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 50.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%in" requires explicit package name at button.cgi line 50.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 50.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$button" requires explicit package name at button.cgi line 51.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%btn" requires explicit package name at button.cgi line 51.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 51.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%catrank" requires explicit package name at button.cgi line 52.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 52.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%catrank" requires explicit package name at button.cgi line 52.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 52.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%norangtxt" requires explicit package name at button.cgi line 52.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 52.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%catrank" requires explicit package name at button.cgi line 53.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 53.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%catrank" requires explicit package name at button.cgi line 53.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 53.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%norangtxt" requires explicit package name at button.cgi line 53.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$nr" requires explicit package name at button.cgi line 53.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%rank" requires explicit package name at button.cgi line 54.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 54.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "%catrank" requires explicit package name at button.cgi line 54
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] .
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$name" requires explicit package name at button.cgi line 54.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Global symbol "$msg" requires explicit package name at button.cgi line 58.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] BEGIN not safe after errors--compilation aborted at button.cgi line 61.
[Thu Jul 10 17:06:05 2008] [error] [client 77.135.109.119] Premature end of script headers: button.cgi
GwenDragon
 2008-07-10 19:34
#112007 #112007
User since
2005-01-17
14861 Artikel
Admin1
[Homepage]
user image
Na, da muss nachgebessert werden. Schludrig geschrieben ist das Skript.

Lass bitte erst einmal das
use strict;
use warnings;
weg.

Kommt dann noch was?
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
Nature
 2008-07-10 19:39
#112008 #112008
User since
2008-07-10
11 Artikel
BenutzerIn
[default_avatar]
Jetzt kommt nur noch in der error_log

ERROR Exception 410: NoImagesDefined `Image::Magick' # Writing image at button.cgi line 101.

Line 101 = warn ("ERROR $errorwr # Writing image") if defined $errorwr;

Vielen Dank für deine Mühe echt super nett von dir
GwenDragon
 2008-07-11 16:46
#112020 #112020
User since
2005-01-17
14861 Artikel
Admin1
[Homepage]
user image
Hast du jetzt mal ein Perl-Image-Magick-Paket für deine Distribution installiert? Du weißt doch nicht, ob deine CPAN-Installation wirklich korrekt geht!?

Das Skript ist wohl irgendwie problematisch programmiert.

Als ich weiß so aus dem Stegreif und mit meiner Glaskugel nicht, wo das Skript fehlerhaft ist, wo ich immer nur Teile der ganzen Skripts sehen kann!
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
<< |< 1 2 >| >> 20 Einträge, 2 Seiten



View all threads created 2008-07-10 14:56.