REORG Delete everything that's not innduct or build system or changed for innduct

[innduct.git] / samples / startup_innd.pl

diff --git a/samples/startup_innd.pl b/samples/startup_innd.pl
deleted file mode 100644 (file)
index 4148469..0000000
--- a/samples/startup_innd.pl
+++ /dev/null
@@ -1,46 +0,0 @@
-# 
-# RCSId:        $Id: startup_innd.pl 6312 2003-05-04 21:40:11Z rra $
-# 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++ ;
-       }
-}
-