#!/usr/bin/perl -w
# -*- mode: perl; -*-

=head1 NAME
    
    add_changelog

=head1 SINOPSYS

    add_changelog

=head1 DESCRIPTION

    Добавляет файл debian/changelog

=cut                      

use strict;
use File::Slurp;
use Getopt::Long;

use Yandex::Shell;

my $PACKAGE = "yandex-wordstat-frontend";

my $changelog_file = "debian/changelog";

my %SVN_INFO = svn_info(".");
my $version = $SVN_INFO{Revision};

my $changelog_author = " -- ".($ENV{DEBFULLNAME} || 'unknown')." <".($ENV{DEBEMAIL} || $ENV{EMAIL} || 'unknown@unknown.ru').">  ".`date -R`;

write_file($changelog_file, {atomic => 1},
qq{$PACKAGE ($version) unstable; urgency=low

  * next auto build

$changelog_author


});

sub svn_info {
    my ($path) = @_;
    return 
        map {/^([^:]+):\s*(.*)/ ? ($1 => $2) : ()}
        split /\n/, yash_qx("LC_ALL=C svn", "info", $path);
}
