#!C:\perl\bin\perl.exe $string = $ENV{QUERY_STRING}; $substring = substr($string, 0, 4); $pagename = ""; print "Content-type: text/html\n\n"; if($substring eq "PAGE") { $len = length($string); $len--; $pagename = substr($string, 5, $len); } else { $len = length($string); $len--; $imagename = substr($string, 6, $len); $pagename = $imagename; print ""; print "\n"; print "\n"; print "\t\n"; print " \n \n"; print "\n"; print ""; } open(COUNT, "D:\\inetpub\\mikedoyle\\data\\count.txt"); @data=; close(COUNT); $count = $data[0]; $time = localtime(); $name = $ENV{REMOTE_HOST}; $referrer = $ENV{HTTP_REFERER}; open(PAGELOG, ">>D:\\inetpub\\mikedoyle\\data\\pagelog.txt"); print PAGELOG "Page: $count#\tName: $pagename#\tIP: $name#\tTime: $time\n"; close(PAGELOG); $pos = index($referrer, "mikedoyle.ca"); $len = length($referrer); if($pos == -1 && $len > 3) { open(REFERRER, ">>D:\\inetpub\\mikedoyle\\data\\referrer.txt"); print REFERRER "Page: $count#\tTime: $time#\tIP: $name#\tName: $pagename#\tReferrer: $referrer\n"; close(REFERRER); }
[ << ] [ >> ]           [Top] [Contents] [Index] [ ? ]

13. Concept Index

Jump to:   C   E   G   I   L   P   R   S   T  

Index Entry Section

C
Competition Preparation8. Competition Preparation
cross training9. Cross Training and Other Issues

E
Endurance Training5. Endurance Training

G
Getting Started2. Getting Started

I
Introduction1. Introduction to Training for Competitions

L
Length of time2.1 Time

P
Power Endurance4. Power Endurance

R
Resting7. Resting

S
Strength and Power Training3. Strength and Power Training
Strengths and Weaknesses2.2 Strengths and Weaknesses

T
Technique Training6. Technique Training

Jump to:   C   E   G   I   L   P   R   S   T  


[ << ] [ >> ]           [Top] [Contents] [Index] [ ? ]

This document was generated on May, 16 2003 using texi2html