Cross Reference: smtp.self
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Net
/
demos
/
smtp.self
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!/
usr
/
local
/
bin
/
perl
-w
1
N/A
1
N/A
use
blib
;
1
N/A
use
Net
::
SMTP
;
1
N/A
use
Getopt
::
Long
;
1
N/A
1
N/A
=
head1
NAME
1
N/A
1
N/A
smtp.self
-
mail
a
message
via
smtp
1
N/A
1
N/A
=
head1
DESCRIPTION
1
N/A
1
N/A
C<
smtp.self
>
will
attempt
to
send
a
message
to
a
given
user
1
N/A
1
N/A
=
head1
OPTIONS
1
N/A
1
N/A
=
over
4
1
N/A
1
N/A
=
item
-
debug
1
N/A
1
N/A
Enabe
the
output
of
dubug
information
1
N/A
1
N/A
=
item
-
help
1
N/A
1
N/A
Display
this
help
text
and
quit
1
N/A
1
N/A
=
item
-
user
USERNAME
1
N/A
1
N/A
Send
the
message
to
C<
USERNAME
>
1
N/A
1
N/A
=
head1
EXAMPLE
1
N/A
1
N/A
demos
/
smtp.self
-
user
foo.bar
1
N/A
1
N/A
demos
/
smtp.self
-
debug
-
user
Graham.Barr
1
N/A
1
N/A
=
back
1
N/A
1
N/A
=
cut
1
N/A
1
N/A
$opt_debug
=
undef
;
1
N/A
$opt_user
=
undef
;
1
N/A
$opt_help
=
undef
;
1
N/A
GetOptions
(
qw
(
debug
user
=s
help
)
)
;
1
N/A
1
N/A
exec
(
"pod2text $0"
)
1
N/A
if
defined
$opt_help
;
1
N/A
1
N/A
Net
::
SMTP
->
debug
(
1
)
if
$opt_debug
;
1
N/A
1
N/A
$smtp
=
Net
::
SMTP
->
new
(
"mailhost"
)
;
1
N/A
1
N/A
$user
=
$opt_user
||
$ENV
{
USER
} ||
$ENV
{
LOGNAME
};
1
N/A
1
N/A
$smtp
->
mail
(
$user
)
&&
$smtp
->
to
(
$user
)
;
1
N/A
$smtp
->
reset
;
1
N/A
1
N/A
if
(
$smtp
->
mail
(
$user
)
&&
$smtp
->
to
(
$user
)
)
1
N/A
{
1
N/A
$smtp
->
data
()
;
1
N/A
1
N/A
map
{ s/-
USER
-/
$user
/g } @
data
=<
DATA
>;
1
N/A
1
N/A
$smtp
->
datasend
(@
data
)
;
1
N/A
$smtp
->
dataend
;
1
N/A
}
1
N/A
else
1
N/A
{
1
N/A
warn
$smtp
->
message
;
1
N/A
}
1
N/A
1
N/A
$smtp
->
quit
;
1
N/A
1
N/A
__DATA__
1
N/A
To
: <-
USER
->
1
N/A
Subject
: A
test
message
1
N/A
1
N/A
The
message
was
sent
directly
via
SMTP
using
Net
::
SMTP
1
N/A
.
1
N/A
The
message
was
sent
directly
via
SMTP
using
Net
::
SMTP