#!/bin/rc
rfork e
opt=()
pro=web
switch($1){
case -f
  opt=f
  shift
case -p
  shift
  pro=$1
  shift
case *
}
if(! ~ $#* 2){
  echo 'usage: mkweb [-f] [-p www] $user $password'
  exit
}
user=$1
passwd=$2
hd=/usr/$user
if(test -e $hd){
  if(~ $opt f)
    rm -rf $hd
  if not {
    echo $user is already exist
    exit
  }
}
mkdir $hd
chmod 755 $hd

cd $hd
wd=`{pwd}
if(! ~ $wd $hd){
  echo $hd 'not be created'
  exit
}

# etc
mkdir -p $pro/etc
cp /usr/none/$pro/etc/* $pro/etc
chksum=`{echo -n $user:$user^'@hera:'$passwd | md5sum}
rit /usr/none/$pro/etc/passwd > $pro/etc/passwd

# doc
cpdir /usr/none/$pro/doc $pro/doc
cd /usr/none/$pro/doc
if(~ $pro web){
for(f in navi.txt index.html)
  rit /usr/none/$pro/doc/$f >$hd/$pro/doc/$f
}
if not
  cp navi.txt index.html $hd/$pro/doc

# chmod , chgrp
cd $hd
chmod 770 $pro
chgrp web $pro

d=$pro/^(etc/ doc/ doc/image/ doc/lib doc/private/)
f=$pro/^(etc/* doc/* doc/private/*)
chmod 664 $f
chmod 775 $d
chgrp webu $d $f