#!/usr/bin/perl -w

open (MENU,"-|","update-menus --stdout --nodpkgcheck --nodefaultdirs --menufilesdir ./usr/lib/menu/ --menufilesdir ./usr/share/menu/") or die("update-menus");

while (<MENU>){
  /^!F (.*)/ and do {@file=split("/",$1); $file=$file[$#file]; next};
  /^!/ and next;
  $menu=$_;
  while ($menu =~ m/([^ ]+)=("(?:[^"\\]|\\[^"])*")(.*)/)
  {
    $field="$1";$value="$2";$menu="$3";
    ($field eq "title" || $field eq "longtitle") && do
    { 
       $key=defined($items{$value})?$items{$value}:"";
       $key.="#: package $file, field $field:\n";
       $items{$value}=$key;
    };
  }
}

use POSIX qw(strftime);
my @date=localtime(time);
my $date=strftime ("%Y-%d-%m %H:%M %z",@date);

print "# Collection of titles/longtitles of Debian menu.
# This file is automatically generated. Do not edit.
#
#, fuzzy
msgid \"\"
msgstr \"\"
\"Project-Id-Version: menu VERSION\\n\"
\"POT-Creation-Date: YEAR-MO-DA HO:MI+ZONE\\n\"
\"PO-Revision-Date: $date\\n\"
\"Last-Translator: FULL NAME <e-mail\@address>\\n\"
\"MIME-Version: 1.0\\n\"
\"Content-Type: text/plain; charset=CHARSET\\n\"
\"Content-Transfer-Encoding: ENCODING\\n\"

";

for my $s (sort {$items{$a} cmp $items{$b}} keys %items){
    print $items{$s};
    print "msgid $s\n";
    print "msgstr \"\"\n\n";
}
