SLFO-pool/perl-Expect
SHA256
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Sync from SUSE:SLFO:Main perl-Expect revision 01601e1de8dc54652d42dcfd0237107f

Browse Source
This commit is contained in:
Adrian Schröter 2024-05-03 18:10:54 +02:00
commit 19b2d9eb86
6 changed files with 330 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
.gitattributes vendored Normal file
View File

@ -0,0 +1,23 @@
## Default LFS
*.7z filter=lfs diff=lfs merge=lfs -text
*.bsp filter=lfs diff=lfs merge=lfs -text
*.bz2 filter=lfs diff=lfs merge=lfs -text
*.gem filter=lfs diff=lfs merge=lfs -text
*.gz filter=lfs diff=lfs merge=lfs -text
*.jar filter=lfs diff=lfs merge=lfs -text
*.lz filter=lfs diff=lfs merge=lfs -text
*.lzma filter=lfs diff=lfs merge=lfs -text
*.obscpio filter=lfs diff=lfs merge=lfs -text
*.oxt filter=lfs diff=lfs merge=lfs -text
*.pdf filter=lfs diff=lfs merge=lfs -text
*.png filter=lfs diff=lfs merge=lfs -text
*.rpm filter=lfs diff=lfs merge=lfs -text
*.tbz filter=lfs diff=lfs merge=lfs -text
*.tbz2 filter=lfs diff=lfs merge=lfs -text
*.tgz filter=lfs diff=lfs merge=lfs -text
*.ttf filter=lfs diff=lfs merge=lfs -text
*.txz filter=lfs diff=lfs merge=lfs -text
*.whl filter=lfs diff=lfs merge=lfs -text
*.xz filter=lfs diff=lfs merge=lfs -text
*.zip filter=lfs diff=lfs merge=lfs -text
*.zst filter=lfs diff=lfs merge=lfs -text

BIN
Expect-1.35.tar.gz (Stored with Git LFS) Normal file
View File

Binary file not shown.

63
Expect.diff Normal file
View File

@ -0,0 +1,63 @@
diff -uNr Expect-1.15/examples/kibitz/kibitz Expect-new/examples/kibitz/kibitz
--- Expect-1.15/examples/kibitz/kibitz Sat Nov 17 14:18:49 2001
+++ Expect-new/examples/kibitz/kibitz Fri Apr 5 09:24:52 2002
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# Original author: Author: Don Libes, NIST (tcl/expect)
# Date written: December 5, 1991
# Date last editted: October 19, 1994
diff -uNr Expect-1.15/tutorial/2.A.ftp Expect-new/tutorial/2.A.ftp
--- Expect-1.15/tutorial/2.A.ftp Sat Nov 17 14:18:48 2001
+++ Expect-new/tutorial/2.A.ftp Fri Apr 5 09:24:52 2002
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# This example demonstrates how to spawn an ftp process, have it
#log in to a host, and grab a file off the host. This should give you a
#general idea of how to spawn processes and talk to them.
diff -uNr Expect-1.15/tutorial/2.B.rlogin Expect-new/tutorial/2.B.rlogin
--- Expect-1.15/tutorial/2.B.rlogin Sat Nov 17 14:18:47 2001
+++ Expect-new/tutorial/2.B.rlogin Fri Apr 5 09:24:52 2002
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# There are three new things in this example. First is the concept
#of closing the process, second is the concept of using regular
#expressions in match patterns, and third is the concept of grabbing
diff -uNr Expect-1.15/tutorial/3.A.debugging Expect-new/tutorial/3.A.debugging
--- Expect-1.15/tutorial/3.A.debugging Sat Nov 17 14:18:48 2001
+++ Expect-new/tutorial/3.A.debugging Fri Apr 5 09:24:52 2002
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# This example demonstrates how to use the debugging features in
#expect. They're reasonably straghtforward.
#
diff -uNr Expect-1.15/tutorial/4.A.top Expect-new/tutorial/4.A.top
--- Expect-1.15/tutorial/4.A.top Sat Nov 17 14:18:47 2001
+++ Expect-new/tutorial/4.A.top Fri Apr 5 09:24:52 2002
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# This example is a replay of sorts of the rlogin example
#before except in this example we turn control of the process back
#to the user through use of interact().
diff -uNr Expect-1.15/tutorial/5.A.top Expect-new/tutorial/5.A.top
--- Expect-1.15/tutorial/5.A.top Sat Nov 17 14:18:47 2001
+++ Expect-new/tutorial/5.A.top Fri Apr 5 09:24:52 2002
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# Here we are doing this again only this time we'll do it
#without Echoing the password.
diff -uNr Expect-1.15/tutorial/5.B.top Expect-new/tutorial/5.B.top
--- Expect-1.15/tutorial/5.B.top Sat Nov 17 14:18:48 2001
+++ Expect-new/tutorial/5.B.top Fri Apr 5 09:24:52 2002
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
# Here we set manual_stty on the process so we can do things like
#hit ^Z to stop it instead of the ^Z going to the process on the other machine.
# This is to say, normally when you interact with a process STDIN is

