Show
Ignore:
Timestamp:
09/11/07 07:08:56 (15 months ago)
Author:
otsune
Message:

fix output log. and Add KNOWN BUGS

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/plagger/lib/Plagger/Crypt/Keychain.pm

    r80 r81  
    1818    RunAppleScript(qq{tell application "Keychain Scripting"\nreturn password of last Internet key of current keychain whose server is "$server_name" and path is "$path_to"\nend tell}); 
    1919    if ($@) { 
    20         $self->context->log(error => "AppleScript error: $@"); 
     20        Plagger->context->log(error => "AppleScript error: $@"); 
    2121        return; 
    2222    } 
    … …  
    2727    my($self, $text) = @_; 
    2828    my $u = URI->new($text); 
    29 #    my $protocol     = $u->scheme;  
     29    my $protocol     = $u->scheme;  
    3030    my ($account_name, $clr_password) = split /:/, $u->userinfo; 
    3131    my $server_name  = $u->host;  
    3232#    my $port_num     = $u->port; 
    3333    my $path_to      = $u->path; 
    34     RunAppleScript(qq/tell application "Keychain Scripting"\nmake new Internet key at current keychain with properties {account:"$account_name", password:"$clr_password", server:"$server_name", path:"$path_to"}\nend tell/); 
     34    RunAppleScript(qq/tell application "Keychain Scripting"\nmake new Internet key at current keychain with properties {account:"$account_name", password:"$clr_password", server:"$server_name", path:"$path_to", protocol:"$protocol"}\nend tell/); 
    3535    if ($@) { 
    36         $self->context->log(error => "AppleScript error: $@"); 
     36        Plagger->context->log(error => "AppleScript error: $@"); 
    3737        return; 
    3838    } 
    … …  
    6363 
    6464=head1 DESCRIPTION 
     65 
     66=head1 KNOWN BUGS 
     67dont work contains '@' at username.