replacemore.cgi

 

---

#!/usr/bin/perl

@pairs = split(/&/, $ENV{'QUERY_STRING'});

foreach $pair (@pairs)
{
    ($key, $value) = split (/=/, $pair);
    $key =~ tr/+/ /;
    $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~s/<!--(.|\n)*-->//g;

    if ($formdata{$key})
    {
        $formdata{$key} .= ", $value";
    }
    else
    {
        $formdata{$key} = $value;
    }
}



@classes = ("Latin 305", "Advanced Greek Grammar", "Applied Linguistics", "Virgil and the Iliad");
@newclasses = split(/,/, $formdata{'newclass'});
@IDs = split(/,/, $formdata{'ID'});

print "Content-type: text/html\n\n";
print "<P><B>You replaced: </B>";

foreach $number (@IDs) {
	$number--;
	print "<LI>$classes[$number]";
}

print "<P><B>with:</B> ";
foreach $course (@newclasses) {
	if ($course ne " ") {
	print "<LI>$course";
	@newarray = (@newarray, $course);
}
}

@classes[@IDs] = @newarray;

print "<H2>Your complete list is now:</H2><UL>";

foreach $item (@classes) {
	print "<LI>$item";
}
print "</UL>";

---