insert the patch at line 1004 $Today=datestr(time); '$Revision: 2.5.2 $ ' =~ /Revision: (\S*)/; $rev=$1; '$Date: 1998/02/20 07:05:52 $ ' =~ /Date: (\S*)/; $date=$1; ########################################################################### ### Patch to write out current output ### J.R. Greer jrg@albedo.net open (COL,">$$cfg{'workdir'}${main::SL}$$rcfg{'directory'}{$router}$router.cur") || warn ("\nCan not write $router.cur"); print COL "$$cuin{'d'}{$router}:$$cuout{'d'}{$router}\n"; close (COL); ############################################################################ open (HTML,">$$cfg{'workdir'}${main::SL}$$rcfg{'directory'}{$router}$router.html") || warn ("\nCan not write $router.html"); print HTML "\n"; my $interval =$$cfg{'interval'} ? $$cfg{'interval'} : 5; my $expiration = &expistr($interval); my $refresh = $$cfg{'refresh'} ? $$cfg{'refresh'} : 300; my $namestring = "the device"; print HTML <<"TEXT";