#!/usr/bin/perl -w use strict; use warnings; use CGI; use Captcha; $| = 1; my $cgi = new CGI; my $captcha = new Captcha(); my $DATADIR = '/usr/local/fci/securepost/data'; my $ARCHDIR = '/usr/local/fci/securepost/archive'; my $key = $1 if ($ENV{'QUERY_STRING'} =~ /^key=([a-f0-9]+)/); my $EXPIRE = 300; print <SecurePost EOF if ($ENV{REQUEST_METHOD} ne "POST") { print '
'; print $captcha->link(); print '
'; } else { if (!$captcha->ok($cgi->param("captcha"))) { print "Go back to math school! Please reload the page and try again
"; print "
"; print ""; exit -1; } if (!$key) { print <<_EOF_
Enter key here:

_EOF_ ; exit; } if (-f "$DATADIR/$key") { if (-f "$DATADIR/$key.lock") { open (LOCK, "<$DATADIR/$key.lock"); my $locked = ; chomp $locked; close (LOCK); if ($locked ne $ENV{REMOTE_ADDR}) { print "We're sorry, this data is locked to a different IP address. Please contact us for any questions.\n"; exit; } else { open (INFO, "<$DATADIR/$key"); print "This is a secure communications.
\n"; print "This message will self-destruct in ", ($EXPIRE-(time-(stat ("$DATADIR/$key.lock"))[10])), " seconds. This message is only viewable from your IP address ($ENV{REMOTE_ADDR}).
Please send any questions to hosting-support.
\n"; print "
\n";
                        while () {
                                print;
                        }
                        print "
\n"; close (INFO); exit; } } else { open (INFO, "<$DATADIR/$key"); print "This is a secure communications.
\n"; print "This message will self-destruct in ", ($EXPIRE/60), " minutes. The message is only viewable from your IP address.
Please send any questions to hosting-support.
\n"; print "
\n";
                while () {
                        print;
                }
                print "
\n"; close (INFO); open (LOCK, ">$DATADIR/$key.lock"); print LOCK $ENV{'REMOTE_ADDR'} . "\n"; close (LOCK); close (STDOUT); if (my $pid = fork) { exit; } elsif (defined $pid) { sleep ($EXPIRE); rename ("$DATADIR/$key", "$ARCHDIR/$key"); rename ("$DATADIR/$key.lock", "$ARCHDIR/$key.lock"); } else { print STDERR "Cannot fork: $!\n"; exit; } } } else { print "We're sorry, this data is no longer available. Please contact us for any questions.\n"; } } print "\n";