Implememt client-side basic auth

* lib/Makefile.am: Add base64.c
* lib/base64.c: New file.
* lib/basicauth.c: Move base64 support to a separate source.
* lib/basicauth.h (base64_encode,base64_decode): New protos.

* src/strsplit.c: New file.
* src/Makefile.am (libping903_a_SOURCES): Add strsplit.c
* src/defs.h (CRED_FILE_NAME): New macro.
(ecalloc,strsplit,argcv_free): New proto.
* src/mem.c (ecalloc): New function.
* src/ping903.c (strsplit): Remove.
(cf_auth): Use modified strsplit.
* src/ping903q.c (http_query): Attempt to authenticate
if basic auth is required.

* examples/lib/LWP/Ping903.pm: New file.
* examples/dbload: Use LWP::Ping903
* examples/inspect: Likewise.
* examples/ipadd: Likewise.
* examples/ipdel: Likewise.

1 files changed, 2 insertions, 2 deletions

diff --git a/examples/ipadd b/examples/ipadd
index f001950..d6195da 100755
--- a/examples/ipadd
+++ b/examples/ipadd
@@ -57,7 +57,7 @@ L<DBI>.
 
 use strict;
 use warnings;
-use LWP::UserAgent;
+use LWP::Ping903;
 use JSON;
 use Getopt::Long qw(:config gnu_getopt no_ignore_case);
 use Pod::Usage;
@@ -82,7 +82,7 @@ GetOptions(
 my $ip = shift @ARGV or die "not enough arguments";
 die "too many arguments; try `$0 --help' for more info\n" if @ARGV;
 
-my $ua = new LWP::UserAgent;
+my $ua = new LWP::Ping903;
 my $response = $ua->put("$baseurl/config/ip-list/$ip");
 unless ($response->is_success) {
     print $response->status_line,"\n";