#!/usr/bin/perl
########################################################################
# File:           rootfiles/cfedit.pl                                  #
# myLinux Server: Copyright (c) 2004 Michael Oberg                     #
# Version:        0.98                                                 #
# Author:         Michael Oberg <michael.oberg@mylinuxproject.de>      #
#                                                                      #
# 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 Public License along      #
# with this package; if not, write to the Free Software Foundation,    #
# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.       #
########################################################################

$HOME = `echo -n \$HOME`;
if (! -e "$HOME/.mc/ini") {
  die "Please call 'mc' and configure it.\n"
      . "Especially you should set under 'Options / Display bits...'\n"
      . "the points 'Full 8 bits input' and 'Full 8 bits output' if\n"
      . "you want to work with special characters like german umlauts.\n";
}

if (-e "locationlist.conf") {
  $locationlist = `cat locationlist.conf`;
  $locationlist =~ /locationlist[ \t]*=[ \t]*"([^"]*)"/;
  $locationlist = $1;
  `./checklocations.pl '$locationlist'`
}
else {
  `touch locationlist.conf`;
}
open (MENU, "> locationlist.struct");
print MENU qq|[Global Config]\n|
	   . qq|ll\t"List of Locations"\tTXT:locationlist|
	   . qq|\tCHECK:"./checklocations.pl '\$locationlist'"\n|
	   . qq|ec\t"Edit locations"|
	   . qq|\tRUN:"cfedit.pl location.struct location.conf"\n|
	   . qq|gc\t"Generate config files"\tRUN:"./create-conf.pl"\n|;
close MENU;

`touch location.conf`;
system ("cfedit.pl locationlist.struct locationlist.conf");
`rm *.struct location.conf`;
