icewm/icewm-menu-startup-progs

   1 #!/usr/bin/env perl
   2
   3 for $file (glob "/etc/xdg/autostart/*")
   4 {
   5         my %prog = ();
   6         open my $fh, '<', $file or warn $!;
   7         while(<$fh>)
   8         {
   9                 chomp;
  10                 if(/^(Name|Icon|Exec)=(.+)/)
  11                 {
  12                         $prog{$1} = $2;
  13                 }
  14         }
  15         close $fh;
  16
  17         print "prog \"$prog{Name}\" \"$prog{Icon}\" $prog{Exec}\n";
  18 }