#!/usr/bin/perl -w
#-
# Copyright (c) 2001 Dag-Erling Coïdan Smørgrav
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer
#    in this position and unchanged.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. The name of the author may not be used to endorse or promote products
#    derived from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#
#      $FreeBSD$
#

use strict;
use vars qw(%COMMANDS);

%COMMANDS = (
    'assign'		=> 'Responsible:%',
    'close'		=> 'State:closed',
    'feedback'		=> 'State:feedback',
    'open'		=> 'State:open',
    'suspend'		=> 'State:suspended',
    'take'		=> "Responsible:$ENV{'USER'}",
);

sub usage() {

    print(STDERR "Usage: pr command number reason ...\n");
    exit(1);
}

MAIN:{
    my $cmd;
    my $field;
    my $value;
    my $arg;
    my $number;
    my $reason;
    
    $cmd = shift(@ARGV)
	or usage();
    
    exists($COMMANDS{$cmd})
	or usage();
    
    ($field, $value) = split(':', $COMMANDS{$cmd});
    if ($value =~ m/%/) {
	$arg = shift(@ARGV)
	    or usage();
	$value =~ s/%/$arg/g;
    }
    
    $number = shift(@ARGV)
	or usage();
    $number =~ m/^(\d+)$/
	or die("'$number' is not a valid PR number\n");
    $reason = join(' ', @ARGV)
	or usage();

    $ENV{'VIPR_NUMBER'} = $number;
    $ENV{'VIPR_FIELD'} = $field;
    $ENV{'VIPR_VALUE'} = $value;
    $ENV{'VIPR_REASON'} = $reason;
    $ENV{'EDITOR'} = 'vipr';
    delete($ENV{'VISUAL'});

    open(STDIN, '</dev/null');
    exec('edit-pr', $number);
    die("exec(): $!\n");
}