icewm/icewm-menu-cwds

   1 #!/usr/bin/env perl
   2
   3 for my $wd (glob "/proc/[0-9]*/cwd")
   4 {
   5         $dir{$_} = $wd if $_ = readlink $wd;
   6 }
   7
   8 for my $dir (sort keys %dir)
   9 {
  10         my $wd = $dir{$dir};
  11
  12         my $opendir = $dir;
  13         $opendir = $wd if ! -e $dir;
  14
  15         # escape for icewm menu parser
  16         $dir =~ s{^$ENV{'HOME'}/}{~/};
  17         $dir =~ s/[""\\]/\\$&/g;
  18         $opendir =~ s/[""\\]/\\$&/g;
  19
  20         print "prog \"$dir\" folder mimeopen-gui \"$opendir\"\n"
  21 }