#!/usr/bin/perl

require "cgi-lib.pl";

&ReadParse(*values);

$unihex = $values{'unichar'};
$strokes = $values{'strokes'};

print "Content-type: text/plain\n\n";

#print "$unihex\n$strokes\n";

if ($unihex eq "" or $strokes eq "") {
    print "Please include both fields\n";
    exit;
}
if ($unihex !~ m/[a-fA-F0-9]{4}/) { 
    print "Character should be in unicode hex format\n";
    exit; 
}

open(NEW, ">> newstrokedata.txt") or die $!;
print NEW "$unihex\t$strokes\n";
close(NEW);
exit;