view release on metacpan or  search on metacpan

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

               # 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

               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")