pool/netcfg
SHA256
2
0
Fork 2
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Update script to generage services to use UTF8 by default

Browse Source 
- Update the services list with latest content

OBS-URL: https://build.opensuse.org/package/show/Base:System/netcfg?expand=0&rev=49
This commit is contained in:
Tomáš Chvátal 2017-03-07 09:58:06 +00:00 committed by Git OBS Bridge
parent 5e71717833
commit 1e02d904b4
4 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
netcfg.changes
View File

@ -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 Tue Jan 5 10:09:05 UTC 2016 - tchvatal@suse.com

2
netcfg.spec
View File

@ -1,7 +1,7 @@
# #
# spec file for package netcfg # 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 # All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed # remain the property of their copyright owners, unless otherwise agreed

5
services-create.pl
View File

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

4
services.bz2
View File

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