#!/usr/bin/perl -w
#
# Copyright (c) 2002-2003 Erik Oliver
#
# $Id: polish.cgi,v 1.8 2003/08/12 00:25:43 erik Exp $
#
# Permission is hereby granted, free of charge, to any person
# obtaining a copy of this software and associated documentation
# files (the "Software"), to deal in the Software without
# restriction, including without limitation the rights to use, copy,
# modify, merge, publish, distribute, sublicense, and/or sell copies
# of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be
# included in all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
# HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
# DEALINGS IN THE SOFTWARE.
use vars qw/$q/;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$q = new CGI;
print $q->header();
print q|
Reference Numeral Checking
|;
if ($q->param('polish') && $q->param('polish') ne "") {
&doPolish();
} else {
&printForm();
}
print q|
This program is made available in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
$Id: polish.cgi,v 1.8 2003/08/12 00:25:43 erik Exp $
|;
# # # end of main flow
sub mysort {
my $numa;
my $resta;
my $numb;
my $restb;
$a =~ m/^(\d+)(.*)$/;
$numa = $1;
$resta = $2;
$b =~ m/^(\d+)(.*)$/;
$numb = $1;
$restb = $2;
if($resta && $restb) {
$numa <=> $numb || $resta cmp $restb;
} else {
$numa <=> $numb;
}
}
sub printForm()
{
print $q->start_form(),"\n";
print "
Web Based Patent Polishing Tools