#!/oracle/app/oracle/product/7.3.3/bin/oraperl

##### set Oracle's variables #####
$ENV{'ORACLE_HOME'}='/oracle/app/oracle/product/7.3.3';
$ENV{'ORACLE_SID'}='rabbit';
$orauser="vod";
$orapass="vod";

#### set web server address ####
$WSA = "http://clarissa.npac.syr.edu/vod";
$PROJDIR="/project/K136/VOD";




print <<"EndOfHTML";
Content-type: TEXT/HTML\n\n
<HTML>\n
<BODY>\n
<TITLE>Video News Database Server Management</TITLE>\n
<BODY BACKGROUND="$WSA/gifs/vod_bg.jpg" TEXT="000000" LINK="1020FF"
VLINK="FFEE10">
<CENTER>
<h2>NPAC Video News Database Server Project <br>
 Asset Management Interface</h2>
</CENTER>
EndOfHTML

$pass = 'boston';
$passwd = <>;
#chop $passwd;
$passwd =~ s/password=(.*)\s+/$1/;

if ( $passwd eq $pass )
{
  print<<"EndOfHTML";
    <hr><H2>
    Server Management:
    <LI><A HREF="$WSA/cgi-bin/addserverform">
    Add Server</A>
    <LI><A HREF="$WSA/cgi-bin/modserverform">
    Modify Server </A>
    <LI><A HREF="$WSA/cgi-bin/delserverform">
    Delete Server</A>
    <hr>
    <P>
    Contents management:
    <LI><A HREF="$WSA/cgi-bin/addclipform">
    Add Clip</A>
    <LI><A HREF="$WSA/cgi-bin/cloneclipform">
    Clone Clip</A>
    <LI><A HREF="$WSA/cgi-bin/modclipform">
    Modify Clip </A>
    <LI><A HREF="$WSA/cgi-bin/chanclipform">
    Change Clip Filename</A>
    <LI><A HREF="$WSA/cgi-bin/delclipform">
    Delete Clip</A>
    <LI><A HREF="$WSA/cgi-bin/addcollform">
    Create Archive</A>
    <LI><A HREF="$WSA/cgi-bin/delcollform">
    Delete Archive</A>
    <P>
    </H2>
    <HR>
    <A HREF="$WSA"> VoD Project Home Page </A>
    <HR>
    <ADDRESS>Please report problems to NPAC VoD Group<BR>
             Marek Podgorny <A Href="mailto:marek\@npac.syr.edu">
             &lt;marek\@npac.syr.edu&gt;</A><BR>
             Last Modified on Mon Aug 19 18:30:34 EDT 1996
    </address>
    </body>
    </html>
EndOfHTML
}
else 
{
  print <<"EndOfHTML";
    <H3>Authorization failed !!! </H3>\n<BR>
    <HR>
    <A HREF="$WSA"> VoD Project Home Page </A>
    <HR>
    <ADDRESS>Please report problems to NPAC VoD Group<BR>
             Marek Podgorny <A Href="mailto:marek\@npac.syr.edu">
             &lt;marek\@npac.syr.edu&gt;</A><BR>
             Last Modified on Mon Aug 19 18:30:34 EDT 1996
    </address>
    </body>
    </html>
EndOfHTML
}



