#!/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