82 lines
2 KiB
Perl
82 lines
2 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# Script to remove all files installed by the OSX pandoc installer
|
||
|
|
# and unregister the package. Modified from a script contributed
|
||
|
|
# by Daniel T. Staal.
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
use File::Spec;
|
||
|
|
|
||
|
|
# The main info: this is the list of files to remove and the pkg_id.
|
||
|
|
my $pkg_id = 'net.johnmacfarlane.pandoc';
|
||
|
|
|
||
|
|
my @pkg_info;
|
||
|
|
|
||
|
|
# Find which, if any, volume Pandoc is installed on.
|
||
|
|
my $volume;
|
||
|
|
|
||
|
|
# First check /, then other volumes on the box.
|
||
|
|
my $cur_test = `pkgutil --pkgs=$pkg_id`;
|
||
|
|
if ( $cur_test =~ m/$pkg_id/ ) {
|
||
|
|
$volume = '/';
|
||
|
|
} else {
|
||
|
|
opendir( my $dh, '/Volumes' ) or die "Can't list Volumes: $!\n";
|
||
|
|
foreach my $dir ( readdir($dh) ) {
|
||
|
|
next if $dir =~ m/^\./; # Skip dotfiles.
|
||
|
|
|
||
|
|
my $path = File::Spec->rel2abs( $dir, '/Volumes' );
|
||
|
|
next if !( -d $path ); # Skip anything that isn't a directory.
|
||
|
|
|
||
|
|
my $cur_test = `pkgutil --pkgs=$pkg_id --volume '$path'`;
|
||
|
|
if ( $cur_test =~ m/$pkg_id/ ) {
|
||
|
|
$volume = $path;
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
die "Pandoc not installed.\n" if !( defined($volume) );
|
||
|
|
|
||
|
|
my @pkg_files = ();
|
||
|
|
my $f;
|
||
|
|
for $f (split '\n', `pkgutil --volume '$volume' --only-files --files $pkg_id`) {
|
||
|
|
push @pkg_files, File::Spec->rel2abs($f, $volume);
|
||
|
|
};
|
||
|
|
|
||
|
|
print "The following files will be deleted:\n\n";
|
||
|
|
print join("\n", @pkg_files);
|
||
|
|
print "\n\n";
|
||
|
|
print "Do you want to proceed and uninstall pandoc (Y/N)?";
|
||
|
|
my $input = <STDIN>;
|
||
|
|
|
||
|
|
if ($input =~ m/^[Yy]/) {
|
||
|
|
|
||
|
|
# Actually remove the files.
|
||
|
|
foreach $f (@pkg_files) {
|
||
|
|
if (system("sudo rm $f") == 0) {
|
||
|
|
warn "Deleted $f\n";
|
||
|
|
} else {
|
||
|
|
warn "Unable to delete $f: $!\n";
|
||
|
|
warn "Aborting uninstall.\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Clean up the install.
|
||
|
|
if (system("sudo pkgutil --forget $pkg_id --volume '$volume'") != 0) {
|
||
|
|
warn "Unable to clean up install: $!\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
} else {
|
||
|
|
|
||
|
|
print "OK, aborting uninstall.\n";
|
||
|
|
exit 0;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
print "Pandoc has been successfully uninstalled.\n";
|
||
|
|
exit 0;
|