diff options
Diffstat (limited to 'protocols/ace/HTBP/HTID_Generator.cgi')
-rw-r--r-- | protocols/ace/HTBP/HTID_Generator.cgi | 78 |
1 files changed, 0 insertions, 78 deletions
diff --git a/protocols/ace/HTBP/HTID_Generator.cgi b/protocols/ace/HTBP/HTID_Generator.cgi deleted file mode 100644 index 0d57a552d6c..00000000000 --- a/protocols/ace/HTBP/HTID_Generator.cgi +++ /dev/null @@ -1,78 +0,0 @@ -#!/usr/bin/perl - -# This is a sample script that may be used to create domain specific -# unique ID's rather than using UUID. In a typical scenario, this HTID -# generator would reside in the same domain as the target server, so -# that it could be used by any clients of the server. While use of UUID -# as a unique identifier is perfectly fine, use of a remote generator -# gives additional benefits, such as the ability to collect metrics on -# identity requestors. - -print "Content-type:text/html\n\n"; - -$htid = $ENV{'REMOTE_ADDR'}; - -open(IN,"counts.txt") or dienice("Can't open counts.txt for writing: $!"); - -flock(IN,2); # lock the file -seek(IN,0,0); # rewind it to the beginning - -$oldtimestamp = <IN>; # read only the first line. -$save_time = $oldtimestamp; - -close(IN); - - -$timestamp = time; - -if ($oldtimestamp == $timestamp) - { - open (IN2, "sec_id.txt") or - dienice ("Can't open sec_id.txt for writing: $!"); - - flock (IN2, 2); - seek (IN2, 0, 0); - - $secondary_id = <IN2>; - - # increment the secondary id - ++$secondary_id; - - - close (IN2); - } -else { - - $secondary_id = 0; -} - - open(OUT2,">sec_id.txt") or - dienice("Can't open outdata.txt for writing: $!"); - - flock(OUT2,2); # lock the file - seek(OUT2,0,0); # rewind it to the beginning - - print OUT2 "$secondary_id"; - - close(OUT2); - - -#save the timestamp for next time -$oldtimestamp = $timestamp; - - -open(OUT,">counts.txt") or dienice("Can't open outdata.txt for writing: $!"); - -flock(OUT,2); # lock the file -seek(OUT,0,0); # rewind it to the beginning -print OUT "$oldtimestamp\n"; -close(OUT); - - -$result_string = join (".$timestamp", $htid, ".$secondary_id"); - -print <<EndOfHTML; - -$result_string - -EndOfHTML |