#!/usr/bin/perl
require 'ConvertDates.pl';

use DBI;
use Date::Manip ;
use CGI;

Main( @ARGV );
exit( 0 );

sub Main {
    my $cgi = CGI->new;

    my $start_date = $parms->param("sd");
    my $end_date = $parms->param("ed");
    my $separator= $parms->param("sep");
    my $HOME="/export/home/pmdss";
    my $CONFIG="${HOME}/config";

    my $ds_mach =  CatConfig( "${CONFIG}/BigIron" );
    my $dr_mach =  CatConfig( "${CONFIG}/BigIronDR" );

    my $id = PingerIdOrDeath( $ds_mach , $dr_mach );

    my $slotsPortsNodes =  sshMeSomeSlotsPortsNodes( $id, $start_date, $end_date );
    my( $toNetwork, $domain ) =  sshMeSomeObjectIdsDomainNames( $id, $end_date );

    if ($rows > 0) {
        print CsvSlotsHeader( $slotsPortsNodes );
        print CsvSlotsData( $slotsPortsNodes );
    } else {
        print NoData();
    }
}
__END__