448 lines
8.5 KiB
Perl
448 lines
8.5 KiB
Perl
# SMArT
|
|
#
|
|
# Configuration file code
|
|
#
|
|
# Copyright 2001 Wilmer van der Gaast (lintux@lintux.cx)
|
|
#
|
|
# Updated for marker-aware config writing.
|
|
|
|
my( @info, @conf, @rawconf, $l );
|
|
|
|
$info[1] = 'Volume';
|
|
$info[2] = 'Server name';
|
|
$info[3] = 'Internal network';
|
|
$info[4] = 'IPX device';
|
|
$info[5] = 'Device flags';
|
|
$info[6] = 'Version spoofing';
|
|
$info[7] = 'Password handling';
|
|
$info[8] = 'Login/security flags';
|
|
$info[9] = 'creat() modes';
|
|
$info[10] = 'Guest group';
|
|
$info[11] = 'Guest user';
|
|
$info[12] = 'Supervisor login';
|
|
$info[13] = 'User login';
|
|
$info[15] = 'Automatic login mapping';
|
|
$info[16] = 'Startup tests';
|
|
$info[17] = 'Bindery/user flags';
|
|
$info[18] = 'Queue flags';
|
|
$info[21] = 'Print queue';
|
|
$info[22] = 'Print server';
|
|
$info[30] = 'Burst mode';
|
|
$info[40] = 'Volume cache';
|
|
$info[41] = 'Share/lock files';
|
|
$info[42] = 'Spool dir';
|
|
$info[45] = 'Bindery files';
|
|
$info[46] = 'Attribute files';
|
|
$info[47] = 'Trustee files';
|
|
$info[50] = 'Conversion tables';
|
|
$info[60] = 'MAX_CONNECTIONS';
|
|
$info[61] = 'MAX_NW_VOLS';
|
|
$info[62] = 'Reserved';
|
|
$info[63] = 'MAX_DIR_BASE_ENTRIES';
|
|
$info[68] = 'USE_MMAP';
|
|
$info[69] = 'HANDLE_ALL_SAP_TYPS';
|
|
$info[70] = 'NETWORK_SERIAL_NMBR';
|
|
$info[71] = 'NETWORK_APPL_NMBR';
|
|
$info[80] = 'max_dir_search_handles';
|
|
$info[100] = 'Debug IPX kernel';
|
|
$info[101] = 'Debug NWSERV';
|
|
$info[102] = 'Debug NCPSERV';
|
|
$info[103] = 'Debug NWCONN';
|
|
$info[104] = 'Debug NWCLIENT';
|
|
$info[105] = 'Debug NWBIND';
|
|
$info[106] = 'Debug NWROUTED';
|
|
$info[200] = 'Daemon mode';
|
|
$info[201] = 'Log file';
|
|
$info[202] = 'Log mode';
|
|
$info[210] = 'Shutdown timing';
|
|
$info[211] = 'Shutdown warnings';
|
|
$info[300] = 'Routing info';
|
|
$info[301] = 'Routing log';
|
|
$info[302] = 'Routing log flags';
|
|
$info[310] = 'Watchdogs';
|
|
$info[400] = 'nwserv.stations file';
|
|
$info[401] = 'Reply to nearest server requests';
|
|
$info[402] = 'Reply to connect requests';
|
|
|
|
open( CONF, '<' . $mars_config ) or die "Could not open $mars_config: $!";
|
|
@conf = ();
|
|
@rawconf = ();
|
|
|
|
while( $l = <CONF> )
|
|
{
|
|
push( @rawconf, $l );
|
|
|
|
my $x = $l;
|
|
$x =~ s/[\r\n]//g;
|
|
$x =~ s/[\t ]+/ /g;
|
|
$x =~ s/#.*//;
|
|
$x =~ s/^[\t ]*//;
|
|
$x =~ s/[\t ]*$//;
|
|
|
|
if( $x ne '' )
|
|
{
|
|
push( @conf, $x );
|
|
}
|
|
}
|
|
close( CONF );
|
|
|
|
sortconfig();
|
|
|
|
sub sortconfig()
|
|
{
|
|
@conf = sort( { $a cmp $b } @conf );
|
|
@conf = sort( { ( split( ' ', $a ) )[0] <=> ( split( ' ', $b ) )[0] } @conf );
|
|
}
|
|
|
|
sub getconfigline( $ )
|
|
{
|
|
my( @c, $c );
|
|
|
|
@c = getconfig( @_ );
|
|
$c = $c[0];
|
|
$c =~ s/^[0-9]* //;
|
|
return( $c );
|
|
}
|
|
|
|
sub getconfig( $ )
|
|
{
|
|
my( @c );
|
|
|
|
@c = grep( /^$_[0] /i, @conf );
|
|
return( @c );
|
|
}
|
|
|
|
sub addconfigline( $ )
|
|
{
|
|
unshift( @conf, $_[0] );
|
|
}
|
|
|
|
sub delconfigline( $ )
|
|
{
|
|
@conf = grep( !/^$_[0] /i, grep( !/^$_[0]$/i, @conf ) );
|
|
}
|
|
|
|
sub queue_config_name_from_line( $ )
|
|
{
|
|
my $line = $_[0];
|
|
|
|
$line = '' unless defined( $line );
|
|
$line =~ s/[\r\n]//g;
|
|
$line =~ s/#.*//;
|
|
$line =~ s/^\s*21\s+//i;
|
|
$line =~ s/^\s+//;
|
|
$line =~ s/\s+$//;
|
|
|
|
return ( split( /\s+/, $line, 2 ) )[0];
|
|
}
|
|
|
|
sub delconfigqueue( $ )
|
|
{
|
|
my $name = $_[0];
|
|
my $conf_before = scalar( @conf );
|
|
my $raw_before = scalar( @rawconf );
|
|
|
|
$name = '' unless defined( $name );
|
|
$name =~ s/^\s+//;
|
|
$name =~ s/\s+$//;
|
|
$name = uc( $name );
|
|
|
|
return( 0, 0 ) if $name eq '';
|
|
|
|
@conf = grep {
|
|
my $qname = queue_config_name_from_line( $_ );
|
|
!( $_ =~ /^\s*21(?:\s|$)/i && uc( $qname ) eq $name )
|
|
} @conf;
|
|
|
|
@rawconf = grep {
|
|
my $raw = $_;
|
|
my $qname = queue_config_name_from_line( $raw );
|
|
!( $raw =~ /^\s*21(?:\s|$)/i && uc( $qname ) eq $name )
|
|
} @rawconf;
|
|
|
|
return( $conf_before - scalar( @conf ), $raw_before - scalar( @rawconf ) );
|
|
}
|
|
|
|
|
|
|
|
sub normalize_line( $ )
|
|
{
|
|
my $x = $_[0];
|
|
|
|
$x =~ s/[\r\n]//g;
|
|
$x =~ s/[\t ]+/ /g;
|
|
$x =~ s/#.*//;
|
|
$x =~ s/^[\t ]*//;
|
|
$x =~ s/[\t ]*$//;
|
|
|
|
return( $x );
|
|
}
|
|
|
|
sub section_of_line( $ )
|
|
{
|
|
my $x = normalize_line( $_[0] );
|
|
|
|
if( $x =~ /^([0-9]+)\b/ )
|
|
{
|
|
return( $1 );
|
|
}
|
|
|
|
return( '' );
|
|
}
|
|
|
|
sub grouped_section_key( $ )
|
|
{
|
|
my $sec = $_[0];
|
|
|
|
if( $sec >= 100 && $sec <= 106 ) { return '100-106'; }
|
|
if( $sec >= 200 && $sec <= 202 ) { return '200-202'; }
|
|
if( $sec >= 210 && $sec <= 211 ) { return '210-211'; }
|
|
if( $sec >= 300 && $sec <= 302 ) { return '300-302'; }
|
|
|
|
return $sec;
|
|
}
|
|
|
|
sub build_marker_map()
|
|
{
|
|
my( %map, $line, $sec, $key );
|
|
|
|
foreach $line ( @conf )
|
|
{
|
|
$sec = section_of_line( $line );
|
|
next if $sec eq '';
|
|
|
|
$key = grouped_section_key( $sec );
|
|
push( @{ $map{$key} }, $line );
|
|
}
|
|
|
|
# Keep SYS as first entry in section 1
|
|
if( defined( $map{'1'} ) )
|
|
{
|
|
my @sys = grep( /^1 SYS /, @{ $map{'1'} } );
|
|
my @rest = grep( !/^1 SYS /, @{ $map{'1'} } );
|
|
$map{'1'} = [ @sys, @rest ];
|
|
}
|
|
|
|
return %map;
|
|
}
|
|
|
|
sub writeconfig_compact()
|
|
{
|
|
my( $i, $l );
|
|
|
|
sortconfig();
|
|
|
|
open( CONF, '>' . $mars_config ) or die "Could not write $mars_config: $!";
|
|
|
|
$l = ( getconfig( '1 SYS' ) )[0];
|
|
delconfigline( '1 SYS' );
|
|
addconfigline( $l );
|
|
|
|
foreach $i ( @conf )
|
|
{
|
|
$l = $i;
|
|
$l =~ s/ .*//;
|
|
printf( CONF "%-50s # %s\n", $i, $info[$l] );
|
|
}
|
|
|
|
close( CONF );
|
|
}
|
|
|
|
sub writeconfig_markers()
|
|
{
|
|
my( %secmap, %emitted, %managed );
|
|
my( $line, $active_key, $inside_active, $sec, $key );
|
|
|
|
%secmap = build_marker_map();
|
|
$inside_active = '';
|
|
|
|
foreach $key ( keys( %secmap ) )
|
|
{
|
|
$managed{$key} = 1;
|
|
}
|
|
|
|
open( CONF, '>' . $mars_config ) or die "Could not write $mars_config: $!";
|
|
|
|
foreach $line ( @rawconf )
|
|
{
|
|
if( $line =~ /^\s*#\s*>>>\s*SMARTHOOK\s+SECTION\s+([0-9]+(?:-[0-9]+)?)\s+ACTIVE\s+BEGIN/i )
|
|
{
|
|
$active_key = $1;
|
|
$inside_active = $active_key;
|
|
|
|
print CONF $line;
|
|
|
|
if( defined( $secmap{$active_key} ) )
|
|
{
|
|
foreach my $entry ( @{ $secmap{$active_key} } )
|
|
{
|
|
print CONF $entry . "\n";
|
|
}
|
|
}
|
|
|
|
$emitted{$active_key} = 1;
|
|
next;
|
|
}
|
|
|
|
if( $line =~ /^\s*#\s*<<<\s*SMARTHOOK\s+SECTION\s+([0-9]+(?:-[0-9]+)?)\s+ACTIVE\s+END/i )
|
|
{
|
|
$inside_active = '';
|
|
print CONF $line;
|
|
next;
|
|
}
|
|
|
|
if( $inside_active ne '' )
|
|
{
|
|
# Skip old content inside ACTIVE blocks completely.
|
|
next;
|
|
}
|
|
|
|
$sec = section_of_line( $line );
|
|
if( $sec ne '' )
|
|
{
|
|
$key = grouped_section_key( $sec );
|
|
|
|
if( $managed{$key} )
|
|
{
|
|
# This section was changed in @conf. Do not write the stale
|
|
# raw line again from @rawconf. If the section has no ACTIVE
|
|
# marker, it is emitted once after the raw file has been copied.
|
|
next;
|
|
}
|
|
}
|
|
|
|
print CONF $line;
|
|
}
|
|
|
|
foreach $key ( sort {
|
|
my $aa = $a; my $bb = $b;
|
|
$aa =~ s/-.*//; $bb =~ s/-.*//;
|
|
$aa <=> $bb
|
|
} keys( %secmap ) )
|
|
{
|
|
next if $emitted{$key};
|
|
|
|
print CONF "\n";
|
|
foreach my $entry ( @{ $secmap{$key} } )
|
|
{
|
|
print CONF $entry . "\n";
|
|
}
|
|
|
|
$emitted{$key} = 1;
|
|
}
|
|
|
|
close( CONF );
|
|
}
|
|
|
|
sub writeconfig_preserve_layout()
|
|
{
|
|
my( %secmap, %written, @sections, $sec, $line, $sysline );
|
|
my( $heading_sec );
|
|
|
|
sortconfig();
|
|
|
|
$sysline = ( grep( /^1 SYS /, @conf ) )[0];
|
|
if( defined( $sysline ) )
|
|
{
|
|
@conf = grep( $_ ne $sysline, @conf );
|
|
unshift( @conf, $sysline );
|
|
}
|
|
|
|
foreach $line ( @conf )
|
|
{
|
|
$sec = section_of_line( $line );
|
|
if( $sec ne '' )
|
|
{
|
|
push( @{ $secmap{$sec} }, $line );
|
|
}
|
|
}
|
|
|
|
open( CONF, '>' . $mars_config ) or die "Could not write $mars_config: $!";
|
|
|
|
foreach $line ( @rawconf )
|
|
{
|
|
if( $line =~ /^\s*#.*Section\s+([0-9]+)\b/i )
|
|
{
|
|
$heading_sec = $1;
|
|
|
|
foreach $sec ( sort { $a <=> $b } keys( %secmap ) )
|
|
{
|
|
next if $written{$sec};
|
|
next if $sec > $heading_sec;
|
|
|
|
if( defined( $secmap{$sec} ) )
|
|
{
|
|
foreach my $entry ( @{ $secmap{$sec} } )
|
|
{
|
|
print CONF $entry . "\n";
|
|
}
|
|
}
|
|
$written{$sec} = 1;
|
|
}
|
|
}
|
|
|
|
$sec = section_of_line( $line );
|
|
|
|
if( $sec eq '' )
|
|
{
|
|
print CONF $line;
|
|
next;
|
|
}
|
|
|
|
if( ! $written{$sec} )
|
|
{
|
|
if( defined( $secmap{$sec} ) )
|
|
{
|
|
foreach my $entry ( @{ $secmap{$sec} } )
|
|
{
|
|
print CONF $entry . "\n";
|
|
}
|
|
}
|
|
$written{$sec} = 1;
|
|
}
|
|
}
|
|
|
|
@sections = sort { $a <=> $b } keys( %secmap );
|
|
foreach $sec ( @sections )
|
|
{
|
|
next if $written{$sec};
|
|
|
|
print CONF "\n";
|
|
foreach my $entry ( @{ $secmap{$sec} } )
|
|
{
|
|
print CONF $entry . "\n";
|
|
}
|
|
$written{$sec} = 1;
|
|
}
|
|
|
|
close( CONF );
|
|
}
|
|
|
|
sub config_has_smart_markers()
|
|
{
|
|
foreach my $line ( @rawconf )
|
|
{
|
|
if( $line =~ /SMARTHOOK\s+SECTION/i )
|
|
{
|
|
return 1;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
sub writeconfig()
|
|
{
|
|
if( defined( $smart_compact_nwservconf ) && $smart_compact_nwservconf )
|
|
{
|
|
writeconfig_compact();
|
|
}
|
|
elsif( config_has_smart_markers() )
|
|
{
|
|
writeconfig_markers();
|
|
}
|
|
else
|
|
{
|
|
writeconfig_preserve_layout();
|
|
}
|
|
}
|