I.         

       ,   
       .    - ,
        (   
  ,    ),  
 dima@rt.ru.     : http://dima.rt.ru/mmc.dir/

II.      .

         ,    Perl. 
      GPL,  Artistic License  
/  .        
   :
         ()
         (, ) 

III.      

     -     MUD.    ,   MUD, , 
,     .
           . 
    :     .  
  ,  ,      
 (prom ga       
),   ,      .
   -  ,    
,     .      ,
  ,        
 (       , . .
VI).    ,     
 ,   .
            . V.


IV.       

1.  .
 :
    - 
    -   
    -         
    -       
          
    -      ,  ,
              
    -  speedwalk
    -    ( PageUp  PageDown)
    -  
    -   mccp (Mud Client Compression Protocol)
    -     
    -   
    -     ,  
               
         .
    -       perl,   
        .

2.   .
    - OS UNIX  Win*.    FreeBSd 4.x, Solaris 8  
      Windows 2000/Windows 98.
    -   perl  5.00503  . ( Win*  
          ).

3. .
    -   .
    -           .
            ,    mmc
         , :
        ./configure
        make depend
        make
           ,   , 
       .     mmc< >,
      mmc< >.exe  -     
         .       mmc.
    -  mmc , ,  perl,  -  
       (  make install).   ,  
       mmc,  $PATH.    tcsh,   :
        set path = (/where/mmc/lives $path)
           .tcshrc.
         -    shell,  
        .
       Windows      ,
             .
    -  .   ,    - :
        -:- Loading {/root/.mmc4rc}...
        -:- MMC v4.1.9999 by Mike E. Matsnev
        mmc> 

4.      
    -c          -      .
    -f <file>   -      .
    -h, -?      -   
    -i <path>   -  path   ,    
                   ,    .
    -k          -       . 
                     .
    -n          -       .
    -p          -     . (.  /prefix)
    -r          -        .
    -s <type>   -   .  :
                    0   -   
                    1   -    
                    2   -     ( 
                          ).
    <file name> -    .

    $MMC  -      .
    $HOME -   .   $MMC,  $MMC
             .
     Windows,     ,     ,
        mmc.exe.

5.  .
          :
    <Ctrl>-@    -  
    <Ctrl>-A    -   
    <Ctrl>-B    =  
    <Ctrl>-E    -   
    <Ctrl>-F    =  
    <Ctrl>-K    -           
    <Ctrl>-N    =  
    <Ctrl>-O    -          
    <Ctrl>-P    =  
    <Ctrl>-U    -     
    <Ctrl>-V    -      ,   
                   
    <Ctrl>-W    -          
    <Ctrl>-X    -     
    <Ctrl>-Y    = Ins,   
    <Alt>-/     -    
    <Alt>-_     -     
    <Alt>-backspace -     
    <Alt>-d     -    
    <Alt>-<Del> -    
    <Alt>-k     -          
                  
    <Alt>-n     -     
    <Alt>-p     -     
    , Del, Home, End ( 2 -    ;)
    <Tab>       - -   .  
                        (,
                   tabadd, . . V),  ,    
                        <Tab>,    
                  .   -    (,
                  )       
                       :
    action {^Your group of ([0-9]+) members consists of:} {/set members ($1+3);/set curr 0;/enable GBUILD} {2000f:CORE}
    action {^\s*(\w*)} {/set last $1;/set curr ($curr+1);/if {$curr > $members} {/disable GBUILD} {/if {$curr > 3} {/tabadd $last}}} {1500f-:GBUILD}
                  :        
                   .      . X.
                         
                  . IX.

