| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| my $cacheDir = $ENV{"HOME"} . "/.pdfman"; | |
| my $manFile = "$cacheDir/@ARGV.pdf"; | |
| my $tmpPsFile = "/tmp/@ARGV.ps"; | |
| unless (@ARGV) { | |
| print "Usage: \n"; | |
| print " pman 2 open\n"; | |
| exit 1; | |
| } | |
| sub generateCache { | |
| my $pageExists = system("man -t @_ > '$tmpPsFile' 2>/dev/null"); | |
| $" = " "; | |
| if ($pageExists != 0) { | |
| print "Could not find man page for '@_'\n"; | |
| exit 1; | |
| } | |
| print "Generating first time pdf for '@_'\n"; | |
| system("pstopdf '$tmpPsFile' -o '$manFile' /dev/null"); | |
| } | |
| system("mkdir $cacheDir") unless -d $cacheDir; | |
| generateCache(@ARGV) unless -e $manFile; | |
| system("open -a /Applications/Preview.app '$manFile'"); |
👍