Changeset 169

Show
Ignore:
Timestamp:
06/23/04 02:24:09 (4 years ago)
Author:
athomas
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • manage/trunk/CLI/Plugin.pm

    r168 r169  
    1919 
    2020# Do post-construction initialisation. This can include authentication, 
    21 # whatever. Returns 1 for success, 0 for not. 
     21# whatever. It is called after stored configuration is laoded. Returns 1 for 
     22# success, 0 for not. 
    2223sub begin() { 
    2324my $self = shift; 
    2425 
     26        $::BANNER = "FOO"; 
    2527        1; 
    2628} 
  • manage/trunk/manage

    r168 r169  
    240240} 
    241241 
    242 # Initialize modules 
    243 exit(1) unless $CLI->begin(); 
    244  
    245242# Initialise terminal and readline 
    246243my $term = new Term::ReadLine($SELF); $term->ornaments(0); 
     
    281278} 
    282279 
     280# Initialize modules 
     281exit(1) unless $CLI->begin(); 
     282 
    283283END { 
    284284        $CLI->end();