# This code is provided "as is" with NO WARRANTY expressed or 
# implied. You may use it freely at your own risk.

#!/usr/bin/perl

use CGI;
$query = new CGI;
print $query->header;

$docpath = '/home/httpd/html/';

$html_path = "$docpath/my_form.html";
$html_file = `cat $html_path`;

@texttypes = getTexts($html_file);
foreach (@texttypes) {
	$val = $query->param($_);
	$val =~ s/"/"/g;
	$html_file =~ s/(<input\s+[^>]*)(name="?$_"?)([^>]*>)/$1 $2 value="$val" $3/is;
}

@selects = getSelects($html_file);
foreach (@selects) {
	$name = selectName($_);
	$new_select = $_;
	$val = $query->param($name);
	if (/value="$val"/i) { 
		$new_select =~ s/(<option\s+value="?$val"?)>/$1 SELECTED>/si;
	}
	else {
		$new_select =~ s/(<option)(>\s*$val)/$1 SELECTED$2/si;
	}
	$html_file =~ s/$_/$new_select/si;
}

@radios = getRadios($html_file);
foreach(@radios) {
	$val = $query->param($_);
	$html_file =~ s/(value="?$val[^>]*)>/$1 CHECKED>/si;
}

@cbs = getCheckBoxes($html_file);
foreach(@cbs) {
	$val = $query->param($_);
	if (length($val) > 0) {
		$html_file =~ s/(name="?$_[^>]*)>/$1 CHECKED>/si;
	}
}

@tas = getTextAreas($html_file);
foreach (@tas) {
	$val = $query->param($_);
	$html_file =~ s/(<textarea[^>]*name="?$_[^>]*>)([\w\-\s]*)(<\/textarea>)/$1$2$val$3/is;
}

print $html_file;

sub getTexts {
	my($html) = @_;
	my @t = ();
	my @texts = split(/<input /i, $html);
	for (1 .. @texts - 1) {
		if ($texts[$_] =~ /type="?text/i && $texts[$_] =~ /name="?([\-\w]*)"?/i) {
			push(@t, $1);
		}
	}
	return @t;
}

sub selectName {
	my ($select) = @_;
	if ($select =~ /name="?(\w*)"?/si) {
		return $1;
	}
	else { return ""; }
}

sub getSelects {
	my($html) = @_;
	my @s = ();
	my @selects = split(/<select/i, $html);
	for (1..@selects - 1) {
		$selects[$_] =~ s/( name="?[^\/]*\/select>).*/$1/si;
		push(@s, "<select" . $selects[$_]);
	}
	return @s;
}

sub getRadios {
	my($html) = @_;
	my @r = ();
	my @radios = split(/type="?radio/i, $html);
	for (1..@radios - 1) {
		if ($radios[$_] =~ /name="?([\-\w]*)"?\s+/i && !grep(/$1/, @r)) {
			push(@r, $1);
		}
	}
	return @r;
}

sub getCheckBoxes {
	my($html) = @_;
	my @c = ();
	my @boxes = split(/type="?checkbox/i, $html);
	for (1..@boxes - 1) {
		if ($boxes[$_] =~ /name="?([\-\w]*)"?/i) {
			push(@c, $1);
		}
	}
	return @c;
}
	
sub getTextAreas {
	my($html) = @_;
	my @t = ();
	my @areas = split(/<textarea/i, $html);
	for (1..@areas - 1) {
		if ($areas[$_] =~ /name="?([\-\w]*)"?\s+/i) {
			push(@t, $1);
		}
	}
	return @t;
}