152 lines
3.4 KiB
Perl
152 lines
3.4 KiB
Perl
#
|
|
# SMArT
|
|
#
|
|
# Configuration file code
|
|
#
|
|
# Copyright 2001 Wilmer van der Gaast (lintux@lintux.cx)
|
|
#
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
#
|
|
#
|
|
|
|
my( @info, @conf, $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[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 );
|
|
@conf = ();
|
|
while( $l = <CONF> )
|
|
{
|
|
$l =~ s/[\r\n]//g;
|
|
$l =~ s/[\t ]+/ /g;
|
|
$l =~ s/#.*//;
|
|
$l =~ s/^[\t ]*//;
|
|
$l =~ s/[\t ]*$//;
|
|
if( $l ne '' )
|
|
{
|
|
unshift( @conf, $l );
|
|
}
|
|
}
|
|
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 writeconfig()
|
|
{
|
|
my( $i, $l );
|
|
|
|
sortconfig();
|
|
|
|
open( CONF, '>' . $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 );
|
|
}
|