#!/usr/bin/perl -w
#
# echangelog: Update the ChangeLog for an ebuild.  For example:
#
#   $ echangelog 'Add ~alpha to KEYWORDS'
#   4a5,7
#   >   10 Feb 2003; Aron Griffis <agriffis@gentoo.org> oaf-0.6.8-r1.ebuild :
#   >   Add ~alpha to KEYWORDS
#   >

use strict;
use POSIX qw(strftime getcwd setlocale);

# Fix bug 21022 by restricting to C locale
setlocale(&POSIX::LC_ALL, "C");

use Text::Wrap;
$Text::Wrap::columns = 77;
$Text::Wrap::unexpand = 0;

# Global variables
open C, "portageq envvar PORTDIR |" or die "Can't find PORTDIR";
my ($new) = <C>;
close C;
$new =~ s/\s+$//;
my ($cwd) = getcwd();
$cwd =~ m|.*/(\w+-\w+)/([^/]+)| 
    or die "Can't figure out category/package.. sorry!\n";
my ($category, $package_name) = ($1, $2);
print $category;
print "/";
print $package_name;

# vim:sw=4 ts=8 expandtab