William C. Fordham
24704 2200 E. St.
Ohio, IL
61349
815-376-6101
wilmar@theramp.net
Latest Producer Tools
Hope
and Inspiration
Qualifications
Mission Statement
Tool Description
Market
Map For Traders
Subscriber Testimonials
Archives
Contact Us
Resource Links
Products and
Services
Affiliate
Links
Home
" Stewardship In Marketing: Fighting fear and greed by using knowledge of the past, an awareness of the present, and planning for the future."
Affiliate Links
Listed below are affiliate
links
that you may find profitable.
____________________
Quantum Futures, Inc. proudly announces the launch of the Omniscience Futures and Commodities Online Signals Subscription Service.
Omniscience Signal Subscription service
______________________________
|
|
#!/usr/bin/perl
##############################################################################
# Cliff's Counter Version 1.01 #
# Copyright 1998 Shaven Ferret Productions #
# Created 6/12/98 Last modified 6/18/98 #
# Available at http://www.shavenferret.com/scripts #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1998 Shaven Ferret Productions All Rights Reserved. #
# #
# This script can be used\modified free of charge as long as you don't #
# change this header thing. By using this script you agree to indemnify #
# me from any liability that might arise from its use. In simple English, #
# if this script somehow makes your computer run amuck and kill the pope, #
# it's not my fault. #
# #
# Redistributing\selling the code for this program without prior written #
# consent is expressly forbidden. #
##############################################################################
# Enter the path of the log file. This is where you can find the stats
# for all your pages. This is also where all the data is kept.
$logpath = "/home/wilmar/public-html/count.html";
# If you don't want the number of visits to pop up whenever the counter is
# called, delete the next line.
$visible = 1;
# Enter the minimum number of digits for the counter. If the actual number
# is smaller than this, it will add zeros to the front.
$pad = 5;
##############################################################################
# Congratulations! You've finished defining the variables. If you want to, #
# you can continue screwing with the script, but it isn't necessary. #
##############################################################################
open (LOG, "$logpath");
@data = $ENV{'DOCUMENT_URI'}: ";
$count = 0;
$pad = "%.$pad"."d";
open (LOG, ">$logpath");
foreach $line(@data) {
if ($line =~ /$url/) {
$line =~ /(.*)<\/td>/;
$count = $1;
$count++;
$count = sprintf($pad, $count);
print LOG "$url $count