1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#!/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';
# 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) );
# Get the list of files to remove.
my @pkg_files = `pkgutil --volume '$volume' --only-files --files '$pkg_id'`;
@pkg_files = map { chomp; File::Spec->rel2abs($_, $volume) } @pkg_files;
# Confirm uninistall with the user.
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 my $file (@pkg_files) {
if ( -e $file ) {
if ( system( 'sudo', 'rm', $file ) == 0 ) {
warn "Deleted $file\n";
} else {
warn "Unable to delete $file: $?\n";
die "Aborting Uninstall.\n";
}
} else {
warn "File $file does not exist. Skipping.\n";
}
}
# Clean up the install.
if (system('sudo', 'pkgutil', '--forget', $pkg_id, '--volume', $volume) != 0) {
die "Unable to clean up install: $?\n";
}
} else {
print "OK, aborting uninstall.\n";
exit;
}
print "Pandoc has been successfully uninstalled.\n";
exit;
|
