プレコミットで perl スクリプトを呼び出していcommit_log.pl
ます。スクリプトは非常に多くの事前チェックを行っています。今、コミットの承認後にメールを送信しようとしています。権限の問題により、ポストコミット フックを設定できません。そのため、コミット前のスクリプト自体でメール送信を呼び出そうとしています。
私のcommit_log.pl
場合、終了コードがゼロの場合でも機能しprintf
ていません。
終了コードが 1 の場合、すべて正常に動作しています
pre-commit
:
log=`$SVNLOOK log -t "$TXN" "$REPOS"`
author=`$SVNLOOK author -t "$TXN" "$REPOS"`
CHANGED=`$SVNLOOK changed -t "$TXN" "$REPOS"`
/usr/bin/perl /isource/svnroot/fgw_ins/hooks/user/commit_log.pl "$log" "$author" "$CHANGED" "$0" 1>&2
if [ "$?" -eq "1" ];
then
exit 1
else
exit 0
fi
# if does not match..fail...
exit 1
---------------------------------------------------------------------------------
commit_log.pl
------------------------
}
else
{
print("Commit approved\n");#this printf itself is not working
`python $path/send_mail.py $comment $committed_filepath`;
exit 0;
}