#!/usr/bin/perl
########################################################
# Written by Nelson at RJEnt.pair.com Last Modifed 110700
# 
# This script creates the skeleton folders for a win95
# install to allow for a shared session setup of windows
# using win4lin.
#########################################################
# Set location varialbles
#########################
$homeDir="/nishome/$ARGV[0]";
$winMaster="/win4lin/win";
$winMerge="/win4lin/.merge";
$winTargetRoot="/win4lin/$ARGV[0]";
$winTarget="/win4lin/$ARGV[0]/win";
$trimer= (length $winMaster);
#########################
# Code section
#########################
@dirs=`/bin/find $winMaster -name "*" -type d`;
system "/bin/mkdir $winTargetRoot";
system "/bin/mkdir $winTarget";
foreach $dirName (@dirs) {
    $tempString = substr($dirName,$trimer,((length $dirName)-$trimer)-1);
    #print STDOUT "$winTarget$tempString\n" ;
    system "/bin/mkdir '$winTarget$tempString/'";
    }
########################################
# Make some special settings for win95
########################################
#system "/bin/cp -Rs \"$winMaster\" \"$winTargetRoot\"";
#system "/bin/rm -f \"$winTarget/windows/system.dat\"";
#system "/bin/rm -f \"$winTarget/windows/user.dat\"";
#system "/bin/cp \"$winMaster/windows/system.dat\" \"$winTarget/windows/\"";
#system "/bin/cp \"$winMaster/windows/user.dat\" \"$winTarget/windows/\"";
#############################################
# Special setting for StarOffice52
##############################################
system "/bin/rm -rf \"$winTarget/Office52/user/\"";
system "/bin/cp -R \"$winMaster/Office52/user\" \"$winTarget/Office52/user\"";
#system "/bin/rm -f \"$winTarget/Office52/user/basic/soffice.sbl\"";
#system "/bin/cp \"$winMaster/Office52/user/basic/soffice.sbl\" \"$winTarget/Office52/user/basic/\"";
##############################################
# Make some special settings for user skeleton
##############################################
#system "/bin/chown -R $ARGV[0]:$ARGV[0] $winTarget";
exit;

 