Changeset 319 for branches/stable/cgi-bin
- Timestamp:
- 04/03/06 16:31:11 (19 years ago)
- Location:
- branches/stable/cgi-bin
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/cgi-bin/IPDB.pm
r304 r319 7 7 # Last update by $Author$ 8 8 ### 9 # Copyright (C) 2004 ,2005- Kris Deugau9 # Copyright (C) 2004-2006 - Kris Deugau 10 10 11 11 package IPDB; -
branches/stable/cgi-bin/MyIPDB.pm
r291 r319 8 8 # Last update by $Author$ 9 9 ### 10 # Copyright (C) 2004 ,2005- Kris Deugau10 # Copyright (C) 2004-2006 - Kris Deugau 11 11 12 12 use IPDB 2.0 qw(:ALL); -
branches/stable/cgi-bin/admin.cgi
r294 r319 10 10 # Last update by $Author$ 11 11 ### 12 # Copyright (C) 2004 ,2005- Kris Deugau12 # Copyright (C) 2004-2006 - Kris Deugau 13 13 14 14 use strict; … … 93 93 <hr><a href="admin.cgi?action=showusers">Manage users</a> (add/remove users; change 94 94 internal access controls - note that this does NOT include IP-based limits) 95 <hr>Consistency check tools<br> 96 <a href="consistency-check.pl">General</a>: Check general netblock consistency.<br> 97 <a href="freespace.pl">Free space</a>: List total and aggregate free space. Does not 98 include private networks (192.168.0.0/16, 172.16.0.0/12, 10.0.0.0/8) 95 99 ); 96 100 } else { … … 311 315 print "Notes:<br>\n". 312 316 "<li>Admin users automatically get all other priviledges.\n". 317 "<li>Everyone has basic read access.\n". 313 318 "<hr>Add new user:<form action=admin.cgi method=POST>\n". 314 319 "Username: <input name=username><br>\n". -
branches/stable/cgi-bin/checkcusts.pl
r318 r319 7 7 # Last update by $Author$ 8 8 ### 9 # Copyright (C) 2004 ,2005 Kris Deugau <kdeugau@vianet.ca>9 # Copyright (C) 2004-2006 Kris Deugau 10 10 11 11 use DBI; -
branches/stable/cgi-bin/freespace.pl
r317 r319 8 8 # Last update by $Author$ 9 9 ### 10 # Copyright (C) 2004 ,2005- Kris Deugau10 # Copyright (C) 2004-2006 - Kris Deugau 11 11 12 12 use DBI; … … 38 38 } 39 39 40 print "Free block counts:\n"; 40 41 foreach $size (sort {$a cmp $b} keys %numfree) { 41 42 print "/$size: $numfree{$size}\n"; … … 49 50 } 50 51 52 print "Aggregate free space:\n"; 51 53 foreach $size (sort {$a cmp $b} keys %numfree) { 52 54 print "/$size: $numfree{$size}\n"; -
branches/stable/cgi-bin/search.cgi
r318 r319 9 9 # Last update by $Author$ 10 10 ### 11 # Copyright 2005 Kris Deugau <kdeugau@deepnet.cx>11 # Copyright 2005,2006 Kris Deugau 12 12 13 13 use strict;
Note:
See TracChangeset
for help on using the changeset viewer.