Author: kwizart Update of /cvs/free/rpms/xmltv/F-8 In directory se02.es.rpmfusion.net:/tmp/cvs-serv17712 Modified Files: sources Added Files: xmltv.spec xmltv-0.5.35-noask.patch xmltv-0.5.52-noutf8simple.patch Log Message: Import for F-8 --- NEW FILE xmltv.spec --- Name: xmltv Version: 0.5.53 Release: 2%{?dist} Summary: A set of utilities to manage your TV viewing Group: Development/Libraries License: GPLv2+ URL: http://xmltv.org/wiki/ Source0: http://downloads.sourceforge.net/xmltv/xmltv-%{version}.tar.bz2 Patch0: xmltv-0.5.35-noask.patch Patch1: xmltv-0.5.52-noutf8simple.patch BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) BuildArch: noarch BuildRequires: perl(ExtUtils::MakeMaker) BuildRequires: perl(LWP) >= 5.65, perl(XML::Parser) >= 2.34 BuildRequires: perl(XML::Twig) >= 3.28 BuildRequires: perl(Date::Manip) >= 5.42 BuildRequires: perl(XML::Writer) >= 0.600 BuildRequires: perl(Memoize), perl(Storable) >= 2.04 BuildRequires: perl(File::Slurp) # Recommended BuildRequires: perl(Lingua::EN::Numbers::Ordinate) BuildRequires: perl(Lingua::Preferred) >= 0.2.4 BuildRequires: perl(Term::ProgressBar) >= 2.03 BuildRequires: perl(Compress::Zlib) BuildRequires: perl(Unicode::String) ### BuildRequires: perl(HTML::TreeBuilder) BuildRequires: perl(HTML::Entities) >= 1.27 BuildRequires: perl(WWW::Mechanize) => 1.16 BuildRequires: perl(HTTP::Cookies) >= 1.39 BuildRequires: perl(HTML::Form) BuildRequires: perl(HTTP::Cache::Transparent) BuildRequires: perl(LWP::Simple) BuildRequires: perl(IO::Scalar), perl(Archive::Zip) BuildRequires: perl(XML::Simple) BuildRequires: perl(SOAP::Lite) >= 0.67, perl(Term::ReadKey) %{?_with_text_bidi:BuildRequires: perl(Text::Bidi)} BuildRequires: perl(Text::Kakasi) BuildRequires: perl(XML::LibXML) BuildRequires: perl(XML::DOM) BuildRequires: perl(XML::LibXSLT) BuildRequires: perl(Compress::Zlib) BuildRequires: perl(IO::Stringy) BuildRequires: perl(File::Temp) BuildRequires: perl(Tk::TableMatrix) BuildRequires: perl(CGI) BuildRequires: perl(HTML::TokeParser), perl(Date::Parse), perl(Time::Local) BuildRequires: perl(HTML::TableExtract) >= 1.08 BuildRequires: perl(HTML::Parser) >= 3.34 BuildRequires: perl(Log::TraceMessages) Requires: xmltv-grabbers >= %{version}-%{release} %description XMLTV is a set of utilities to manage your TV viewing. They work with TV listings stored in the XMLTV format, which is based on XML. The idea is to separate out the backend (getting the listings) from the frontend (displaying them for the user), and to implement useful operations like picking out your favourite programmes as filters that read and write XML documents. %package -n perl-XMLTV Summary: Perl modules for managing your TV viewing Group: System Environment/Libraries Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) %description -n perl-XMLTV XMLTV is a set of utilities to manage your TV viewing. They work with TV listings stored in the XMLTV format, which is based on XML. The idea is to separate out the backend (getting the listings) from the frontend (displaying them for the user), and to implement useful operations like picking out your favourite programmes as filters that read and write XML documents. This package contains the perl modules from xmltv. %package grabbers Summary: Backends for xmltv Group: Applications/Multimedia Requires: perl-XMLTV >= %{version}-%{release} %description grabbers XMLTV is a set of utilities to manage your TV viewing. They work with TV listings stored in the XMLTV format, which is based on XML. The idea is to separate out the backend (getting the listings) from the frontend (displaying them for the user), and to implement useful operations like picking out your favourite programmes as filters that read and write XML documents. This package contains the backends (grabbers) for xmltv. %package gui Summary: Graphical frontends to xmltv Group: Applications/Multimedia Requires: perl-XMLTV >= %{version}-%{release} %description gui XMLTV is a set of utilities to manage your TV viewing. They work with TV listings stored in the XMLTV format, which is based on XML. The idea is to separate out the backend (getting the listings) from the frontend (displaying them for the user), and to implement useful operations like picking out your favourite programmes as filters that read and write XML documents. This package contains graphical frontends to xmltv. %prep %setup -q %patch0 -p1 -b .noask %patch1 -p1 -b .noutf8simple # Fix encoding cp -pr ChangeLog ChangeLog.not-utf8 iconv -f ISO_8859-1 -t UTF8 ChangeLog.not-utf8 > ChangeLog touch -r ChangeLog.not-utf8 ChangeLog rm ChangeLog.not-utf8 # We filter theses from perl-XMLTV as it already has the infra #for the tui/gui test. And then xmltv-gui will request perl(Tk::TableMatrix) #which last will bring the previously filtered ones. # Filter unwanted Requires: cat << \EOF > %{name}-req #!/bin/sh %{__perl_requires} $* |\ sed -e '/perl(Tk)/d' | \ sed -e '/perl(Tk::ProgressBar)/d' EOF %define __perl_requires %{_builddir}/xmltv-%{version}/%{name}-req chmod +x %{name}-req %build %{__perl} Makefile.PL INSTALLDIRS=vendor make %{?_smp_mflags} %install rm -rf $RPM_BUILD_ROOT make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';' # Fix perms chmod 0755 $RPM_BUILD_ROOT%{_bindir}/* %check make test %clean rm -rf $RPM_BUILD_ROOT %files %defattr(-,root,root,-) %doc ChangeLog README %doc doc/* %{_bindir}/tv_cat %{_bindir}/tv_extractinfo_en %{_bindir}/tv_extractinfo_ar %{_bindir}/tv_grep %{_bindir}/tv_imdb %{_bindir}/tv_remove_some_overlapping %{_bindir}/tv_sort %{_bindir}/tv_split %{_bindir}/tv_to_latex %{_bindir}/tv_to_text %{_bindir}/tv_to_potatoe %{_bindir}/tv_find_grabbers %{_bindir}/tv_validate_file %{_bindir}/tv_validate_grabber %{_mandir}/man1/tv_cat.1* %{_mandir}/man1/tv_extractinfo_en.1* %{_mandir}/man1/tv_extractinfo_ar.1* %{_mandir}/man1/tv_grep.1* %{_mandir}/man1/tv_imdb.1* %{_mandir}/man1/tv_remove_some_overlapping.1* %{_mandir}/man1/tv_sort.1* %{_mandir}/man1/tv_split.1* %{_mandir}/man1/tv_to_latex.1* %{_mandir}/man1/tv_to_text.1* %{_mandir}/man1/tv_to_potatoe.1* %{_mandir}/man1/tv_find_grabbers.1* %{_mandir}/man1/tv_validate_file.1* %{_mandir}/man1/tv_validate_grabber.1* %files -n perl-XMLTV %defattr(-,root,root,-) %{perl_vendorlib}/XMLTV.pm %{perl_vendorlib}/XMLTV %{_mandir}/man3/*.3* %files grabbers %defattr(-,root,root,-) %{_bindir}/tv_grab_* %{_mandir}/man1/tv_grab_*.1* %files gui %defattr(-,root,root,-) %{_bindir}/tv_check %{_mandir}/man1/tv_check.1* %changelog * Wed Oct 15 2008 kwizart < kwizart at gmail.com > - 0.5.53-2 - Add "is" (Iceland) grabber support * Tue Oct 14 2008 kwizart < kwizart at gmail.com > - 0.5.53-1 - Update to 0.5.53 - Remove -gui requirement on main - filter perl-Tk dependency on perl-XMLTV - Re-enable make test * Thu Jul 31 2008 kwizart < kwizart at gmail.com > - 0.5.52-3 - Add BR perl(Log::TraceMessages) - Fix perms for %%{_bindir} - Fix Changelog encoding * Mon Jul 28 2008 kwizart < kwizart at gmail.com > - 0.5.52-2 - Conditionalize make test * Sun Jul 20 2008 kwizart < kwizart at gmail.com > - 0.5.52-1 - Update to 0.5.52 * Tue May 27 2008 kwizart < kwizart at gmail.com > - 0.5.51-2 - Add patch to remove BR on Unicode::UTF8simple (backport from upstream) * Wed Apr 30 2008 kwizart < kwizart at gmail.com > - 0.5.51-1 - Initial package for RPMFusion xmltv-0.5.35-noask.patch: --- NEW FILE xmltv-0.5.35-noask.patch --- --- xmltv-0.5.35/Makefile.PL.noask 2004-09-27 23:10:51.000000000 +0200 +++ xmltv-0.5.35/Makefile.PL 2004-09-28 16:43:21.261899085 +0200 @@ -473,7 +473,8 @@ "\n"); } print STDERR "\n"; - if (not ask(0, 'Do you want to proceed with this configuration?', 1)) { +# if (not ask(0, 'Do you want to proceed with this configuration?', 1)) { + if (0) { # Need to set {install} for each component by prompting. foreach my $info (@opt_components) { my $missing = $info->{missing}; xmltv-0.5.52-noutf8simple.patch: --- NEW FILE xmltv-0.5.52-noutf8simple.patch --- diff -up xmltv-0.5.51/grab/pt/tv_grab_pt.noutf8simple xmltv-0.5.51/grab/pt/tv_grab_pt --- xmltv-0.5.51/grab/pt/tv_grab_pt.noutf8simple 2007-09-04 11:42:49.000000000 +0200 +++ xmltv-0.5.51/grab/pt/tv_grab_pt 2008-05-27 16:24:51.000000000 +0200 @@ -85,7 +85,8 @@ use IO::File; use File::Path; use File::Basename; use LWP::UserAgent; -use Unicode::UTF8simple; +use utf8; +use Encode qw(from_to); # This is deprecated to use Unicode::UTF8simple; use XMLTV; use XMLTV::Memoize; @@ -660,7 +661,7 @@ sub get_channels { my $tree = get_nice_tree $url; my @menus = $tree->find_by_tag_name( "_tag" => "select" ); - my $uref = new Unicode::UTF8simple; + #my $uref = from_to Encode; #Unicode::UTF8simple; foreach my $elem (@menus) { my $cname = $elem->attr('name'); @@ -678,7 +679,7 @@ sub get_channels { next if $channel_id eq 'ALL'; my $channel_name = trim( $opt->content->[0] ); - $channel_name = $uref->toUTF8( "iso-8859-1", $channel_name ); + from_to( $channel_name, "iso-8859-1", "utf8"); $channels{$channel_id} = $channel_name; push @ch_all, { diff -up xmltv-0.5.51/Makefile.PL.noutf8simple xmltv-0.5.51/Makefile.PL --- xmltv-0.5.51/Makefile.PL.noutf8simple 2008-05-27 16:24:51.000000000 +0200 +++ xmltv-0.5.51/Makefile.PL 2008-05-27 16:24:51.000000000 +0200 @@ -557,7 +556,6 @@ my @opt_components blurb => 'Grabber for Portugal', exes => [ 'grab/pt/tv_grab_pt' ], prereqs => { 'HTML::TreeBuilder' => 0, - 'Unicode::UTF8simple' => 0, } }, Index: sources =================================================================== RCS file: /cvs/free/rpms/xmltv/F-8/sources,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- sources 20 Oct 2008 08:39:02 -0000 1.1 +++ sources 20 Oct 2008 12:47:14 -0000 1.2 @@ -0,0 +1 @@ +9ee2d6c8bb192e214b2674042260cf36 xmltv-0.5.53.tar.bz2