2008-04-29 13:57:57 +00:00
|
|
|
#!/usr/bin/awk -f
|
|
|
|
BEGIN {
|
|
|
|
listener = "/inet/tcp/300/0/0"
|
|
|
|
quit = "no"
|
|
|
|
|
|
|
|
|
2008-04-30 20:54:57 +00:00
|
|
|
while (match(quit,"no")) {
|
|
|
|
while ((listener |& getline) > 0) {
|
|
|
|
if (match($0,"CREDOKBYYOU?")) {
|
|
|
|
print "CREDOKBYME" |& listener
|
|
|
|
}
|
|
|
|
}
|
|
|
|
close(listener)
|
|
|
|
}
|
2008-04-29 13:57:57 +00:00
|
|
|
}
|