V.    .
    :
    <>     -      -,   
                    .
    []     - ,    ,  .
    txt1|txt2   -    txt1,  txt2.
    pattern     -    shell pattern. pattern  
                   '*'  '?',     .
    regexp      -    perl regexp (. . VI).
    ==> <> -  :    <>

     :
    1)  " ".     
           . ( - 
       <Enter>,     
        ).    
            <Enter>.
    2)   .     
             .   
           ,    ';'. 
          ,       
          .   - 
                  , 
               
        ';':
            /alias xxx ZZZ;xxx
            -:- {xxx} aliases {ZZZ}.
            ==> xxx
        (,    )   <>.
            ';'  <>  ,  
          '\'.   '\'    ,
         . : /showme \\\;.     ,
         ';', '\' -       ,
        : /showme {\;}. ,     , 
        .  :
            /alias test {/showme $var}
            -:- {test} aliases {/showme $var}.
            /var var FOO
            -:- {var} is now set to {FOO}.
            test
            -:- FOO
            /var var BAR
            -:- {var} is now set to {BAR}.
            test
            -:- BAR
    3)  .       
        .     
          ,      
          ,    .
       :
                alias quit say I'm so stupid doday.
                quit    -    say I'm so stupid doday.
                 quit   -     quit
         ,     ,  
        ,       
       (   . 2). :
                /alias ZZZ /alias xxx foo\\\;bar\;xxx
        (     /alias ZZZ {/alias xxx foo\;bar;xxx})
                -:- {ZZZ} aliases {/alias xxx foo\;bar;xxx}.
              ZZZ  ,   :
                /alias
                -:- Defined aliases:
                -:- {ZZZ}={/alias xxx foo\;bar;xxx}
               :
                ZZZ
                -:- {xxx} aliases {foo;bar}.
                ==> xxx
                  ,    
            ,        ,   .
                :
                /alias
                -:- Defined aliases:
                -:- {xxx}={foo;bar}
                -:- {ZZZ}={/alias xxx foo\;bar;xxx}
               xxx  :
                ZZZ
                -:- {xxx} aliases {foo;bar}.
                ==> foo
                ==> bar
             ,   
         :
            /alias /q /quit
    4)     .    (  )
            
       .  ,  '/' ( ).   
           '/' (, ,
        , .  /char),   
         .       ,
         .

   :
    quit    -   .
    connect <addr> <port> [<local address>]
            -    addr:port    local
              address.   ,     .  
                 ,   
               .
    dc      -  .
    alias   -   
    alias <pattern>
            -  ,   pattern.
    alias <what> <to>
            -   .    :
               ,  ,   
                .     ,
                   <what>  ,   
                .     
                ,   __  
               <to>.   <to>  ,  , \$1
                , \$2    . . \$0  
                . :
                    alias bs bash\;stand
                    alias bst bash \$1\;stand
    unalias <pattern>
            -  ,  pattern.
    variable
    variable <pattern>
    variable <name> <value>
    set <name> <value>
            -     .  
                ,  $name.
              : <name>     '$'!!!  
               $name,   $name   
               name!  ,   
              ,       name.
                 :
                /var foo bar
                -:- {foo} is now set to {bar}.
                /set $foo hi!
                -:- {bar} is now set to {hi!}.
                /var
                -:- Defined variables:
                -:- {foo}={bar}
                -:- {bar}={hi!}
              set   variable ,   set   
               (set <name> <value>), ,  <value> 
               ,    ,  <name>
                  .  ,
                   set    
               . :
                mmc> /set a 1+2
                mmc> /set b (1+2)
                mmc> /var
                -:- Defined variables:
                -:- {a}={1+2}
                -:- {b}={3}
    unvariable <pattern>
            -  .  "$"   ! (  var).
    showme <    >
            -         
              (    -:- ).
    echo <    >
            -     ,    ,
                   .  
              : &<>. : /echo &JTHIS IS A TEST ONLY!!!
    wecho < > <    >
            -  ,    
    send    -    ,   .
               - .  
                    
                .
    ps      -     .
    kill [<task_id>]
            -      
              task_id.  <task_id>  ,   
               .
    char    -  ,    .
    char <>
            - ,       .
              : /char {hey, you! }
    bind    -  bind    " ",
                     
              .     
               , bind -a    ,
                ,   . 
                     ( 
               C-   <Ctrl>  M-  <Alt>. :
              /bind C-C /quit   /quit   <Ctrl>-C).
                  , ,  
                 .
              :
                /bind C-C /quit     - <Ctrl>-c = <Ctrl>-<Shift>-c = /quit
                /bind C-c /quit     -   ,   
                /bind M-c /connect mud.arctic.org 2700      -  <Alt>-c
                /bind M-C /dc       -   <Alt>-<Shift>-C.
                /bind 265 {recite recall}   -  F1 (   
                    . .  -k). ,   
                /bind F1 {recite recall}    -  
    unbind <>
            -   .
    bell    - 
    cr      -     
    nop     -   
    action  -   ( . VI)
    substitute <regexp> <new> [<options>]
            -  ,       
               <regexp>  <new>    .  .
              . VI.
    gag <regexp> [<options>]
            -  ,    , 
              <regexp>,        .
                    ,
                  . :
                gag {^Morgion tells you}
    xsub <regexp> <new> <command> [<options>]
            -   action  substitute.
    unaction <>
            -   
    enable <>
            -   
    disable <>
            -   
    log [-c] [< >|off]
            - / .     ,   
                .    -c,  
                 ansi    .
    tabadd <>
    tabdelete <>
            - /     (. . IV.5).
    tablist -   
    perl    -     .
    tickset -  ,       .
    ticksize <time>
            -     ( .     
              20).
    tick    - ,      .
    tickoff -  .
    hook    -       , 
                    .    
                    (connect),
                 (disconnect),   
              (prompt)  2  : pretick  tick.
              : /hook pretick {gt TICK in 10 seconds}
                     
               .     - , 
                     .
                     perl. 
                 sample.mmcrc.
    unhook  -     .
    path < = >
            -  speedwalk    .  
                     
              .         
              , : /path {^,v=,}.  , 
                 speedwalk  ^  v,    
              ''  '' . :  , 
                   , .
    svar <name> <row> <width> [color]
            -     . <name> -  ,
              <row> -  ,     ,
              <width> -     , color -  
              ( ansi).       ( unvar),
                     .
    if () {then} [{else}]
            -   ,    then,   else
              ( ).   , :
                1)  -   ,  
                   , ,  +, -, *, /,   
                   ;        ;
                2)  -   .
              :    ,  
               then  else ,  else  .   
              ,    then,  ,  else.   
                    else,   else 
              .
    info    -   .  Protocol in  Compression  
              mccp.
    lpdelay <>
            -        (  ,
                  ),   ,
                  ,     
                 .    
                  (GA, 
                 'prompt ga'  ).   
                   ,  , 
               GA ,      GA.  
                  ,   
                  ,      
                  ,   
               .     
              lpdelay.
    complete [word spec ...]
            -  - .  . . IX.
    uncomplete <pattern> ...
            -    - .
    prefix [<>]
            -  .     ,
                ,    .
              ,   ,   
              ,    .
    system <>
            -     ;    
                 . :
                mmc> /system ping -c 3 mud.arctic.org
                PING mud.arctic.org (204.107.140.52): 56 data bytes
                64 bytes from 204.107.140.52: icmp_seq=0 ttl=244 time=190.267 ms
                64 bytes from 204.107.140.52: icmp_seq=1 ttl=244 time=187.617 ms
                64 bytes from 204.107.140.52: icmp_seq=2 ttl=244 time=190.746 ms

                --- mud.arctic.org ping statistics ---
                3 packets transmitted, 3 packets received, 0% packet loss
                round-trip min/avg/max/stddev = 187.617/189.543/190.746/1.376 ms
                  , , 
               ps  kill,   ( UNIX). :
                mmc> /system ping mud.arctic.org
                PING mud.arctic.org (204.107.140.52): 56 data bytes
                64 bytes from 204.107.140.52: icmp_seq=0 ttl=244 time=194.186 ms
                64 bytes from 204.107.140.52: icmp_seq=1 ttl=244 time=189.365 ms
                mmc> /system killall ping
                mmc> 
              :  Win*    .
    save <alias|var> <>
    nosave <alias|var> <>
            -  ,      
              ( /alias  /var  /set )  
                    .  nosave 
                    .
               save    .
    version -   .      
              bug report.
    soundevent [<event> <filename>]
            -       ,
               "beep"   .   
                 .
    playsound <event>
            -  ,    <event>.
             ,   :
              Editor

                  Windows,  Unix
               .

