#!/usr/bin/perl

while (<>) {
  next if /^\s*$/;
  
  $data{Package} = 'foo';
  $data{Version} = '0.0-0';
  $data{Maintainer} = 'Dummy Maintainer <dummy@maintainers.net>';
  $data{Description} = 'Dummy Package';
  $data{Architecture} = 'all';

  /^\s*(\S+):\s*(.+)$/ or die "syntax error: $_";
  $data{$1} = $2;
  while (<>) {
    last if /^\s*$/;
    /^\s*(\S+):\s*(.+)$/ or die "syntax error: $_";
    $data{$1} = $2;
  }

  $data{Package} or die "no Package";
  xsystem("mkdir -p $data{Package}/DEBIAN");
  open(OUT,">$data{Package}/DEBIAN/control")
    or die "cannot write output file: $!";
  for (sort keys %data) {
    $data{$_} =~ s/\s+$//go;
    print OUT "$_: ".$data{$_}."\n";
  }
  close(OUT);
  xsystem("dpkg-deb -b $data{Package}");
  xsystem("rm -rf $data{Package}");

  undef %data;

  last if eof;
}

sub xsystem {
  print STDERR "$_[0]\n";
  system($_[0]);
}