#!/usr/bin/perl

use strict;

use Cwd qw( abs_path );
my ($cwd, $above, $below, $tinc);
my $Common;
BEGIN {
    $cwd = abs_path ".";
    ($above, $below) = $cwd =~ m~^(.+)/pp2dev/src(/.+|)$~
			or die "Not in a pp2dev source tree\n";
    $Common="$above/pp2dev/src/testsuite/user";
    my $tinc = "$above/pp2dev/src/testsuite/user/tinc";
    unshift @INC, $tinc;
    unshift @INC, $Common;
}
use DataLoader::Configuration qw(
    &get_common_path
    &get_loader_log_file
    $LOADER_LOG_DIR
    $DATE_SEPARATOR
    );

use nightly::common;
use DataLoader::DataLoader;
use DataLoader::LogWriter;
use lib &DataLoader::Configuration::get_common_path();
use Common;

    $windows_trunk = `rsh lcla238 -l root tail /nightly_results/today/WINDOWS_poll_pkg.log`;
    my $date = Common::get_current_date_string($sep);  
    if($windows_trunk =~ /All done/){
     print "platform done is ===> Windows".$date."\n";
                                    my $result = `perl load_data_to_db.pl 2010_05_15 2010_05_15 WINDOWS`;
		     }