Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added longer password support, sended by Ingo Schwarze (#3130634)

Browse source 
git-svn-id: svn+ssh://svn.code.sf.net/p/ddclient/code/trunk@122 3873ddee-7413-0410-b6c4-c2c57c1ab35a
This commit is contained in:
wimpunk 2010-12-07 07:25:08 +00:00
parent e406318257
commit 6ff4d054b7
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
ddclient
View file

@ -1735,11 +1735,6 @@ sub encode_base64 ($;$) {
# fix padding at the end # fix padding at the end
my $padding = (3 - length($_[0]) % 3) % 3; my $padding = (3 - length($_[0]) % 3) % 3;
$res =~ s/.{$padding}$/'=' x $padding/e if $padding; $res =~ s/.{$padding}$/'=' x $padding/e if $padding;
# break encoded string into lines of no more than 76 characters each
if (length $eol) {
$res =~ s/(.{1,76})/$1$eol/g;
}
$res; $res;
} }
###################################################################### ######################################################################
@ -1824,7 +1819,7 @@ sub geturl {
$request .= "Host: $server\n"; $request .= "Host: $server\n";
my $auth = encode_base64("${login}:${password}"); my $auth = encode_base64("${login}:${password}");
$request .= "Authorization: Basic $auth" if $login || $password; $request .= "Authorization: Basic $auth\n" if $login || $password;
$request .= "User-Agent: ${program}/${version}\n"; $request .= "User-Agent: ${program}/${version}\n";
$request .= "Connection: close\n"; $request .= "Connection: close\n";
$request .= "\n"; $request .= "\n";