[原創(chuàng)]終端互聊的腳本(模訪icq)

styr

做了個模訪icq的腳本來玩玩，建一個icq用戶，考入icq.sh,此用戶必須要有系統(tǒng)命令icq的授權(quán)。再用戶目錄下建用戶表user.dat ，格式為每行三列： 序號  TTY號  網(wǎng)點名
還有很多地方需要改進，請各位高手多出手啊，謝謝!

user.dat:

1  ttyp0 樂山
2  ttyp1 沙灣
3  ttyp2 現(xiàn)業(yè)   
4  ttyp3 太平

icq.sh

1. #/bin/ksh
   
2. #終端聊天shell V050817
   
3. #修正改進 V050818
   
4. trap 'tput sgr0 ; rm $HOME/talk.temp $HOME/icq.tmp 2>/dev/null ; clear ; exit 0 ' 0 1 3 9 15
   
5. trap '' 2
   
6. tput bold
   
7. clear
   
8. icqname="icq"
   
9. 
   
10. test -e $HOME/user.dat || { echo "\n        用戶配置表 user.dat 不存在\n\n        請聯(lián)系管理人員解決 ^_^ " ; read ; exit 0 ; }
    
11. 
    
12. metty=`tty|awk -F"/" '{print $3}'`
    
13. 
    
14. if [ -e $HOME/icq.tmp ]
    
15. then
    
16. me=`awk '{print $3}' $HOME/icq.tmp`
    
17. if [ "$metty" = "$me" ]
    
18. then
    
19. yourtty=`awk '{print $2}' $HOME/icq.tmp`
    
20. yourname=`awk '{ if ($2=="'$yourtty'") print $3}' $HOME/user.dat`   
    
21. mename=`awk '{if ($2=="'metty'") print $3}' $HOME/user.dat`
    
22. mexh=`awk '{if ($2=="'metty'") print $1}' $HOME/user.dat`
    
23. clear ; mesg -y ; echo "\n        你正與 ${yourname} 聊天\n "
    
24. echo "\n        ${mename} 正與你聊天,請選擇 ${mexh} 與之對聊\n" >/dev/$yourtty
    
25. /tcb/bin/asroot write $icqname $yourtty ; exit 0
    
26. fi
    
27. fi
    
28. 
    
29. while :
    
30. do
    
31. clear
    
32. who | awk '{print $1,$2}' >$HOME/talk.temp
    
33. sed '/'"$metty"'/d;/^#/d' $HOME/user.dat |awk 'BEGIN{printf("\n%-5s%-10s%-16s\n"),"序號","TTY","用戶名"} \
    
34. {printf("%-5s%-10s%-16s\n"),$1,$2,$3}'
    
35. 
    
36. echo -n  "\n        請輸入對方的序號(q鍵退出程序):   "
    
37. read xh
    
38. test "$xh" = "q" -o "$xh" = "Q" && exit 0   
    
39. yourtty=`awk '{if ($1=="'$xh'") print $2 }' $HOME/user.dat 2>/dev/null`
    
40. test -z "$yourtty" && { echo "\n       $xh 未配置TTY\n" ; read ; continue ; }
    
41. 
    
42. ut=`awk '{if ($2=="'$yourtty'") print $2}' $HOME/talk.temp 2>/dev/null`
    
43. test -z "$ut" && { echo "\n       ${ut} 終端未登陸\n" ; read ; echo $icqname $metty $yourtty > $HOME/icq.tmp ; continue ; }
    
44. 
    
45. yn=`awk '{if ($1=="'$icqname'" && $2=="'$ut'") print $1,$2}' $HOME/talk.temp 2>/dev/null`
    
46. test -z "$yn" && { echo "\n        $icqname 用戶未在 $ut 終端上登陸\n" ; read ; \
    
47. echo $icqname $metty $yourtty > $HOME/icq.tmp ; continue ;  } || break
    
48. done
    
49. mesg -y
    
50. clear
    
51. echo $icqname $metty $yourtty > $HOME/icq.tmp
    
52. yourname=`awk '{if ($2=="'$ut'") print $3 }' $HOME/user.dat`
    
53. mename=`awk '{if ($2=="'$metty'") print $3 }' $HOME/user.dat`
    
54. mexh=`awk '{if ($2=="'$metty'") print $1 }' $HOME/user.dat`
    
55. echo "\n        你正與 ${yourname} 聊天\n"
    
56. echo "\n        你正與 ${mename} 聊天\n        請選擇 ${mexh} 與之對聊\n" >/dev/$yourtty
    
57. /tcb/bin/asroot write $icqname $yourtty

復制代碼