Context Navigation

Changeset 81 for lang/perl/plagger/lib

Timestamp:

09/11/07 07:08:56 (15 months ago)

Author:

otsune

Message:

fix output log. and Add KNOWN BUGS

Files:

r80	r81
18	18	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});
19	19	if ($@) {
20		~~$self~~->context->log(error => "AppleScript error: $@");
	20	Plagger->context->log(error => "AppleScript error: $@");
21	21	return;
22	22	}
…	…
27	27	my($self, $text) = @_;
28	28	my $u = URI->new($text);
29		# my $protocol = $u->scheme;
	29	my $protocol = $u->scheme;
30	30	my ($account_name, $clr_password) = split /:/, $u->userinfo;
31	31	my $server_name = $u->host;
32	32	# my $port_num = $u->port;
33	33	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/);
35	35	if ($@) {
36		~~$self~~->context->log(error => "AppleScript error: $@");
	36	Plagger->context->log(error => "AppleScript error: $@");
37	37	return;
38	38	}
…	…
63	63
64	64	=head1 DESCRIPTION
	65
	66	=head1 KNOWN BUGS
	67	dont work contains '@' at username.