Sync from SUSE:SLFO:Main perl-Expect revision 01601e1de8dc54652d42dcfd0237107f
This commit is contained in:
commit
19b2d9eb86
23
.gitattributes
vendored
Normal file
23
.gitattributes
vendored
Normal 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
BIN
Expect-1.35.tar.gz
(Stored with Git LFS)
Normal file
Binary file not shown.
63
Expect.diff
Normal file
63
Expect.diff
Normal 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
14
cpanspec.yml
Normal 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
143
perl-Expect.changes
Normal 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
84
perl-Expect.spec
Normal 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
|
||||||
Loading…
Reference in New Issue
Block a user