[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
[MacPerl-WebCGI] help
- To: macperl-webcgi <macperl-webcgi@macperl.org>
- Subject: [MacPerl-WebCGI] help
- From: Amitava Basu <incas@vsnl.net>
- Date: Thu, 28 Dec 2000 12:10:52 +0000
- Delivered-To: irons-bumppo:net-mpweb@bumppo.net
- Organization: Incas
I have some problem with the following subroutine
and in spite of my best effort I failed to solve
it. I am getting the following error…
Besides, does unix file permission 0777 work on Mac.
The 2.1 server showing error writing permission
Thanks
Amitava
#############################################################
# "my" variable $key masks earlier declaration in same
scope.
File 'Untitled'; Line 39
# "my" variable $key masks earlier declaration in same
scope.
File 'Untitled'; Line 60
# "my" variable $key masks earlier declaration in same
scope.
File 'Untitled'; Line 74
# "my" variable $key masks earlier declaration in same
scope.
File 'Untitled'; Line 87
#############################################################
sub dispcat {
print "<center><font size=\"+2\">Welcome to
$config{'sitename'}</font>";
print "<table border=\"2\" bordercolor=\"#000000\"
bgcolor=\"#FF9933\" cellspacing=\"0\" cellpadding=\"0\"
width=\"100\%\"><tr><td> </td></tr></table><br>";
print "<TABLE WIDTH=600 BORDER=1
bordercolor=$config{'colortableborder'}
BGCOLOR=$config{'colortablebody'} cellspacing=0
cellpadding=0><TR><TD ALIGN=CENTER Valign=top>\n";
################ <---------------------COPY HERE TO END
COPY TO ADD ANOTHER row of CATEGORYs
------------>#######################
print "<TABLE WIDTH=200 BORDER=0
bordercolor=$config{'colortableborder'} cellspacing=0
cellpadding=0 bgcolor=$config{'colortablebody2'}>\n";
print "<TR><TD colspan=2 ALIGN=CENTER
BGCOLOR=$config{'colortablehead'}><B><A
HREF=$ENV{'SCRIPT_NAME'}?action=1>Main Category
1</a></B></TD></TR>";
my $key;
foreach $key (sort keys %Cats1) {
umask(000);
mkdir("$config{'basepath'}$key", 0777) unless (-d
"$config{'basepath'}$key");
opendir DIR, "$config{'basepath'}$key" or &oops("Category
directory $key could not be opened.");
my $numfiles = scalar(grep -T, map
"$config{'basepath'}$key/$_", readdir DIR);
closedir DIR;
print "<TR><TD><B><A
HREF=$ENV{'SCRIPT_NAME'}?category=$key>$category{$key}</a></B></td><td
align=center>$numfiles</td></TR> ";
}
print "</TABLE></td>\n";
print "<td align=center valign=top><TABLE WIDTH=200
BORDER=0 bordercolor=$config{'colortableborder'}
cellspacing=0 cellpadding=0
bgcolor=$config{'colortablebody2'}>\n";
print "<TR><TD colspan=2 ALIGN=CENTER
BGCOLOR=$config{'colortablehead'}><B><A
HREF=$ENV{'SCRIPT_NAME'}?action=2>Main Category
2</a></B></TD></TR>";
###############my $key;
foreach $key (sort keys %Cats2) {
umask(000);
mkdir("$config{'basepath'}$key", 0777) unless (-d
"$config{'basepath'}$key");
opendir DIR, "$config{'basepath'}$key" or
&oops("Category directory $key could not be opened.");
my $numfiles = scalar(grep -T, map
"$config{'basepath'}$key/$_", readdir DIR);
closedir DIR;
print "<TR><TD><B><A
HREF=$ENV{'SCRIPT_NAME'}?category=$key>$category{$key}</a></B></td><td
align=center>$numfiles</td></TR> ";
}
print "</TABLE>\n";
print "<td align=center valign=top><TABLE WIDTH=200
BORDER=0 bordercolor=$config{'colortableborder'}
cellspacing=0 cellpadding=0
bgcolor=$config{'colortablebody2'}>\n";
print "<TR><TD colspan=2 ALIGN=CENTER
BGCOLOR=$config{'colortablehead'}><B><A
HREF=$ENV{'SCRIPT_NAME'}?action=3>Main Category
3</a></B></TD></TR>";
my $key;
foreach $key (sort keys %Cats3) {
umask(000);
mkdir("$config{'basepath'}$key", 0777) unless (-d
"$config{'basepath'}$key");
opendir DIR, "$config{'basepath'}$key" or
&oops("Category directory $key could not be opened.");
my $numfiles = scalar(grep -T, map
"$config{'basepath'}$key/$_", readdir DIR);
closedir DIR;
print "<TR><TD><B><A
HREF=$ENV{'SCRIPT_NAME'}?category=$key>$category{$key}</a></B></td><td
align=center>$numfiles</td></TR> ";
}
print "</TABLE>";
################ <--------------------- END CUT HERE TO ADD
ANOTHER row of CATEGORYs
------------>#######################
print "</td></tr><tr><td valign=top>";
################ <---------------------COPY HERE TO END
COPY TO ADD ANOTHER row of CATEGORYs
------------>#######################
print "<TABLE WIDTH=200 BORDER=0
bordercolor=$config{'colortableborder'} cellspacing=0
cellpadding=0 bgcolor=$config{'colortablebody2'}>\n";
print "<TR><TD colspan=2 ALIGN=CENTER
BGCOLOR=$config{'colortablehead'}><B><A
HREF=$ENV{'SCRIPT_NAME'}?action=4>Main Category
4</a></B></TD></TR>";
my $key;
foreach $key (sort keys %Cats4) {
umask(000);
mkdir("$config{'basepath'}$key", 0777) unless (-d
"$config{'basepath'}$key");
opendir DIR, "$config{'basepath'}$key" or &oops("Category
directory $key could not be opened.");
my $numfiles = scalar(grep -T, map
"$config{'basepath'}$key/$_", readdir DIR);
closedir DIR;
print "<TR><TD><B><A
HREF=$ENV{'SCRIPT_NAME'}?category=$key>$category{$key}</a></B></td><td
align=center>$numfiles</td></TR> ";
}
print "</TABLE></td>\n";
print "<td align=center valign=top><TABLE WIDTH=200
BORDER=0 bordercolor=$config{'colortableborder'}
cellspacing=0 cellpadding=0
bgcolor=$config{'colortablebody2'}>\n";
print "<TR><TD colspan=2 ALIGN=CENTER
BGCOLOR=$config{'colortablehead'}><B><A
HREF=$ENV{'SCRIPT_NAME'}?action=5>Main Category
5</a></B></TD></TR>";
my $key;
foreach $key (sort keys %Cats5) {
umask(000);
mkdir("$config{'basepath'}$key", 0777) unless (-d
"$config{'basepath'}$key");
opendir DIR, "$config{'basepath'}$key" or
&oops("Category directory $key could not be opened.");
my $numfiles = scalar(grep -T, map
"$config{'basepath'}$key/$_", readdir DIR);
closedir DIR;
print "<TR><TD><B><A
HREF=$ENV{'SCRIPT_NAME'}?category=$key>$category{$key}</a></B></td><td
align=center>$numfiles</td></TR> ";
}
print "</TABLE>\n";
print "<td align=center valign=top><TABLE WIDTH=200
BORDER=0 bordercolor=$config{'colortableborder'}
cellspacing=0 cellpadding=0
bgcolor=$config{'colortablebody2'}>\n";
print "<TR><TD colspan=2 ALIGN=CENTER
BGCOLOR=$config{'colortablehead'}><B><A
HREF=$ENV{'SCRIPT_NAME'}?action=6>Main Category
6</a></B></TD></TR>";
my $key;
foreach $key (sort keys %Cats6) {
umask(000); # UNIX file permission junk
mkdir("$config{'basepath'}$key", 0777) unless (-d
"$config{'basepath'}$key");
opendir DIR, "$config{'basepath'}$key" or
&oops("Category directory $key could not be opened.");
my $numfiles = scalar(grep -T, map
"$config{'basepath'}$key/$_", readdir DIR);
closedir DIR;
print "<TR><TD><B><A
HREF=$ENV{'SCRIPT_NAME'}?category=$key>$category{$key}</a></B></td><td
align=center>$numfiles</td></TR> ";
}
print "</TABLE>";
################ <--------------------- END CUT HERE TO ADD
ANOTHER row of CATEGORYs
------------>#######################
print "</table><TABLE WIDTH=550 BORDER=0
bordercolor=$config{'colortableborder'} cellspacing=0
cellpadding=0><TR>";
print "<TD width=40 align=right><font color=\"#ff0000\"
size=\"-1\">$no_user </font></td><td width=130><font
size=\"-1\">Registered Users</font></td>";
print "<TD width=40 align=right><font color=\"#ff0000\"
size=\"-1\">$no_post </font></td><td width=100><font
size=\"-1\">Items Posted</font></td>";
print "<TD width=40 align=right><font color=\"#ff0000\"
size=\"-1\">$no_viewed </font></td><td width=80><font
size=\"-1\">Page Views</font></td>";
print "<TD width=40 align=right><font color=\"#ff0000\"
size=\"-1\">$no_bids1 </font></td><td width=80><font
size=\"-1\">Bids
Placed</font></td></tr></table></CENTER>\n";
print "<BR><table border=\"2\" bordercolor=\"#000000\"
bgcolor=\"#FF9933\" cellspacing=\"0\" cellpadding=\"0\"
width=\"100\%\"><tr><td> </td></tr></table>";
}
==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-webcgi-request@macperl.org