Import Upstream version 1.02+dfsg
This commit is contained in:
luoyaoming
parent
d35be34aee
commit
7c960e76ec
|
|
@ -27,10 +27,6 @@ sub MY::install {
|
||||||
package MY;
|
package MY;
|
||||||
my $script = shift->SUPER::install(@_);
|
my $script = shift->SUPER::install(@_);
|
||||||
|
|
||||||
print STDERR "Debian build: won't modify ParserDetails.ini when installing.\n";
|
|
||||||
print STDERR " (use update-perl-sax-parsers(8) instead.)\n";
|
|
||||||
return $script;
|
|
||||||
|
|
||||||
# Only modify existing ParserDetails.ini if user agrees
|
# Only modify existing ParserDetails.ini if user agrees
|
||||||
|
|
||||||
my $write_ini_ok = 0;
|
my $write_ini_ok = 0;
|
||||||
|
|
|
||||||
|
|
@ -1,8 +0,0 @@
|
||||||
libxml-sax-perl for Debian
|
|
||||||
|
|
||||||
Please edit this to provide information specific to
|
|
||||||
this libxml-sax-perl Debian package.
|
|
||||||
|
|
||||||
(Automatically generated by debmake Version 4.3.1)
|
|
||||||
|
|
||||||
-- sufang <sufang@kylinos.cn> Fri, 02 Sep 2022 09:54:32 +0800
|
|
||||||
|
|
@ -1,17 +0,0 @@
|
||||||
libxml-sax-perl (1.02-ok3) yangtze; urgency=medium
|
|
||||||
|
|
||||||
* Modify debian/control.
|
|
||||||
|
|
||||||
-- sufang <sufang@kylinos.cn> Fri, 16 Sep 2022 11:13:35 +0800
|
|
||||||
|
|
||||||
libxml-sax-perl (1.02-ok2) yangtze; urgency=medium
|
|
||||||
|
|
||||||
* Add parserdetails-debian.
|
|
||||||
|
|
||||||
-- sufang <sufang@kylinos.cn> Wed, 14 Sep 2022 14:48:33 +0800
|
|
||||||
|
|
||||||
libxml-sax-perl (1.02-ok1) yangtze; urgency=medium
|
|
||||||
|
|
||||||
* Build for openkylin.
|
|
||||||
|
|
||||||
-- sufang <sufang@kylinos.cn> Thu, 25 Aug 2022 14:54:03 +0800
|
|
||||||
|
|
@ -1,2 +0,0 @@
|
||||||
XML-SAX-Base/lib/XML/SAX/*.pm
|
|
||||||
t/lib/*
|
|
||||||
|
|
@ -1,42 +0,0 @@
|
||||||
Source: libxml-sax-perl
|
|
||||||
Section: perl
|
|
||||||
Testsuite: autopkgtest-pkg-perl
|
|
||||||
Priority: optional
|
|
||||||
Maintainer: OpenKylin Developers <packaging@lists.openkylin.top>
|
|
||||||
Build-Depends: debhelper-compat (= 13)
|
|
||||||
Build-Depends-Indep: libxml-namespacesupport-perl <!nocheck>,
|
|
||||||
libxml-sax-base-perl <!nocheck>,
|
|
||||||
perl
|
|
||||||
Standards-Version: 4.6.0
|
|
||||||
Vcs-Browser: https://gitee.com/openkylin/libxml-sax-perl
|
|
||||||
Vcs-Git: https://gitee.com/openkylin/libxml-sax-perl.git
|
|
||||||
Homepage: https://metacpan.org/release/XML-SAX/
|
|
||||||
Rules-Requires-Root: no
|
|
||||||
|
|
||||||
Package: libxml-sax-perl
|
|
||||||
Architecture: all
|
|
||||||
Depends: ${misc:Depends},
|
|
||||||
${perl:Depends},
|
|
||||||
libxml-namespacesupport-perl,
|
|
||||||
libxml-sax-base-perl,
|
|
||||||
ucf
|
|
||||||
Recommends: libwww-perl,
|
|
||||||
libxml-sax-expat-perl
|
|
||||||
Description: Perl module for using and building Perl SAX2 XML processors
|
|
||||||
XML::SAX consists of several framework classes for using and
|
|
||||||
building Perl SAX2 XML parsers, filters, and drivers. It is designed
|
|
||||||
around the need to be able to "plug in" different SAX parsers to an
|
|
||||||
application without requiring programmer intervention. Those of you
|
|
||||||
familiar with the DBI will be right at home. Some of the designs
|
|
||||||
come from the Java JAXP specification (SAX part), only without the
|
|
||||||
javaness.
|
|
||||||
.
|
|
||||||
The package also contains a SAX parser, XML::SAX::PurePerl, but it
|
|
||||||
is considered too slow for serious use and is only provided as a
|
|
||||||
fallback parser. It is recommend XML::SAX::Expat (provided in
|
|
||||||
libxml-sax-expat-perl) instead.
|
|
||||||
.
|
|
||||||
The framework includes a Debian-specific script (called
|
|
||||||
update-perl-sax-parsers) to manage the ParserDetails.ini file. This
|
|
||||||
script is intended to be used in postinst and prerm package scripts to
|
|
||||||
(de)register parsers. See README.Debian for more info.
|
|
||||||
|
|
@ -1,86 +0,0 @@
|
||||||
Format: https://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
|
|
||||||
Upstream-Name: libxml-sax-perl
|
|
||||||
Source: <url://example.com>
|
|
||||||
#
|
|
||||||
# Please double check copyright with the licensecheck(1) command.
|
|
||||||
|
|
||||||
Files: Changes
|
|
||||||
MANIFEST
|
|
||||||
META.json
|
|
||||||
META.yml
|
|
||||||
Makefile.PL
|
|
||||||
README
|
|
||||||
lib/XML/SAX.pm
|
|
||||||
lib/XML/SAX/DocumentLocator.pm
|
|
||||||
lib/XML/SAX/Intro.pod
|
|
||||||
lib/XML/SAX/ParserFactory.pm
|
|
||||||
lib/XML/SAX/PurePerl.pm
|
|
||||||
lib/XML/SAX/PurePerl/DTDDecls.pm
|
|
||||||
lib/XML/SAX/PurePerl/DebugHandler.pm
|
|
||||||
lib/XML/SAX/PurePerl/DocType.pm
|
|
||||||
lib/XML/SAX/PurePerl/EncodingDetect.pm
|
|
||||||
lib/XML/SAX/PurePerl/Exception.pm
|
|
||||||
lib/XML/SAX/PurePerl/NoUnicodeExt.pm
|
|
||||||
lib/XML/SAX/PurePerl/Productions.pm
|
|
||||||
lib/XML/SAX/PurePerl/Reader.pm
|
|
||||||
lib/XML/SAX/PurePerl/Reader/NoUnicodeExt.pm
|
|
||||||
lib/XML/SAX/PurePerl/Reader/Stream.pm
|
|
||||||
lib/XML/SAX/PurePerl/Reader/String.pm
|
|
||||||
lib/XML/SAX/PurePerl/Reader/URI.pm
|
|
||||||
lib/XML/SAX/PurePerl/Reader/UnicodeExt.pm
|
|
||||||
lib/XML/SAX/PurePerl/UnicodeExt.pm
|
|
||||||
lib/XML/SAX/PurePerl/XMLDecl.pm
|
|
||||||
t/00basic.t
|
|
||||||
t/01known.t
|
|
||||||
t/10xmldecl1.t
|
|
||||||
t/11xmldecl2.t
|
|
||||||
t/12miscstart.t
|
|
||||||
t/13int_ent.t
|
|
||||||
t/14encoding.t
|
|
||||||
t/15element.t
|
|
||||||
t/16large.t
|
|
||||||
t/19pi.t
|
|
||||||
t/20factory.t
|
|
||||||
t/21saxini.t
|
|
||||||
t/30parse_file.t
|
|
||||||
t/40cdata.t
|
|
||||||
t/42entities.t
|
|
||||||
t/99cleanup.t
|
|
||||||
testfiles/utf-16.xml
|
|
||||||
testfiles/utf-16le.xml
|
|
||||||
Copyright: __NO_COPYRIGHT_NOR_LICENSE__
|
|
||||||
License: __NO_COPYRIGHT_NOR_LICENSE__
|
|
||||||
|
|
||||||
#----------------------------------------------------------------------------
|
|
||||||
# xml and html files (skipped):
|
|
||||||
# testfiles/06g.xml
|
|
||||||
# testfiles/06c.xml
|
|
||||||
# testfiles/06a.xml
|
|
||||||
# testfiles/xmltest.xml
|
|
||||||
# testfiles/koi8_r.xml
|
|
||||||
# testfiles/06e.xml
|
|
||||||
# testfiles/06d.xml
|
|
||||||
# testfiles/03b.xml
|
|
||||||
# testfiles/iso8859_2.xml
|
|
||||||
# testfiles/iso8859_1.xml
|
|
||||||
# testfiles/06b.xml
|
|
||||||
# testfiles/02a.xml
|
|
||||||
# testfiles/03a.xml
|
|
||||||
# testfiles/02b.xml
|
|
||||||
# testfiles/06f.xml
|
|
||||||
# testfiles/01.xml
|
|
||||||
# testfiles/04a.xml
|
|
||||||
|
|
||||||
#----------------------------------------------------------------------------
|
|
||||||
# Files marked as NO_LICENSE_TEXT_FOUND may be covered by the following
|
|
||||||
# license/copyright files.
|
|
||||||
|
|
||||||
#----------------------------------------------------------------------------
|
|
||||||
# License file: LICENSE
|
|
||||||
XML::SAX is dual licensed under the same terms as Perl itself.
|
|
||||||
.
|
|
||||||
This means at your choice, either the Perl Artistic License, or
|
|
||||||
the GNU GPL version 1 or higher.
|
|
||||||
.
|
|
||||||
(should we include the full text here?)
|
|
||||||
.
|
|
||||||
|
|
@ -1,30 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## debian/postinst : postinstallation script for libxml-foo-perl
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## This file is provided as an example for packages providing a
|
|
||||||
## SAX parser. See /usr/share/doc/libxml-sax-perl/README.Debian.gz .
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
set -e
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
if [ "$1" = configure ]
|
|
||||||
then
|
|
||||||
if [ -n "$2" ] && dpkg --compare-versions "$2" lt x.x-x
|
|
||||||
then
|
|
||||||
update-perl-sax-parsers --remove XML::FOO
|
|
||||||
fi
|
|
||||||
|
|
||||||
update-perl-sax-parsers --add XML::FOO --priority 60
|
|
||||||
update-perl-sax-parsers --update
|
|
||||||
fi
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## automatically generated debhelper commands
|
|
||||||
#DEBHELPER#
|
|
||||||
|
|
||||||
exit 0
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
@ -1,25 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## debian/prerm : preremoval script for libxml-foo-perl
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## This file is provided as an example for packages providing a
|
|
||||||
## SAX parser. See /usr/share/doc/libxml-sax-perl/README.Debian.gz .
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
set -e
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
if [ "$1" = remove ]
|
|
||||||
then
|
|
||||||
update-perl-sax-parsers --remove XML::FOO
|
|
||||||
update-perl-sax-parsers --update
|
|
||||||
fi
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## automatically generated debhelper commands
|
|
||||||
#DEBHELPER#
|
|
||||||
|
|
||||||
exit 0
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
/var/lib/libxml-sax-perl/ParserDetails.d
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
debian/examples/*
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
debian/update-perl-sax-parsers usr/bin
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
/etc/perl/XML/SAX/ParserDetails.ini /usr/share/perl5/XML/SAX/ParserDetails.ini
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
debian/update-perl-sax-parsers.8
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
# You must remove unused comment lines for the released package.
|
|
||||||
|
|
@ -1,47 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## debian/postinst : postinstallation script for libxml-sax-perl
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
set -e
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
if [ "$1" = configure ]
|
|
||||||
then
|
|
||||||
[ -d /etc/perl/XML/SAX ] || mkdir --parents /etc/perl/XML/SAX
|
|
||||||
if command -v ucfr >/dev/null 2>&1
|
|
||||||
then
|
|
||||||
ucfr libxml-sax-perl /etc/perl/XML/SAX/ParserDetails.ini
|
|
||||||
fi
|
|
||||||
|
|
||||||
if [ -n "$2" ] && dpkg --compare-versions "$2" le 0.16-0.1
|
|
||||||
then
|
|
||||||
echo "Migrating the Perl SAX parser information directory."
|
|
||||||
# first, move /etc/perl/XML/SAX/ParserDetails.d/ under
|
|
||||||
# /var/lib/libxml-sax-perl
|
|
||||||
for i in /etc/perl/XML/SAX/ParserDetails.d/*
|
|
||||||
do
|
|
||||||
# the directory should never be missing or empty, but the [ ! -e ]
|
|
||||||
# construct handles an unexpanded glob just in case
|
|
||||||
[ ! -e "$i" ] || \
|
|
||||||
mv "$i" "/var/lib/libxml-sax-perl/ParserDetails.d/50-$(basename $i)"
|
|
||||||
done
|
|
||||||
[ ! -d /etc/perl/XML/SAX/ParserDetails.d ] || \
|
|
||||||
rmdir --ignore-fail-on-non-empty /etc/perl/XML/SAX/ParserDetails.d
|
|
||||||
|
|
||||||
# now downgrade XML::SAX::PurePerl priority by removing it first
|
|
||||||
update-perl-sax-parsers --remove XML::SAX::PurePerl
|
|
||||||
fi
|
|
||||||
|
|
||||||
update-perl-sax-parsers --add XML::SAX::PurePerl --priority 10
|
|
||||||
update-perl-sax-parsers --update
|
|
||||||
fi
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## automatically generated debhelper commands
|
|
||||||
#DEBHELPER#
|
|
||||||
|
|
||||||
exit 0
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
@ -1,31 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## debian/postrm : postremoval script for libxml-sax-perl
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
set -e
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
if [ "$1" = purge ]
|
|
||||||
then
|
|
||||||
rm -f /etc/perl/XML/SAX/ParserDetails.ini
|
|
||||||
rmdir --parents --ignore-fail-on-non-empty /etc/perl/XML/SAX
|
|
||||||
rm -rf /var/lib/libxml-sax-perl
|
|
||||||
if command -v ucf >/dev/null 2>&1
|
|
||||||
then
|
|
||||||
ucf --purge /etc/perl/XML/SAX/ParserDetails.ini
|
|
||||||
fi
|
|
||||||
if command -v ucfr >/dev/null 2>&1
|
|
||||||
then
|
|
||||||
ucfr --purge libxml-sax-perl /etc/perl/XML/SAX/ParserDetails.ini
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## automatically generated debhelper commands
|
|
||||||
#DEBHELPER#
|
|
||||||
|
|
||||||
exit 0
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
@ -1,34 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## debian/preinst : preinstallation script for libxml-sax-perl
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
set -e
|
|
||||||
|
|
||||||
if [ "$1" = "upgrade" ] && dpkg --compare-versions "$2" le 0.16.0.1
|
|
||||||
then
|
|
||||||
# find out the md5sum of an unmodified ParserDetails.ini
|
|
||||||
|
|
||||||
[ -d /var/lib/libxml-sax-perl ] || mkdir --parents /var/lib/libxml-sax-perl
|
|
||||||
update-perl-sax-parsers --quiet --update --file - | md5sum - \
|
|
||||||
> /var/lib/libxml-sax-perl/ParserDetails.ini.md5sum
|
|
||||||
fi
|
|
||||||
|
|
||||||
if [ "$1" = "install" ] && [ -n "$2" ] && \
|
|
||||||
dpkg --compare-versions "$2" le 0.16.0.1
|
|
||||||
then
|
|
||||||
# upgrading from a removed but nonpurged state
|
|
||||||
# an unmodified ParserDetails.ini is an empty file
|
|
||||||
# we don't have update-perl-sax-parsers available yet
|
|
||||||
[ -d /var/lib/libxml-sax-perl ] || mkdir --parents /var/lib/libxml-sax-perl
|
|
||||||
md5sum - < /dev/null > /var/lib/libxml-sax-perl/ParserDetails.ini.md5sum
|
|
||||||
fi
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## automatically generated debhelper commands
|
|
||||||
#DEBHELPER#
|
|
||||||
|
|
||||||
exit 0
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
@ -1,22 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## debian/prerm : preremoval script for libxml-sax-perl
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
set -e
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
if [ "$1" = remove ]
|
|
||||||
then
|
|
||||||
update-perl-sax-parsers --remove XML::SAX::PurePerl
|
|
||||||
update-perl-sax-parsers --update
|
|
||||||
fi
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## automatically generated debhelper commands
|
|
||||||
#DEBHELPER#
|
|
||||||
|
|
||||||
exit 0
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
@ -1,3 +0,0 @@
|
||||||
#!/usr/bin/make -f
|
|
||||||
%:
|
|
||||||
dh $@
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
3.0 (native)
|
|
||||||
|
|
@ -1,2 +0,0 @@
|
||||||
t/
|
|
||||||
testfiles/
|
|
||||||
|
|
@ -1,3 +0,0 @@
|
||||||
# these tests expect no ParserDetails.ini
|
|
||||||
t/20factory.t
|
|
||||||
t/21saxini.t
|
|
||||||
|
|
@ -1,191 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## Debian update-perl-sax-parsers version 0.3
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
## Copyright (C) 2001-2003 Ardo van Rangelrooij
|
|
||||||
## Copyright (C) 2007 Niko Tyni
|
|
||||||
##
|
|
||||||
## This is free software; see the GNU General Public Licence version 2
|
|
||||||
## or later for copying conditions. There is NO warranty.
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
use File::Spec;
|
|
||||||
use Getopt::Long;
|
|
||||||
use XML::SAX;
|
|
||||||
use XML::SAX::Debian;
|
|
||||||
use File::Temp qw(tempfile);
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
$0 =~ m|[^/]+$|;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
my $name = $&;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
my $add = '';
|
|
||||||
my @directory = ();
|
|
||||||
my $file = '';
|
|
||||||
my $help = '';
|
|
||||||
my $quiet = '';
|
|
||||||
my $remove = '';
|
|
||||||
my $test = '';
|
|
||||||
my $update = '';
|
|
||||||
my $version = '';
|
|
||||||
my $ucf;
|
|
||||||
my $priority;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
if ( ! GetOptions(
|
|
||||||
'add=s' => \$add,
|
|
||||||
'directory=s' => \@directory,
|
|
||||||
'file=s' => \$file,
|
|
||||||
'help' => \$help,
|
|
||||||
'quiet' => \$quiet,
|
|
||||||
'remove=s' => \$remove,
|
|
||||||
'test' => \$test,
|
|
||||||
'update' => \$update,
|
|
||||||
'version' => \$version,
|
|
||||||
'priority=i' => \$priority,
|
|
||||||
'ucf=i' => \$ucf,
|
|
||||||
)
|
|
||||||
)
|
|
||||||
{
|
|
||||||
&usage;
|
|
||||||
exit 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
if ( $version )
|
|
||||||
{
|
|
||||||
&version;
|
|
||||||
exit 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
if ( $help )
|
|
||||||
{
|
|
||||||
&usage;
|
|
||||||
exit 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
print STDERR "$name: test mode - Perl SAX parsers file will not be updated\n"
|
|
||||||
if $test && ! $quiet;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
# default priority is 50 unless --directory was specified
|
|
||||||
# with --directory, default to 0 (no priority in the filenames)
|
|
||||||
$priority = (@directory ? 0 : 50) if not defined $priority;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
my $PARSER_DETAILS_DIR = "/var/lib/libxml-sax-perl/ParserDetails.d";
|
|
||||||
push( @directory, $PARSER_DETAILS_DIR) if ! @directory;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
# use ucf by default if --file is not specified
|
|
||||||
$ucf = ($file ? 0 : 1) if not defined $ucf;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
my $PARSER_DETAILS_FILE = "/etc/perl/XML/SAX/ParserDetails.ini";
|
|
||||||
$file = $PARSER_DETAILS_FILE if ! $file;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
unless (XML::SAX->can("_is_vendor_supplied")) {
|
|
||||||
print STDERR "$name: Non-vendor version of XML::SAX is installed.\n";
|
|
||||||
print STDERR "$name: Automatic registration of SAX parsers might not work.\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( $add )
|
|
||||||
{
|
|
||||||
print "$name: Registering Perl SAX parser $add with priority $priority...\n"
|
|
||||||
unless $quiet;
|
|
||||||
|
|
||||||
XML::SAX::Debian->save_parsers_debian( $add, $directory[0], $priority );
|
|
||||||
}
|
|
||||||
elsif ( $remove )
|
|
||||||
{
|
|
||||||
print "$name: Unregistering Perl SAX parser $remove with priority $priority...\n"
|
|
||||||
unless $quiet;
|
|
||||||
|
|
||||||
my $parser_file = $remove;
|
|
||||||
$parser_file = "${priority}-$parser_file" if $priority != 0;
|
|
||||||
$parser_file = File::Spec->catfile( $directory[0], $parser_file );
|
|
||||||
unlink( $parser_file );
|
|
||||||
}
|
|
||||||
elsif ( $update )
|
|
||||||
{
|
|
||||||
print "$name: Updating overall Perl SAX parser modules info file...\n"
|
|
||||||
unless $quiet;
|
|
||||||
|
|
||||||
my ($handle, $tmpfile);
|
|
||||||
|
|
||||||
if ($ucf) {
|
|
||||||
($handle, $tmpfile) = tempfile();
|
|
||||||
chmod 0644, $tmpfile or die("chmod $tmpfile: $!");
|
|
||||||
} else {
|
|
||||||
open( $handle, ">$file" )
|
|
||||||
|| die "Cannot write to $file: $!";
|
|
||||||
}
|
|
||||||
foreach my $directory ( @directory)
|
|
||||||
{
|
|
||||||
opendir( PARSER_DETAILS_DIR, $directory )
|
|
||||||
|| die "Cannot access $directory: $!";
|
|
||||||
my @files = sort readdir ( PARSER_DETAILS_DIR );
|
|
||||||
for my $parser_details ( @files )
|
|
||||||
{
|
|
||||||
next if $parser_details =~ /^\.\.?$/; # skip . and ..
|
|
||||||
open( PARSER_DETAILS, "$directory/$parser_details" )
|
|
||||||
|| die "Cannot read from $parser_details: $!";
|
|
||||||
while ( <PARSER_DETAILS> ) { print $handle $_; }
|
|
||||||
close( PARSER_DETAILS );
|
|
||||||
}
|
|
||||||
closedir( PARSER_DETAILS_DIR );
|
|
||||||
}
|
|
||||||
close( $handle );
|
|
||||||
if ($ucf) {
|
|
||||||
system("ucf", "--debconf-ok", "--sum-file", "/var/lib/libxml-sax-perl/ParserDetails.ini.md5sum", $tmpfile, $file);
|
|
||||||
unlink $tmpfile or die("unlink $tmpfile: $!");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
exit 0;
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
sub usage
|
|
||||||
{
|
|
||||||
print STDERR <<END;
|
|
||||||
Usage:
|
|
||||||
$name <options> --add <parser_module>
|
|
||||||
$name <options> --remove <parser_module>
|
|
||||||
$name <options> --update
|
|
||||||
|
|
||||||
Options:
|
|
||||||
--directory Perl SAX parser module info file directory to be used
|
|
||||||
as target for 'add'/'remove' or as sources for 'update'
|
|
||||||
(default = '/var/lib/libxml-sax-perl/ParserDetails.d')
|
|
||||||
--priority The priority of the parser to add. The parser with the
|
|
||||||
highest priority is the default parser.
|
|
||||||
--file Perl SAX parser module info file to be updated
|
|
||||||
(default = '/etc/perl/XML/SAX/ParserDetails.ini')
|
|
||||||
--ucf X Forcibly disable (X == 0) or enable (X != 0) the use
|
|
||||||
of ucf with '--update'.
|
|
||||||
--help display this help text (usage)
|
|
||||||
--quiet be quiet
|
|
||||||
--test do not modify any files, enable debugging mode
|
|
||||||
--version display version number
|
|
||||||
END
|
|
||||||
}
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
sub version
|
|
||||||
{
|
|
||||||
print "Debian $name version 0.4\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
## ----------------------------------------------------------------------
|
|
||||||
|
|
@ -1,177 +0,0 @@
|
||||||
.\" -*- nroff -*-
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.\" Copyright (c) 2001-2003 Ardo van Rangelrooij
|
|
||||||
.\"
|
|
||||||
.\" This is free software; see the GNU General Public Licence version 2
|
|
||||||
.\" or later for copying conditions. There is NO warranty.
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.TH UPDATE-PERL-SAX-PARSERS 8 "Nov 2007" "0.3" "Debian"
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.SH NAME
|
|
||||||
update-perl-sax-parsers \- (de)register Perl SAX parser modules
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.SH SYNOPSIS
|
|
||||||
.B update-perl-sax-parsers
|
|
||||||
.RI [ options ]
|
|
||||||
.B --add
|
|
||||||
.I parser_module
|
|
||||||
.PP
|
|
||||||
.B update-perl-sax-parsers
|
|
||||||
.RI [ options ]
|
|
||||||
.B --remove
|
|
||||||
.I parser_module
|
|
||||||
.PP
|
|
||||||
.B update-perl-sax-parsers
|
|
||||||
.RI [ options ]
|
|
||||||
.B --update
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.SH DESCRIPTION
|
|
||||||
.B update-perl-sax-parsers
|
|
||||||
inserts, updates and removes individual Perl SAX parser module info
|
|
||||||
files in the directory
|
|
||||||
.I /var/lib/libxml-sax-perl/ParserDetails.d
|
|
||||||
and the overall Perl SAX parser modules info file
|
|
||||||
.IR /etc/perl/XML/SAX/ParserDetails.ini .
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.SH OPTIONS
|
|
||||||
.TP
|
|
||||||
.B --add
|
|
||||||
Adds the per-module info file for the indicated Perl SAX parser module
|
|
||||||
to the directory
|
|
||||||
.IR /var/lib/libxml-sax-perl/ParserDetails.d .
|
|
||||||
.TP
|
|
||||||
.B --remove
|
|
||||||
Removes the per-module info file for Perl SAX parser module from the
|
|
||||||
directory
|
|
||||||
.IR /var/lib/libxml-sax-perl/ParserDetails.d .
|
|
||||||
.TP
|
|
||||||
.B --update
|
|
||||||
updates the overall Perl SAX parser modules info file
|
|
||||||
.IR /etc/perl/XML/SAX/ParserDetails.ini .
|
|
||||||
The modules will be listed in an order of ascending priority. See
|
|
||||||
the PARSER PRIORITIES section below.
|
|
||||||
|
|
||||||
The file will be managed with
|
|
||||||
.B ucf(1) ,
|
|
||||||
unless the
|
|
||||||
.B --file
|
|
||||||
option is used. See also the
|
|
||||||
.B --ucf
|
|
||||||
option below.
|
|
||||||
.TP
|
|
||||||
.B --directory
|
|
||||||
When used with
|
|
||||||
.B --add
|
|
||||||
or with
|
|
||||||
.B --remove
|
|
||||||
indicates the ParserDetails.d directory to use for storing the
|
|
||||||
per-module Perl SAX parser module info file. When used one or more
|
|
||||||
times with
|
|
||||||
.B --update
|
|
||||||
indicates the ParserDetails.d directories to be used as source for
|
|
||||||
generating the ParserDetails.ini file. Default is
|
|
||||||
.IR /var/lib/libxml-sax-perl/ParserDetails.d .
|
|
||||||
.TP
|
|
||||||
.B --file
|
|
||||||
Indicates the ParserDetails.ini file up be updated. Default is
|
|
||||||
.IR /etc/perl/XML/SAX/ParserDetails.ini .
|
|
||||||
.TP
|
|
||||||
.B --priority XX
|
|
||||||
Specifies the priority of the SAX parser module to be added
|
|
||||||
removed. The priority will be encoded
|
|
||||||
to the filename of the ParserDetails.d entry. See the PARSER PRIORITIES
|
|
||||||
section below.
|
|
||||||
|
|
||||||
This option was added in version 0.3 of
|
|
||||||
.B update-perl-sax-parsers .
|
|
||||||
Use the value "0" to disable the encoding and match the behaviour
|
|
||||||
of earlier versions of the script.
|
|
||||||
|
|
||||||
The default priority value is 50, unless
|
|
||||||
.B --directory
|
|
||||||
was specified, in which case the default is 0 (disabled.)
|
|
||||||
.TP
|
|
||||||
.B --ucf X
|
|
||||||
Forcibly enable (X != 0) or disable (X = 0) of
|
|
||||||
.B ucf(1) .
|
|
||||||
By default,
|
|
||||||
.B ucf(1)
|
|
||||||
will be used to manage the ParserDetails.ini file when
|
|
||||||
.B --file
|
|
||||||
is
|
|
||||||
.IR not
|
|
||||||
specified.
|
|
||||||
.TP
|
|
||||||
.B --quiet
|
|
||||||
Prevents any diagnostic output.
|
|
||||||
.TP
|
|
||||||
.B --test
|
|
||||||
Prevents the modification of any files and enables debugging mode.
|
|
||||||
.TP
|
|
||||||
.B --version
|
|
||||||
Displays the version information and exits.
|
|
||||||
.TP
|
|
||||||
.B --help
|
|
||||||
Display the usage information and exits.
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.SH PARSER PRIORITIES
|
|
||||||
Starting with version 0.3 of
|
|
||||||
.B update-perl-sax-parsers ,
|
|
||||||
the parsers are assigned a priority value that is encoded into the names
|
|
||||||
of the files in the ParserDetails.d directory. Specifically, the file
|
|
||||||
name will be "XX-Some::Module", where XX denotes the priority and Some::Module
|
|
||||||
is the name of the parser module.
|
|
||||||
|
|
||||||
When
|
|
||||||
.B --update
|
|
||||||
is called, the parsers are listed in an order of ascending priority
|
|
||||||
into the
|
|
||||||
.IR ParserDetails.ini
|
|
||||||
file. The last parser in the file, ie. the one with the highest priority,
|
|
||||||
is the
|
|
||||||
.B default
|
|
||||||
XML::SAX parser.
|
|
||||||
|
|
||||||
Parsers with the same priority are sorted alphabetically by their name.
|
|
||||||
This is contrary to the behaviour of earlier versions, where the
|
|
||||||
sort order was undefined and depended on the underlying file system.
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.SH NOTE
|
|
||||||
Installing the original package from CPAN into /usr/local breaks the
|
|
||||||
Debian package, since the former is in Perl's @INC before the latter.
|
|
||||||
So, please don't do this.
|
|
||||||
|
|
||||||
If there's a new version of XML::SAX simply file a wishlist against
|
|
||||||
the Debian package and wait for the update.
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.SH "SEE ALSO"
|
|
||||||
.TP
|
|
||||||
/usr/share/doc/libxml-sax-perl/README.Debian
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.SH AUTHORS
|
|
||||||
Ardo van Rangelrooij <ardo@debian.org>
|
|
||||||
|
|
||||||
Niko Tyni <ntyni@iki.fi>
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
.SH COPYRIGHT
|
|
||||||
Copyright \(co 2001-2003 Ardo van Rangelrooij
|
|
||||||
|
|
||||||
Copyright \(co 2007 Niko Tyni
|
|
||||||
.PP
|
|
||||||
This is free software; see the GNU General Public Licence version 2 or
|
|
||||||
later for copying conditions. There is
|
|
||||||
.I no
|
|
||||||
warranty.
|
|
||||||
.\"
|
|
||||||
.\" ----------------------------------------------------------------------
|
|
||||||
|
|
@ -1,4 +0,0 @@
|
||||||
---
|
|
||||||
Archive: CPAN
|
|
||||||
Repository: https://github.com/grantm/xml-sax.git
|
|
||||||
Repository-Browse: https://github.com/grantm/xml-sax
|
|
||||||
|
|
@ -1,3 +0,0 @@
|
||||||
version=4
|
|
||||||
opts=dversionmangle=s/\+dfsg//,repacksuffix=+dfsg \
|
|
||||||
https://metacpan.org/release/XML-SAX .*/XML-SAX-v?@ANY_VERSION@@ARCHIVE_EXT@$
|
|
||||||
|
|
@ -179,15 +179,6 @@ sub add_parser {
|
||||||
sub save_parsers {
|
sub save_parsers {
|
||||||
my $class = shift;
|
my $class = shift;
|
||||||
|
|
||||||
### DEBIAN MODIFICATION
|
|
||||||
print "\n";
|
|
||||||
print "Please use 'update-perl-sax-parsers(8) to register this parser.'\n";
|
|
||||||
print "See /usr/share/doc/libxml-sax-perl/README.Debian.gz for more info.\n";
|
|
||||||
print "\n";
|
|
||||||
|
|
||||||
return $class; # rest of the function is disabled on Debian.
|
|
||||||
### END DEBIAN MODIFICATION
|
|
||||||
|
|
||||||
# get directory from wherever XML::SAX is installed
|
# get directory from wherever XML::SAX is installed
|
||||||
my $dir = $INC{'XML/SAX.pm'};
|
my $dir = $INC{'XML/SAX.pm'};
|
||||||
$dir = dirname($dir);
|
$dir = dirname($dir);
|
||||||
|
|
@ -221,10 +212,6 @@ sub do_warn {
|
||||||
warn(@_) unless $ENV{HARNESS_ACTIVE};
|
warn(@_) unless $ENV{HARNESS_ACTIVE};
|
||||||
}
|
}
|
||||||
|
|
||||||
sub _is_vendor_supplied {
|
|
||||||
1;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
1;
|
||||||
__END__
|
__END__
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,47 +0,0 @@
|
||||||
package XML::SAX::Debian;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
|
|
||||||
use base "XML::SAX";
|
|
||||||
|
|
||||||
use File::Spec ();
|
|
||||||
|
|
||||||
sub save_parsers_debian {
|
|
||||||
my $class = shift;
|
|
||||||
my ($parser_module,$directory, $priority) = @_;
|
|
||||||
|
|
||||||
# add parser
|
|
||||||
{
|
|
||||||
# We do not want load_parsers to complain.
|
|
||||||
local $ENV{HARNESS_ACTIVE} = 1;
|
|
||||||
$class->load_parsers("/nonexistent");
|
|
||||||
}
|
|
||||||
$class->add_parser($parser_module);
|
|
||||||
|
|
||||||
# get parser's ParserDetails file
|
|
||||||
my $file = $parser_module;
|
|
||||||
$file = "${priority}-$file" if $priority != 0;
|
|
||||||
$file = File::Spec->catfile($directory, $file);
|
|
||||||
chmod 0644, $file;
|
|
||||||
unlink($file);
|
|
||||||
|
|
||||||
open(my $fh, ">$file") ||
|
|
||||||
die "Cannot write to $file: $!";
|
|
||||||
|
|
||||||
foreach my $p (@{ $class->parsers }) {
|
|
||||||
print $fh "[$p->{Name}]\n";
|
|
||||||
foreach my $key (keys %{$p->{Features}}) {
|
|
||||||
print $fh "$key = $p->{Features}{$key}\n";
|
|
||||||
}
|
|
||||||
print $fh "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
print $fh "\n";
|
|
||||||
|
|
||||||
close $fh;
|
|
||||||
|
|
||||||
return $class;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
|
|
@ -1,9 +1,6 @@
|
||||||
use Test::More;
|
use Test;
|
||||||
BEGIN { plan tests => 3 }
|
BEGIN { plan tests => 3 }
|
||||||
SKIP: {
|
|
||||||
skip 'Tests skipped due to Debian modifications', 3;
|
|
||||||
use XML::SAX;
|
use XML::SAX;
|
||||||
ok(XML::SAX->save_parsers);
|
ok(XML::SAX->save_parsers);
|
||||||
ok(XML::SAX->load_parsers);
|
ok(XML::SAX->load_parsers);
|
||||||
ok(@{XML::SAX->parsers}, 0);
|
ok(@{XML::SAX->parsers}, 0);
|
||||||
}
|
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
use Test;
|
use Test;
|
||||||
BEGIN { plan tests => 1 }
|
BEGIN { plan tests => 1 }
|
||||||
use File::Spec;
|
use File::Spec;
|
||||||
skip('Test skipped due to Debian modifications', unlink(
|
ok(unlink(
|
||||||
File::Spec->catdir(qw(blib lib XML SAX ParserDetails.ini))),
|
File::Spec->catdir(qw(blib lib XML SAX ParserDetails.ini))),
|
||||||
1,
|
1,
|
||||||
'delete ParserDetails.ini'
|
'delete ParserDetails.ini'
|
||||||
|
|
|
||||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue