Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: getnotes.pl

by sanjeevk2 (Initiate)
on Jun 15, 2011 at 11:06 UTC ( #909772=perlquestion: print w/replies, xml ) Need Help??

sanjeevk2 has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to use Win32::OLE for accessing the Notes database. Here is a sample script:
use Win32::OLE; use strict; use warnings; use vars qw($S @EXPORT @EXPORT_OK $VERSION); BEGIN { $VERSION=0.1; $S = Win32::OLE->new('Notes.NotesSession') or die "Unable to instatiate Notes Session"; } my $server = "aiqlotus85aix61/avamar"; my $dbdir = $S->GetDbDirectory($server); my @dbs; for (my $db = $dbdir->GetFirstDatabase(1247); $db; $db=$dbdir->GetNextDatabase) { push @dbs,{server => $server, title => $db->Title, filepath => $db->Filepath}; } my $t; for $t (@dbs) { print "$t->{title} : $t->{filepath}\n"; }
But it is hanging, since the server aiqlotus85aix61 is a remote machine. I am able to ping the machine.

Any idea why it is hanging.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://909772]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (2)
As of 2022-01-28 22:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (74 votes). Check out past polls.

    Notices?