/etc/news/scripts/startup_innd.pl is in inn 1:1.7.2q-41build1.
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 | #
# RCSId: $Id: startup_innd.pl,v 1.2 1996/12/10 14:32:16 brister Exp $
# Description: Sample startup code for Perl hooks in INN. This file, after
# it's installed in the right spot, will be loaded when
# innd starts up. The following functions should be defined
# by it (they don't have to be, in fact this file can be
# empty, but it must exist if you've compiled in Perl support).
#
# sub filter_before_reload { ... }
# Called before the filter definition file filter_innd.pl
# is loaded (every time).
# sub filter_after_reload { ... }
# Called after the filter definition file filter_innd.pl
# is loaded (every time).
#
# See the sample file filter_innd.pl for details on what it does.
my $before_count = 1 ;
# Gets no arguments, and its caller expects no return value.
sub filter_before_reload {
if ($before_count == 1) {
# Do one thing
# print "First time (before)\n" ;
$before_count++ ;
} else {
# Do something else
# print "Time number $before_count (before)\n" ;
$before_count++ ;
}
}
my $after_count = 1 ;
# Gets no arguments, and its caller expects no return value.
sub filter_after_reload {
if ($after_count == 1) {
# Do one thing
# print "First time (after)\n" ;
$after_count++ ;
} else {
# Do another
# print "Time number $after_count (after)\n" ;
$after_count++ ;
}
}
|