X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=samples%2Fstartup_innd.pl;fp=samples%2Fstartup_innd.pl;h=0000000000000000000000000000000000000000;hb=b7a32e2d73e3ab1add8208d3e157f7269a31ef4d;hp=414846915cc277dc85f1b3e536269049fded7e19;hpb=ac902a8299ff4469b356836f431ead31c3377377;p=innduct.git

diff --git a/samples/startup_innd.pl b/samples/startup_innd.pl
deleted file mode 100644
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++ ;
-	}
-}
-