14
cpanspec.yml Normal file
View File

@ -0,0 +1,14 @@
---
patches:
Expect.diff: -p1
#preamble: |-
# BuildRequires: gcc-c++
#post_prep: |-
# hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'`
# sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL
#post_install: |-
# sed on %{name}.files
#license: SUSE-NonFree
#skip_noarch: 1
#custom_build: -
#./Build build flags=%{?_smp_mflags} --myflag

143
perl-Expect.changes Normal file
View File

@ -0,0 +1,143 @@
-------------------------------------------------------------------
Fri May 19 05:37:20 UTC 2017 - coolo@suse.com
- updated to 1.35
see /usr/share/doc/packages/perl-Expect/Changes
-------------------------------------------------------------------
Tue Apr 14 17:44:21 UTC 2015 - coolo@suse.com
- updated to 1.32
see /usr/share/doc/packages/perl-Expect/Changes
-------------------------------------------------------------------
Wed Dec 1 13:32:17 UTC 2010 - coolo@novell.com
- switch to perl_requires macro
-------------------------------------------------------------------
Mon Nov 29 18:29:53 UTC 2010 - coolo@novell.com
- remove /var/adm/perl-modules
-------------------------------------------------------------------
Sun Jan 10 15:43:32 CET 2010 - jengelh@medozas.de
- enable parallel build
-------------------------------------------------------------------
Tue Feb 5 17:03:37 CET 2008 - mc@suse.de
- update to version 1.21
* fix testcase
-------------------------------------------------------------------
Wed Jun 13 12:40:15 CEST 2007 - mc@suse.de
- remove execute permissions from tutorial files
-------------------------------------------------------------------
Tue Sep 19 15:47:35 CEST 2006 - mc@suse.de
- Version 1.20
* fixed non-localized usage of $_
* added new example ssh.pl
* added early return to send and send_slow if filehandle was closed
* fixed bug in expect() param handling (exact pattern "0" was ignored)
* fixed bug in _make_readable()
-------------------------------------------------------------------
Fri Jul 14 12:13:21 CEST 2006 - mc@suse.de
- Version 1.18
- added param check for expect()
- added another pipe to synchronize spawning. Closing the slave in
the parent can lead to a hang if the child already wrote
something into it...
- some bugfixes
-------------------------------------------------------------------
Wed Jan 25 21:39:40 CET 2006 - mls@suse.de
- converted neededforbuild to BuildRequires
-------------------------------------------------------------------
Thu Sep 29 01:24:08 CEST 2005 - dmueller@suse.de
- add norootforbuild
-------------------------------------------------------------------
Fri Aug 22 14:44:02 CEST 2003 - mjancar@suse.cz
- require the perl version we build with
-------------------------------------------------------------------
Fri Jul 18 17:51:29 CEST 2003 - mc@suse.de
- add vendorarch changes
- add make test
-------------------------------------------------------------------
Mon May 19 11:33:34 CEST 2003 - mc@suse.de
- removed unpackaged Files from RPM_BUILD_ROOT
-------------------------------------------------------------------
Tue Sep 17 17:34:28 CEST 2002 - ro@suse.de
- removed bogus self-provides
-------------------------------------------------------------------
Tue Jul 2 17:40:06 MEST 2002 - mls@suse.de
- remove race in .packlist generation
-------------------------------------------------------------------
Fri Apr 5 14:46:28 CEST 2002 - mc@suse.de
- switch to version 1.15
- changed tests to check out pty behaviour (max. string length)
- added autoflush(1) to log_file
- split 'new' and 'spawn' to be able to set slave pty params via stty
before actually spawning the program
- added print_log_file(), send() now no longer prints to log file or
stdout.
- spawn() now uses IO::Pty spawn, thus exec errors are reported and
ssh should work too!
- timeout handlers now also can exp_continue
- added 'raw_pty' option, also setting master to raw if isatty()
- use 'set_raw' instead of stty("raw"); IO::Stty now optional
- updated docs & FAQs; explained how terminal sizes and SIGWINCH
should be propagated
- bug fixes
-------------------------------------------------------------------
Wed Nov 7 15:39:07 CET 2001 - mc@suse.de
- switch to version 1.12
- exp_Max_Accum didn't work for interact.
- removed soft_close() from DESTROY. Being overly nice to a doomed process
doesn't pay off. Old behaviour is available via
$Expect::Do_Soft_Close = 1;
- cleanup of log and exp_internal output
- added various aliases for functions starting with 'exp_'
- moved FAQ and intro into the main pod as I got the impression
that many users didn't bother to read all the documentation
or didn't know that it was there.
- added a hook for log_file: can be set to a code ref.
-------------------------------------------------------------------
Sun Aug 12 14:48:42 CEST 2001 - kukuk@suse.de
- Fix path to perl interpreter
-------------------------------------------------------------------
Thu Jun 21 16:51:28 CEST 2001 - mc@suse.de
- fixed the specfile. Used more RPM macros
-------------------------------------------------------------------
Wed Feb 21 17:59:50 CET 2001 - mc@suse.de
- first package, v1.11

