source:
trunk/essentials/dev-lang/perl/lib/Net/demos/inetd
| Last change on this file was 3181, checked in by , 19 years ago | |
|---|---|
| File size: 197 bytes | |
| Line | |
|---|---|
| 1 | #!/usr/local/bin/perl |
| 2 | |
| 3 | use Net::DummyInetd; |
| 4 | use Net::SMTP; |
| 5 | |
| 6 | $p = new Net::DummyInetd qw(/usr/lib/sendmail -ba -bs); |
| 7 | |
| 8 | $smtp = Net::SMTP->new('localhost', Port => $p->port, Debug => 7); |
| 9 | $smtp->quit; |
Note:
See TracBrowser
for help on using the repository browser.
