File: perl_xover.pl

package info (click to toggle)
suck 4.3.4-1
  • links: PTS
  • area: main
  • in suites: bookworm, bullseye, buster
  • size: 1,148 kB
  • sloc: ansic: 12,085; perl: 528; sh: 363; makefile: 348; java: 144
file content (27 lines) | stat: -rwxr-xr-x 378 bytes parent folder | download | duplicates (10) 
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
 
# sample perl routine for killfiles
package Embed::Persistant;

sub perl_overview {

    my $overview = $_[0];

    do_debug("got $overview");
}

sub perl_xover {

	my $header = $_[0];  # header
	my $retval = 0;

	if($header =~ /WANTED/) {
		$retval = 1; 
	}
	do_debug("got $header");
	return $retval;
}
sub do_debug {
	
	open FIP, ">>debug.child";
	print FIP @_;
	close FIP;
}