diff options
author | ivan <ivan> | 2001-11-09 21:58:40 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-11-09 21:58:40 +0000 |
commit | 924a225b5684a0172546f9ae204d13a376900e5d (patch) | |
tree | fe43298ac1874cd0230a726a6302ed0b53514eae /test.pl | |
parent | f91f283833d0dc65bd63d5066a8de16f4dd72d63 (diff) |
- updated for APP version 3.3NET_APP_0_02
- documentation on using stunnel instead of Safe Passage
- useful get_domain_mailboxes and get_mailbox_forward_only methods
that return perl data structures instead of unparsed lines
Diffstat (limited to 'test.pl')
-rw-r--r-- | test.pl | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -33,7 +33,10 @@ sub input { print <<END; In order to test Net::APP, you need a cleartext APP server available, i.e. a -Safe Passage tunnel, and an account on the APP server. +Safe Passage or tunnel or Stunnel <http://www.stunnel.org>, and an account on +the APP server. + +(i.e. stunnel -P none -c -d 8888 -r appsandbox.criticalpath.net:8889) END @@ -47,7 +50,7 @@ my $password = input "Enter your APP password: "; print "\n\n"; system("stty echo"); test 2, my $app = new Net::APP ( "$hostname:$port", - Debug => 1, + Debug => 0, ); test 3, $app->login( User => $user, Domain => $domain, @@ -59,7 +62,7 @@ test 6, $app->code == 0; $app->close(); undef $app; test 6, $app = new Net::APP ( "$hostname:$port", - Debug => 1, + Debug => 0, User => $user, Domain => $domain, Password => $password, |