Lemonldap-NG-Cli

 view release on metacpan or  search on metacpan

lib/Lemonldap/NG/Cli.pm  view on Meta::CPAN

165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
     # define action
     $self->{action} =
     {
          type => "get",
          save => 0,
          var  => $var,
     };
}
 
## Macros
 
when ("set-macro")
{
     # set-macro takes two parameters
     if ($self->{argc} < 3)
     {
          $self->setError ("$_: ".$ERRORS->{TOO_FEW_ARGUMENTS});
          return 0;
     }

lib/Lemonldap/NG/Cli.pm  view on Meta::CPAN

926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
     if (not defined ($self->{conf}->{$var}))
     {
          $self->setError ("$_: There is no variables named '$var'");
          return 0;
     }
 
     print "$var = '", $self->{conf}->{$var}, "'\n";
}
 
## Macros
 
when ("set-macro")
{
     my $m_name = $self->{action}->{name};
     my $m_expr = $self->{action}->{expr};
 
     $self->{conf}->{macros}->{$m_name} = $m_expr;
}
 
when ("unset-macro")



( run in 0.267 second using v1.01-cache-2.11-cpan-eab888a1d7d )