Opened by Gast at 2003-12-23 01:28
User since
2003-12-23
25 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-12-23
25 Artikel
BenutzerIn
also ich hab die Util.pm jetzt einfach mal DButil.pm benannt.
die Phafsache hab ich auch soweit hingekriegt jetzt mint der es sei ein Fehler in Zeile 15
meine Zeile 15 lautet:
das ganze basiert auf einem Eintrag in cgi-lib.pl
die ist doch eigentlich eingebunden wenn ich das im Anfang meiner pc_anmelden.pl hab?
die Phafsache hab ich auch soweit hingekriegt jetzt mint der es sei ein Fehler in Zeile 15
Code: (dl
)
[Thu Dec 25 19:34:53 2003] [error] Undefined subroutine &Apache::ROOTtobias::lounge::cgi_2dbin::pc_anmelden_2epl::ReadParse called at d:/8081_lounge/lounge/cgi-bin/pc_anmelden.pl line 15.
meine Zeile 15 lautet:
Code: (dl
)
ReadParse(*FORM);
das ganze basiert auf einem Eintrag in cgi-lib.pl
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
sub ReadParse {
local (*in) = @_ if @_;
local ($i, $key, $val);
# Read in text
if (&MethGet) {
$in = $ENV{'QUERY_STRING'};
} elsif (&MethPost) {
read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
}
@in = split(/[&;]/,$in);
foreach $i (0 .. $#in) {
# Convert plus's to spaces
$in[$i] =~ s/\+/ /g;
# Split into key and value.
($key, $val) = split(/=/,$in[$i],2); # splits on the first =.
# Convert %XX from hex numbers to alphanumeric
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
# Associate key and value
$in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator
$in{$key} .= $val;
}
return scalar(@in);
}die ist doch eigentlich eingebunden wenn ich das im Anfang meiner pc_anmelden.pl hab?
Code: (dl
)
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
#
BEGIN { push(@INC, "."); }
use Paths;
use DButils;
#use Utils;
require "cgi-lib.pl";
sub makeRepeats;