From dea7a4c8c52cfceffcc67947d46637c75031b5ed Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Thu, 5 May 2011 05:00:13 +0100 Subject: moved hook instead of symlink --- git-update-changed-param-hook | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100755 git-update-changed-param-hook diff --git a/git-update-changed-param-hook b/git-update-changed-param-hook deleted file mode 100755 index 0407e29..0000000 --- a/git-update-changed-param-hook +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env perl - -# -*- mode: cperl -*- - - -use strict; -use warnings; -use File::Spec; -use feature qw/say/; - -my $file_cmd = "/usr/bin/file"; -my $git_cmd = "/opt/local/bin/git"; - -my $root_dir = qx/$git_cmd rev-parse --show-toplevel/; -chomp ($root_dir); - -my @changed_files = qx/git status --porcelain -u no/; - -foreach my $file (@changed_files) { - chomp $file; - if (is_irssi_script($file)) { - system(File::Spec->catfile($root_dir, 'changed_update.pl'), $file); - } -} - - -sub is_irssi_script { - my ($file) = @_; - my $full_path = File::Spec->catfile($root_dir, $file); - return 0 unless -f $full_path; - my $file_result = system("/usr/bin/grep -s -q '\%IRSSI' 1>/dev/null 2>&1"); - if ($file_result != 0) { - return 0; - } else { - return 1; - } -} - -- cgit v1.2.3