$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


############################################################################