#!/bin/bash
#
# (C) Evgenii Bartashevich, 2:5030/595.83 
#
# AutoCreate script for SqWish UNIX   ਯ ᮧ ७権  UNIX
# version.  Small and simple.  Edit   ᨨ SqWish'a,  ⮩    쪨.
# parameters  at  the  beginning to    ࠬ  砫  ᢮
# your own parameters.                ᮡ⢥ ⥬.
#
# - Editable parameters: ----------   - 㥬 ࠬ: -------------
#
UPPERNAME=0
# Path to dupebase                      㯮
DUPEPATH=/home/evg/fido/sqbase
# file from BatchCreate line           SqWish' 䠩 ᮧ.
NEWECHOSFILE=sqwacr.lst
# Who'll be subscribed to new area.    뢠  ᢥᮧ?
LINKS="595.30 .31"
#
# - End of editable parameters ----   - 砭 ।㥬 ࠬ஢ ---
#
# - Start script ------------------   - 砫 ਯ: ----------------------
#

i=0

cat $NEWECHOSFILE |sort +2 >qqw

for a in `cat qqw`
do   
qw[i]=$a
let i=$i+1
done


count=$i

#addr index
i=0

#areatags index

areat0="a"

while [ $i -lt $count ]
do
   addr=${qw[i]}
   areata=${qw[i+1]}


   if [ $UPPERNAME = '1' ]
   then
      areatag=`echo $areata|tr [:upper:] [:lower:]|tr -d '"'`
   else
      areatag=`echo $areata|tr -d '"'`
   fi

   
   if [ $areat0 != $areatag ]
   then
      areat0=$areatag
      echo Echoarea $areat0 $DUPEPATH/$areat0 $addr $LINKS
   fi   
   
   
   let i=i+2
done   

echo -n >$NEWECHOSFILE 
#
# - End of script -----------------   -  ਯ: -----------------------
#