VI.     
     -         .
   -      
  ,      .  
    ,        
  (   .   , 
 ,        , 
        - ). 
    .  ,    
    .   ,  ,   
   .  mmc     
  .   ,     
 ,     .   ,  ,
    ,       
  ,   ,  .
   mmc       . ,   mmc 
      perl.    
.  perl     ,  
      .     ,
,   ,  ,   
,            
   .      perl  
.       action,    
-     .  
    . 95%   ,  
 perl'.          
.
         mmc  ,  
 ,        
.         
   perlre   perl (41k , ). 

      -  . ,    
 ,        
  (    ,  
).
          ,  
  .    , 
 ,   ,      
  .
         ,   
, -   ,   . 
,         
   .      - 
('.').     . ,  "."
   ,    
.      ,   
 ([]),         
. ,  [abcde]      
   ,   [yY]   'y' 
'Y'.          (]), 
   '\'          .
  (,    z)  ,   
   (-).       , 
   '\'     .  :
    [0123456789]  -   
    [0-9]         -   
    [0-9\-]       -     
    [a-z0-9]      -      
    [a-zA-ZO-9_]  -   ,    
     ,   ,
   ,       ,
       '^'. : [^0-9]  
 ,  [^\^]   ,   '^'.
        perl    
:
           
    \d              [0-9]               
    \w              [a-zA-ZO-9]          
    \s              [ \r\t\n\f]          
    \D              [^0-9]               
    \W              [^a-zA-ZO-9]         
    \S              [^ \r\t\n\f]         
        
