Got Patent?
Need Patent Help?
Are you an inventor and asking:
How do I register?
How do I patent my invention?
How do I engineer my way around the US Patent Office?
How can I avoid paying patent attorney prices and still get professional assistance?
You have questions we have solutions.
Join the inventor class, contact PatentAlchemy@Yahoo.com
for some good solid answers
Company Mission
Patent Alchemy's mission is to prepare and or prosecute patent applications in the fields including :
| Electrical | Software | Business Models | Internet | Optical | Device Components | Mechanical | Physics |
Services Provided
-
Technical Feasibility and Associated Factors
-
Patentability and PTO requirements 
-
Patent Applications and Provisional Patents
-
Prior Art Searches and Patent Prosecution
-
Appeals, Consulting and Brainstorming
US PTO Reg. No 52923 No charge for initial consultation and cost quotation at realistic rate of $90/hour
We are located in and service the Santa Cruz, Central Coast and Silicon Valley areas.
Please contact us at PatentAlchemy@Yahoo.com
or 831-685-2446, cell: 831-251-0202
#!/usr/bin/perl
##############################################################################
# Hit Counter Version 1.0.0 #
# Created 10/16/02 Last Modified 10/16/02 #
##############################################################################
# hitcounter.cgi
#
# parameters: returns:
# none none
#
# History:
# Provides a Hit Counter in conjuction with WSCO.
#
# Date: Initials: Defect#: Comments:
# 2002-10-16 SMS N/A creator
# 2002-11-12 GJK Modified to use images from WSC counter
# and to get style from query string.
##############################################################################
#############################################################
### Counter Data File Location:##############################
$imageStyle = "s1";
$serverPath = "http://plugins.websitecomplete.com/wsc_images";
$docroot = $ENV{'DOCUMENT_ROOT'};
if ($docroot eq '') { $docroot = ".." };
$countfile = "$docroot/plugin_data/hitcount.txt";
$digits = 8;
if($ENV{"REQUEST_METHOD"} =~ /^get/i) {
$DATA = $ENV{"QUERY_STRING"};
@Fields = split(/&/, $DATA);
foreach $_ (@Fields) {
($name, $val) = split(/=/, $_);
$val =~ tr/+/ /;
$val =~ s/\%([0-9a-f]{2})/chr(hex($1))/egi;
$Form{$name} = $val;
}
$DATA = $ENV{"HTTP_COOKIE"};
@Fields = split(/; /, $DATA);
foreach $_ (@Fields) {
($name, $val) = split(/=/, $_);
$Cookie{$name} = $val;
}
}
$imageStyle = $Form{"ImageStyle"};
$initial_value = int($Form{"Init"});
$BgColor = "#$Form{'BgColor'}";
if ($Form{'mode'} eq '2') {
&PrintCookie;
}
else {
print "Content-type: text/html\n\n";
if ($Cookie{$Form{'ID'}} ne "true") {
&AddCount;
}
&PrintCount;
}
#while (($k, $_) = each %ENV)
#{
# s/(['\\])/\\$1/g;
# print "\$ENV{'$k'} = '$_';
\n";
#}
sub PrintCookie {
print "Content-type:image/gif\n";
$exprtn = "";
$value = "$Form{'ID'}=true;";
print "Set-Cookie: $value path=/; $exprtn\n\n";
$giffile = "$docroot/images/spacer.gif";
undef $/;
open(F,"< $giffile") or die $!;
print ;
close(F);
}
sub PrintCount {
$ThisPage = $Form{'ID'};
open(FILE, "$countfile");
@Data = ;
close(FILE);
# Print the image to use to generate a cookie
print "";
print "![](\"cgi/HitCounter.cgi?mode=2&ID=$Form{'ID'}\")
";
foreach $Match (@Data)
{
chop($Match);
($count, $url) = split(/::/, $Match);
if ($url eq $ThisPage) {
$hits = $count;
last;
}
}
@nums = split(//, $hits);
$cnt = $digits - int(@nums);
$printcount = "";
while ($cnt > 0) {
$printcount="$printcount
";
$cnt--;
}
$end1 = "";
$end2 = "";
if ($imageStyle ne 's1') {
$end1 = "
";
$end2 = "
";
}
foreach $CountNr (@nums) {
$printcount = "$printcount
";
}
print "$end1$printcount$end2";
print "
";
}
sub AddCount {
$ThisPage = $Form{'ID'};
open(COUNTS, "+<$countfile") or open(COUNTS, "+>$countfile") or print("Cannot open counts file: $!");
while () {
chop;
($count, $file, $initialcount) = split(/::/, $_);
$counts{$file} = $count;
$initial{$file} = $initialcount;
}
$counts{$ThisPage}++;
if ($initial{$ThisPage} ne $initial_value) {
$counts{$ThisPage} = $initial_value;
$initial{$ThisPage} = $initial_value;
}
seek(COUNTS, 0, 0);
foreach $file (keys %counts) {
print COUNTS $counts{$file}, "::", $file, "::", $initial{$file}, "\n";
}
close(COUNTS);
}
