Changeset 155

Show
Ignore:
Timestamp:
06/01/04 02:26:58 (4 years ago)
Author:
svn
Message:

Trying to export %CONF to plugins

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • manage/trunk/manage

    r154 r155  
    11#!/usr/bin/perl 
     2 
     3package Manage; 
    24 
    35# Add cli-parser to our module include path 
    …… 
    68use warnings; 
    79use strict; 
     10 
    811use CLI; 
    912use Term::ReadKey; 
    …… 
    1821 
    1922  
     23my $BREAK = 0; 
     24my @ALTCOLOURS = ("\e[36m", "\e[36m\e[1m"); 
     25$SIG{INT} = sub { $BREAK = 1; }; 
    2026# Global variables 
    2127my $PROMPT = 'manage> '; 
    2228my $BANNER = ''; 
    23 my $SQLSERVER = '127.0.0.1'; 
    2429my $PLUGINS = './plugins'; 
    25  
    26 my %CONF = ( 
     30our %CONF = ( 
    2731        'prompt' => {  
    2832                value => \$PROMPT, 
    …… 
    3539                help => 'Startup banner.' 
    3640        }, 
    37         'sqlserver' => { 
    38                 value => \$SQLSERVER, 
    39                 pattern => '.*', 
    40                 help => 'SQL server where logs are stored.' 
    41         }, 
    4241        'plugins' => { 
    4342                value => \$PLUGINS, 
    …… 
    4746 
    4847); 
    49 my $BREAK = 0; 
    50 my @ALTCOLOURS = ("\e[36m", "\e[36m\e[1m"); 
    51 $SIG{INT} = sub { $BREAK = 1; }; 
    5248 
    5349