RE: Help for Net::Telnet

2001-11-29 Thread Brown, Aaron D 

:: Still getting buffer overflow.  What is this newbie doing
wrong??

1) Your emails come with a dirt-brown color, instead of plain text.  There
are quite a few otherwise very generous and helpful people on this list who
just plain refuse to answer letters that come with HTML formatting.  For
better or worse, that's how it is.

2) You use WAY too many question marks.  The Recommended Sentence Allowance
is one.

3) I've never used Net::Telnet before, but I can make some guesses from all
this conversation you've been having...

You assign a great big value to $len, then you turn around and do this:
$len = $t->max_buffer_length;

When you do that, you're trying to assign a new value to $len.  You need to
do it the other way around, assigning a new value to the max buffer length.
I can only assume such a thing is possible, and that that's what others were
suggesting all along.  I have no idea of the proper syntax, but it's
probably something like:
$t->max_buffer_length = $len;

Though "->max_buffer_length" may be a method, rather than an object in which
case you'd use it like calling a function:
$t->max_buffer_length(send_stuff_in_here);

You'd have to read the docs to see what the proper usage is, I can only tell
from here that what you were doing isn't right.

 - Aaron

--
Aaron Brown  -  [EMAIL PROTECTED]
Middleware Programmer
University of Kansas
785-864-0423
http://www.ku.edu/~aaronb/
 
 
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: Help for Net::Telnet

2001-11-29 Thread Chad Tower 



You 
can't just call the sub.. you have to give it a value or you haven't changed 
anything.  Did you read the explanation in the docset?  Try this line 
instead:
 
