October 2015 - openSUSE Commits - openSUSE Mailing Lists

commit yast2-slide-show for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package yast2-slide-show for openSUSE:Factory checked in at 2015-10-30 13:43:49 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/yast2-slide-show (Old) and /work/SRC/openSUSE:Factory/.yast2-slide-show.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "yast2-slide-show" Changes: -------- --- /work/SRC/openSUSE:Factory/yast2-slide-show/yast2-slide-show.changes 2015-10-20 16:22:35.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.yast2-slide-show.new/yast2-slide-show.changes 2015-10-30 13:43:50.000000000 +0100 @@ -1,0 +2,6 @@ +Thu Oct 29 14:19:58 UTC 2015 - ke(a)suse.de + +- 3.1.21 +- Update openSUSE Leap translations (bsc#950856). + +------------------------------------------------------------------- Old: ---- yast2-slide-show-3.1.20.tar.bz2 New: ---- yast2-slide-show-3.1.21.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ yast2-slide-show.spec ++++++ --- /var/tmp/diff_new_pack.9bkHFF/_old 2015-10-30 13:43:51.000000000 +0100 +++ /var/tmp/diff_new_pack.9bkHFF/_new 2015-10-30 13:43:51.000000000 +0100 @@ -17,7 +17,7 @@ Name: yast2-slide-show -Version: 3.1.20 +Version: 3.1.21 Release: 0 BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ slideshow-po.tar.gz ++++++ ++++ 2303 lines of diff (skipped) ++++++ yast2-slide-show-3.1.20.tar.bz2 -> yast2-slide-show-3.1.21.tar.bz2 ++++++ Files old/yast2-slide-show-3.1.20/package/slideshow-po.tar.gz and new/yast2-slide-show-3.1.21/package/slideshow-po.tar.gz differ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-slide-show-3.1.20/package/yast2-slide-show.changes new/yast2-slide-show-3.1.21/package/yast2-slide-show.changes --- old/yast2-slide-show-3.1.20/package/yast2-slide-show.changes 2015-10-20 10:41:08.000000000 +0200 +++ new/yast2-slide-show-3.1.21/package/yast2-slide-show.changes 2015-10-29 15:26:25.000000000 +0100 @@ -1,4 +1,10 @@ ------------------------------------------------------------------- +Thu Oct 29 14:19:58 UTC 2015 - ke(a)suse.de + +- 3.1.21 +- Update openSUSE Leap translations (bsc#950856). + +------------------------------------------------------------------- Tue Oct 20 08:35:31 UTC 2015 - ke(a)suse.de - 3.1.20 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/yast2-slide-show-3.1.20/package/yast2-slide-show.spec new/yast2-slide-show-3.1.21/package/yast2-slide-show.spec --- old/yast2-slide-show-3.1.20/package/yast2-slide-show.spec 2015-10-20 10:41:08.000000000 +0200 +++ new/yast2-slide-show-3.1.21/package/yast2-slide-show.spec 2015-10-29 15:26:25.000000000 +0100 @@ -17,7 +17,7 @@ Name: yast2-slide-show -Version: 3.1.20 +Version: 3.1.21 Release: 0 BuildRoot: %{_tmppath}/%{name}-%{version}-build

1 0

commit seccheck for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package seccheck for openSUSE:Factory checked in at 2015-10-30 13:43:51 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/seccheck (Old) and /work/SRC/openSUSE:Factory/.seccheck.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "seccheck" Changes: -------- --- /work/SRC/openSUSE:Factory/seccheck/seccheck.changes 2015-10-14 16:44:27.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.seccheck.new/seccheck.changes 2015-10-30 13:43:52.000000000 +0100 @@ -13,0 +14,5 @@ +Mon Apr 27 08:33:33 UTC 2015 - vpereira(a)suse.com + +- added patch: emails-without-subject.patch to fix bnc#923688 + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------

1 0

commit crmsh for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package crmsh for openSUSE:Factory checked in at 2015-10-30 13:43:48 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/crmsh (Old) and /work/SRC/openSUSE:Factory/.crmsh.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "crmsh" Changes: -------- --- /work/SRC/openSUSE:Factory/crmsh/crmsh.changes 2015-10-28 17:31:17.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.crmsh.new/crmsh.changes 2015-10-30 13:43:49.000000000 +0100 @@ -1,0 +2,8 @@ +Thu Oct 29 12:29:21 UTC 2015 - kgronlund(a)suse.com + +- Update to version 2.2.0~rc3+git.1446121677.5f4ab3c: + + high: scripts: Eval CIB text in correct scope (bsc#952600) + + medium: scripts: Check required parameters for optional sub-steps + + medium: utils: Fix python 2.6 compatibility + +------------------------------------------------------------------- Old: ---- crmsh-2.2.0~rc3+git.1446022288.cbb7d77.tar.bz2 New: ---- crmsh-2.2.0~rc3+git.1446121677.5f4ab3c.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ crmsh.spec ++++++ --- /var/tmp/diff_new_pack.DgGbLm/_old 2015-10-30 13:43:50.000000000 +0100 +++ /var/tmp/diff_new_pack.DgGbLm/_new 2015-10-30 13:43:50.000000000 +0100 @@ -36,7 +36,7 @@ Summary: High Availability cluster command-line interface License: GPL-2.0+ Group: %{pkg_group} -Version: 2.2.0~rc3+git.1446022288.cbb7d77 +Version: 2.2.0~rc3+git.1446121677.5f4ab3c Release: 0 Url: http://crmsh.github.io Source0: %{name}-%{version}.tar.bz2 ++++++ _servicedata ++++++ --- /var/tmp/diff_new_pack.DgGbLm/_old 2015-10-30 13:43:50.000000000 +0100 +++ /var/tmp/diff_new_pack.DgGbLm/_new 2015-10-30 13:43:50.000000000 +0100 @@ -1,4 +1,4 @@ <servicedata> <service name="tar_scm"> <param name="url">git://github.com/ClusterLabs/crmsh.git</param> - <param name="changesrevision">cbb7d776f5489f5925d3e243f1d2844c743fe889</param></service></servicedata> \ No newline at end of file + <param name="changesrevision">5f4ab3c5cfbc79d4858dc6cefbfa0311a3d0c67d</param></service></servicedata> \ No newline at end of file ++++++ crmsh-2.2.0~rc3+git.1446022288.cbb7d77.tar.bz2 -> crmsh-2.2.0~rc3+git.1446121677.5f4ab3c.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/crmsh-2.2.0~rc3+git.1446022288.cbb7d77/modules/report.py new/crmsh-2.2.0~rc3+git.1446121677.5f4ab3c/modules/report.py --- old/crmsh-2.2.0~rc3+git.1446022288.cbb7d77/modules/report.py 2015-10-28 09:51:59.000000000 +0100 +++ new/crmsh-2.2.0~rc3+git.1446121677.5f4ab3c/modules/report.py 2015-10-29 13:29:21.000000000 +0100 @@ -591,7 +591,7 @@ self.end_ts = syslog_ts(end_msg) else: common_warn("end of transition %s not found in logs (transition not complete yet?)" % self) - self.end_ts = (datetime.datetime(2525, 1, 1) - datetime.datetime(1970, 1, 1)).total_seconds() + self.end_ts = datetime_to_timestamp(datetime.datetime(2525, 1, 1)) def __str__(self): return self.get_node_file() diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/crmsh-2.2.0~rc3+git.1446022288.cbb7d77/modules/scripts.py new/crmsh-2.2.0~rc3+git.1446121677.5f4ab3c/modules/scripts.py --- old/crmsh-2.2.0~rc3+git.1446022288.cbb7d77/modules/scripts.py 2015-10-28 09:51:59.000000000 +0100 +++ new/crmsh-2.2.0~rc3+git.1446121677.5f4ab3c/modules/scripts.py 2015-10-29 13:29:21.000000000 +0100 @@ -185,8 +185,8 @@ return ' -> '.join(x.items()[0]) action['text'] = '\n'.join([arrow(x) for x in value]) elif name == 'cib' or name == 'crm': - action['text'] = Text.cib(script, value) - action['value'] = _remove_empty_lines(str(action['text'])) + action['text'] = str(Text.cib(script, value)) + action['value'] = _remove_empty_lines(action['text']) elif name == 'call': action['value'] = Text(script, value) elif name == 'copy': @@ -1422,8 +1422,15 @@ params[key] = value def _fill_values(path, into, source, srcreq): + """ + Copy values into into while checking for missing required parameters. + If into has content, all required parameters ARE required, even if the + whole step is not required (since we're supplying it). This is checked + by checking if the step is not required, but there are some parameters + set by the user anyway. + """ if 'required' in source: - srcreq = source['required'] and srcreq + srcreq = (source['required'] and srcreq) or (into and srcreq) for param in source.get('parameters', []): if param['name'] not in into: @@ -1436,12 +1443,14 @@ required = step.get('required', True) if not required and step['name'] not in into: continue + if not required and step['name'] in into and into[step['name']]: + required = True if 'name' not in step: - _fill_values(path, into, step, step.get('required') and srcreq) + _fill_values(path, into, step, required and srcreq) else: if step['name'] not in into: into[step['name']] = {} - _fill_values(path + [step['name']], into[step['name']], step, step.get('required') and srcreq) + _fill_values(path + [step['name']], into[step['name']], step, required and srcreq) _fill_values([], params, script, True) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/crmsh-2.2.0~rc3+git.1446022288.cbb7d77/modules/utils.py new/crmsh-2.2.0~rc3+git.1446121677.5f4ab3c/modules/utils.py --- old/crmsh-2.2.0~rc3+git.1446022288.cbb7d77/modules/utils.py 2015-10-28 09:51:59.000000000 +0100 +++ new/crmsh-2.2.0~rc3+git.1446121677.5f4ab3c/modules/utils.py 2015-10-29 13:29:21.000000000 +0100 @@ -1034,12 +1034,22 @@ return dt +def total_seconds(td): + """ + Backwards compatible implementation of timedelta.total_seconds() + """ + if hasattr(datetime.timedelta, 'total_seconds'): + return td.total_seconds() + else: + return (td.microseconds + (td.seconds + td.days * 24 * 3600) * 10**6) / 10**6 + + def datetime_to_timestamp(dt): """ Convert a datetime object into a floating-point second value """ try: - return (make_datetime_naive(dt) - datetime.datetime(1970, 1, 1)).total_seconds() + return total_seconds(make_datetime_naive(dt) - datetime.datetime(1970, 1, 1)) except Exception as e: common_err("datetime_to_timestamp error: %s" % (e)) return None diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/crmsh-2.2.0~rc3+git.1446022288.cbb7d77/test/unittests/test_scripts.py new/crmsh-2.2.0~rc3+git.1446121677.5f4ab3c/test/unittests/test_scripts.py --- old/crmsh-2.2.0~rc3+git.1446022288.cbb7d77/test/unittests/test_scripts.py 2015-10-28 09:51:59.000000000 +0100 +++ new/crmsh-2.2.0~rc3+git.1446121677.5f4ab3c/test/unittests/test_scripts.py 2015-10-29 13:29:21.000000000 +0100 @@ -721,3 +721,94 @@ def ver(): return scripts.verify(script_a, {"foo": "one"}) assert_raises(ValueError, ver) + + +@with_setup(setup_func, teardown_func) +def test_two_substeps(): + """ + There is a scoping bug + """ + a = '''--- +- version: 2.2 + category: Script + include: + - agent: test:apache + name: apache + parameters: + - name: id + required: true +''' + b = '''--- +- version: 2.2 + category: Script + include: + - script: apache + name: apache-a + required: true + - script: apache + name: apache-b + required: true + parameters: + - name: wiz + required: true + actions: + - include: apache-a + - include: apache-b + - cib: "primitive {{wiz}} {{apache-a:id}} {{apache-b:id}}" +''' + + script_a = scripts.load_script_string('apache', a) + script_b = scripts.load_script_string('test-b', b) + assert script_a is not None + assert script_b is not None + + actions = scripts.verify(script_b, + {'wiz': "head", "apache-a": {"id": "one"}, "apache-b": {"id": "two"}}) + eq_(len(actions), 1) + pprint(actions) + assert actions[0]['text'] == "primitive one test:apache\n\nprimitive two test:apache\n\nprimitive head one two" + + +@with_setup(setup_func, teardown_func) +def test_required_subscript_params(): + """ + If an optional subscript has multiple required parameters, + excluding all = ok + excluding one = fail + """ + + a = '''--- +- version: 2.2 + category: Script + parameters: + - name: foo + required: true + type: string + - name: bar + required: true + type: string + actions: + - cib: "{{foo}} {{bar}}" +''' + + b = '''--- +- version: 2.2 + category: Script + include: + - script: foofoo + required: false + actions: + - include: foofoo + - cib: "{{foofoo:foo}} {{foofoo:bar}" +''' + + script_a = scripts.load_script_string('foofoo', a) + script_b = scripts.load_script_string('test-b', b) + assert script_a is not None + assert script_b is not None + + def ver(): + actions = scripts.verify(script_b, + {"foofoo": {"foo": "one"}}) + pprint(actions) + assert_raises(ValueError, ver)

1 0

commit kraft for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package kraft for openSUSE:Factory checked in at 2015-10-30 13:43:47 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/kraft (Old) and /work/SRC/openSUSE:Factory/.kraft.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "kraft" Changes: -------- --- /work/SRC/openSUSE:Factory/kraft/kraft.changes 2015-10-14 16:44:18.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.kraft.new/kraft.changes 2015-10-30 13:43:48.000000000 +0100 @@ -1,0 +2,6 @@ +Sat Oct 17 10:05:41 UTC 2015 - freitag(a)opensuse.org + +- Patch fix_dup_custom_targets.diff added to not add multiple custom + targets, fixes building Tumbleweed. + +------------------------------------------------------------------- New: ---- fix_dup_custom_targets.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ kraft.spec ++++++ --- /var/tmp/diff_new_pack.x64HbD/_old 2015-10-30 13:43:48.000000000 +0100 +++ /var/tmp/diff_new_pack.x64HbD/_new 2015-10-30 13:43:48.000000000 +0100 @@ -26,6 +26,8 @@ License: GPL-2.0+ and LGPL-2.1+ Group: Productivity/Office/Other Source0: kraft-%{version}.tar.xz +Patch0: fix_dup_custom_targets.diff + BuildRoot: %{_tmppath}/%{name}-%{version}-build %if 0%{?suse_version} @@ -67,6 +69,7 @@ %prep %setup -q +%patch0 -p1 %build mkdir build ++++++ fix_dup_custom_targets.diff ++++++ diff --git a/CMakeLists.txt b/CMakeLists.txt index 8a7e5e1..bbfdc4c 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -3,6 +3,7 @@ project(kraft) cmake_minimum_required(VERSION 2.6) set(CMAKE_MODULE_PATH ${CMAKE_CURRENT_SOURCE_DIR}/cmake/modules/ ${CMAKE_MODULE_PATH} ) +set_property(GLOBAL PROPERTY ALLOW_DUPLICATE_CUSTOM_TARGETS true) find_package(KDE4 4.4.0 REQUIRED) find_package(KdepimLibs REQUIRED)

1 0

commit uid_wrapper for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package uid_wrapper for openSUSE:Factory checked in at 2015-10-30 13:43:45 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/uid_wrapper (Old) and /work/SRC/openSUSE:Factory/.uid_wrapper.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "uid_wrapper" Changes: -------- --- /work/SRC/openSUSE:Factory/uid_wrapper/uid_wrapper.changes 2015-09-09 20:21:34.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.uid_wrapper.new/uid_wrapper.changes 2015-10-30 13:43:46.000000000 +0100 @@ -1,0 +2,8 @@ +Thu Oct 29 11:57:14 UTC 2015 - asn(a)cryptomilk.org + +- Update to version 1.2.0 + * Added privilege checks for all set*uid and set*gid functions. + * Added a lot more and accurate tests which work as root. + * Fixed some minor issues + +------------------------------------------------------------------- Old: ---- uid_wrapper-1.1.1.tar.gz New: ---- uid_wrapper-1.2.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ uid_wrapper.spec ++++++ --- /var/tmp/diff_new_pack.ukZ6UF/_old 2015-10-30 13:43:47.000000000 +0100 +++ /var/tmp/diff_new_pack.ukZ6UF/_new 2015-10-30 13:43:47.000000000 +0100 @@ -24,7 +24,7 @@ ############################# NOTE ################################## Name: uid_wrapper -Version: 1.1.1 +Version: 1.2.0 Release: 0 Summary: A wrapper for privilege seperation ++++++ uid_wrapper-1.1.1.tar.gz -> uid_wrapper-1.2.0.tar.gz ++++++ ++++ 27176 lines of diff (skipped)

1 0

commit patterns-openSUSE for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package patterns-openSUSE for openSUSE:Factory checked in at 2015-10-30 13:43:44 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/patterns-openSUSE (Old) and /work/SRC/openSUSE:Factory/.patterns-openSUSE.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "patterns-openSUSE" Changes: -------- --- /work/SRC/openSUSE:Factory/patterns-openSUSE/patterns-openSUSE.changes 2015-10-22 12:58:25.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.patterns-openSUSE.new/patterns-openSUSE.changes 2015-10-30 13:43:45.000000000 +0100 @@ -1,0 +2,17 @@ +Thu Oct 29 10:40:50 UTC 2015 - mimi.vx(a)gmail.com + +- Remove flash from patterns + +------------------------------------------------------------------- +Fri Oct 23 17:56:05 UTC 2015 - sor.alexei(a)meowr.ru + +- Hard-require very basic parts of MATE in mate_basis pattern. +- Recommend mate-tweak and hexchat (instead of xchat) in mate pattern. + +------------------------------------------------------------------- +Wed Oct 21 16:22:28 UTC 2015 - hrvoje.senjan(a)gmail.com + +- kde_plasma now require plasma5-pk-updates package +- Remove apper recommends in kde pattern + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ patterns-openSUSE.spec ++++++ --- /var/tmp/diff_new_pack.ln5nIT/_old 2015-10-30 13:43:46.000000000 +0100 +++ /var/tmp/diff_new_pack.ln5nIT/_new 2015-10-30 13:43:46.000000000 +0100 @@ -2895,6 +2895,7 @@ Requires: kwrite Requires: plasma5-desktop Requires: plasma5-pa +Requires: plasma5-pk-updates Requires: plasma5-session Requires: plasma5-workspace # we need some sort of vide player! @@ -4039,6 +4040,7 @@ Recommends: mate-screenshot Recommends: mate-system-log Recommends: mate-system-monitor +Recommends: mate-tweak Recommends: mate-user-share Recommends: mousetweaks Recommends: MozillaThunderbird @@ -4067,7 +4069,7 @@ Suggests: mate-backgrounds %description mate -The MATE desktop environment is a desktop environment using traditional metaphors +The MATE desktop environment is a desktop environment using traditional metaphors. %files mate %dir /usr/share/doc/packages/patterns-openSUSE @@ -4087,7 +4089,7 @@ Recommends: vinagre %description mate_admin -Administration Tools e.g. for desktop lockdown +Administration Tools e.g. for desktop lockdown. %files mate_admin %dir /usr/share/doc/packages/patterns-openSUSE @@ -4104,10 +4106,13 @@ Requires: pattern() = basesystem Requires: pattern() = x11 Recommends: pattern() = gnome_basis_opt +Requires: caja Requires: lightdm +Requires: marco +Requires: mate-control-center +Requires: mate-panel Requires: mate-session-manager -# default -Recommends: mate-settings-daemon +Requires: mate-settings-daemon # # Low-level parts that we need # @@ -4138,13 +4143,11 @@ Recommends: gnome-keyring-pam Recommends: at-spi2-core Recommends: canberra-gtk-play -Recommends: mate-control-center Recommends: mate-themes Recommends: mate-icon-theme Recommends: mate-icon-theme-faenza Recommends: gnome-keyring Recommends: mate-menu -Recommends: marco Recommends: mate-applets Recommends: mate-media Recommends: mate-menus @@ -4153,7 +4156,6 @@ Recommends: mate-power-manager Recommends: mate-screensaver Recommends: mate-terminal -Recommends: caja Recommends: NetworkManager-gnome Recommends: shared-mime-info Recommends: tango-icon-theme @@ -4167,7 +4169,7 @@ Recommends: pulseaudio-module-zeroconf Recommends: pulseaudio-utils Recommends: xdg-user-dirs-gtk -# we need something for xdg-su +# We need something for xdg-su Recommends: libgnomesu Recommends: droid-fonts @@ -4205,9 +4207,9 @@ Recommends: NetworkManager-pptp-gnome Recommends: NetworkManager-vpnc-gnome Recommends: NetworkManager-openconnect-gnome -# bnc#530416 +# boo#530416 +Recommends: hexchat Recommends: transmission-gtk -Recommends: xchat Suggests: ekiga # # Packages that can make sense @@ -4217,7 +4219,7 @@ Suggests: smuxi %description mate_internet -MATE Internet Applications +MATE Internet Applications. %files mate_internet %dir /usr/share/doc/packages/patterns-openSUSE @@ -4565,10 +4567,6 @@ Provides: pattern-visible() Requires: pattern() = x11 Recommends: pattern() = non_oss_opt -# from data/NON-OSS -%ifarch %ix86 x86_64 -Recommends: pullin-flash-player -%endif %description non_oss Packages that are proprietary and not under an Open Source license. @@ -4588,9 +4586,6 @@ Requires: pattern() = non_oss # from data/NON-OSS-OPT Recommends: gst-fluendo-mp3 -%ifarch %ix86 x86_64 -Recommends: flash-player -%endif Recommends: unrar Suggests: poppler-data %ifarch %ix86 @@ -4838,9 +4833,8 @@ Recommends: espeak # give vim hates an editor Recommends: nano -# pull flash and mp3 also on livecd installs +# pull mp3 also on livecd installs Recommends: pullin-fluendo-mp3 -Recommends: pullin-flash-player # #494547 - just testing Recommends: manufacturer-PPDs # needed to detect if a system is the same @@ -5074,9 +5068,8 @@ Recommends: espeak # give vim hates an editor Recommends: nano -# pull flash and mp3 also on livecd installs +# pull mp3 also on livecd installs Recommends: pullin-fluendo-mp3 -Recommends: pullin-flash-player # #494547 - just testing Recommends: manufacturer-PPDs # needed to detect if a system is the same @@ -5291,9 +5284,8 @@ Recommends: espeak # give vim hates an editor Recommends: nano -# pull flash and mp3 also on livecd installs +# pull mp3 also on livecd installs Recommends: pullin-fluendo-mp3 -Recommends: pullin-flash-player # #494547 - just testing Recommends: manufacturer-PPDs # needed to detect if a system is the same @@ -5886,9 +5878,8 @@ Recommends: espeak # give vim hates an editor Recommends: nano -# pull flash and mp3 also on livecd installs +# pull mp3 also on livecd installs Recommends: pullin-fluendo-mp3 -Recommends: pullin-flash-player # #494547 - just testing Recommends: manufacturer-PPDs # needed to detect if a system is the same @@ -6508,9 +6499,8 @@ Recommends: espeak # give vim hates an editor Recommends: nano -# pull flash and mp3 also on livecd installs +# pull mp3 also on livecd installs Recommends: pullin-fluendo-mp3 -Recommends: pullin-flash-player # #494547 - just testing Recommends: manufacturer-PPDs # needed to detect if a system is the same @@ -6711,7 +6701,6 @@ Requires: pattern() = sw_management Requires: pattern() = x11 # from data/SW-MANGEMENT-KDE4 -Recommends: apper Suggests: libyui-qt-pkg %description sw_management_kde

1 0

commit perl-DBD-mysql for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package perl-DBD-mysql for openSUSE:Factory checked in at 2015-10-30 13:43:43 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-DBD-mysql (Old) and /work/SRC/openSUSE:Factory/.perl-DBD-mysql.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-DBD-mysql" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-DBD-mysql/perl-DBD-mysql.changes 2015-09-08 17:42:36.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-DBD-mysql.new/perl-DBD-mysql.changes 2015-10-30 13:43:44.000000000 +0100 @@ -1,0 +2,19 @@ +Thu Oct 29 09:48:35 UTC 2015 - coolo(a)suse.com + +- updated to 4.033 + see /usr/share/doc/packages/perl-DBD-mysql/ChangeLog + + 2015-10-26 Patrick Galbraith, Michiel Beijen, DBI/DBD community (4.033) + * Full-release to include 03. + + 2015-10-25 Patrick Galbraith, Michiel Beijen, DBI/DBD community (4.032_03) + * Use mysql_get_option to read net_buffer_length and mysql_get_parameter + where available, needed for MySQL 5.7.9. Patch from berntm @ Oracle. + https://github.com/perl5-dbi/DBD-mysql/pull/42 + * Fix mysql_conn_attrs test when run against MySQL 5.1 server. + * Fix for memory leak to $sth->{ParamValues} , RT83051 + https://rt.cpan.org/Public/Bug/Display.html?id=83051 + * Fixes for running test suite on MySQL 5.7. + * Fix running test suite with InnoDB disabled, reported by bor. + +------------------------------------------------------------------- Old: ---- DBD-mysql-4.032.tar.gz New: ---- DBD-mysql-4.033.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-DBD-mysql.spec ++++++ --- /var/tmp/diff_new_pack.0iEZB9/_old 2015-10-30 13:43:45.000000000 +0100 +++ /var/tmp/diff_new_pack.0iEZB9/_new 2015-10-30 13:43:45.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-DBD-mysql -Version: 4.032 +Version: 4.033 Release: 0 %define cpan_name DBD-mysql Summary: MySQL driver for the Perl5 Database Interface (DBI) ++++++ DBD-mysql-4.032.tar.gz -> DBD-mysql-4.033.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/ChangeLog new/DBD-mysql-4.033/ChangeLog --- old/DBD-mysql-4.032/ChangeLog 2015-07-20 22:59:56.000000000 +0200 +++ new/DBD-mysql-4.033/ChangeLog 2015-10-27 04:25:38.000000000 +0100 @@ -1,3 +1,16 @@ +2015-10-26 Patrick Galbraith, Michiel Beijen, DBI/DBD community (4.033) +* Full-release to include 03. + +2015-10-25 Patrick Galbraith, Michiel Beijen, DBI/DBD community (4.032_03) +* Use mysql_get_option to read net_buffer_length and mysql_get_parameter + where available, needed for MySQL 5.7.9. Patch from berntm @ Oracle. + https://github.com/perl5-dbi/DBD-mysql/pull/42 +* Fix mysql_conn_attrs test when run against MySQL 5.1 server. +* Fix for memory leak to $sth->{ParamValues} , RT83051 + https://rt.cpan.org/Public/Bug/Display.html?id=83051 +* Fixes for running test suite on MySQL 5.7. +* Fix running test suite with InnoDB disabled, reported by bor. + 2015-07-20 Patrick Galbraith, Michiel Beijen, DBI/DBD community (4.032) * Full-release to include 02 and 01. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/META.json new/DBD-mysql-4.033/META.json --- old/DBD-mysql-4.032/META.json 2015-07-20 23:04:44.000000000 +0200 +++ new/DBD-mysql-4.033/META.json 2015-10-27 04:35:11.000000000 +0100 @@ -51,5 +51,5 @@ "x_IRC" : "irc://irc.perl.org/#dbi", "x_MailingList" : "mailto:dbi-dev@perl.org" }, - "version" : "4.032" + "version" : "4.033" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/META.yml new/DBD-mysql-4.033/META.yml --- old/DBD-mysql-4.032/META.yml 2015-07-20 23:04:44.000000000 +0200 +++ new/DBD-mysql-4.033/META.yml 2015-10-27 04:35:11.000000000 +0100 @@ -28,4 +28,4 @@ repository: https://github.com/perl5-dbi/DBD-mysql x_IRC: irc://irc.perl.org/#dbi x_MailingList: mailto:dbi-dev@perl.org -version: 4.032 +version: 4.033 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/dbdimp.c new/DBD-mysql-4.033/dbdimp.c --- old/DBD-mysql-4.032/dbdimp.c 2015-06-15 16:43:03.000000000 +0200 +++ new/DBD-mysql-4.033/dbdimp.c 2015-10-27 04:07:04.000000000 +0100 @@ -4629,7 +4629,7 @@ keylen, newSVsv(imp_sth->params[n].value), 0); } } - retsv= newRV_noinc((SV*)pvhv); + retsv= sv_2mortal(newRV_noinc((SV*)pvhv)); } break; case 'S': diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/lib/Bundle/DBD/mysql.pm new/DBD-mysql-4.033/lib/Bundle/DBD/mysql.pm --- old/DBD-mysql-4.032/lib/Bundle/DBD/mysql.pm 2015-07-20 23:03:02.000000000 +0200 +++ new/DBD-mysql-4.033/lib/Bundle/DBD/mysql.pm 2015-10-27 04:25:38.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '4.032'; +our $VERSION = '4.033'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/lib/DBD/mysql.pm new/DBD-mysql-4.033/lib/DBD/mysql.pm --- old/DBD-mysql-4.032/lib/DBD/mysql.pm 2015-07-20 23:00:14.000000000 +0200 +++ new/DBD-mysql-4.033/lib/DBD/mysql.pm 2015-10-27 04:25:38.000000000 +0100 @@ -15,7 +15,7 @@ # SQL_DRIVER_VER is formatted as dd.dd.dddd # for version 5.x please switch to 5.00(_00) version numbering # keep $VERSION in Bundle/DBD/mysql.pm in sync -our $VERSION = '4.032'; +our $VERSION = '4.033'; bootstrap DBD::mysql $VERSION; @@ -1261,76 +1261,84 @@ =item mysql_conn_attrs The option <mysql_conn_attrs> is a hash of attribute names and values which can be -used to send custom connection attributes to the server. - - node1$ cat ./foo.pl - #!/usr/bin/perl - - use DBI; - use Data::Dumper; - - my ($test_dsn, $test_user, $test_password) = ($ARGV[0], $ARGV[1], $ARGV[2]); - - my $dbh= DBI->connect($test_dsn, $test_user, $test_password, - { AutoCommit => 0, - mysql_conn_attrs => { foo => 'bar', wiz => 'bang' }, - }); - - my $results = $dbh->selectall_hashref('SELECT * FROM performance_schema.session_connect_attrs', 'ATTR_NAME'); - print Dumper($results); - - $dbh->disconnect(); - node1$ perl ./foo.pl 'DBI:mysql:test;hostname=127.0.0.1;port=5624' msandbox msandbox - $VAR1 = { - 'program_name' => { - 'ATTR_VALUE' => './foo.pl', - 'PROCESSLIST_ID' => '3', - 'ATTR_NAME' => 'program_name', - 'ORDINAL_POSITION' => '5' - }, - '_os' => { - 'ATTR_VALUE' => 'osx10.8', - 'PROCESSLIST_ID' => '3', - 'ATTR_NAME' => '_os', - 'ORDINAL_POSITION' => '0' - }, - 'wiz' => { - 'ATTR_VALUE' => 'bang', - 'PROCESSLIST_ID' => '3', - 'ATTR_NAME' => 'wiz', - 'ORDINAL_POSITION' => '3' - }, - '_platform' => { - 'ATTR_VALUE' => 'x86_64', - 'PROCESSLIST_ID' => '3', - 'ATTR_NAME' => '_platform', - 'ORDINAL_POSITION' => '4' - }, - '_client_name' => { - 'ATTR_VALUE' => 'libmysql', - 'PROCESSLIST_ID' => '3', - 'ATTR_NAME' => '_client_name', - 'ORDINAL_POSITION' => '1' - }, - '_pid' => { - 'ATTR_VALUE' => '59860', - 'PROCESSLIST_ID' => '3', - 'ATTR_NAME' => '_pid', - 'ORDINAL_POSITION' => '2' - }, - 'foo' => { - 'ATTR_VALUE' => 'bar', - 'PROCESSLIST_ID' => '3', - 'ATTR_NAME' => 'foo', - 'ORDINAL_POSITION' => '6' - }, - '_client_version' => { - 'ATTR_VALUE' => '5.6.24', - 'PROCESSLIST_ID' => '3', - 'ATTR_NAME' => '_client_version', - 'ORDINAL_POSITION' => '7' - } - }; +used to send custom connection attributes to the server. Some attributes like +'_os', '_platform', '_client_name' and '_client_version' are added by libmysqlclient +and 'program_name' is added by DBD::mysql. + +You can then later read these attributes from the performance schema tables which +can be quite helpful for profiling your database or creating statistics. +You'll have to use a MySQL 5.6 server and libmysqlclient or newer to leverage this +feature. + + my $dbh= DBI->connect($dsn, $user, $password, + { AutoCommit => 0, + mysql_conn_attrs => { + foo => 'bar', + wiz => 'bang' + }, + }); + +Now you can select the results from the performance schema tables. You can do this +in the same session, but also afterwards. It can be very useful to answer questions +like 'which script sent this query?'. + + my $results = $dbh->selectall_hashref( + 'SELECT * FROM performance_schema.session_connect_attrs', + 'ATTR_NAME' + ); + +This returns: + + $result = { + 'foo' => { + 'ATTR_VALUE' => 'bar', + 'PROCESSLIST_ID' => '3', + 'ATTR_NAME' => 'foo', + 'ORDINAL_POSITION' => '6' + }, + 'wiz' => { + 'ATTR_VALUE' => 'bang', + 'PROCESSLIST_ID' => '3', + 'ATTR_NAME' => 'wiz', + 'ORDINAL_POSITION' => '3' + }, + 'program_name' => { + 'ATTR_VALUE' => './foo.pl', + 'PROCESSLIST_ID' => '3', + 'ATTR_NAME' => 'program_name', + 'ORDINAL_POSITION' => '5' + }, + '_client_name' => { + 'ATTR_VALUE' => 'libmysql', + 'PROCESSLIST_ID' => '3', + 'ATTR_NAME' => '_client_name', + 'ORDINAL_POSITION' => '1' + }, + '_client_version' => { + 'ATTR_VALUE' => '5.6.24', + 'PROCESSLIST_ID' => '3', + 'ATTR_NAME' => '_client_version', + 'ORDINAL_POSITION' => '7' + }, + '_os' => { + 'ATTR_VALUE' => 'osx10.8', + 'PROCESSLIST_ID' => '3', + 'ATTR_NAME' => '_os', + 'ORDINAL_POSITION' => '0' + }, + '_pid' => { + 'ATTR_VALUE' => '59860', + 'PROCESSLIST_ID' => '3', + 'ATTR_NAME' => '_pid', + 'ORDINAL_POSITION' => '2' + }, + '_platform' => { + 'ATTR_VALUE' => 'x86_64', + 'PROCESSLIST_ID' => '3', + 'ATTR_NAME' => '_platform', + 'ORDINAL_POSITION' => '4' + } + }; =back @@ -1591,7 +1599,7 @@ rows: 1 Extra: Using index condition 1 row in set (0.00 sec) - + MariaDB [test]> explain select * from test where value0 = 3 -> \G *************************** 1. row *************************** @@ -1944,7 +1952,7 @@ =head2 Issues with multiple result sets Please be aware ther could be issues if your result sets are "jagged", -meaning the number of columns of your results vary. Varying numbers of +meaning the number of columns of your results vary. Varying numbers of columns could result in your script crashing. @@ -2018,7 +2026,7 @@ For the past nine years DBD::mysql has been maintained by Patrick Galbraith (I<patg(a)patg.net>), and recently with the great help of Michiel Beijen (I<michiel.beijen(a)gmail.com>), along with the entire community -of Perl developers who keep sending patches to help continue improving DBD::mysql +of Perl developers who keep sending patches to help continue improving DBD::mysql =head1 CONTRIBUTIONS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/mysql.xs new/DBD-mysql-4.033/mysql.xs --- old/DBD-mysql-4.032/mysql.xs 2015-05-11 15:13:02.000000000 +0200 +++ new/DBD-mysql-4.033/mysql.xs 2015-10-27 04:07:04.000000000 +0100 @@ -872,6 +872,11 @@ IV type = 0; SV* retsv=NULL; bool using_322=0; +#if !defined(net_buffer_length) + /* From MySQL 5.7.9 net_buffer_length is no longer a macro that + can be used. Instead we declare a local variable. */ + IV net_buffer_length; +#endif if (SvMAGICAL(sql_info_type)) mg_get(sql_info_type); @@ -897,12 +902,15 @@ ); break; case SQL_IDENTIFIER_QUOTE_CHAR: - /*XXX What about a DB started in ANSI mode? */ - /* Swiped from MyODBC's get_info.c */ - using_322 = ((strncmp(mysql_get_server_info(imp_dbh->pmysql),"3.22",4) == 0) ? 1 : 0 ); - retsv = newSVpv(!using_322 ? "`" : " ", 1); + retsv = newSVpv("`", 1); break; case SQL_MAXIMUM_STATEMENT_LENGTH: +#if !defined(net_buffer_length) + /* From MySQL 5.7.9 net_buffer_length is no longer a macro + that can be used. Instead we use mysql_get_option to retrieve the + value into a local varaible. */ + mysql_get_option(NULL, MYSQL_OPT_NET_BUFFER_LENGTH, &net_buffer_length); +#endif retsv = newSViv(net_buffer_length); break; case SQL_MAXIMUM_TABLES_IN_SELECT: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/t/10connect.t new/DBD-mysql-4.033/t/10connect.t --- old/DBD-mysql-4.032/t/10connect.t 2015-05-11 15:13:02.000000000 +0200 +++ new/DBD-mysql-4.033/t/10connect.t 2015-10-27 04:07:04.000000000 +0100 @@ -47,9 +47,16 @@ like($driver_ver, qr/^04\./, 'SQL_DRIVER_VER starts with "04." (update for 5.x)'); -my $result = $dbh->selectall_arrayref('select @@storage_engine'); -my $storage_engine = $result->[0]->[0] || 'unknown'; -diag "Default storage engine is: $storage_engine"; +# storage engine function is @@storage_engine in up to 5.5.03 +# at that version, @@default_storage_engine is introduced +# http://dev.mysql.com/doc/refman/5.5/en/server-system-variables.html#sysvar_… +# in MySQL Server 5.7.5 the old option is removed +# http://dev.mysql.com/doc/refman/5.7/en/server-system-variables.html#sysvar_… + +my $storage_engine = $dbh->{mysql_serverversion} >= 50503 ? '@@default_storage_engine' : '@@storage_engine'; +my $result = $dbh->selectall_arrayref('select ' . $storage_engine); +my $default_storage_engine = $result->[0]->[0] || 'unknown'; +diag "Default storage engine is: $default_storage_engine"; my $info_hashref = $dbh->{mysql_dbd_stats}; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/t/40bit.t new/DBD-mysql-4.033/t/40bit.t --- old/DBD-mysql-4.032/t/40bit.t 2015-05-11 15:13:02.000000000 +0200 +++ new/DBD-mysql-4.033/t/40bit.t 2015-10-27 04:07:04.000000000 +0100 @@ -29,11 +29,7 @@ ok $dbh->do("DROP TABLE IF EXISTS dbd_mysql_b1"), "Drop table if exists dbd_mysql_b1"; -my $create = <<EOT; -create table dbd_mysql_b1 (b bit(8)) engine=innodb; -EOT - -ok ($dbh->do($create)); +ok( $dbh->do('CREATE TABLE dbd_mysql_b1 (b BIT(8))') ); ok ($dbh->do("insert into dbd_mysql_b1 set b = b'11111111'")); ok ($dbh->do("insert into dbd_mysql_b1 set b = b'1010'")); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/t/40catalog.t new/DBD-mysql-4.033/t/40catalog.t --- old/DBD-mysql-4.032/t/40catalog.t 2015-05-11 15:13:02.000000000 +0200 +++ new/DBD-mysql-4.033/t/40catalog.t 2015-10-27 04:07:04.000000000 +0100 @@ -34,7 +34,7 @@ skip "Server is too old to support INFORMATION_SCHEMA for foreign keys", 16 if !MinimumVersion($dbh, '5.0'); - my $have_innodb; + my $have_innodb = 0; if (!MinimumVersion($dbh, '5.6')) { my $dummy; ($dummy,$have_innodb)= @@ -45,15 +45,16 @@ if (!$engines) { DbiError($dbh->err, $dbh->errstr); } else { - foreach my $engine (@$engines) { - if (lc($engine->[0]) eq 'innodb') { - $have_innodb = 'YES'; - } + STORAGE_ENGINE: + for my $engine (@$engines) { + next STORAGE_ENGINE if lc $engine->[0] ne 'innodb'; + next STORAGE_ENGINE if lc $engine->[1] eq 'no'; + $have_innodb = 1; } } } skip "Server doesn't support InnoDB, needed for testing foreign keys", 16 - unless defined $have_innodb && $have_innodb eq "YES"; + if !$have_innodb; ok($dbh->do(qq{DROP TABLE IF EXISTS child, parent}), "cleaning up"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.032/t/mysql.mtest new/DBD-mysql-4.033/t/mysql.mtest --- old/DBD-mysql-4.032/t/mysql.mtest 2015-07-20 23:02:02.000000000 +0200 +++ new/DBD-mysql-4.033/t/mysql.mtest 2015-10-27 04:13:21.000000000 +0100 @@ -1,18 +1,18 @@ { local $opt = { + 'embedded' => '', 'mysql_config' => 'mysql_config', - 'ssl' => 0, - 'testport' => '', + 'libs' => '-L/usr/lib/x86_64-linux-gnu -lmariadbclient', + 'testhost' => '', 'testsocket' => '', + 'ssl' => 0, + 'testuser' => 'root', + 'nocatchstderr' => 0, 'ldflags' => '', 'testpassword' => 'root', - 'libs' => '-L/usr/lib/x86_64-linux-gnu -lmariadbclient', - 'nocatchstderr' => 0, - 'testuser' => 'root', - 'nofoundrows' => 0, - 'testhost' => '', 'cflags' => '-I/usr/include/mysql', - 'embedded' => '', - 'testdb' => 'test' + 'testdb' => 'test', + 'testport' => '', + 'nofoundrows' => 0 }; $::test_host = $opt->{'testhost'}; $::test_port = $opt->{'testport'};

1 0

commit perl-Lingua-EN-FindNumber for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package perl-Lingua-EN-FindNumber for openSUSE:Factory checked in at 2015-10-30 13:43:41 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Lingua-EN-FindNumber (Old) and /work/SRC/openSUSE:Factory/.perl-Lingua-EN-FindNumber.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Lingua-EN-FindNumber" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Lingua-EN-FindNumber/perl-Lingua-EN-FindNumber.changes 2015-07-12 22:52:39.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Lingua-EN-FindNumber.new/perl-Lingua-EN-FindNumber.changes 2015-10-30 13:43:42.000000000 +0100 @@ -1,0 +2,10 @@ +Thu Oct 29 10:04:03 UTC 2015 - coolo(a)suse.com + +- updated to 1.32 + see /usr/share/doc/packages/perl-Lingua-EN-FindNumber/Changes + + 1.32 2015-10-25 NEILB + - Minor documentation improvements. + - Changed github repo URL after changing my github username. + +------------------------------------------------------------------- Old: ---- Lingua-EN-FindNumber-1.31.tar.gz New: ---- Lingua-EN-FindNumber-1.32.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Lingua-EN-FindNumber.spec ++++++ --- /var/tmp/diff_new_pack.17NNzi/_old 2015-10-30 13:43:43.000000000 +0100 +++ /var/tmp/diff_new_pack.17NNzi/_new 2015-10-30 13:43:43.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-Lingua-EN-FindNumber -Version: 1.31 +Version: 1.32 Release: 0 %define cpan_name Lingua-EN-FindNumber Summary: Locate (written) numbers in English text ++++++ Lingua-EN-FindNumber-1.31.tar.gz -> Lingua-EN-FindNumber-1.32.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Lingua-EN-FindNumber-1.31/Changes new/Lingua-EN-FindNumber-1.32/Changes --- old/Lingua-EN-FindNumber-1.31/Changes 2015-07-04 17:53:43.000000000 +0200 +++ new/Lingua-EN-FindNumber-1.32/Changes 2015-10-25 15:26:46.000000000 +0100 @@ -1,5 +1,9 @@ Revision history for Perl module Lingua::EN::FindNumber +1.32 2015-10-25 NEILB + - Minor documentation improvements. + - Changed github repo URL after changing my github username. + 1.31 2015-07-04 NEILB - Added [MetaJSON] to dist.ini, so release will include META.json. RT#105631 from ETHER++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Lingua-EN-FindNumber-1.31/MANIFEST new/Lingua-EN-FindNumber-1.32/MANIFEST --- old/Lingua-EN-FindNumber-1.31/MANIFEST 2015-07-04 17:53:43.000000000 +0200 +++ new/Lingua-EN-FindNumber-1.32/MANIFEST 2015-10-25 15:26:46.000000000 +0100 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.032. +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.037. Changes LICENSE MANIFEST diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Lingua-EN-FindNumber-1.31/META.json new/Lingua-EN-FindNumber-1.32/META.json --- old/Lingua-EN-FindNumber-1.31/META.json 2015-07-04 17:53:43.000000000 +0200 +++ new/Lingua-EN-FindNumber-1.32/META.json 2015-10-25 15:26:46.000000000 +0100 @@ -5,13 +5,13 @@ "Tony Bowden <tmtm(a)cpan.org>" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 5.032, CPAN::Meta::Converter version 2.150001", + "generated_by" : "Dist::Zilla version 5.037, CPAN::Meta::Converter version 2.150005", "license" : [ "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", - "version" : "2" + "version" : 2 }, "name" : "Lingua-EN-FindNumber", "prereqs" : { @@ -38,13 +38,13 @@ }, "release_status" : "stable", "resources" : { - "homepage" : "https://github.com/neilbowers/Lingua-EN-FindNumber", + "homepage" : "https://github.com/neilb/Lingua-EN-FindNumber", "repository" : { "type" : "git", - "url" : "https://github.com/neilbowers/Lingua-EN-FindNumber.git", - "web" : "https://github.com/neilbowers/Lingua-EN-FindNumber" + "url" : "https://github.com/neilb/Lingua-EN-FindNumber.git", + "web" : "https://github.com/neilb/Lingua-EN-FindNumber" } }, - "version" : "1.31" + "version" : "1.32" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Lingua-EN-FindNumber-1.31/META.yml new/Lingua-EN-FindNumber-1.32/META.yml --- old/Lingua-EN-FindNumber-1.31/META.yml 2015-07-04 17:53:43.000000000 +0200 +++ new/Lingua-EN-FindNumber-1.32/META.yml 2015-10-25 15:26:46.000000000 +0100 @@ -8,7 +8,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'Dist::Zilla version 5.032, CPAN::Meta::Converter version 2.150001' +generated_by: 'Dist::Zilla version 5.037, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -22,6 +22,6 @@ strict: '0' warnings: '0' resources: - homepage: https://github.com/neilbowers/Lingua-EN-FindNumber - repository: https://github.com/neilbowers/Lingua-EN-FindNumber.git -version: '1.31' + homepage: https://github.com/neilb/Lingua-EN-FindNumber + repository: https://github.com/neilb/Lingua-EN-FindNumber.git +version: '1.32' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Lingua-EN-FindNumber-1.31/Makefile.PL new/Lingua-EN-FindNumber-1.32/Makefile.PL --- old/Lingua-EN-FindNumber-1.31/Makefile.PL 2015-07-04 17:53:43.000000000 +0200 +++ new/Lingua-EN-FindNumber-1.32/Makefile.PL 2015-10-25 15:26:46.000000000 +0100 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.032. +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.037. use strict; use warnings; @@ -27,7 +27,7 @@ "TEST_REQUIRES" => { "Test::More" => 0 }, - "VERSION" => "1.31", + "VERSION" => "1.32", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Lingua-EN-FindNumber-1.31/README new/Lingua-EN-FindNumber-1.32/README --- old/Lingua-EN-FindNumber-1.31/README 2015-07-04 17:53:43.000000000 +0200 +++ new/Lingua-EN-FindNumber-1.32/README 2015-10-25 15:26:46.000000000 +0100 @@ -1,7 +1,7 @@ This archive contains the distribution Lingua-EN-FindNumber, -version 1.31: +version 1.32: Locate (written) numbers in English text @@ -11,5 +11,5 @@ the same terms as the Perl 5 programming language system itself. -This README file was generated by Dist::Zilla::Plugin::Readme v5.032. +This README file was generated by Dist::Zilla::Plugin::Readme v5.037. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Lingua-EN-FindNumber-1.31/dist.ini new/Lingua-EN-FindNumber-1.32/dist.ini --- old/Lingua-EN-FindNumber-1.31/dist.ini 2015-07-04 17:53:43.000000000 +0200 +++ new/Lingua-EN-FindNumber-1.32/dist.ini 2015-10-25 15:26:46.000000000 +0100 @@ -5,7 +5,7 @@ copyright_holder = Simon Cozens copyright_year = 2003 -version = 1.31 +version = 1.32 [@Basic] [PkgVersion] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Lingua-EN-FindNumber-1.31/lib/Lingua/EN/FindNumber.pm new/Lingua-EN-FindNumber-1.32/lib/Lingua/EN/FindNumber.pm --- old/Lingua-EN-FindNumber-1.31/lib/Lingua/EN/FindNumber.pm 2015-07-04 17:53:43.000000000 +0200 +++ new/Lingua-EN-FindNumber-1.32/lib/Lingua/EN/FindNumber.pm 2015-10-25 15:26:46.000000000 +0100 @@ -1,5 +1,5 @@ package Lingua::EN::FindNumber; -$Lingua::EN::FindNumber::VERSION = '1.31'; +$Lingua::EN::FindNumber::VERSION = '1.32'; use 5.006; use strict; use warnings; @@ -49,7 +49,7 @@ @numbers = extract_numbers($text); # "Fourscore and seven", "four" while ($text =~ /$number_re/g) { # Build your own iterator - + =head1 DESCRIPTION @@ -66,31 +66,31 @@ @numbers = extract_numbers($text); # "Fourscore and seven", "four" while ($text =~ /$number_re/g) { # Build your own iterator - + =head1 SEE ALSO This module was written for the Natural Languages chapter of the second -edition of Advanced Perl Programming. If you liked the module, why not -buy the book? - - http://www.amazon.co.uk/exec/obidos/ASIN/0596004567/tmtm-20 +edition of Advanced Perl Programming. This module works rather well in conjunction with -L<Lingua::EN::Words2Nums>, which is a very cool module anyway. (And I -stole some of this module's code from it. Thanks, Joey!) It may also -be involved with L<Lingua::EN::NamedEntity> in the future, so check that -one out too. +L<Lingua::EN::Words2Nums>, which is a very cool module anyway. +(And Simon stole some of this module's code from it. Thanks, Joey!) +It may also be involved with L<Lingua::EN::NamedEntity> in the future, +so check that one out too. + =head1 REPOSITORY -L<https://github.com/neilbowers/Lingua-EN-FindNumber> +L<https://github.com/neilb/Lingua-EN-FindNumber> + =head1 AUTHOR -Current maintainer: Tony Bowden +This module was originally written by Simon Cozens. +It was then maintained from 2004 to 2005 by Tony Bowden. +Since 2014 it has been maintained by Neil Bowers. -Original author: Simon Cozens =head1 BUGS and QUERIES

1 0

commit perl-Mojolicious for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package perl-Mojolicious for openSUSE:Factory checked in at 2015-10-30 13:43:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Mojolicious (Old) and /work/SRC/openSUSE:Factory/.perl-Mojolicious.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Mojolicious" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Mojolicious/perl-Mojolicious.changes 2015-10-24 10:30:13.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Mojolicious.new/perl-Mojolicious.changes 2015-10-30 13:43:41.000000000 +0100 @@ -1,0 +2,10 @@ +Thu Oct 29 10:09:09 UTC 2015 - coolo(a)suse.com + +- updated to 6.26 + see /usr/share/doc/packages/perl-Mojolicious/Changes + + 6.26 2015-10-28 + - Renamed built-in templates with more descriptive names. + - Added warmup method to Mojolicious::Renderer and Mojolicious::Static. + +------------------------------------------------------------------- Old: ---- Mojolicious-6.25.tar.gz New: ---- Mojolicious-6.26.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Mojolicious.spec ++++++ --- /var/tmp/diff_new_pack.Ikdb1h/_old 2015-10-30 13:43:41.000000000 +0100 +++ /var/tmp/diff_new_pack.Ikdb1h/_new 2015-10-30 13:43:41.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-Mojolicious -Version: 6.25 +Version: 6.26 Release: 0 %define cpan_name Mojolicious Summary: Real-time web framework ++++++ Mojolicious-6.25.tar.gz -> Mojolicious-6.26.tar.gz ++++++ ++++ 1642 lines of diff (skipped)

1 0

commit perl-Net-Whois-Raw for openSUSE:Factory
by root＠hilbert.suse.de 30 Oct '15

30 Oct '15

Hello community, here is the log from the commit of package perl-Net-Whois-Raw for openSUSE:Factory checked in at 2015-10-30 13:43:39 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw (Old) and /work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-Net-Whois-Raw" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw/perl-Net-Whois-Raw.changes 2015-10-28 17:31:15.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new/perl-Net-Whois-Raw.changes 2015-10-30 13:43:40.000000000 +0100 @@ -1,0 +2,9 @@ +Thu Oct 29 10:13:54 UTC 2015 - coolo(a)suse.com + +- updated to 2.91 + see /usr/share/doc/packages/perl-Net-Whois-Raw/Changes + + 2.91 Oct 28 2015 Vadim Likhota + - even more new tlds of whois.centralnic.com + +------------------------------------------------------------------- Old: ---- Net-Whois-Raw-2.90.tar.gz New: ---- Net-Whois-Raw-2.91.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Net-Whois-Raw.spec ++++++ --- /var/tmp/diff_new_pack.C0ettK/_old 2015-10-30 13:43:40.000000000 +0100 +++ /var/tmp/diff_new_pack.C0ettK/_new 2015-10-30 13:43:40.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-Net-Whois-Raw -Version: 2.90 +Version: 2.91 Release: 0 %define cpan_name Net-Whois-Raw Summary: Get Whois information of domains and IP addresses @@ -35,6 +35,7 @@ BuildRequires: perl(HTTP::Request) BuildRequires: perl(IO::Socket::IP) BuildRequires: perl(LWP::UserAgent) +BuildRequires: perl(Net::IDN::Punycode) BuildRequires: perl(Regexp::IPv6) BuildRequires: perl(Test::RequiresInternet) BuildRequires: perl(URI::URL) @@ -42,6 +43,7 @@ Requires: perl(HTTP::Request) Requires: perl(IO::Socket::IP) Requires: perl(LWP::UserAgent) +Requires: perl(Net::IDN::Punycode) Requires: perl(Regexp::IPv6) Requires: perl(URI::URL) %{perl_requires} @@ -60,7 +62,6 @@ %prep %setup -q -n %{cpan_name}-%{version} -find . -type f -print0 | xargs -0 chmod 644 %build %{__perl} Makefile.PL INSTALLDIRS=vendor @@ -76,6 +77,6 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes COPYRIGHT LICENSE pwhois README +%doc Changes COPYRIGHT LICENSE README %changelog ++++++ Net-Whois-Raw-2.90.tar.gz -> Net-Whois-Raw-2.91.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/Changes new/Net-Whois-Raw-2.91/Changes --- old/Net-Whois-Raw-2.90/Changes 2015-10-27 10:16:24.000000000 +0100 +++ new/Net-Whois-Raw-2.91/Changes 2015-10-28 11:09:15.000000000 +0100 @@ -1,5 +1,8 @@ Revision history for Perl module Net::Whois::Raw. +2.91 Oct 28 2015 Vadim Likhota + - even more new tlds of whois.centralnic.com + 2.89, 2.90 Oct 27 2015 Alexander Nalobin - more new tlds of whois.centralnic.com diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/MANIFEST new/Net-Whois-Raw-2.91/MANIFEST --- old/Net-Whois-Raw-2.90/MANIFEST 2015-10-27 10:16:24.000000000 +0100 +++ new/Net-Whois-Raw-2.91/MANIFEST 2015-10-28 11:09:15.000000000 +0100 @@ -6,11 +6,11 @@ META.yml Makefile.PL README +bin/pwhois dist.ini lib/Net/Whois/Raw.pm lib/Net/Whois/Raw/Common.pm lib/Net/Whois/Raw/Data.pm -pwhois t/01-local.t t/02-www_parse_tj_cgi_whois.t t/03-read_write_cache.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/META.yml new/Net-Whois-Raw-2.91/META.yml --- old/Net-Whois-Raw-2.90/META.yml 2015-10-27 10:16:24.000000000 +0100 +++ new/Net-Whois-Raw-2.91/META.yml 2015-10-28 11:09:15.000000000 +0100 @@ -22,10 +22,12 @@ Data::Dumper: '0' Encode: '0' File::Temp: '0' + Getopt::Long: '0' HTTP::Headers: '0' HTTP::Request: '0' IO::Socket::IP: '0' LWP::UserAgent: '0' + Net::IDN::Punycode: '0' Regexp::IPv6: '0' URI::URL: '0' perl: 5.008_001 @@ -35,4 +37,4 @@ resources: bugtracker: https://github.com/regru/Net-Whois-Raw/issues repository: git://github.com/regru/Net-Whois-Raw.git -version: '2.90' +version: '2.91' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/Makefile.PL new/Net-Whois-Raw-2.91/Makefile.PL --- old/Net-Whois-Raw-2.90/Makefile.PL 2015-10-27 10:16:24.000000000 +0100 +++ new/Net-Whois-Raw-2.91/Makefile.PL 2015-10-28 11:09:15.000000000 +0100 @@ -13,6 +13,10 @@ "ExtUtils::MakeMaker" => 0 }, "DISTNAME" => "Net-Whois-Raw", + "EXE_FILES" => [ + "bin/pwhois", + "bin/pwhois" + ], "LICENSE" => "perl", "MIN_PERL_VERSION" => "5.008_001", "NAME" => "Net::Whois::Raw", @@ -21,10 +25,12 @@ "Data::Dumper" => 0, "Encode" => 0, "File::Temp" => 0, + "Getopt::Long" => 0, "HTTP::Headers" => 0, "HTTP::Request" => 0, "IO::Socket::IP" => 0, "LWP::UserAgent" => 0, + "Net::IDN::Punycode" => 0, "Regexp::IPv6" => 0, "URI::URL" => 0, "strict" => 0, @@ -38,7 +44,7 @@ "Test::More" => 0, "Test::RequiresInternet" => 0 }, - "VERSION" => "2.90", + "VERSION" => "2.91", "test" => { "TESTS" => "t/*.t" } @@ -51,10 +57,12 @@ "Data::Dumper" => 0, "Encode" => 0, "File::Temp" => 0, + "Getopt::Long" => 0, "HTTP::Headers" => 0, "HTTP::Request" => 0, "IO::Socket::IP" => 0, "LWP::UserAgent" => 0, + "Net::IDN::Punycode" => 0, "Regexp::IPv6" => 0, "Socket" => 0, "Test::More" => 0, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/bin/pwhois new/Net-Whois-Raw-2.91/bin/pwhois --- old/Net-Whois-Raw-2.90/bin/pwhois 1970-01-01 01:00:00.000000000 +0100 +++ new/Net-Whois-Raw-2.91/bin/pwhois 2015-10-28 11:09:15.000000000 +0100 @@ -0,0 +1,293 @@ +#!/usr/bin/env perl + +# PODNAME: phwois +# ABSTRACT: Get Whois information of domains and IP addresses. + +use strict; +use warnings; +use Net::Whois::Raw; +use Getopt::Long; +use Encode; +use Net::IDN::Punycode qw( :all ); +use utf8; + +my $help; +my $do_strip; +my $do_strip_more; +my $do_checkfail; +my $do_checkfail_more; +my $debug = 0; +my $timeout = 10; +my $enable_caching; +my @source_addresses; +my $return_first; +my $return_last; +my $return_all; + +Getopt::Long::Configure( 'bundling', 'no_ignore_case' ); + +GetOptions( + 'help|h' => \$help, + 'strip|s' => \$do_strip, + 'checkfail|c' => \$do_checkfail, + 'debug|d+' => \$debug, + 'timeout|T=i' => \$timeout, + 'enable_caching|t' => \$enable_caching, + 'src_addr|a=s@' => \@source_addresses, + 'return_first|F' => \$return_first, + 'return_last|L' => \$return_last, + 'return_all|A' => \$return_all, +) or die; + +if ($help || !@ARGV) { + print <<EOM; +Usage: $0 [ -s ] [ -c ] [ -d ] [ -T <timeout> ] [ -a <src_ip> ] [ -t ] [ -F | -L | -A ] <domain> [ <server> ] + +Switches: +-s attempt to strip the copyright message or disclaimer. +-c attempts to return an empty answer for failed searches. +-T set timeout for connection attempts +-t enables caching. +-a specify an ip address that should be used as source address +-d enables debugging messages. +-F returns results of the first query of recursive whois requests +-L returns results of the last query of recursive whois requests (the default) +-A returns results of the all queries of recursive whois requests +EOM + exit; +} + +$Net::Whois::Raw::DEBUG = $debug; +$Net::Whois::Raw::OMIT_MSG = $do_strip ? 1 : 0; +$Net::Whois::Raw::CHECK_FAIL = $do_checkfail ? 1 : 0; +$Net::Whois::Raw::TIMEOUT = $timeout; +@Net::Whois::Raw::SRC_IPS = @source_addresses if @source_addresses; + +if ($enable_caching) { + if ($^O eq 'MSWin32') { + $Net::Whois::Raw::CACHE_DIR = $ENV{TEMP} || "C:\\temp"; + } + else { + $Net::Whois::Raw::CACHE_DIR = $ENV{TMPDIR} || '/tmp'; + } +} +else { + $Net::Whois::Raw::CACHE_DIR = undef; +} + +my ( $input_cp, $output_cp ) = detect_encodings(); + +my $dom = $ARGV[0]; +my $server = $ARGV[1]; + +$dom = prepare_domain($dom, $input_cp); + +unless (validate_domain($dom)) { + print encode_output("\nIncorrect domain name:\n$dom\n", $output_cp); + exit -1; +} + +$dom = to_punycode($dom); + +eval { + my ($result, $result_server); + my $which_whois = + $return_first ? 'QRY_FIRST' : + $return_all ? 'QRY_ALL' : 'QRY_LAST'; + + ($result, $result_server) = + Net::Whois::Raw::get_whois( $dom, $server, $which_whois ); + + if ($result and ref $result eq 'ARRAY') { + make_output($_->{text}, $_->{srv}, $output_cp) for @{$result}; + } + elsif ($result) { + make_output($result, $result_server, $output_cp); + } + else { + print STDERR "Failed.\n"; + } +}; + +if ($@) { + my $err = $@; + + $err =~ s/\s+at \S+ line \d+\.$//; + print "\nWhois information could not be fetched:\n$err\n"; + exit -1; +} + +# Prepare and print output +sub make_output { + my ($result, $server, $cp) = @_; + + $result = encode_output( $result, $cp ); + + print "[$server]\n"; + print $result, "\n"; +} + +# Encode output +sub encode_output { + my ( $output, $cp ) = @_; + + if ( $cp =~ /utf\-?8/ ) { + $output = encode_utf8( $output ); + } + else { + $output = encode( $cp, $output ); + } + + return $output; +} + +# Detect terminal input and output encodings +sub detect_encodings { + my ( $input_cp, $output_cp ); + + if ( $^O =~ /Win/ ) { + # Read encoding from registry + require Win32API::Registry; + Win32API::Registry->import( qw( :ALL ) ); + + my ( $key, $type, $data ); + RegOpenKeyEx( HKEY_LOCAL_MACHINE(), 'SYSTEM\\CurrentControlSet\\Control\\Nls\\CodePage', 0, KEY_READ(), $key ) + or die "Can't read system encodings from registry: ".regLastError(); + RegQueryValueEx( $key, 'ACP', [], $type, $data, [] ) + or die "Can't read system encodings from registry: ".regLastError(); + $input_cp = 'cp'.$data; + RegQueryValueEx( $key, 'OEMCP', [], $type, $data, [] ) + or die "Can't read system encodings from registry: ".regLastError(); + $output_cp = 'cp'.$data; + } else { + # Read encoding from environment + my $cp = $ENV{LANG}; + if ( $cp ) { + $cp =~ s/^[a-z]{2}_[A-Z]{2}[.]//; + } + else { + $cp = 'utf-8'; + } + + $input_cp = $output_cp = lc $cp; + } + + return $input_cp, $output_cp; +} + +# Prepare domain name +sub prepare_domain { + my ($dom, $input_cp) = @_; + + # Decode command-line input + $dom = decode($input_cp, $dom); + + # Lowercase latin and cyrillic characters + $dom =~ tr/A-ZА-ЯЁ\xAA\xA5\xB2\xAF/a-zа-яё\xBA\xB4\xB3\xBF/; + + return $dom; +} + +# Decode domain name to punycode if needed +sub to_punycode { + my ($dom) = @_; + + unless ($dom =~ /^[a-z0-9.\-]*$/) { + # Convert to Punycode + my @parts; + foreach my $part (split /\./, $dom) { + $part = 'xn--'.Net::IDN::Punycode::encode_punycode( $part ) + unless $part =~ /^[a-z0-9.-]*$/; + push @parts, $part; + } + $dom = join('.', @parts); + } + + return $dom; +} + +# Validate domain name +sub validate_domain { + my ($dom) = @_; + + return 0 unless $dom; + + $dom =~ /(.+?)\.([^.]+)$/; + my ($name, $tld) = ($1, $2); + + return 0 if $name =~ /^-/; + return 0 if $name =~ /-$/; + return 0 if $name =~ /^..--/ && $dom !~ /^xn--/; + + # Only latin and cyrillic characters allowed now + return 0 if $dom =~ m/[^-a-z0-9\.ёа-я\xAA\xBA\xB4\xB2\xB3\xAF\xBF\xA1\xA2]/; + + return 1; +} + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +phwois - Get Whois information of domains and IP addresses. + +=head1 VERSION + +version 2.91 + +=head1 SYNOPSIS + + pwhois perl.com + pwhois gnu.org + pwhois -s police.co.il + pwhois -c there.is.no.tld.called.foobar + pwhois yahoo.com whois.networksolutions.com + pwhois -T 10 funet.fi + +etc etc..... + +=head1 DESCRIPTION + +Just invoke with a domain name, optionally with a whois server name. +Switches: + B<-s> attempt to strip the copyright message or disclaimer. + B<-c> attempts to return an empty answer for failed searches. + B<-e> forces die if connection rate to server have been exceeded. + B<-T> set timeout for connection attempts + B<-t> enables caching. + B<-a> specify an ip address that should be used as source address + B<-d> enables debugging messages. + B<-F> returns results of the first query of recursive whois requests + B<-L> returns results of the last query of recursive whois requests (the default) + B<-A> returns results of the all queries of recursive whois requests + +=head1 NAME + +pwhois - Perl written whois client + +=head1 AUTHORS + +Ariel Brosh B<schop(a)cpan.org> + +Current Maintainer: Walery Studennikov B<despair(a)cpan.org> + +=head1 SEE ALSO + +L<Net::Whois::Raw>. + +=head1 AUTHOR + +Alexander Nalobin <alexander(a)nalobin.ru> + +=head1 COPYRIGHT AND LICENSE + +This software is copyright (c) 2002-2015 by Alexander Nalobin. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/dist.ini new/Net-Whois-Raw-2.91/dist.ini --- old/Net-Whois-Raw-2.90/dist.ini 2015-10-27 10:16:24.000000000 +0100 +++ new/Net-Whois-Raw-2.91/dist.ini 2015-10-28 11:09:15.000000000 +0100 @@ -4,14 +4,16 @@ copyright_holder = Alexander Nalobin copyright_year = 2002-2015 -version = 2.90 +version = 2.91 [@Filter] -bundle = @Basic -remove = Readme [AutoPrereqs] +skip = Win32API::Registry [Prereqs] File::Temp = 0 +[ExecDir] [PodWeaver] [PkgVersion] [TestRelease] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/lib/Net/Whois/Raw/Common.pm new/Net-Whois-Raw-2.91/lib/Net/Whois/Raw/Common.pm --- old/Net-Whois-Raw-2.90/lib/Net/Whois/Raw/Common.pm 2015-10-27 10:16:24.000000000 +0100 +++ new/Net-Whois-Raw-2.91/lib/Net/Whois/Raw/Common.pm 2015-10-28 11:09:15.000000000 +0100 @@ -1,5 +1,5 @@ package Net::Whois::Raw::Common; -$Net::Whois::Raw::Common::VERSION = '2.90'; +$Net::Whois::Raw::Common::VERSION = '2.91'; # ABSTRACT: Helper for Net::Whois::Raw. use Encode; @@ -619,7 +619,7 @@ =head1 VERSION -version 2.90 +version 2.91 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/lib/Net/Whois/Raw/Data.pm new/Net-Whois-Raw-2.91/lib/Net/Whois/Raw/Data.pm --- old/Net-Whois-Raw-2.90/lib/Net/Whois/Raw/Data.pm 2015-10-27 10:16:24.000000000 +0100 +++ new/Net-Whois-Raw-2.91/lib/Net/Whois/Raw/Data.pm 2015-10-28 11:09:15.000000000 +0100 @@ -1,5 +1,5 @@ package Net::Whois::Raw::Data; -$Net::Whois::Raw::Data::VERSION = '2.90'; +$Net::Whois::Raw::Data::VERSION = '2.91'; # ABSTRACT: Config for Net::Whois::Raw. use utf8; @@ -305,6 +305,8 @@ LUXURY whois.nic.luxury WIEN whois.nic.wien ONE whois.nic.one + TOP whois.nic.top + TRADING whois.nic.trading PINK whois.afilias.net RED whois.afilias.net @@ -470,7 +472,6 @@ TR whois.nic.tr TW whois.twnic.net.tw UA whois.com.ua - NET.UA whois.net.ua UK whois.nic.uk US whois.nic.us UZ whois.cctld.uz @@ -646,6 +647,7 @@ ORG.TW whois.twnic.net COM.UA whois.com.ua + NET.UA whois.net.ua ORG.UA whois.com.ua BIZ.UA whois.biz.ua CO.UA whois.co.ua @@ -675,51 +677,59 @@ XN--E1APQ whois.i-dns.net XN--C1AVG whois.publicinterestregistry.net + AE.ORG whois.centralnic.com + AFRICA.COM whois.centralnic.com + AR.COM whois.centralnic.com + BR.COM whois.centralnic.com + CN.COM whois.centralnic.com + CO.COM whois.centralnic.com + DE.COM whois.centralnic.com + COM.DE whois.centralnic.com EU.COM whois.centralnic.com GB.COM whois.centralnic.com - KR.COM whois.centralnic.com - US.COM whois.centralnic.com - QC.COM whois.centralnic.com - DE.COM whois.centralnic.com - NO.COM whois.centralnic.com + GB.NET whois.centralnic.com + GR.COM whois.centralnic.com HU.COM whois.centralnic.com + HU.NET whois.centralnic.com + IN.NET whois.centralnic.com + JP.NET whois.centralnic.com JPN.COM whois.centralnic.com - UY.COM whois.centralnic.com - ZA.COM whois.centralnic.com - BR.COM whois.centralnic.com - CN.COM whois.centralnic.com + KR.COM whois.centralnic.com + MEX.COM whois.centralnic.com + NO.COM whois.centralnic.com + QC.COM whois.centralnic.com + RU.COM whois.centralnic.com SA.COM whois.centralnic.com SE.COM whois.centralnic.com + COM.SE whois.centralnic.com + SE.NET whois.centralnic.com UK.COM whois.centralnic.com - RU.COM whois.centralnic.com - - GB.NET whois.centralnic.com UK.NET whois.centralnic.com - SE.NET whois.centralnic.com - AE.ORG whois.centralnic.com - IN.NET whois.centralnic.com - SITE whois.centralnic.com - AFRICA.COM whois.centralnic.com + US.COM whois.centralnic.com + UY.COM whois.centralnic.com + ZA.COM whois.centralnic.com + + BAR whois.centralnic.com + COLLEGE whois.centralnic.com DESIGN whois.centralnic.com FANS whois.centralnic.com + FEEDBACK whois.centralnic.com HOST whois.centralnic.com + INK whois.centralnic.com LOVE whois.centralnic.com - MEX.COM whois.centralnic.com ONLINE whois.centralnic.com + PRESS whois.centralnic.com PROTECTION whois.centralnic.com REIT whois.centralnic.com RENT whois.centralnic.com + REST whois.centralnic.com SECURITY whois.centralnic.com + SITE whois.centralnic.com SPACE whois.centralnic.com TECH whois.centralnic.com THEATRE whois.centralnic.com TICKETS whois.centralnic.com WEBSITE whois.centralnic.com - BAR whois.centralnic.com - COLLEGE whois.centralnic.com - FEEDBACK whois.centralnic.com - INK whois.centralnic.com - REST whois.centralnic.com WIKI whois.centralnic.com XYZ whois.centralnic.com @@ -731,7 +741,6 @@ XXX whois.nic.xxx MOSCOW whois.nic.moscow TATAR whois.nic.tatar - PRESS whois.nic.press ); @@ -2599,7 +2608,7 @@ =head1 VERSION -version 2.90 +version 2.91 =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/lib/Net/Whois/Raw.pm new/Net-Whois-Raw-2.91/lib/Net/Whois/Raw.pm --- old/Net-Whois-Raw-2.90/lib/Net/Whois/Raw.pm 2015-10-27 10:16:24.000000000 +0100 +++ new/Net-Whois-Raw-2.91/lib/Net/Whois/Raw.pm 2015-10-28 11:09:15.000000000 +0100 @@ -1,5 +1,5 @@ package Net::Whois::Raw; -$Net::Whois::Raw::VERSION = '2.90'; +$Net::Whois::Raw::VERSION = '2.91'; # ABSTRACT: Get Whois information of domains and IP addresses. require 5.008_001; @@ -472,7 +472,7 @@ =head1 VERSION -version 2.90 +version 2.91 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Net-Whois-Raw-2.90/pwhois new/Net-Whois-Raw-2.91/pwhois --- old/Net-Whois-Raw-2.90/pwhois 2015-10-27 10:16:24.000000000 +0100 +++ new/Net-Whois-Raw-2.91/pwhois 1970-01-01 01:00:00.000000000 +0100 @@ -1,265 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use warnings; -use Net::Whois::Raw; -use Getopt::Long; -use Encode; -use Net::IDN::Punycode qw( :all ); -use utf8; - -my $help; -my $do_strip; -my $do_strip_more; -my $do_checkfail; -my $do_checkfail_more; -my $debug = 0; -my $timeout = 10; -my $enable_caching; -my @source_addresses; -my $return_first; -my $return_last; -my $return_all; - -Getopt::Long::Configure( 'bundling', 'no_ignore_case' ); - -GetOptions( - 'help|h' => \$help, - 'strip|s' => \$do_strip, - 'checkfail|c' => \$do_checkfail, - 'debug|d+' => \$debug, - 'timeout|T=i' => \$timeout, - 'enable_caching|t' => \$enable_caching, - 'src_addr|a=s@' => \@source_addresses, - 'return_first|F' => \$return_first, - 'return_last|L' => \$return_last, - 'return_all|A' => \$return_all, -) or die; - -if ($help || !@ARGV) { - print <<EOM; -Usage: $0 [ -s ] [ -c ] [ -d ] [ -T <timeout> ] [ -a <src_ip> ] [ -t ] [ -F | -L | -A ] <domain> [ <server> ] - -Switches: --s attempt to strip the copyright message or disclaimer. --c attempts to return an empty answer for failed searches. --T set timeout for connection attempts --t enables caching. --a specify an ip address that should be used as source address --d enables debugging messages. --F returns results of the first query of recursive whois requests --L returns results of the last query of recursive whois requests (the default) --A returns results of the all queries of recursive whois requests -EOM - exit; -} - -$Net::Whois::Raw::DEBUG = $debug; -$Net::Whois::Raw::OMIT_MSG = $do_strip ? 1 : 0; -$Net::Whois::Raw::CHECK_FAIL = $do_checkfail ? 1 : 0; -$Net::Whois::Raw::TIMEOUT = $timeout; -@Net::Whois::Raw::SRC_IPS = @source_addresses if @source_addresses; - -if ($enable_caching) { - if ($^O eq 'MSWin32') { - $Net::Whois::Raw::CACHE_DIR = $ENV{TEMP} || "C:\\temp"; - } - else { - $Net::Whois::Raw::CACHE_DIR = $ENV{TMPDIR} || '/tmp'; - } -} -else { - $Net::Whois::Raw::CACHE_DIR = undef; -} - -my ( $input_cp, $output_cp ) = detect_encodings(); - -my $dom = $ARGV[0]; -my $server = $ARGV[1]; - -$dom = prepare_domain($dom, $input_cp); - -unless (validate_domain($dom)) { - print encode_output("\nIncorrect domain name:\n$dom\n", $output_cp); - exit -1; -} - -$dom = to_punycode($dom); - -eval { - my ($result, $result_server); - my $which_whois = - $return_first ? 'QRY_FIRST' : - $return_all ? 'QRY_ALL' : 'QRY_LAST'; - - ($result, $result_server) = - Net::Whois::Raw::get_whois( $dom, $server, $which_whois ); - - if ($result and ref $result eq 'ARRAY') { - make_output($_->{text}, $_->{srv}, $output_cp) for @{$result}; - } - elsif ($result) { - make_output($result, $result_server, $output_cp); - } - else { - print STDERR "Failed.\n"; - } -}; - -if ($@) { - my $err = $@; - - $err =~ s/\s+at \S+ line \d+\.$//; - print "\nWhois information could not be fetched:\n$err\n"; - exit -1; -} - -# Prepare and print output -sub make_output { - my ($result, $server, $cp) = @_; - - $result = encode_output( $result, $cp ); - - print "[$server]\n"; - print $result, "\n"; -} - -# Encode output -sub encode_output { - my ( $output, $cp ) = @_; - - if ( $cp =~ /utf\-?8/ ) { - $output = encode_utf8( $output ); - } - else { - $output = encode( $cp, $output ); - } - - return $output; -} - -# Detect terminal input and output encodings -sub detect_encodings { - my ( $input_cp, $output_cp ); - - if ( $^O =~ /Win/ ) { - # Read encoding from registry - require Win32API::Registry; - Win32API::Registry->import( qw( :ALL ) ); - - my ( $key, $type, $data ); - RegOpenKeyEx( HKEY_LOCAL_MACHINE(), 'SYSTEM\\CurrentControlSet\\Control\\Nls\\CodePage', 0, KEY_READ(), $key ) - or die "Can't read system encodings from registry: ".regLastError(); - RegQueryValueEx( $key, 'ACP', [], $type, $data, [] ) - or die "Can't read system encodings from registry: ".regLastError(); - $input_cp = 'cp'.$data; - RegQueryValueEx( $key, 'OEMCP', [], $type, $data, [] ) - or die "Can't read system encodings from registry: ".regLastError(); - $output_cp = 'cp'.$data; - } else { - # Read encoding from environment - my $cp = $ENV{LANG}; - if ( $cp ) { - $cp =~ s/^[a-z]{2}_[A-Z]{2}[.]//; - } - else { - $cp = 'utf-8'; - } - - $input_cp = $output_cp = lc $cp; - } - - return $input_cp, $output_cp; -} - -# Prepare domain name -sub prepare_domain { - my ($dom, $input_cp) = @_; - - # Decode command-line input - $dom = decode($input_cp, $dom); - - # Lowercase latin and cyrillic characters - $dom =~ tr/A-ZА-ЯЁ\xAA\xA5\xB2\xAF/a-zа-яё\xBA\xB4\xB3\xBF/; - - return $dom; -} - -# Decode domain name to punycode if needed -sub to_punycode { - my ($dom) = @_; - - unless ($dom =~ /^[a-z0-9.\-]*$/) { - # Convert to Punycode - my @parts; - foreach my $part (split /\./, $dom) { - $part = 'xn--'.Net::IDN::Punycode::encode_punycode( $part ) - unless $part =~ /^[a-z0-9.-]*$/; - push @parts, $part; - } - $dom = join('.', @parts); - } - - return $dom; -} - -# Validate domain name -sub validate_domain { - my ($dom) = @_; - - return 0 unless $dom; - - $dom =~ /(.+?)\.([^.]+)$/; - my ($name, $tld) = ($1, $2); - - return 0 if $name =~ /^-/; - return 0 if $name =~ /-$/; - return 0 if $name =~ /^..--/ && $dom !~ /^xn--/; - - # Only latin and cyrillic characters allowed now - return 0 if $dom =~ m/[^-a-z0-9\.ёа-я\xAA\xBA\xB4\xB2\xB3\xAF\xBF\xA1\xA2]/; - - return 1; -} - -__END__ - -=head1 NAME - -pwhois - Perl written whois client - -=head1 SYNOPSIS - - pwhois perl.com - pwhois gnu.org - pwhois -s police.co.il - pwhois -c there.is.no.tld.called.foobar - pwhois yahoo.com whois.networksolutions.com - pwhois -T 10 funet.fi - -etc etc..... - -=head1 DESCRIPTION - -Just invoke with a domain name, optionally with a whois server name. -Switches: - B<-s> attempt to strip the copyright message or disclaimer. - B<-c> attempts to return an empty answer for failed searches. - B<-e> forces die if connection rate to server have been exceeded. - B<-T> set timeout for connection attempts - B<-t> enables caching. - B<-a> specify an ip address that should be used as source address - B<-d> enables debugging messages. - B<-F> returns results of the first query of recursive whois requests - B<-L> returns results of the last query of recursive whois requests (the default) - B<-A> returns results of the all queries of recursive whois requests - -=head1 AUTHORS - -Ariel Brosh B<schop(a)cpan.org> - -Current Maintainer: Walery Studennikov B<despair(a)cpan.org> - -=head1 SEE ALSO - -L<Net::Whois::Raw>.

1 0