#!/bin/perl require "config"; use lib '../..'; use CGI; $query = new CGI; if (!($new = $query->param('new'))) { &print_form; } else { &update_config; } sub print_form { open(CONFIG,"config") || die; while() { if (/^\$listlength/o) { chop; chop; ($junk,$listlength) = split(/ = /,$_,2); } elsif (/^\$new_days/o) { chop; chop; ($junk,$new_days) = split(/ = /,$_,2); last; } elsif (/^\$moderated/o) { chop; chop; ($junk,$moderated) = split(/ = /,$_,2); last; } } for $i (5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 200) { if ($i == $listlength) { $selectlength = join("\n",$selectlength,"