package xmlCGI;
use CGI;

@ISA = ("CGI");

sub parse_params {

    my($self,$tosplit) = @_;
    #*** place all the input into a param named xml
    push (@{$self->{'xml'}}, $tosplit);

    #*** notice tosplit turned to empty 
    #*** defusing the rest of this code
    $tosplit = '';
    my(@pairs) = split(/[&;]/,$tosplit);
    my($param,$value);
    foreach (@pairs) {
        ($param,$value) = split('=',$_,2);
        $value = '' unless defined $value;
        $param = unescape($param);
        $value = unescape($value);
        $self->add_parameter($param);
        push (@{$self->{$param}},$value);
    }
}
1;