File perl-Net-Telnet.spec of Package perl-Net-Telnet

Overview Repositories Revisions Requests Users Attributes Meta

File perl-Net-Telnet.spec of Package perl-Net-Telnet (Revision 991d618c9aa3f2c25026edc989956222)

Currently displaying revision 991d618c9aa3f2c25026edc989956222 , Show latest

#
# spec file for package perl-Net-Telnet
#
# Copyright (c) 2021 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
# upon. The license for this file, and modifications and additions to the
# file, is the same license as for the pristine package itself (unless the
# license for the pristine package is not an Open Source License, in which
# case the license is the MIT License). An "Open Source License" is a
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.

# Please submit bugfixes or comments via https://bugs.opensuse.org/
#

%define cpan_name Net-Telnet
Name:           perl-Net-Telnet
Version:        3.05
Release:        0
Summary:        Interact with TELNET port or other TCP ports
License:        Artistic-1.0 OR GPL-1.0-or-later
URL:            https://metacpan.org/release/%{cpan_name}
Source0:        https://cpan.metacpan.org/authors/id/J/JR/JROGERS/%{cpan_name}-%{version}.tar.gz
Source1:        cpanspec.yml
BuildArch:      noarch
BuildRequires:  perl
BuildRequires:  perl-macros
%{perl_requires}

%description
Net::Telnet allows you to make client connections to a TCP port and do
network I/O, especially to a port using the TELNET protocol. Simple I/O
methods such as print, get, and getline are provided. More sophisticated
interactive features are provided because connecting to a TELNET port
ultimately means communicating with a program designed for human
interaction. These interactive features include the ability to specify a
time-out and to wait for patterns to appear in the input stream, such as
the prompt from a shell. IPv6 support is available when using perl 5.14 or
later, see 'family()'.

Other reasons to use this module than strictly with a TELNET port are:

* You're not familiar with sockets and you want a simple way to make client
connections to TCP services.

* You want to be able to specify your own time-out while connecting, reading,
or writing.

* You're communicating with an interactive program at the other end of some
socket or pipe and you want to wait for certain patterns to appear.

Here's an example that prints who's logged-on to a remote host. In addition
to a username and password, you must also know the user's shell prompt,
which for this example is '"bash$ "'

use Net::Telnet ();
    $t = new Net::Telnet (Timeout => 10,
                          Prompt => '/bash\$ $/');
    $t->open($host);
    $t->login($username, $passwd);
    @lines = $t->cmd("who");
    print @lines;

See the *EXAMPLES* section below for more examples.

Usage questions should be directed to the perlmonks.org discussion group.
Bugs can be viewed or reported at cpan.org on the Net::Telnet page.

%prep
%autosetup  -n %{cpan_name}-%{version}
find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644

%build
perl Makefile.PL INSTALLDIRS=vendor
%make_build

%check
make test

%install
%perl_make_install
%perl_process_packlist
%perl_gen_filelist

%files -f %{name}.files
%doc ChangeLog README

%changelog

Places

File perl-Net-Telnet.spec of Package perl-Net-Telnet (Revision 991d618c9aa3f2c25026edc989956222)

Places