rpms/perl-File-MimeInfo/devel perl-File-MimeInfo-0.13-no-ask-option.diff, NONE, 1.1 perl-File-MimeInfo.spec, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2

[Patrice Dumas (pertusus)]

Author: pertusus

Update of /cvs/extras/rpms/perl-File-MimeInfo/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv20640/devel

Modified Files:
	.cvsignore sources 
Added Files:
	perl-File-MimeInfo-0.13-no-ask-option.diff 
	perl-File-MimeInfo.spec 
Log Message:
auto-import perl-File-MimeInfo-0.13-2 on branch devel from perl-File-MimeInfo-0.13-2.src.rpm

perl-File-MimeInfo-0.13-no-ask-option.diff:

--- NEW FILE perl-File-MimeInfo-0.13-no-ask-option.diff ---
--- /usr/bin/mimeopen	2006-10-11 16:57:53.000000000 +0200
+++ mimeopen	2006-10-11 21:27:45.000000000 +0200
@@ -24,6 +24,7 @@
 	'magic-only'	=> ['M'],
 	'ask'		=> ['a'],
 	'ask-default'	=> ['d'],
+	'no-ask'	=> ['n'],
 );
 
 while ((@ARGV) && ($ARGV[0] =~ /^-/)) {
@@ -153,7 +154,10 @@
 	exit 6;
 }
 
-if ($args{ask}) {
+if ($args{'no-ask'}) {
+	$default = defined($default) ? $default : $other[0];
+}
+elsif ($args{ask}) {
 	$default = choose($mimetype, 0, grep defined($_), $default, @other);
 }
 elsif ($args{'ask-default'}) {
@@ -305,6 +309,12 @@
 
 Print the version of the program and exit.
 
+=item B<-n>, B<--no-ask>
+
+Don't ask the user which program to use. Choose the default program or the 
+first program known to handle the file mimetype. This does not set the 
+default application.
+
 =back
 
 =head1 BUGS


--- NEW FILE perl-File-MimeInfo.spec ---
Name:           perl-File-MimeInfo
Version:        0.13
Release:        2%{?dist}
Summary:        Determine file type and open application
License:        GPL or Artistic
Group:          Development/Libraries
URL:            http://search.cpan.org/dist/File-MimeInfo/
Source0:        http://www.cpan.org/authors/id/P/PA/PARDUS/File-MimeInfo/File-MimeInfo-%{version}.tar.gz
Patch0:         perl-File-MimeInfo-0.13-no-ask-option.diff
BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch:      noarch
BuildRequires:  perl(File::BaseDir) perl(File::DesktopEntry)
Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))

%description
This module can be used to determine the mime type of a file. It tries to
implement the freedesktop specification for a shared MIME database.

%prep
%setup -q -n File-MimeInfo-%{version}
%patch0

%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 {} \;
find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;

%{_fixperms} $RPM_BUILD_ROOT/*

%check
make test

%clean
rm -rf $RPM_BUILD_ROOT

%files
%defattr(-,root,root,-)
%doc Changes README
%{_bindir}/mimeopen
%{_bindir}/mimetype
%{perl_vendorlib}/*
%{_mandir}/man1/*
%{_mandir}/man3/*

%changelog
* Wed Oct 11 2006 Patrice Dumas <pertusus at free.fr> 0.13-2
- add an option to launch mimeopen non interactively

* Wed Oct 11 2006 Patrice Dumas <pertusus at free.fr> 0.13-1
- Specfile autogenerated by cpanspec 1.69.


Index: .cvsignore
===================================================================
RCS file: /cvs/extras/rpms/perl-File-MimeInfo/devel/.cvsignore,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- .cvsignore	14 Oct 2006 21:42:11 -0000	1.1
+++ .cvsignore	14 Oct 2006 21:42:51 -0000	1.2
@@ -0,0 +1 @@
+File-MimeInfo-0.13.tar.gz


Index: sources
===================================================================
RCS file: /cvs/extras/rpms/perl-File-MimeInfo/devel/sources,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- sources	14 Oct 2006 21:42:11 -0000	1.1
+++ sources	14 Oct 2006 21:42:51 -0000	1.2
@@ -0,0 +1 @@
+f87b07e1608f4380bb3f53154ac671bb  File-MimeInfo-0.13.tar.gz