Select Code to Download

#!/usr/local/bin/perl -w
# jdh, 5/29/2003 - pretend to be Oracle DB server to tnslsnr
...

    }
}

PING             : (CONNECT_DATA=(COMMAND=ping));
SHOW             : (CONNECT_DATA=(COMMAND=SHOW LOGFILE));
...
ESTABLISH_REAL_DB : (CONNECT_DATA=(SID=wouprd)(CID=(PROGRAM=)(HOST=spr
+uce.ous.edu)(USER=some_user)));
SERVICE_REGISTER : (CONNECT_DATA=(COMMAND=service_register)(LOAD=0)(MA
+XLOAD=1)(INSTANCE_LOAD=0)(INSTANCE_MAXLOAD=0)(SHUTDOWN_NOTIFY=ON)(FLA
+GS=0)(SERVICE=obj_srvr)(INFO=PID$COLON$pid)(DISPLAY=PRESPAWNED SERVER
+)(SERVICE_ID=BBB99B99999B-99BB-B999-B99BB9999B99)(CLASS=ORACLE)(VERSI
+ON=81500)(ADDRESS=(PROTOCOL=tcp)(HOST=spruce.ous.edu)(PORT=$port)));
REDIRECT         : (ADDRESS=(PROTOCOL=tcp)(HOST=140.211.116.176)(PORT=
+$port));