summaryrefslogtreecommitdiff
path: root/misc/mc/files/patch-vfs-extfs-deb.in
diff options
context:
space:
mode:
Diffstat (limited to 'misc/mc/files/patch-vfs-extfs-deb.in')
-rw-r--r--misc/mc/files/patch-vfs-extfs-deb.in113
1 files changed, 0 insertions, 113 deletions
diff --git a/misc/mc/files/patch-vfs-extfs-deb.in b/misc/mc/files/patch-vfs-extfs-deb.in
deleted file mode 100644
index 5e276d96fab6..000000000000
--- a/misc/mc/files/patch-vfs-extfs-deb.in
+++ /dev/null
@@ -1,113 +0,0 @@
---- vfs/extfs/deb.in.orig Fri Sep 10 16:22:18 2004
-+++ vfs/extfs/deb.in Fri Sep 10 16:22:25 2004
-@@ -19,6 +19,12 @@
- # Copyright (C) 1997 Free Software Foundation
- #
-
-+sub quote {
-+ $_ = shift(@_);
-+ s/([^\w\/.+-])/\\$1/g;
-+ return($_);
-+}
-+
- sub mcdebfs_list
- {
- #
-@@ -26,8 +32,9 @@
- # Empty directories do not appear at all
- #
- local($archivename)=@_;
-+ local $qarchivename = quote($archivename);
- chop($date=`LC_ALL=C date "+%b %d %Y %H:%M"`);
-- chop($info_size=`dpkg -I $archivename | wc -c`);
-+ chop($info_size=`dpkg -I $qarchivename | wc -c`);
- $install_size=length($pressinstall);
-
- print "dr-xr-xr-x 1 root root 0 $date CONTENTS\n";
-@@ -36,7 +43,7 @@
- print "-r--r--r-- 1 root root $info_size $date INFO\n";
- print "-r-xr--r-- 1 root root $install_size $date INSTALL\n";
-
-- if ( open(PIPEIN, "dpkg-deb -c $archivename |") )
-+ if ( open(PIPEIN, "dpkg-deb -c $qarchivename |") )
- {
- while(<PIPEIN>)
- {
-@@ -81,7 +88,7 @@
- }
- }
- # begin from Patrik Rak
-- if ( open(PIPEIN, "dpkg-deb -I $archivename |") )
-+ if ( open(PIPEIN, "dpkg-deb -I $qarchivename |") )
- {
- while(<PIPEIN>)
- {
-@@ -109,16 +116,19 @@
- sub mcdebfs_copyout
- {
- local($archive,$filename,$destfile)=@_;
-+ local $qarchive = quote($archive);
-+ local $qfilename = quote($filename);
-+ local $qdestfile = quote($destfile);
-
- if($filename eq "INFO")
- {
-- system("dpkg-deb -I $archive > $destfile");
-+ system("dpkg-deb -I $qarchive > $qdestfile");
- # begin from Patrik Rak
- }
- elsif($filename =~ /^DEBIAN/)
- {
-- $filename=~s!^DEBIAN/!!;
-- system("dpkg-deb -I $archive $filename > $destfile");
-+ $qfilename=~s!^DEBIAN/!!;
-+ system("dpkg-deb -I $qarchive $qfilename > $qdestfile");
- # end from Patrik Rak
-
- }
-@@ -128,36 +138,32 @@
- {
- print FILEOUT $pressinstall;
- close FILEOUT;
-- system("chmod a+x $destfile");
-+ system("chmod a+x $qdestfile");
- }
- }
- else
- {
- # files can be prepended with ./ or not, depending on the version of tar
-- $filename=~s!^CONTENTS/!!;
-- system("dpkg-deb --fsys-tarfile $archive | tar xOf - $filename ./$filename > $destfile 2>/dev/null");
-+ $qfilename=~s!^CONTENTS/!!;
-+ system("dpkg-deb --fsys-tarfile $qarchive | tar xOf - $qfilename ./$qfilename > $qdestfile 2>/dev/null");
- }
- }
-
- sub mcdebfs_run
- {
- local($archive,$filename)=@_;
-+ local $qarchive = quote($archive);
- if($filename eq "INSTALL")
- {
- print "Installing $archive\n";
-- system("dpkg -i $archive");
-+ system("dpkg -i $qarchive");
- }
- else
- {
-- $suffix = "aaa";
-- while (1) {
-- $tmpdir = "/tmp/mcdebfs.run".$$.$suffix;
-- last if mkdir $tmpdir, 0700;
-- $suffix++;
-- # Somebody is being really nasty, give up
-- exit 1 if $suffix eq "zzz";
-- }
--
-+ use File::Temp qw(mkdtemp);
-+ my $template = "/tmp/mcdebfs.run.XXXXXX";
-+ $template="$ENV{MC_TMPDIR}/mcdebfs.XXXXXX" if ($ENV{MC_TMPDIR});
-+ $tmpdir = mkdtemp($template);
- $tmpcmd="$tmpdir/run";
- &mcdebfs_copyout($archive, $filename, $tmpcmd);
- system("chmod u+x $tmpcmd");