Masking Private Data

The server encountered an internal error and was unable to complete your request. Error message: Premature end of script headers: ##

##

#!/usr/bin/perl -w
use strict;
use DBI;
# use CGI::Carp qw(fatalsToBrowser);
# use lib qw{/public_html/lib};
# use Date::Manip;

my $preserve_date = '2006-10-30';
my %registrations;
# my $dbh = DBI->connect('dbi:mysql:dbname','userID','secret',{RaiseError=>1}) or die "no \$dbh: $DBI::errstr";
#

###  ALL THE MAIN() LOGIC HAS BEEN COMMENTED OUT!

print <

Masking Private Data


Masking Private Data
This script is masking private data in the test data set with a departure date before $preserve_date.  Records related to later events are being preserved.


EOF

1;

sub parse_date {
  my ($date_str) = @_;
  my $date = ParseDate($date_str);
  $date = substr($date,0,4) . '-' . substr($date,4,2) . '-' . substr($date,6,2);
  return $date;
}