Gwidion
Deleted
Mar 31, 2001, 9:54 PM
Post #1 of 2
(232 views)
|
|
not running sub.
|
Can't Post
|
|
ok trying to write an admin interface for a pasword script i wrote. i haven't finished it but already i have a problem, it doen't seam to want t orun the sub.
#!/usr/bin/perl
$count = 0;
open (LIST, "list.info");
@user = <LIST>;
close(LIST);
print "Content-type: text/html\n\n";
print qq|<html>
<head>
<title>Admin</title>
</head>
<STYLE>
</STYLE>
</HEAD>
<BODY BGCOLOR=000000 TEXT=9966CC LINK=9966CC VLINK=9966CC>
<center>
<table width=500 border=1>
<tr>
<td width=*>User Name</td><td width=70>User Info</a></td><td width=70>Admin</td><td width=70>Member</td>
<td width=70>Public</td><td width=70>Status</td></tr>
</table>
<table width=500 border=1>
<tr>
|;
&list;
print qq| </table>
</body>
</html>
|;
sub list
{
until ($user[$count]==0) {
print "Content-type: text/html\n\n";
print qq|
<td width=50>$user[$count]</td><td width=70><a href=user.pl?user=$user[$count]>info</a></td><td width=70>
<input type=radio value=3 name=3></td><td width=70><input type=radio value=2 name=2>
</td><td width=70><input type=radio value=1 name=1></td><td width=70>admin</td>
</tr>
|;
}
$count = "$count+1";
}
I don't get why it won't print the infomation from the sub, does any one have any ideas why?
|
MAIN
SEARCH
WHO'S 
LOG 