#!/usr/bin/perl $buffer=; print "Content-type: text/html\n\n "; @paarid=split(/&/, $buffer); $arv= ($#paarid+1)/2; open(VALJA, ">salad2.txt"); for($i=0; $i<$arv; $i++){ ($eel, $siht)=split(/=/, @paarid[2*$i]); ($liht, $uus)=split(/=/, @paarid[2*$i+1]); print VALJA $eel, "=", $uus,"=", $siht,"\n"; } close(VALJA); open(SISSE, "salad2.txt"); @read=; close(SISSE); print "Keywords changed\n"; print "

New keywords:

"; foreach $rida(@read){ ($eel, $sisu, $siht)=split(/=/, $rida); if(substr($eel, 0, 1) eq "x"){print $sisu, "
\n";} } print "

Back\n"; print "";