Opened by Kathrin at 2005-02-11 13:19
User since
2004-12-15
158 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-12-15
158 Artikel
BenutzerIn
hmmm bei mri kommt folgende Fehlermeldung
Software error:
Permission denied at /usr/local/httpd/cgi-bin/frontl.cgi line 152.
For help, please send mail to the webmaster (root@malibu.zdv.liebherr.com), giving this error message and the time and date of the error.
obwohl ich die rechte auf 777 gesetzt hab :(
da es momentan auf einem linux (apache) server laufen soll, brauch ich ja binmode nicht....
was hab ich falsch gemacht?
such_eintr() (aufs wichtigste gekürzt):
\n\n
<!--EDIT|Kathrin|1108124683-->
Software error:
Permission denied at /usr/local/httpd/cgi-bin/frontl.cgi line 152.
For help, please send mail to the webmaster (root@malibu.zdv.liebherr.com), giving this error message and the time and date of the error.
obwohl ich die rechte auf 777 gesetzt hab :(
da es momentan auf einem linux (apache) server laufen soll, brauch ich ja binmode nicht....
was hab ich falsch gemacht?
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
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
my $cgi = new CGI;
print $cgi->header(-type => 'text/html'); #header für HTML
##########################################################
####UPLOAD
my $filehandle_de=$cgi->upload("pdf_de");
my $filehandle_en=$cgi->upload("pdf_en");
my $filehandle_fr=$cgi->upload("pdf_fr");
my $zielVerzeichnis_de = "/home/lidos/lidos_zusdok/D/SI";
#my $zielVerzeichnis_en = "/home/lidos/lidos_zusdok/GB/SI";
#my $zielVerzeichnis_fr = "/home/lidos/lidos_zusdok/F/SI";
my $pdf_de=$cgi->param("pdf_de");
my $pdf_en=$cgi->param("pdf_en");
my $pdf_fr=$cgi->param("pdf_fr");
$pdf_de =~ s/[^A-Za-z0-9_\.\-]//g; #nur die zeichen im [] sind im dateinamen erlaubt
#$pdf_en =~ s/[^A-Za-z0-9_\.\-]//g;
#$pdf_fr =~ s/[^A-Za-z0-9_\.\-]//g;
such_eintr();
if ($eintr) {
upload_file($pdf_de,$filehandle_de,$zielVerzeichnis_de);
}
sub upload_file {
my ($pdf_de,$filehandle_de,$zielVerzeichnis_de) = @_;
my $local_file = (split (/[\\\/]/,$pdf_de)) [-1];
my $target = $zielVerzeichnis_de.'/'.$local_file;
if (-e $target) {
print "Zieldatei existiert bereits!";
exit (0);
}
else {
binmode $filehandle_de;
open(TARGET, ">$target") or die $!;
binmode TARGET;
my ($buffer);
while (read $filehandle_de,$buffer,1024) {
print TARGET $buffer;
}
close TARGET;
print "Ihre datei wurde unter $target gespeichert";
}
}
such_eintr() (aufs wichtigste gekürzt):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
sub such_eintr {
print "<HTML>\n";
print "<HEAD><TITLE>FORMULAR</TITLE>";
print '</HEAD><BODY bgcolor ="#CCCCFF"><center>';
print '<span style="color:P font-size:15pt"><center><b>LIDOS Zusatzinformation</b></center></span>';
print '<form method="POST" action="/cgi-bin/frontl.cgi" enctype="multipart/form-data">';
if ($doctyp eq 'SI') {
print '<input type="file" name="pdf_de" size=30 maxlength=80>';
}
else {
print '<textarea name="deutsch" cols="50" rows="4">'.$param->{deutsch}.'</textarea>';
}
..................<!--EDIT|Kathrin|1108124683-->