#!/bin/csh -f

# ץΤǻѤ
set ADS_LIST = "~/ads_list"
set TMP_file = "~/ads_list.bak"
set SEARCH_file = "/tmp/ads_list.search"
set AWK = `which gawk`
set WC = `which wc`
set SED = `which jsed`
set CAT = `which cat`
set SORT = `which sort`

# $argv[1]ˤswitchʸ
switch ($argv[1])

	## Ͽǡʤкޤ
	case filecheck :
		if ( ! -e $ADS_LIST ) then
			touch $ADS_LIST
		endif
	breaksw

	## ֤٤ƤɽפǻѤեɥ٥
	case data_field :
		echo "̾                                                                                                                  "
	breaksw

	## ֤٤Ƥɽפɽǡ
	case alllist :
		$SORT $ADS_LIST | $AWK '{ printf "%-8s %-10s %-40s %-15s %4s\n",$2,$3,$4,$5,$6 }'
	breaksw

	## Ǹ
	case key_alpha :
		$AWK '$1 ~ /'"$argv[2]"'/ { print $0 | "sort" }' $ADS_LIST > $SEARCH_file
		$CAT $SEARCH_file | $WC -l
	breaksw

	## Ǹ
	case key_1name :
		$AWK '$2 ~ /'"$argv[2]"'/ { print $0 | "sort" }' $ADS_LIST > $SEARCH_file
		$CAT $SEARCH_file | $WC -l
	breaksw

	## ̾Ǹ
	case key_2name :
		$AWK '$3 ~ /'"$argv[2]"'/ { print $0 | "sort" }' $ADS_LIST > $SEARCH_file
		$CAT $SEARCH_file | $WC -l
	breaksw

	## Ǹ
	case key_ads :
		$AWK '$4 ~ /'"$argv[2]"'/ { print $0 | "sort"}' $ADS_LIST > $SEARCH_file
		$CAT $SEARCH_file | $WC -l
	breaksw

	## äǸ
	case key_tel :
		$AWK '$5 ~ /'"$argv[2]"'/ { print $0 | "sort"}' $ADS_LIST > $SEARCH_file
		$CAT $SEARCH_file | $WC -l
	breaksw

	## ̤Ǹ
	case key_sex* :
		$AWK '$6 ~ /'"$argv[2]"'/ { print $0 | "sort"}' $ADS_LIST > $SEARCH_file
		$CAT $SEARCH_file | $WC -l
	breaksw

	## ̤ιܤ֤
	case get_pram :
		$AWK 'NR=='"$argv[3]"' { print $'"$argv[2]"'}' $SEARCH_file
	breaksw

	## ǡ
	case del_list :
		set Edit_data = "$argv[2] $argv[3] $argv[4] $argv[5] $argv[6] $argv[7]"
		$CAT $ADS_LIST > $TMP_file
		$SED '/'"$Edit_data"'/d' $TMP_file > $ADS_LIST
	breaksw

	## ǡѹ
	case chg_list :
		set Edit_data = `$AWK 'NR=='"$argv[8]"' { print $0 }' $SEARCH_file`
		set Chg_data = "$argv[2] $argv[3] $argv[4] $argv[5] $argv[6] $argv[7]"
		$CAT $ADS_LIST > $TMP_file
		$SED '/'"$Edit_data"'/d' $TMP_file > $ADS_LIST
		echo "$argv[2] $argv[3] $argv[4] $argv[5] $argv[6] $argv[7]" >> $ADS_LIST
	breaksw

endsw
