#!/usr/local/bin/perl

# ovid account application thinger
# justin mccarthy, 2/99
#

use CGI_Lite;

while (<STDIN>) {
    @values=split /\&/;
    foreach $value (@values) {
        @fields=split /\=/,$value;
        $fields[1]=url_decode($fields[1]);
        $fields[1]=~s/\'/\\\'/gi;
        $fields[1]=~tr/\+/\ /;
        $vars{$fields[0]}=$fields[1];
    }
}