Changeset 80 for lang/perl/plagger/lib/Plagger

Timestamp:

09/11/07 06:10:23 (15 months ago)

Author:

otsune

Message:

fix same bug

Files:

• lang/perl/plagger/lib/Plagger/Crypt/Keychain.pm (modified) (2 diffs)

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

@@ -9 +9 @@
 sub decrypt {
     my ($self, $text) = @_;
-    my $u = URI->($text);
+    my $u = URI->new($text);
 #    my $protocol     = $u->scheme; 
-    my $account_name = $u->user_info;
+    my $account_name = $u->userinfo;
     my $server_name  = $u->host; 
 #    my $port         = $u->port;
     my $path_to      = $u->path;
     my $result =
-    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"});
+    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});
     if ($@) {
         $self->context->log(error => "AppleScript error: $@");
@@ -26 +26 @@
 sub encrypt {
     my($self, $text) = @_;
-    my $u = URI->($text);
+    my $u = URI->new($text);
 #    my $protocol     = $u->scheme; 
-    my $account_name = $u->user_info;
-    my $clr_password = $u->password; $u->password();
+    my ($account_name, $clr_password) = split /:/, $u->userinfo;
     my $server_name  = $u->host; 
 #    my $port_num     = $u->port;
     my $path_to      = $u->path;
-    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);
+    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/);
     if ($@) {
         $self->context->log(error => "AppleScript error: $@");
         return;
     }
+    $u->userinfo($account_name);
     return $u->as_string;
 }