InputLine1
InputLine2
##</code><code>##

InputLine1,RUN OK (1),Mon Jul 27 16:55:35 2009,Mon Jul 27 16:56:17 2009
InputLine2,RUN OK (1),Mon Jul 27 16:56:18 2009,Mon Jul 27 16:57:45 2009

##</code><code>##

InputLine1InputLine2,RUN OK (1),Mon Jul 27 16:55:35 2009,Mon Jul 27 16:56:17 2009
,RUN OK (1),Mon Jul 27 16:56:18 2009,Mon Jul 27 16:57:45 2009

##</code><code>##

Job Status      : RUN OK (1)
Job Controller  : not available
Job Start Time  : Mon Jul 27 16:56:18 2009
Job Wave Number : 2
User Status     : not available
Job Control     : 0
Interim Status  : NOT RUNNING (99)
Invocation ID   : not available
Last Run Time   : Mon Jul 27 16:57:45 2009
Job Process ID  : 0
Invocation List : InputLine2
Job Restartable : 0

##</code><code>##

@rem = '--*-Perl-*--
@echo off
perl "%~dpnx0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
#!perl
#line 8
use strict;
use warnings;
use Net::Telnet ();
use Term::ReadKey;

print STDERR "Server: ";
my $server = <STDIN>;
chomp $server;

print STDERR "Project: ";
my $project = <STDIN>;
chomp $project;

print STDERR "Username: ";
my $user = <STDIN>;
chomp $user;

print STDERR "Password: ";
ReadMode 2;
my $pass = <STDIN>;
ReadMode 0;

print STDERR "\nConnecting to $server\n";
my $t = new Net::Telnet ( Timeout    => 3600,
                          Input_log  => "c:\\ftp\\telnet.log",
                          Dump_Log   => "C:\\ftp\\dumplog.txt",
                          Output_Log => "C:\\ftp\\outputlog.txt");
$t->open( $server );
print STDERR "Opened connection to $server\n";
$t->login($user, $pass);
print STDERR "Logged in to $server\n";

my @lines;

@lines = $t->cmd("cd `cat /.dshome`\n");
print STDERR @lines;
@lines = $t->cmd(". ./dsenv\n");
print STDERR @lines;

print "JOB,STATUS,START,END\n";
while (<>) {
  @lines = $t->cmd("bin/dsjob -jobinfo $project $_");
	chomp;
	print $_;
	for (@lines) {
		print ",$1" if /Job Status      : (.+)/
		            or /Job Start Time  : (.+)/
		            or /Last Run Time   : (.+)/;
		print "\n" if /Job Restartable/;
	}
}

__END__
:endofperl