byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
897a1fd8aa
qpsmtpd/plugins/quit_fortune

18 lines
473 B
Plaintext
Raw Normal View History

Fix 01-syntax test failures Exclude some tests with dependencies. Remove -T from perl line in plugins This makes it harder to test with PERL5LIB/perlbrew etc
2012-04-29 10:35:59 +02:00
#!perl -w
semi working plugin stuff git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@30 958fd67b-6ff1-0310-b445-bb7760255be9
2002-07-06 09:16:23 +02:00
r483@dog: rspier | 2005-07-06 21:17:00 -0700 The great plugin renaming in the name of inheritance and standardization commit. 1. new concept of standard hook_ names. 2. Plugin::init 3. renamed many subroutines in plugins (and cleaned up register subs) 4. updated README.plugins git-svn-id: https://svn.perl.org/qpsmtpd/trunk@479 958fd67b-6ff1-0310-b445-bb7760255be9
2005-07-07 06:17:39 +02:00
sub hook_quit {
find plugins -type f -exec perltidy -b {} \;
2013-04-21 06:50:39 +02:00
my $qp = shift->qp;
don't do the fortune cookie if the client speaks ESMTP instead of just plain old SMTP. git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@55 958fd67b-6ff1-0310-b445-bb7760255be9
2002-09-08 15:23:38 +02:00
find plugins -type f -exec perltidy -b {} \;
2013-04-21 06:50:39 +02:00
# if she talks EHLO she is probably too sophisticated to enjoy the
# fun, so skip it.
Remove a ton of 'return ()', and a few other minor readability tweaks.
2014-09-18 03:28:51 +02:00
return DECLINED if ($qp->connection->hello || '') eq "ehlo";
don't do the fortune cookie if the client speaks ESMTP instead of just plain old SMTP. git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@55 958fd67b-6ff1-0310-b445-bb7760255be9
2002-09-08 15:23:38 +02:00
find plugins -type f -exec perltidy -b {} \;
2013-04-21 06:50:39 +02:00
my $fortune = '/usr/games/fortune';
Remove a ton of 'return ()', and a few other minor readability tweaks.
2014-09-18 03:28:51 +02:00
return DECLINED if !-e $fortune;
http_config plugin other minor changes update STATUS and Changes git-svn-id: https://svn.perl.org/qpsmtpd/trunk@96 958fd67b-6ff1-0310-b445-bb7760255be9
2002-11-06 07:42:55 +01:00
find plugins -type f -exec perltidy -b {} \;
2013-04-21 06:50:39 +02:00
my @fortune = `$fortune -s`;
@fortune = map { chop; s/^/ \/ /; $_ } @fortune;
$qp->respond(221, $qp->config('me') . " closing connection.", @fortune);
return DONE;
semi working plugin stuff git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@30 958fd67b-6ff1-0310-b445-bb7760255be9
2002-07-06 09:16:23 +02:00
}
Reference in New Issue Copy Permalink