#!/usr/bin/perl
#
## block_delete.pl
#
## With this trigger in place, if changelists have file deletes
## the submit will be rejected.
#
#Triggers:
# blockdelete change-submit //depot/... "/home/user/scripts/block_delete.pl %changelist%"
#
my $p4 = "p4 -p localhost:1666";
my $changenum = $ARGV[0]; # variable %changelist% in trigger table
# Run "p4 -Ztag describe $change" and look for any "delete" actions.
open ( DESC, "$p4 -Ztag describe $changenum | grep 'action' | grep 'delete' |" ) or die "Unable to run command.";
while (<DESC>)
{
if ( $_ )
{
print "The changelist cannot have deleted files attached.";
exit 1;
}
else
{
exit 0;
}
}