#!/usr/bin/perl # # install counter. $header = "Planetmind Counter

"; $root_dir = $ENV{'SERVER_NAME'}; $root_dir =~ s/\.com|\.net|\.org//i; $root_dir =~ s/www.//i; $docroot = $root_dir; $root_dir = "/www/htdocs/".$root_dir; $uid = (stat($root_dir))[4]; $owner = (getpwuid($uid))[0]; $script_url = "http://".$ENV{'SERVER_NAME'}."/cgi-bin/cgiwrap/$owner/counter_install.cgi"; $authfile = "/usr/local/etc/Counter/conf/count.cfg"; $datadir = "/usr/local/etc/Counter/data"; # Get the form input read(STDIN, $input, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $input); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } if ($FORM{'submit'}) { $file = $FORM{'file'}; $absfile = $root_dir.$FORM{'file'}; $style = $FORM{'style'}; $color = $FORM{'color'}; $color =~ s/#//; $thickness = $FORM{'thickness'}; $fname = $file =~ m/\//g; $slash = (pos($fname))+1; $filename = substr($file,$slash); print "Content-type: text/html\n\n"; print $header; print qq!

Install Hit Counter on Web Page

Here's what your counter will look like:

Counter will be placed at the bottom of $file.

!; exit; } if ($FORM{'confirm'}) { $file = $FORM{'file'}; $absfile = $root_dir.$FORM{'file'}; $style = $FORM{'style'}; $color = $FORM{'color'}; $color =~ s/#//; $thickness = $FORM{'thickness'}; $url = "http://".$ENV{'SERVER_NAME'}.$file; $fname = $file =~ m/\//g; $slash = (pos($fname))+1; $filename = substr($file,$slash); $servername = $ENV{'SERVER_NAME'}; $servername =~ s/www.//; print "Content-type: text/html\n\n"; open(AUTH, "$authfile") || print "I can't open $authfile\n"; @lines = ; close(AUTH); $numlines = @lines; $numlines = $numlines-1; if ("@lines" !~ /$servername}/) { $lines[$numlines] = $servername."\n"; $numlines++; $lines[$numlines] = "www.".$servername."\n"; $numlines++; $lines[$numlines] = "}"; open(AUTH, ">$authfile") || print "I can't open $authfile\n"; foreach $line(@lines) { print AUTH $line; } close(AUTH); open(HTML, ">>$absfile") || print "I can't open $absfile\n"; print HTML "

"; close(HTML); } print $header; print qq!

Install Hit Counter on Web Page

Counter has been successfully installed on $url\!

[back to Admin Page] !; exit; } print "Content-type: text/html\n\n"; print $header; print qq!

Install Hit Counter on Web Page

Choose the file you'd like the counter to appear on:

Choose a style:

Choose a color for the border of the counter: Click

Enter a value for the thickness of the border (1=none, 8=thick):

!;