#!/usr/bin/perl require '/var/ipcop/header.pl'; my (%popsettings); &showhttpheaders(); $popsettings{'ACTION'} = ''; &getcgihash(\%popsettings); if ($popsettings{'ACTION'} eq 'anhalten') { system('/usr/local/bin/popstop'); } if ($popsettings{'ACTION'} eq 'starten') { system('/usr/local/bin/popstart'); } &openpage('Spamfilter', 1, ''); &showservicessection(); &openbigbox('100%', 'LEFT'); print "
\n"; &closebigbox(); &closepage();