,  [\da-fA-F]    .
             
   . ,  abc   , 
   b,     .    ( 
  )      
,     '*'. ,  a* 
 "a", "aaaa"   .       
,   '*'    '+'.  ,
 aa* -    a+.
      (?)       
   . ,  l?u+ser  
    l,        u,  
  ser.
     *, +  ?  .
       , ,      , 
  ,    ,     
  .   perl'     - 
 .       , 
  - ,  {5,10}.  , 
  ,    (     ),
    (   -   
).      (, {5,}),   "
 " (     ),      (,
{5}),   " " (     ). 
     ,     :  {0,5}.
 ,  ,    "",  
      ,   
    . ,   
"greeeeeedy"   [egr]*,     
  : "greeeeee".      
,      "". , 
  "      d"   a.*c.*d, 
 ".*"        
 ,   ,        
  ,     .    
   "" (..   ),  
  : a.*?c.*d.  .*?   
     ,   .  ,   
      ,    .  '?' 
    (?, +, *  {m,n}).
           :
   . ,  ,   
  "    ci xxx d"   'a.*ce.*d'?
 .*         
,     ,    a.*c 
  "    c".    
 ()       (i).    
          
  (   -    ,   ),   
   a.*c    "  ".  
   ()     , 
  .  'e'   
  'e'  ,   .*d -   .
        
,        
 .
       -   ,   
 .        ,
    ,     
. , ()    ,  ([a-z]) - 
 .      ,  
,    '\'   .   
  ,      
    (  ). , fred(.)barney\1 
