| 1 | #!/opt/bIn/perl |
1 | #!/opt/bin/perl |
| 2 | |
2 | |
| 3 | =head1 NAME |
3 | =head1 NAME |
| 4 | |
4 | |
| 5 | aemp - AnyEvent:MP utility |
5 | aemp - AnyEvent:MP utility |
| 6 | |
6 | |
| … | |
… | |
| 669 | }, |
669 | }, |
| 670 | |
670 | |
| 671 | setbinds => sub { |
671 | setbinds => sub { |
| 672 | @ARGV >= 1 |
672 | @ARGV >= 1 |
| 673 | or die "bind addresses missing\n"; |
673 | or die "bind addresses missing\n"; |
| 674 | $profile->{binds} = [split /,/, shift @ARGV]; |
674 | my $list = shift @ARGV; |
|
|
675 | $profile->{binds} = ref $list ? $list : [split /,/, $list]; |
| 675 | ++$cfg->{dirty}; |
676 | ++$cfg->{dirty}; |
| 676 | }, |
677 | }, |
| 677 | delbinds => sub { |
678 | delbinds => sub { |
| 678 | delete $profile->{binds}; |
679 | delete $profile->{binds}; |
| 679 | ++$cfg->{dirty}; |
680 | ++$cfg->{dirty}; |
| … | |
… | |
| 697 | }, |
698 | }, |
| 698 | |
699 | |
| 699 | setseeds => sub { |
700 | setseeds => sub { |
| 700 | @ARGV >= 1 |
701 | @ARGV >= 1 |
| 701 | or die "seed addresses missing\n"; |
702 | or die "seed addresses missing\n"; |
| 702 | $profile->{seeds} = [split /,/, shift @ARGV]; |
703 | my $list = shift @ARGV; |
|
|
704 | $profile->{seeds} = ref $list ? $list : [split /,/, $list]; |
| 703 | ++$cfg->{dirty}; |
705 | ++$cfg->{dirty}; |
| 704 | }, |
706 | }, |
| 705 | delseeds => sub { |
707 | delseeds => sub { |
| 706 | delete $profile->{seeds}; |
708 | delete $profile->{seeds}; |
| 707 | ++$cfg->{dirty}; |
709 | ++$cfg->{dirty}; |
| … | |
… | |
| 725 | }, |
727 | }, |
| 726 | |
728 | |
| 727 | setservices => sub { |
729 | setservices => sub { |
| 728 | @ARGV >= 1 |
730 | @ARGV >= 1 |
| 729 | or die "service specifications missing\n"; |
731 | or die "service specifications missing\n"; |
| 730 | $profile->{services} = [split /,/, shift @ARGV]; |
732 | my $list = shift @ARGV; |
|
|
733 | $profile->{services} = ref $list ? $list : [split /,/, $list]; |
| 731 | ++$cfg->{dirty}; |
734 | ++$cfg->{dirty}; |
| 732 | }, |
735 | }, |
| 733 | delservices => sub { |
736 | delservices => sub { |
| 734 | delete $profile->{services}; |
737 | delete $profile->{services}; |
| 735 | ++$cfg->{dirty}; |
738 | ++$cfg->{dirty}; |