$temp 
= $t->max_buffer_length(4194304);   #$temp is a throwaway local var 
for storing the results of this operation.
 

 
 

  -Original Message-From: Bryan Bateman 
  [mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29, 
  2001 2:56 PMTo: Chad TowerCc: 
  [EMAIL PROTECTED]Subject: Re: Help for 
  Net::Telnet
  Still getting buffer overflow.  What is this 
  newbie doing wrong??
   
   
   
  my $len = 3001000;
  .
  .
  .
  .
  $t = new Net::Telnet (Timeout => 200, Prompt 
  => '/root\@hsvaps1/'); $len = 
  $t->max_buffer_length; $t->open("hsvaps1"); $t->login($username, 
  $passwd); # roll copy of log file on mail server
   
   if (-e "$log") { rename 
  $log, $logBackup; }
   
  # Get Pipe Logs from Phone Server
   
  # @lines = $t->cmd("cat 
  /usr/unifi/log/pipe_log/*"); @lines = $t->cmd("cat 
  /usr/unifi/oldlogs/log.0/pipe_log/*");    
  open(LOGS, ">$log"); print LOGS 
  "@lines"; close(LOGS);
   
  .
  .
  .
  .
  .
  .
  .
  
- Original Message - 
From: 
Chad Tower 
To: 'Bryan Bateman' 
    Cc: [EMAIL PROTECTED] 

Sent: Thursday, November 29, 2001 1:40 
PM
Subject: RE: Help for Net::Telnet

Put it right after you open the telnet 
object...
 


  -Original Message-From: Bryan Bateman 
  [mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29, 
  2001 1:40 PMTo: Chad TowerCc: [EMAIL PROTECTED]Subject: 
  Re: Help for Net::Telnet
  When and where do I apply it in the 
  code???  No code example.
   
   
  
- Original Message - 
From: 
Chad Tower 
To: 'Bryan Bateman' 
    Cc: '[EMAIL PROTECTED]' 

Sent: Thursday, November 29, 2001 
1:22 PM
Subject: RE: Help for 
Net::Telnet

The solution is right in the docs... look up 
max_buffer_length().  That will solve your 
problem.
 


  -Original Message-From: Bryan Bateman 
  [mailto:[EMAIL PROTECTED]]Sent: Thursday, November 
  29, 2001 1:19 PMTo: Bryan Bateman; [EMAIL PROTECTED]Subject: 
  Re: Help for Net::Telnet
  
  I will post here then.
   
  @lines = $t->cmd("cat 
  /usr/unifi/log/pipe_log/*");
   
  This statement creates a buffer overrun 
  when cat'ed files are over 1 meg in size.
   
  Any ideas???
   
  
- Original Message - 
From: 
    Bryan Bateman 
        To: [EMAIL PROTECTED] 

Sent: Thursday, November 29, 
2001 11:46 AM
Subject: Help for 
Net::Telnet

Having some problems specific to 
Net::Telnet.  Anyone know of a listserv that is appropriate for 
help???

Re: Help for Net::Telnet

2001-11-29 Thread Bryan Bateman 



Still getting buffer overflow.  What is this 
newbie doing wrong??
 
 
 
my $len = 3001000;
.
.
.
.
$t = new Net::Telnet (Timeout => 200, Prompt 
=> '/root\@hsvaps1/'); $len = 
$t->max_buffer_length; $t->open("hsvaps1"); $t->login($username, 
$passwd); # roll copy of log file on mail server
 
 if (-e "$log") { rename 
$log, $logBackup; }
 
# Get Pipe Logs from Phone Server
 
# @lines = $t->cmd("cat 
/usr/unifi/log/pipe_log/*"); @lines = $t->cmd("cat 
/usr/unifi/oldlogs/log.0/pipe_log/*");    
open(LOGS, ">$log"); print LOGS 
"@lines"; close(LOGS);
 
.
.
.
.
.
.
.

  - Original Message - 
  From: 
  Chad Tower 
  To: 'Bryan Bateman' 
  Cc: [EMAIL PROTECTED] 
  
  Sent: Thursday, November 29, 2001 1:40 
  PM
  Subject: RE: Help for Net::Telnet
  
  Put 
  it right after you open the telnet object...
   
  
  
-Original Message-From: Bryan Bateman 
[mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29, 
2001 1:40 PMTo: Chad TowerCc: [EMAIL PROTECTED]Subject: 
Re: Help for Net::Telnet
When and where do I apply it in the 
code???  No code example.
 
 

  - Original Message - 
  From: 
  Chad Tower 
  To: 'Bryan Bateman' 
  Cc: '[EMAIL PROTECTED]' 
  
  Sent: Thursday, November 29, 2001 
  1:22 PM
  Subject: RE: Help for 
  Net::Telnet
  
  The solution is right in the docs... look up 
  max_buffer_length().  That will solve your 
  problem.
   
  
  
-Original Message-From: Bryan Bateman 
[mailto:[EMAIL PROTECTED]]Sent: Thursday, November 
29, 2001 1:19 PMTo: Bryan Bateman; [EMAIL PROTECTED]Subject: 
Re: Help for Net::Telnet

I will post here then.
 
@lines = $t->cmd("cat 
/usr/unifi/log/pipe_log/*");
 
This statement creates a buffer overrun 
when cat'ed files are over 1 meg in size.
 
Any ideas???
 

  - Original Message - 
  From: 
  Bryan Bateman 
  To: [EMAIL PROTECTED] 
  
  Sent: Thursday, November 29, 2001 
  11:46 AM
  Subject: Help for 
  Net::Telnet
  
  Having some problems specific to 
  Net::Telnet.  Anyone know of a listserv that is appropriate for 
  help???

RE: Help for Net::Telnet

2001-11-29 Thread Chad Tower 



Put it 
right after you open the telnet object...
 


  -Original Message-From: Bryan Bateman 
  [mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29, 
  2001 1:40 PMTo: Chad TowerCc: 
  [EMAIL PROTECTED]Subject: Re: Help for 
  Net::Telnet
  When and where do I apply it in the 
  code???  No code example.
   
   
  
- Original Message - 
From: 
Chad Tower 
To: 'Bryan Bateman' 
Cc: '[EMAIL PROTECTED]' 

Sent: Thursday, November 29, 2001 1:22 
PM
    Subject: RE: Help for Net::Telnet

The solution is right in the docs... look up 
max_buffer_length().  That will solve your problem.
 


  -Original Message-From: Bryan Bateman 
  [mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29, 
  2001 1:19 PMTo: Bryan Bateman; [EMAIL PROTECTED]Subject: 
      Re: Help for Net::Telnet
  
  I will post here then.
   
  @lines = $t->cmd("cat 
  /usr/unifi/log/pipe_log/*");
   
  This statement creates a buffer overrun when 
  cat'ed files are over 1 meg in size.
   
  Any ideas???
   
  
- Original Message - 
From: 
Bryan Bateman 
To: [EMAIL PROTECTED] 

Sent: Thursday, November 29, 2001 
        11:46 AM
Subject: Help for Net::Telnet

Having some problems specific to 
Net::Telnet.  Anyone know of a listserv that is appropriate for 
help???

Re: Help for Net::Telnet

2001-11-29 Thread Bryan Bateman 



When and where do I apply it in the 
code???  No code example.
 
 

  - Original Message - 
  From: 
  Chad Tower 
  To: 'Bryan Bateman' 
  Cc: '[EMAIL PROTECTED]' 
  
  Sent: Thursday, November 29, 2001 1:22 
  PM
  Subject: RE: Help for Net::Telnet
  
  The 
  solution is right in the docs... look up max_buffer_length().  That will 
  solve your problem.
   
  
  
-Original Message-From: Bryan Bateman 
[mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29, 
2001 1:19 PMTo: Bryan Bateman; [EMAIL PROTECTED]Subject: 
    Re: Help for Net::Telnet

I will post here then.
 
@lines = $t->cmd("cat 
/usr/unifi/log/pipe_log/*");
 
This statement creates a buffer overrun when 
cat'ed files are over 1 meg in size.
 
Any ideas???
 

  - Original Message - 
  From: 
  Bryan Bateman 
  To: [EMAIL PROTECTED] 
  
  Sent: Thursday, November 29, 2001 
      11:46 AM
  Subject: Help for Net::Telnet
  
  Having some problems specific to 
  Net::Telnet.  Anyone know of a listserv that is appropriate for 
  help???

RE: Help for Net::Telnet

2001-11-29 Thread Chad Tower 



The 
solution is right in the docs... look up max_buffer_length().  That will 
solve your problem.
 


  -Original Message-From: Bryan Bateman 
  [mailto:[EMAIL PROTECTED]]Sent: Thursday, November 29, 
  2001 1:19 PMTo: Bryan Bateman; 
  [EMAIL PROTECTED]Subject: Re: Help for 
  Net::Telnet
  
  I will post here then.
   
  @lines = $t->cmd("cat 
  /usr/unifi/log/pipe_log/*");
   
  This statement creates a buffer overrun when 
  cat'ed files are over 1 meg in size.
   
  Any ideas???
   
  
- Original Message - 
From: 
Bryan Bateman 
To: [EMAIL PROTECTED] 

Sent: Thursday, November 29, 2001 11:46 
    AM
    Subject: Help for Net::Telnet

Having some problems specific to 
Net::Telnet.  Anyone know of a listserv that is appropriate for 
help???

Re: Help for Net::Telnet

2001-11-29 Thread Bryan Bateman 




I will post here then.
 
@lines = $t->cmd("cat 
/usr/unifi/log/pipe_log/*");
 
This statement creates a buffer overrun when cat'ed 
files are over 1 meg in size.
 
Any ideas???
 

  - Original Message - 
  From: 
  Bryan Bateman 
  To: [EMAIL PROTECTED] 
  
  Sent: Thursday, November 29, 2001 11:46 
  AM
  Subject: Help for Net::Telnet
  
  Having some problems specific to 
  Net::Telnet.  Anyone know of a listserv that is appropriate for 
  help???