# Version Zero
sub post_process
{
        my ($path,$yymmdd) = @_;
        my %rename_table = 
        ("foo_data_a.results" => "bar_abc_foo_data_$yymmdd",
        ("foo_data_b.results" => "bar_bcd_foo_data_$yymmdd",
        ("foo_data_c.results" => "bar_cde_foo_data_$yymmdd",
        ("foo_data_d.results" => "bar_def_foo_data_$yymmdd",
        ("foo_data_e.results" => "bar_efg_foo_data_$yymmdd",

        # Don't do anything if any files are missing.
        for my $src_file (keys %rename_table)
        {
           if (!-f "$path/$src_file")
           {
               die "$src_file missing.  Go blame someone.\n";
           }
        }   

        for my $src_file (keys %rename_table)
        {
             # Rename the file
             my $to_base = "$path/$rename_table{$src_file}";
             rename "$path/$src_file","$to_base.results";
             `touch $to_base.FLG`;
        }
}

##</code><code>##

# Version One
sub post_process
{
        my ($path,$yymmdd) = @_;
        my %rename_table = 
        ("foo_data_a.results" => "bar_abc_foo_data_$yymmdd",
        ("foo_data_b.results" => "bar_bcd_foo_data_$yymmdd",
        ("foo_data_c.results" => "bar_cde_foo_data_$yymmdd",
        ("foo_data_d.results" => "bar_def_foo_data_$yymmdd",
        ("foo_data_e.results" => "bar_efg_foo_data_$yymmdd",

        # Don't do anything if any files are missing.
        for my $src_file (keys %rename_table)
        {
           if (!file_exists("$path/$src_file"))
           {
               die "$src_file missing.  Go yell at Jorge.\n";
           }
        }   

        for my $src_file (keys %rename_table)
        {
             # Rename the file
             my $to_base = "$path/$rename_table{$src_file}";
             rename_file("$path/$src_file","$to_base.results");
             touch_file("$to_base.FLG");
        }
}

sub file_exists
{
        my ($filename) = @_;
        #return (-f $filename);
        return 1;       
}
sub rename_file
{
        my ($src,$dst) = @_;
        # return rename $src,$dst
        return 1;
}
sub touch_file
{
        my ($filename) = @_;
        # return `touch $filename`;
        return 1;
}

##</code><code>##

my $TEST_MODE = 1;
sub file_exists
{
        my ($filename) = @_;
        if ($TEST_MODE)
        {
           return 1;
        }
        return (-f $filename);
}