view release on metacpan or  search on metacpan

bin/oclm.PL  view on Meta::CPAN

use Config;
use File::Basename qw(basename dirname);
chdir(dirname($0));
($file = basename($0)) =~ s/\.PL$//i;
open OUT,">$file" or die "Can't create $file: $!";
chmod(0755, $file);
print "Extracting $file (with variable substitutions)\n";

print OUT <<"!GROK!THIS!";
$Config{'startperl'} -w

!GROK!THIS!

print OUT <<'!NO!SUBS!';
# oclm.PL
# v0.30
# 2000/01/02
# merlin
#
# Control the 3com OfficeConnect LanModem

=head1 NAME

oclm - Control the 3com OfficeConnect LanModem

=head1 SYNOPSIS

 oclm {<option>} <command>

=head1 DESCRIPTION

This program can be used to control the 3com OfficeConnect LanModem,
an ISDN TA/router. Device statistics are printed to stdout along with
a status message (typically OK).

The options are:

=over 4

=item -lanmodem <hostname[:port]>

Specify the hostname (and optionally port) of your LanModem. By default,
the value of the B<OCLM_LANMODEM> environment variable is used; or, if that
is not set, then the value I<3com.oc.lanmodem>.

=item -password <password>

Specify the password needed to access your locked LanModem. By default,
the value of the B<OCLM_PASSWORD> environment variable is used. This is
not needed if either your LanModem is not password protected, or if
manual calling is accessible and you only use the B<connect>, B<disconnect>,
B<status> and B<manual> commands.

=back

The commands are:

=over 4

=item connect [<provider>]

Manually connect to the specified provider name or provider index
(1-offset). If no provider is specified, then connects to the first
provider not currently connected. This displays the progress of the
connection attempt on stdout.