Hi Monks,

I have been working on this for 2 days trying to capture data from a Win2k machine using Net::Telnet. However, I am only getting '1' or empty in the @df array (I printed the contents of the array @df to a text file). I googled many sites with different keywords and could not really find anything that resembles my problem.

Also, the input_log() gave me a bunch 'empty square boxes' separating each line, and they look like they are supposed to have carriage returns (I copied the input_log contents and pasted it in MS Word and saw the empty boxes).

I'm using VT100 emulation in my telnet client(Win XP). I have disabled NTLM authentication in the telnet server(Win2k Advanced Server). The script connects successfully and executes cmd successfully (I did a mkdir and the directory got created, checked dump_log and see the commands executed and also checked input_log). However, I'm not getting any outputs by using @df=$telnet->cmd... I'm trying to capture the output into an array to be used later.

Please help.

Thanks in advance!
auyong

Below is part of the code.

my $write_file=">";
my $initial_data = 'file.txt';
my $dumpfile='storage_dumpfile.txt';
my $inputfile='inputfile.txt';
my $storage_file=$write_file.$directory.'storage_final_file.txt'; 
open(STORAGE_FILEHANDLE, $storage_file)||die ("Cannot open file please
+ check if file exists");
        
$storage_telnet = Net::Telnet->new 
    (
        Timeout=>10,
        Prompt=>'/>/',
        Dump_Log=>$dumpfile,
        Input_log=>$inputfile
        ) or die("Cannot establish connection");
        $storage_telnet->login($_[2], $_[3])||die("Cannot login, pleas
+e check password\n", dump_log=>$dumpfile);

$storage_telnet->cmd ("cd\\Program Files\\Hi\\DManager\\HiCLI\\")|| di
+e (dump_log=>$dumpfile);

@df=$storage_telnet->cmd(String=>"dir", Prompt=>'/C:\\\\Program Files\
+\\\Hi\\\\DManager\\\\HiCLI*/i')||die(dump_log=>$dumpfile);
        
##mkdir works, the new directory whatthehell was created 
##this was just used to test whether I am in the correct
##directory
#@df=$storage_telnet->cmd(String=>"mkdir whatthehell", Prompt=>'/C:\\\
+\Program Files\\\\Hi\\\\DManager\\\\HiCLI*/i')||die(dump_log=>$dumpfi
+le);
        
#here $write_file = ">"

        open (INITIAL_RAW_DATA_FILEHANDLE, $write_file.$initial_data);
        foreach $element(@df)
        {
            print INITIAL_RAW_DATA_FILEHANDLE "$element\n";
        }
        close(INITIAL_RAW_DATA_FILEHANDLE);
[download]

Animator, thanks for your input and advise. The reason I had the $write_file is because I have additional logic to decide whether I want to write or append but I guess I could have incorporated the three-param version into my logic instead of having the scalar $write_file.

Latest UPDATE: I have tried waitfor yesterday but still unable to grab the data. I'm not sure if readline can be used with telnet, because it belongs to another package.

Additionally, I have found that the Windows telnet server that I am connecting to does not support streaming data, it is using 'console' mode only. Could this be why I am having problems reading the output? The 5.1 version of windows telnet server supports streaming but I have to install SFU (Support for Unix) on the Windows 2000 Advanced Server machine.

If I can't find a solution to this telnet problem, I will probably have to save the output to a file and ftp to get the file, which presents another dilemma; I have to install IIS with ftp feature on the Windows 2000 Advanced Server machine! So, I'm really hoping that one of you monks out there who knows the telnet module can at least pinpoint the cause of problem that I'm having.

auyong