- Update script to generage services to use UTF8 by default

- Update the services list with latest content

OBS-URL: https://build.opensuse.org/package/show/Base:System/netcfg?expand=0&rev=49

netcfg.changes

@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Tue Mar  7 09:57:12 UTC 2017 - tchvatal@suse.com
+
+- Update script to generage services to use UTF8 by default
+- Update the services list with latest content
+
 -------------------------------------------------------------------
 Tue Jan  5 10:09:05 UTC 2016 - tchvatal@suse.com
 

netcfg.spec

@@ -1,7 +1,7 @@
 #
 # spec file for package netcfg
 #
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# 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

services-create.pl

@@ -1,14 +1,17 @@
 #!/usr/bin/perl -w
 
 use strict;
-
+use utf8;
 use XML::LibXML::Reader;
 
+binmode( STDOUT, 'utf8:' );
+
 my $portsurl = 'http://www.iana.org/assignments/service-names-port-numbers/service-names-port-numbers.xml';
 my $servicesfile = 'services.new';
 my $reader = XML::LibXML::Reader->new(location => $portsurl)
          or die "cannot read $portsurl\n";
 open(SERVICESNEW, ">$servicesfile") or die "cannot write $servicesfile\n";
+binmode(SERVICESNEW, 'utf8:');
 
 while ($reader->read) {
   processNode($reader);

services.bz2

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:de4cd5b8ae60f2f9417f7794b47a60864bbb634332b105d51b46a43396288e07
-size 172335
+oid sha256:18c6365d97d7a19d1861c1dddff5cce118b0bdd533c558f756a9ea6dd6c2a0e6
+size 175160