1
#!/usr/bin/env perl
2

3
use v5.10;
4
use warnings;
5
use IPC::Open3;
6

7
my $cachedir = $ENV{HOME}. "/.cache";
8
my $cachefile = $cachedir."/mymenu";
9
my %progs;
10

11
$SIG{CHLD} = "IGNORE";
12

13
if (! -d $cachedir) {
14
    mkdir $cachedir or die "Cannot create cache dir ". $cachedir;
15
}
16

17
if (-e $cachefile) {
18
    open my $f, "<", $cachefile;
19
    while (<$f>) {
20
	my ($c, $p) = split / /, $_;
21
	chomp $p;
22
	$progs{$p} = $c + 0;
23
    }
24
    close $f;
25
}
26

27
foreach my $p (split /:/, $ENV{PATH}) {
28
    opendir my $d, $p or next;
29
    foreach (readdir $d) {
30
	if (-x "$p/$_" and ! (-d "$p/$_")) {
31
	    if (! exists $progs{$_}) {
32
		$progs{$_} = 0;
33
	    }
34
	}
35
    }
36
    closedir $d;
37
}
38

39
my $args = join ' ', @ARGV;
40
my $pid = open3(my $c_in, my $c_out, my $c_err, "mymenu $args") or die("Failed open3(): $!");
41
foreach (sort {$progs{$b} <=> $progs{$a} or lc($a) cmp lc($b)} keys %progs) {
42
    print $c_in $_."\n";
43
}
44
close($c_in);
45

46
while (my $p = <$c_out>) {
47
    chomp $p;
48
    $progs{$p} += 1;
49
    say "gonna exec $p";
50

51
    if (!fork()) {
52
    	# i'm the child
53
    	exec $p;
54
    }
55
}
56

57
say "Updating cache...";
58
open my $f, ">", $cachefile;
59
foreach (keys %progs) {
60
    print $f $progs{$_} ." ". $_ ."\n" if $progs{$_} != 0;
61
}
62
close($f);
63

64
waitpid(-1, 0);