#!/bin/perl
$FILE = publishing.sql

print ("Publishing Test\n");
print ("Press Enter\n");
$ZEVEL = <STDIN>;

print ("Insert User Name:  ");
$USER = <STDIN>;
chop ($USER);

print ("Insert Password:  ");
$USER = <STDIN>;
chop ($PASS);

print ("Insert Server Host Name:  ");
$HOST = <STDIN>;
chop ($HOST);


############################################################################
sub run_sql     #03/12/2000 18:02
############################################################################

{
    system ("sqlplus $USER/$PASS @$HOST @$FILE");
}   ##run_sql