On Mon Oct 20, 2008 at 18:01:43 -0500, Larry Nedry wrote:
> sub hook_quit {
> my $self = @_;
> Any suggestions on how this should work? A working example would be great.
For a working example see the "quit_fortune" plugin included in
qpsmtpd release. Here it is online:
http://svn.perl.org/qpsmtpd/trunk/plugins/quit_fortune
Your error is a perl one, rather than a qpsmtpd one, as this
program will demonstrate:
#!/usr/bin/perl
foo( "steve" );
bar( "kemp" );
sub foo
{
my $arg = @_;
print "foo received $arg\n";
}
sub bar
{
my ($arg) =( @_);
print "bar received $arg\n";
}
# --
If you update your code to be like this it'll work:
sub hook_quit {
my ($self) = ( @_ );
..
}
There's also the simpler version:
sub hook_quit {
my $self = shift;
...
}
Steve
--
# Commercial Debian GNU/Linux Support
http://www.linux-administration.org/
