$FILE = "pub.sql";
chop
print ("Publishing Test\n");
$PASS = "reuven" ;
$HOST = "mgs";
print ("Press Enter\n");
$ZEVEL = <STDIN>;
$USER = "reuven" ;
#print ("Insert User Name: ");
#$USER = <STDIN>;
#chop ($USER);
#print ("Insert Password: ");
#$PASS = <STDIN>;
#chop ($PASS);
#print ("Insert Server Host Name: ");
#$HOST = <STDIN>;
#chop ($HOST);
system ("del $FILE");
OpenFile();
print FILE ("select * from ACCOUNTS;\nexit;");
run_sql();
#
print ("Press Enter to Continue !");
$ZEVEL = <STDIN>;
#
system ("del $FILE");
OpenFile();
print FILE ("select * from Users where account like QA-ACOUNT1;\nexit;");
run_sql();
#
print ("Press Enter to Continue !");
$ZEVEL = <STDIN>;
#
system ("del $FILE");
OpenFile();
print FILE ("select * from Users where account like QA-ACOUNT2;\nexit;");
run_sql();
#
print ("Press Enter to Continue !");
$ZEVEL = <STDIN>;
#
system ("del $FILE");
OpenFile();
print FILE ("select * from Users where account like QA-ACOUNT3;\nexit;");
run_sql();
#
print ("Press Enter to Continue !");
$ZEVEL = <STDIN>;
#
system ("del $FILE");
OpenFile();
print FILE ("select * from Users where account like QA-ACOUNT4;\nexit;");
run_sql();
#
print ("Press Enter to Continue !");
$ZEVEL = <STDIN>;
#
system ("del $FILE");
OpenFile();
print FILE ("select * from NODES;\nexit;");
run_sql();
#
print ("Press Enter to Continue !");
$ZEVEL = <STDIN>;
#
system ("del $FILE");
OpenFile();
print FILE ("select * from PK;\nexit;");
run_sql();
#
print ("Press Enter to Continue !");
$ZEVEL = <STDIN>;
#
system ("del $FILE");
OpenFile();
print FILE ("select * from PK where NAME like PK1;\nexit;");
run_sql();
#
print ("Press Enter to Continue !");
$ZEVEL = <STDIN>;
#
system ("del $FILE");
OpenFile();
print FILE ("select name from profile where profile_id in (select profile_id from account profile where account_id in (select account_id from accounts where name= QA-ACOUNT1));\nexit;");
run_sql();
############################################################################
sub OpenFile #12/3/00 7:17PM
############################################################################
{
open (FILE, ">$FILE");
} ##OpenFile
############################################################################
sub run_sql #03/12/2000 18:02
############################################################################
{
system ("sqlplus $USER/$PASS\@$HOST \@$FILE");
} ##run_sql
############################################################################