This file is indexed.

/usr/share/irssi/scripts/exec_clean.pl is in irssi-scripts 20131030.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
# $Id: exec-clean.pl,v 1.6 2002/07/04 13:18:02 jylefort Exp $

use Irssi 20020121.2020 ();
$VERSION = "1.01";
%IRSSI = (
	  authors     => 'Jean-Yves Lefort',
	  contact     => 'jylefort\@brutele.be, decadix on IRCNet',
	  name        => 'exec-clean',
	  description => 'Adds a setting to automatically terminate a process whose parent window has been closed',
	  license     => 'BSD',
	  url         => 'http://void.adminz.be/irssi.shtml',
	  changed     => '$Date: 2002/07/04 13:18:02 $ ',
);

# /set's:
#
#	autokill_orphan_processes
#
#		guess :)
#
# changes:
#
#	2002-07-04	release 1.01
#			* signal_add's uses a reference instead of a string
#
#	2002-04-25	release 1.00
#			* increased version number
#
#	2002-01-28	initial release
#
# todo:
#
#	* kill the process using a better method (TERM -> sleep -> KILL etc)

use strict;
use Irssi::UI;

sub window_destroyed {
  my ($window) = @_;

  foreach (Irssi::UI::processes()) {
    if ($_->{target_win}->{refnum} == $window->{refnum}
	&& Irssi::settings_get_bool("autokill_orphan_processes")) {
      kill 15, $_->{pid};
      return;
    }
  }
}

Irssi::signal_add("window destroyed", \&window_destroyed);
Irssi::settings_add_bool("misc", "autokill_orphan_processes", 1);