diff options
| author | Dmitry V. Levin <ldv@altlinux.org> | 2011-10-26 23:56:54 +0000 |
|---|---|---|
| committer | Dmitry V. Levin <ldv@altlinux.org> | 2011-10-26 23:56:54 +0000 |
| commit | 1814aec611a5f9e03eceee81237ad3a3f51c954a (patch) | |
| tree | 9f0ab1c38d5fbdd5f8ed8f792bf5649bcd50a416 /libpamc/test/agents/secret@here | |
| parent | fc772e7236a7aea9c9c26b0be2ee6f3ed8ae444a (diff) | |
Fix whitespace issues
Cleanup trailing whitespaces, indentation that uses spaces before tabs,
and blank lines at EOF. Make the project free of warnings reported by
git diff --check 4b825dc642cb6eb9a060e54bf8d69288fbee4904 HEAD
Diffstat (limited to 'libpamc/test/agents/secret@here')
| -rwxr-xr-x | libpamc/test/agents/secret@here | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/libpamc/test/agents/secret@here b/libpamc/test/agents/secret@here index afdcbaa8..8d82c013 100755 --- a/libpamc/test/agents/secret@here +++ b/libpamc/test/agents/secret@here @@ -41,7 +41,7 @@ for (;;) { ($reply_control, $reply_data) = HandleContinuation($data); } else { if ($debug) { - print STDERR + print STDERR "agent: unrecognized packet $control {$data} to read\n"; } ($reply_control, $reply_data) = (0x04, ""); @@ -133,7 +133,7 @@ sub HandleContinuation ($) { } my $expected_digest = CreateDigest($state{$key}); - my ($local_cookie, $remote_cookie, $shared_secret) + my ($local_cookie, $remote_cookie, $shared_secret) = split '\|', $state{$key}; delete $state{$key}; @@ -154,7 +154,7 @@ sub HandleContinuation ($) { print STDERR "agent: server appears to know the secret\n"; } - my $session_authenticated_ticket = + my $session_authenticated_ticket = CreateDigest($remote_cookie."|".$shared_secret."|".$local_cookie); # FIXME: Agent should set a derived session key environment @@ -183,7 +183,7 @@ sub ReadBinaryPrompt { # broken packet header return (-1, ""); } - + my ($length, $control) = unpack("N C", $buffer); if ($length < 5) { # broken packet length @@ -305,4 +305,3 @@ sub GetRandom { } } - |