,    fred,  ,  barney   
  .  ,   
  fredxbarneyx, a  fredxbarneyy. \1 
       .  
 ,  ,    (    
)   \2,  -  \3  . . , a(.)b(.)c\2d\1
 , -  (  #1), b,    ( 
#2), ,  #2, d   #1.  ,   ,
,  axbycydx.  ,  
 ,     .    
perl  ,    ,  
    .    
$<>,  <> -        .
         .
            . ,
(.*)\1  ,    ( ), b,  
  , , . ,   
  aFREDbFREDc    abc,     .
       - , .. |b|.  , 
        ( 
 - , b  ).       , 
   ,    /me|you/,  
 me,  you.
       ,   perl   
 ,     , 
   .    ^, $, \b, \B  
,       perlre.txt.
     ^  $      .  \b
,       ,   \B -
     .   -  
 ,      \w,   -  \W,
     . ,  .*\B[a-z]$ 
 "aaab"  "adc dx",   "axxB"  "adcd x".
          '\'.    
    ,    
(\t),   (\n),      
(\Q, \l, \u, \L, \U, \E),       perlre.txt. 
,    '\'     ,
  *, ?, +, [, ., ^, $, |, ( , ,   '\'.  
      '\',  : .*\.txt.
           , 
  .   (   ) :
                        
     ,   []
                       ( ) (?: )
                           ? + * {m,n} ?? +? *? {m,n}?
          abc ^ $
                          a|b|c
        ,      
,      .  
        
  .      ,  ,
  -  \2, \3  ..    
     ,   (?:...),  
(...).     ,     
  .

       : action <regexp> <command> [<options>]
  ,   <regexp>,  <command>. <command>
    ,    <command> 
  ,   <command>    ,  , 
<command>    .    
 , : 
    /action {^You receive [0-9]+ experience\.$} {loot corpse}
        loot.  
:
    /alias loot exa {$0}                -  ,  
    /alias loot get pile {$0}           -   
    /alias loot get all {$0}            -  
         .    
 ,   send. 
    :   action, substitute, gag  xsub  
  ,   .  ,  
 action,    substitute,   gag,   xsub.
             
,     <options>   . 
  :
< >[:<   >].  :
    '-'     - disable       -     ( 
                                 )
    'g'     - gag           -      
    'm'     - multiple      -    <regexp>  ,  
                               
    <> - priority      - ,   
                              .    
                               .    
                                 1000.
    's'|'n' - save|nosave   -       
                              
    'f'     - fall-through  -     , 
                               .   
                                 ,   
                                 'f'.
    'x<>'              -   ,  
                                ,   
                              ,    
                              /enable
      :
        action {^You are hungry\.$} {get bread $container;eat bread} 1000gs:CORE
          . 
     ,   
       ,  
,        -  
 ,   .

VII.    SPEEDWALK    
     ,        
 - . ,     10   
 sneak.      "  ".
     mmc   3     
,          perl'.
      -   /<repeat>[:<delay>] <command>.  
   <command> <repeat>    <delay>
.  <delay>  ,      
. :
    /5:300 say I rule
:   ,    .    
 ,      2   , 
        .
      -   speedwalk. Speedwalk -   
    ,  dnws2e.  mmc speedwalk
     ,    .  speedwalk
  ,      ,   
      (.  path),  
 .  speedwalk    ,   
 speedwalk.  ,   speedwalk' .dnwsee  
:
    d
    n
    w
    s
    e
    e
  speedwalk' ..ndws2e     :
    w
    w
    n
    e
    s
    u
  speedwalk   ,  5   500
.      - , ,
,     .
     ,  timeout,    . VIII.

VIII.    
            
 , .mmc4rc.  ,    $MMC
,  ,       $MMC,
  $MMC  ,    $HOME,    
  ,     .   
       , 
.
         .   -  ,
   perl.      
.       , ,
        .   
    ,    "__DATA__". 
     ,    -  
.
         "__DATA__"    
 ,      .  ,
      (  [run]  [complete]),
   ,  .
         .    c
 ,    .     
 .         
  ,     .     -
,      . :   ,  
perl (         /perl), 
    .
        [run].     
,      .     
  ,  , ,   
 . :
        [vars]
        Loot    2
        ...
        [run]
        /if (Loot==0) {/set Loot 1}
     [complete]   :      
 ,      -.  
         ,   
   .    ,    [run], 
.
        ,   
       perl'.  
  (   )   perl,   
   .      
 .       
 sample.mmcrc.   ,     perl,
         .

Mmc -     mud,        .
    "  mud'"    
  ",  mmc  ",   ", 
mmc   ,   CL::Socket".  
    mmc    telnet ,  
        output 
.        CL.pm 
 package CL::Socket.  ,      
 .

1. ,  MMC API:
    echo($message)
    -       (1) .  
         "\003<>". 
       ANSI :

                        \003A
                       \003B
                       \003C
                    \003D
                         \003E
                     \003F
                       \003G
    - ()   \003H
                         \003I
    -              \003J
                     \003K
                        \003L
    -              \003M
                       \003N
    -            \003O
                         \003P
     win*    256    
    char.


    wecho($window, $message)
       echo,     $window.  
       1  10.  mmc     1.  
          -   ,  w* .
    
    printc(@lines)
               
       (1) .   - "&<>",    
      echo.      '&',    2 :
      "&&".      & -   .
      ,    "\003<>"   :)

    wprintc($window, @lines)
       ,  :)

    msg(@lines)
       @lines    (1)     ,
          mmc.

    trig(&code, $line; $flags)
       . &code - -, $line - , 
        , $flags -  , 
       .     README.
      -    ($1-$9) 
         ,     . (
          2 : $_ -   
      ,  $; -       mmc.)
          ,     , 
            $_  $; 
          sample.mmcrc

    subst($what, $to; $flags)
       ,    mud'  $what 
       $to. $flags -  ,  
      .

    gag($what; $flags)
        subst,  subst($what, undef, "g$flags");
    
    xsub(&code, $what, $to; $flags)
         . trig  subst   .
        ,     &code.
    
    enable(@group_list)
           

    disable(@group_list)
           

    alias(&code, $command)
       .      
      $command,    &code.  
                &code 
        .

    bindkey(&code, $hotkey)
        hotkey.    hotkey
         &code.   hotkey  
      README.

    hook(&code, $event)
       &code      . 
        connect, disconnect, prompt (
        mud'), input, send, pretick  tick. prompt hook 
         ,   , 
       mud server'. input   , 
        enter. &code   
       ,    . send   
         socket,     .
       hook'   .

    sendl($)
        mud .
    
    timeout(&code, $delay; $count)
       $delay    &code   , 
          $count.  $count  , &code
         ( ;)  .

    nosave(@)
         U:: ( ),
             mmc ( , 
           ).

    new_sv(\$var, $width; $color)
          . $width -  
        status line  .  $width=0, 
             (
      ,  ,   , 
          ). $color . 
        $var   
      .

    new_svy(\$var, $width, $row; $color)
          , $row -  ,  
         .



      .

    package RTime;
    # read date string from a remote machine

    use base 'CL::Socket';

    sub line($$) {
      CL::msg("Current time is: " . CL::strip_colors($_[1]));
    }

    sub CMD::cmd_gettime {
      if ($#_<0) {
        CL::warn("gettime: usage: /gettime <host>");
      } else {
        new RTime($_[0],13);
      }
    }

    1;

            sample.mmcrc.
 -         arctic mud
(mud.arctic.org 2700).         mud, 
    .  : ,   
 #,  .

IX.     - 
     mud -     ,     
  .      
 ,  mmc,       
 ,      -
   .
             
 tcsh.   :
    /complete regexp0 spec/regexp1/list[:select]/[suffix] [spec/regexp2/list[:select]/[suffix]] ...
       :     <Tab>,
  ,    , ,  
  ,  , regexp0  
    (    , 
   , ).   
  .      
.
     ,   ,     
(  ,     .     
   ,  ,     
 . ,      )   
 .   ,     
.       spec. Spec -    ;
  : p,c,n,N.     spec 
   . p -   ,  
        .  
regexp1        .
c -     .     ,
    regexp1. regexp1  -  perl regexp.
n -     .    
,     regexp1. regexp1 - perl regexp.
N -    ,     .  
  n.
      regexp1  ,     
   (  spec/regexp2),   .    
 ,    .
        ,   , 
   .   :  list ( 
   '(a b c d)', ,     .
  :  a -    ,
                                v -    ,
                                p -    ,
                                c -   ,
                                t -    ,
                                h -    (),
                                H -   ,
                                u - ,    tabadd.
        ,   select (  
,     list. select -   ), 
   ,    
 ,         
 ,     suffix ( ). 
   <Tab>      , 
    suffix,     ,    .
  ,     <Tab>,  
       . 
   <Tab>,      
 .
    :       
    ,    
regexp0.    ,    
    .     
spec/regexp1,     .    
      ,     
.            
spec/regexp  .

X.       
          ,    
,    perl.     
 ,            
(,   ,   @INC),      
,  .       ,
   .      
   ,  mmc     (   
      '-i <   >'  
).
        Conf,     Conf.pm.
     .     :
===   Conf.pm ===
    package Conf;

    # Configuration defaults

    $Conf::char='/';        # command char, don't forget to update
                            # Parser::cmdre if you change this at runtime
    $Conf::sep=';';         # Command separator, cannot be changed at runtime
    $Conf::defprompt="\003Cmmc> ";  # default prompt when the client is not
                            # connected to a server
    $Conf::incolor=11;      # user input color, be sure to call
                            # CL::set_iattr() if you change this at runtime
    $Conf::iccolor=15;      # control chars color
    $Conf::icbg=1;          # control chars background
    $Conf::statusbg=4;      # status line background
    $Conf::statusfg=2;      # status line default foreground
    $Conf::send_verbose=1;  # display all text that gets sent to the server
    $Conf::verbose=1;       # display various sucky messages
    $Conf::status_type=2;   # status line position
    $Conf::status_height=1; # status line height
    $Conf::save_stuff=1;    # automatically save triggers, aliases, keybindings,
                            # variables
    $Conf::speedwalk_delay=500; # delay after sending 5 rooms
    $Conf::logsub=1;        # log lines _after_ substs take place

    1;
===   Conf.pm ===
     ,      
  ,     ,   
. ,   ,    
 ,  $Conf::incolor=10.   Conf::send_verbose
 0,      ,     ,
   $Conf::verbose  0,      
     var,      
 .

XI.      

 $Id: mmc.txt,v 1.8 2001/07/17 12:34:27 mike Exp $


