#!/usr/bin/perl
$ENV{EDITOR} = "vi";
$p4d2p = "/home/simon/patchbay/bleadperl/Porting/p4d2p";
my $first = $ARGV[0];

if ($first eq "latest") {
    system("p4 describe -du `p4 counter change` | perl $p4d2p");
} elsif ($first eq "describe") {
    system("p4 describe -du $ARGV[1] | perl $p4d2p");
} elsif ($first eq "retract") {
} else {
    system("p4 @ARGV");
}