[26333] in Perl-Users-Digest
Perl-Users Digest, Issue: 8508 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 10 18:05:20 2005
Date: Mon, 10 Oct 2005 15:05:05 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 10 Oct 2005 Volume: 10 Number: 8508
Today's topics:
ANNOUNCE: Verilog-GetInfo-1.0.1.pm <mishra.rohit@gmail.com>
Problem signing on to AIM with Net::AOLIM <rfs9999@earthlink.net>
Re: Problem signing on to AIM with Net::AOLIM <glex_no-spam@qwest-spam-no.invalid>
Re: Problem signing on to AIM with Net::AOLIM <rfs9999@earthlink.net>
Re: Problem signing on to AIM with Net::AOLIM <1usa@llenroc.ude.invalid>
Re: Problem signing on to AIM with Net::AOLIM <glex_no-spam@qwest-spam-no.invalid>
Re: Problem signing on to AIM with Net::AOLIM <notvalid@email.com>
Unicode datasend Jason.noemail@invalid.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 10 Oct 2005 19:54:16 GMT
From: "mishra.rohit@gmail.com" <mishra.rohit@gmail.com>
Subject: ANNOUNCE: Verilog-GetInfo-1.0.1.pm
Message-Id: <Io5uBs.yzH@zorch.sf-bay.org>
ANNOUNCE:
Verilog-GetInfo-1.0.1.pm is being released in the directory
http://backpan.perl.org/authors/id/R/RO/ROHITM/Verilog-GetInfo-1.0.1.pm
DESCRIPTION:
Verilog::Getinfo.pm is a complete verilog HDL language parser.
$handle = Verilog::GetInfo->new(\@command_line)';
Above command will return a handle to the new verilog design database.
@command_line is the verilog command line options understood by
GetInfo.
Most of the standard (IEEE 1364) command line options are supported.
Some of the options which are supported are:
-v, -y, + ( plusargs ), +define+, -l etc.
GetInfo understands most of the in-the-file options of Verilog HDL
language:
`ifdef...`else...`endif
`include "filename.v"
`define macro value
`define macro
Some of the functions which return information about the design are:
Get_Inputs( module_name ) - Returns list of input ports of the module.
It will return an array, with all the inputs along with their bus
widths.
Get_Outputs( module_name ) - Returns list of output ports of the
module.
An array with all the output ports listed along with their bus
widths.
Get_Ports( module_name ) - Returns list of ports of a module.
Get_Regs( module_name ) - Returns list of registers defined in a
module.
Get_Wires( module_name) - Returns list of wires defined in a module.
Get_Inouts( module_name) - Returns list of inout ports in a module.
Get_Toplevel() - Returns list of module names, which are not
instantiated
inside any other modules.
Hierarchy( module_name ) - The module_name can be any module in the
design.
Returns a reference to a hash containing the hierarchy
information of the
module. It will report all the sub-modules below the module
provided as the
input to the function.
Print_Hierarchy( module_name ) - This function calls the function
Hierarchy(),
and prints the hierarchy in the nice human readable form.
Get_Define() - If an input is given to this function it will check,
whether
it is defined. If it is defined, it will check whether its a
macro definition
and return the value of the macro.
If no input is given, it will return all the defines that have
been defined
in the design, with their values.
Get_Files() - This function returns all the design files read into the
database.
Get_Module_Count() - This function returns the total number of modules
in the design.
Get_Modules() - This functions lists all the modules in the design.
Get_Full_Design() - This function returns a full flat netlist in an
array. Note: The array will be huge.
Get_Module_Contents() - This function returns the contents ( without
comments )
of a module provided as an input to this function.
Message(), Warning(), Echo(), Error() - Display functions. Will display
lot
of information when parsing the design files.
BUGS:
No known bugs. Report all bugs to the author.
AUTHOR:
Rohit Mishra ( rohit[at]rohitmishra.com )
------------------------------
Date: Mon, 10 Oct 2005 19:06:53 GMT
From: Rick Sanders <rfs9999@earthlink.net>
Subject: Problem signing on to AIM with Net::AOLIM
Message-Id: <hZy2f.1142$y14.463@newsread3.news.pas.earthlink.net>
I am having trouble getting my script to sign onto to the AOL Instant
Messenger server. Using the example in the Net::AOLIM script I get
$IM_ERR =6 ("login timeout"). I am able to telnet to the AOL login
server port (login.oscar.aol.com port 5198) and it responds so it's not
a firewall problem. I have tried this from both Windows XP and Solaris
with the same results.
Here is the code I am using. I would be grateful if someone could point
out what I am doing wrong. Thanks.
-Rick
#!/usr/bin/perl -w
use Net::AOLIM;
use Strict;
$user = 'my name';
$pass = 'my password';
$aim = Net::AOLIM->new(
'username' => $user,
'password' => $pass,
'login_timeout' => 5,
'callback' => \&handler
);
$aim->signon;
$error = $Net::AOLIM::ERROR_MSGS{$IM_ERR};
print "signon status $error\n";
exit;
sub handler {
print STDOUT "This is the handler\n";
exit;
}
------------------------------
Date: Mon, 10 Oct 2005 14:39:03 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Problem signing on to AIM with Net::AOLIM
Message-Id: <srz2f.19$5r6.1496@news.uswest.net>
Rick Sanders wrote:
> I am having trouble getting my script to sign onto to the AOL Instant
> Messenger server. Using the example in the Net::AOLIM script I get
> $IM_ERR =6 ("login timeout"). I am able to telnet to the AOL login
> server port (login.oscar.aol.com port 5198) and it responds so it's not
> a firewall problem. I have tried this from both Windows XP and Solaris
> with the same results.
>
> Here is the code I am using. I would be grateful if someone could point
> out what I am doing wrong. Thanks.
>
> -Rick
>
> #!/usr/bin/perl -w
>
> use Net::AOLIM;
> use Strict;
Post real code.
>
> $user = 'my name';
> $pass = 'my password';
> $aim = Net::AOLIM->new(
> 'username' => $user,
> 'password' => $pass,
> 'login_timeout' => 5,
> 'callback' => \&handler
> );
> $aim->signon;
Check if this failed, before setting error.
unless ( $aim->signon )
{
> $error = $Net::AOLIM::ERROR_MSGS{$IM_ERR};
> print "signon status $error\n";
}
> exit;
Not needed.
>
> sub handler {
>
> print STDOUT "This is the handler\n";
> exit;
> }
Maybe you need to set the server? Never used it, however a quick read
through the documentation shows the default server as:
'server' => servername (default toc.oscar.aol.com)
That server and the 'login.oscar.aol.com', you refer to, are two
different IPs.
------------------------------
Date: Mon, 10 Oct 2005 21:18:04 GMT
From: Rick Sanders <rfs9999@earthlink.net>
Subject: Re: Problem signing on to AIM with Net::AOLIM
Message-Id: <gUA2f.1169$y14.378@newsread3.news.pas.earthlink.net>
J. Gleixner wrote:
> Post real code.
What do you mean 'post real code'? The code in my post is the same code
I am trying to run, except that I have obscured the username and password.
>> exit;
>
> Not needed.
Of course it's not needed but an exit statement at the of a Perl script
does no harm and it makes clear to the reader the point at which the
main part of the code ends.
> Check if this failed, before setting error.
> unless ( $aim->signon )
> {
I was trying to boil my script down to the bare essentials to illustrate
the problem I am trying to fix. In an earlier version I had the following:
$aim->signon;
unless ($aim->signon) {
$errstr = $Net::AOLIM::ERROR_MSGS{$IM_ERR};
print "Signon failed: $errstr (IM_ERR = $IM_ERR)\n";
exit;
} else {
print "Signon successful\n";
}
> Maybe you need to set the server? Never used it, however a quick read
> through the documentation shows the default server as:
Yes, I did try setting the toc and login server names and ports explicitly:
my $aim = Net::AOLIM->new(
"username" => $username,
"password" => $password,
"server" => "toc.oscar.aol.com",
"port" => 1234,
"login_server" => "login.oscar.aol.com",
"login_port" => 5198,
"login_timeout" => 5,
"callback" => \&handler,
);
Thanks,
Rick
> Rick Sanders wrote:
>
>> I am having trouble getting my script to sign onto to the AOL Instant
>> Messenger server. Using the example in the Net::AOLIM script I get
>> $IM_ERR =6 ("login timeout"). I am able to telnet to the AOL login
>> server port (login.oscar.aol.com port 5198) and it responds so it's
>> not a firewall problem. I have tried this from both Windows XP and
>> Solaris with the same results.
>>
>> Here is the code I am using. I would be grateful if someone could
>> point out what I am doing wrong. Thanks.
>>
>> -Rick
>>
>> #!/usr/bin/perl -w
>>
>> use Net::AOLIM;
>> use Strict;
>
>
> Post real code.
>
>>
>> $user = 'my name';
>> $pass = 'my password';
>> $aim = Net::AOLIM->new(
>> 'username' => $user,
>> 'password' => $pass,
>> 'login_timeout' => 5,
>> 'callback' => \&handler
>> );
>> $aim->signon;
>
>
> Check if this failed, before setting error.
> unless ( $aim->signon )
> {
>
>> $error = $Net::AOLIM::ERROR_MSGS{$IM_ERR};
>> print "signon status $error\n";
>
> }
>
>> exit;
>
> Not needed.
>
>>
>> sub handler {
>>
>> print STDOUT "This is the handler\n";
>> exit;
>> }
>
>
> Maybe you need to set the server? Never used it, however a quick read
> through the documentation shows the default server as:
>
> 'server' => servername (default toc.oscar.aol.com)
>
> That server and the 'login.oscar.aol.com', you refer to, are two
> different IPs.
------------------------------
Date: Mon, 10 Oct 2005 21:24:07 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Problem signing on to AIM with Net::AOLIM
Message-Id: <Xns96EBB1069CC57asu1cornelledu@127.0.0.1>
Rick Sanders <rfs9999@earthlink.net> wrote in
news:gUA2f.1169$y14.378@newsread3.news.pas.earthlink.net:
> J. Gleixner wrote:
> > Post real code.
>
> What do you mean 'post real code'?
...
>> Rick Sanders wrote:
...
>>> #!/usr/bin/perl -w
>>>
>>> use Net::AOLIM;
>>> use Strict;
That should be
use strict;
Case matters.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Mon, 10 Oct 2005 16:29:13 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Problem signing on to AIM with Net::AOLIM
Message-Id: <K2B2f.39$5r6.2572@news.uswest.net>
Rick Sanders wrote:
> J. Gleixner wrote:
> > Post real code.
>
> What do you mean 'post real code'? The code in my post is the same code
> I am trying to run, except that I have obscured the username and password.
Please, cut & paste the code you posted and actually try to run it,
before asking what 'post real code' means. The code you posted won't
actually execute, unless you have some weird "Strict.pm" on your system.
------------------------------
Date: Mon, 10 Oct 2005 22:04:07 GMT
From: Ala Qumsieh <notvalid@email.com>
Subject: Re: Problem signing on to AIM with Net::AOLIM
Message-Id: <rzB2f.14997$6e1.591@newssvr14.news.prodigy.com>
J. Gleixner wrote:
> Rick Sanders wrote:
>
>> J. Gleixner wrote:
>> > Post real code.
>>
>> What do you mean 'post real code'? The code in my post is the same
>> code I am trying to run, except that I have obscured the username and
>> password.
>
>
> Please, cut & paste the code you posted and actually try to run it,
> before asking what 'post real code' means. The code you posted won't
> actually execute, unless you have some weird "Strict.pm" on your system.
Win32 isn't case sensitive. So 'use Strict;' will work fine on that
platform. I advise the OP, though, to adhere to Perl's nomenclature and
use 'strict' instead.
Having said that, the code that the OP posted seems to be bits and
pieces of a larger program:
------------------
#!/usr/bin/perl -w
use Net::AOLIM;
use Strict;
$user = 'my name';
$pass = 'my password';
# etc ..
------------------
now this code will not compile, even under Win32, because $user and
$pass were not predeclared with either my() or our().
To the OP, it is best that you post a complete program that exhibits
your symptoms, and that other people can easily run. Otherwise, it will
be very hard for other to help you.
--Ala
------------------------------
Date: Mon, 10 Oct 2005 21:49:08 GMT
From: Jason.noemail@invalid.com
Subject: Unicode datasend
Message-Id: <olB2f.4552$RG1.1798@trndny08>
Is it impossible to send unmodified Unicode via the
Net::Cmd datasend ( DATA ) method?
If it is so, are there any best practices for
sending unicode with libnet 1.19?
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 8508
***************************************
