]>
git.ipfire.org Git - thirdparty/squid.git/blob - src/auth/basic/POP3/basic_pop3_auth.pl.in
11 basic_pop3_auth - POP3 authenticator for Squid
15 basic_pop3_auth server
19 B<basic_pop3_auth> authenticates user credentials against a POP3 server.
23 The only option this helper takes is the name of the POP3 server to validate against.
27 This program was written by I<Henrik Nordstrom <henrik@henriknordstrom.net>>
29 This manual was written by I<Amos Jeffries <squid3@treenet.co.nz>>
33 * Copyright (C) 1996-2020 The Squid Software Foundation and contributors
35 * Squid software is distributed under GPLv2+ license and includes
36 * contributions from numerous individuals and organizations.
37 * Please see the COPYING and CONTRIBUTORS files for details.
39 # Copyright (C) 2006 Henrik Nordstrom <henrik@henriknordstrom.net>
41 # This program is free software; you can redistribute it and/or modify
42 # it under the terms of the GNU General Public License as published by
43 # the Free Software Foundation; either version 2 of the License, or
44 # (at your option) any later version.
46 # This program is distributed in the hope that it will be useful,
47 # but WITHOUT ANY WARRANTY; without even the implied warranty of
48 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
49 # GNU General Public License for more details.
51 # You should have received a copy of the GNU General Public License
52 # along with this program; if not, write to the Free Software
53 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
56 # 2006-12-10 henrik Initial revision
61 Questions on the usage of this program can be sent to the I<Squid Users mailing list <squid-users@lists.squid-cache.org>>
65 Bug reports need to be made in English.
66 See http://wiki.squid-cache.org/SquidFaq/BugReporting for details of what you need to include with your bug report.
68 Report bugs or bug fixes using http://bugs.squid-cache.org/
70 Report serious security bugs to I<Squid Bugs <squid-bugs@lists.squid-cache.org>>
72 Report ideas for new improvements to the I<Squid Developers mailing list <squid-dev@lists.squid-cache.org>>
78 The Squid FAQ wiki http://wiki.squid-cache.org/SquidFaq
80 The Squid Configuration Manual http://www.squid-cache.org/Doc/config/
88 print STDERR
"Usage: $0 popserver\n";
92 my $server = shift @ARGV;
95 my ($username, $password) = split(/\s+/);
96 $username =~ s/%([0-9a-f][0-9a-f])/pack("H2",$1)/gie;
97 $password =~ s/%([0-9a-f][0-9a-f])/pack("H2",$1)/gie;
99 my $pop = Net
::POP3
->new($server);
101 print "ERR Server not responding\n";
105 # Here apop could be used instead for MD5 support
106 if ($pop->login($username, $password)) {