84
perl-Expect.spec Normal file
View File

@ -0,0 +1,84 @@
#
# spec file for package perl-Expect
#
# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
#
# 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 http://bugs.opensuse.org/
#
Name: perl-Expect
Version: 1.35
Release: 0
%define cpan_name Expect
Summary: Automate Interactions with Command Line Programs That Expose a Text Term[cut]
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Expect/
Source0: https://cpan.metacpan.org/authors/id/J/JA/JACOBY/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
Patch0: Expect.diff
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(IO::Pty) >= 1.11
BuildRequires: perl(IO::Tty) >= 1.11
BuildRequires: perl(Test::More) >= 1.00
Requires: perl(IO::Pty) >= 1.11
Requires: perl(IO::Tty) >= 1.11
%{perl_requires}
%description
See an explanation of at http://code-maven.com/expect
The Expect module is a successor of Comm.pl and a descendent of Chat.pl. It
more closely resembles the Tcl Expect language than its predecessors. It
does not contain any of the networking code found in Comm.pl. I suspect
this would be obsolete anyway given the advent of IO::Socket and external
tools such as netcat.
Expect.pm is an attempt to have more of a switch() & case feeling to make
decision processing more fluid. Three separate types of debugging have been
implemented to make code production easier.
It is possible to interconnect multiple file handles (and processes) much
like Tcl's Expect. An attempt was made to enable all the features of Tcl's
Expect without forcing Tcl on the victim programmer :-) .
Please, before you consider using Expect, read the FAQs about "I want to
automate password entry for su/ssh/scp/rsh/..." and "I want to use Expect
to automate [anything with a buzzword]..."
%prep
%setup -q -n %{cpan_name}-%{version}
find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
%patch0 -p1
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
%{__make} %{?_smp_mflags}
%check
%{__make} test
%install
%perl_make_install
%perl_process_packlist
%perl_gen_filelist
%files -f %{name}.files
%defattr(-,root,root,755)
%doc Changes examples README.md
%license LICENSE
%changelog