#!/usr/local/bin/perl -w

if($#ARGV < 0) {
	die("Usage: ob3-genmenu <menufile>\n");
}

$infile = $ARGV[0];

print "<openbox_pipe_menu>\n";
open(INFILE, $infile) or die "Can't open $infile\n";
LINE: while (<INFILE>) {
	next LINE if /^#/;
	next LINE if /^\n/;
	next LINE if !(/^.* \".*\"$/);
	chop;
	($name,$cmd) = split("\"", $_);
        chop $name;
	print "<item label=\"$name\">\n";
	print "  <action name=\"Execute\"><execute>$cmd</execute></action></item>\n";
}
close(INFILE);
print "</openbox_pipe_menu>\n";

