
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?
|