| … | |
… | |
| 602 | |
602 | |
| 603 | "$cert$key" |
603 | "$cert$key" |
| 604 | } |
604 | } |
| 605 | |
605 | |
| 606 | sub init { |
606 | sub init { |
| 607 | configure profile => "aemp", nodeid => "anon/"; |
607 | configure profile => "aemp", nodeid => "aemp/%n/%u"; |
| 608 | } |
608 | } |
| 609 | |
609 | |
| 610 | our $cfg = AnyEvent::MP::Config::config; |
610 | our $cfg = AnyEvent::MP::Config::config; |
| 611 | our $profile = $cfg; |
611 | our $profile = $cfg; |
| 612 | |
612 | |
| … | |
… | |
| 950 | my $name = shift @ARGV; |
950 | my $name = shift @ARGV; |
| 951 | |
951 | |
| 952 | print JSON::XS->new->pretty->encode ($cfg->{profile}{$name} || {}); |
952 | print JSON::XS->new->pretty->encode ($cfg->{profile}{$name} || {}); |
| 953 | }, |
953 | }, |
| 954 | showconfig => sub { |
954 | showconfig => sub { |
| 955 | my $name = @ARGV ? shift @ARGV : AnyEvent::MP::Kernel::_nodename; |
955 | my $name = @ARGV ? shift @ARGV : AnyEvent::MP::Kernel::nodename; |
| 956 | |
956 | |
| 957 | my $profile = AnyEvent::MP::Config::find_profile $name, @ARGV; |
957 | my $profile = AnyEvent::MP::Config::find_profile $name, @ARGV; |
| 958 | @ARGV = (); |
958 | @ARGV = (); |
| 959 | |
959 | |
| 960 | # make it look nicer: |
960 | # make it look nicer: |
