Welcome
to
Boatright Hardwood Floors
Serving Central and South Texas for over 50 years
Email: |
|
|||
|
|
||||
|
|
We accept:
|
Coming from
38.103.63.16,
you are visitor
#!/usr/bin/perl
##############################################################################
# TextCounter Version 1.2.1 #
# Copyright 1996-98 Matt Wright mattw@scriptarchive.com #
# Created 3/14/96 Last Modified 6/24/98 #
# Scripts Archive at: http://www.scriptarchive.com/ #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1996-98 Matthew M. Wright All Rights Reserved. #
# #
# TextCounter may be used and modified free of charge by anyone so long as #
# this copyright notice and the comments above remain intact. By using this #
# code you agree to indemnify Matthew M. Wright from any liability that #
# might arise from its use. #
# #
# Selling the code for this program without prior written consent is #
# expressly forbidden. In other words, please ask first before you try and #
# make money off of my program. #
# #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium. In all cases copyright and header must remain intact.#
##############################################################################
# Define Variables
# Data Dir is the directory on your server that you wish to store the
# count files in. Each page that has the counter on it will have it's own
# file.
# $data_dir = "/path/to/textcounter/data/";
$data_dir = "/home/boatrightfloors.com/public_html/cgi-bin/counter";
# Valid-URI allows you to set up the counter to only work under specific
# directories on your server. Include any of these directories as they
# appear in a URI, into this array. More information on URI's available in
# README.
@valid_uri = ('/');
# Invalid-URI allows the owner of this script to set up the counter so
# that certain portions of the web server that may be included in Valid-URI
# cannot use the program. Leave this commented out if you wish not to
# block out certain parts.
#@invalid_uri = ('.shtml/','.html/');
##############################################################################
# Set Options
# Show Link allows you to add a link around the counter to point to
# either instructions explaining to users how to set this up on the system
# (useful if a system administrator wants to allow anyone to set things up
# themselves). Setting it to 0 will make no link, otherwise put the URL
# you want linked to the count here.
# $show_link = "http://www.scriptarchive.com/";
$show_link = "0";
# When Auto-Create is enabled, users will be able to auto-create the
# count on their home pages by simply imbedding the Server Side Includes
# call. Setting auto_create to 1 enables it, 0 will disable it. Only
# users in @valid_uri will be allowed to auto create.
$auto_create = "1";
# Show Date will show the date of when the count began if you set this
# option to 1. It will appear in yor document as [Count] hits since [Date].
# Set this to 0 and it will simply return the [Count].
# $show_date = "1";
$show_date = "0";
# Lock Seconds will define the number of seconds the script should sit
# and wait for the lock file to be gone before it will overwrite it if it
# is still there. Every now and then a user will interrupt a page, causing
# the script to halt and leave a lock file in place before the lock file
# could be removed. This defines how long it waits.
$lock_sec = "3";
# Padding Size define how many numbers will be shown as your count. For
# instance, if you want your count to say 00065 and have the zeros padded
# up to five digits, then set $pad_size = "5"; If the number goes higher
# than the pad_size, don't worry, there just won't be any zero's tacked
# onto the front.
$pad_size = "1";
##############################################################################
# Print Content Type Header For Browser
print "Content-type: text/html\n\n";
# Get the page location from the DOCUMENT_URI environment variable.
#$count_page = "$ENV{'DOCUMENT_URI'}";
$count_page = "$ENV{'SCRIPT_NAME'}";
# Check Valid-URI to make sure user can use this program.
# &check_uri;
# Chop off any trailing /'s
if ($count_page =~ /\/$/) {
chop($count_page);
}
# Any characters that are not letters or numbers are turned into an underscore
$count_page =~ s/[^\w]/_/g;
$lock_file = "$count_page\.lock";
# Check to see if file is locked by program already in use.
&check_lock($lock_sec);
# If the file exists, get the date and count out of it. Otherwise, if
# auto_create is allowed, create a new account. If neither of these are
# true, return an error.
if (-e "$data_dir$count_page") {
open(COUNT,"$data_dir$count_page");
$line = ©2002, Boatright Hardwood Floors. All Rights Reserved. Boatright Hardwood Floors 4107 Marathon Boulevard Austin, TX 78756-3719 Toll Free 1.800.776.3640 |
||
