#!/usr/bin/perl
#------------------------------------------------------------------------------
# Copyright (C) 2001 Thomax Kaulmann
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


use OMA;

CGI::ReadParse();


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

sub fset {
	print <<EOF;
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title>reboot.fm open-archive/exchange</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<frameset rows=90,*,90>
<!frameset rows=90,*>
<frameset cols=30%,*>
<frame name=upperleft src=$OMA::OMABIN/go?op=upperleft scrolling=no>
<frame name=upperrigth src=$OMA::OMABIN/go?op=upperrigth scrolling=no>
</frameset>
<frameset cols=30%,*>
<frame name=center src=$OMA::OMABIN/go?op=tree>
<frame name=dwnwork src=$OMA::OMABIN/go?op=center>
</frameset>
<!--
-->
<frameset cols=25%,25%,25%,*>
<frame name=rebootcook src=http://$OMA::NEWASSETHOST/reboot-perl/reboot-cook?op=look>
<frame name=opacook src=http://$OMA::OPAHOST/opa-perl/opa-cook?op=look>
<frame name=otacook src=http://$OMA::OTAHOST/ota-perl/ota-cook?op=look>
<frame name=ovacook src=http://$OMA::OVAHOST/ova-perl/ova-cook?op=look>
<!--<frame name=oracook src=http://$OMA::ORAHOST/ora-perl/ora-cook?op=look>-->
</frameset>
<!--
-->
</frameset>
</head><body></body>
</html>
EOF
}


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

sub upperleft {
	local $useradmin="";

	if($ENV{'REMOTE_USER'} eq "admin") {
		$useradmin = "<a target=dwnwork href=$OMA::OMABIN/useradm>[user handling]</a>";
	}
	print "
<html>
<head>
</head>
<BODY TEXT=#000000 LINK=#007700 VLINK=#770000 ALINK=#770000 BGCOLOR=#dfdfdf>
<font face=helvetica,arial>
<form target=center method=post action=$OMA::OMABIN/search>
<center>
<a target=upperrigth href=$OMA::OMABIN/go?op=upperrigth_reboot><img align=top src=/img/reboot.png border=0>[reboot]</a>
<a target=upperrigth href=$OMA::OMABIN/go?op=upperrigth_opa><img align=top src=/img/image.png border=0>[Image]</a>
<a target=upperrigth href=$OMA::OMABIN/go?op=upperrigth_ota><img align=top src=/img/text.png border=0>[Text]</a>
<nobr><a target=upperrigth href=$OMA::OMABIN/go?op=upperrigth_ova><img align=top src=/img/film.png border=0>[Film]</a>
<!-- <a target=upperrigth href=$OMA::OMABIN/go?op=upperrigth_ora><img align=top src=/img/audio.png border=0>[Audio]</a> -->
<br>
<a target=center href=$OMA::OMABIN/gen?op=ilink>[refresh tree]</a>
$useradmin
[<a href=/oma-docu-2004mar26.pdf> <b>help</b> </a>]
<br>
<font size=-1>
<input name=qstring size=18>
</font>
<!--
<input type=radio name=conj checked value=OR>OR
<input type=radio name=conj  value=AND>AND
-->
</center>
</font>
</form>
</body>
</html>
";
}


                                                   ##           ###       ##
                                                                 ##       ##
 ##  ## ## ###  ## ###    ####  ## ###  ## ###    ###     #####  ## ##   #####
 ##  ##  ##  ##  ##  ##  ##  ##  ### ##  ### ##    ##    ##  ##  ### ##   ##
 ##  ##  ##  ##  ##  ##  ######  ##      ##        ##    ##  ##  ##  ##   ##
 ##  ##  #####   #####   ##      ##      ##        ##     #####  ##  ##   ## ##
  #####  ##      ##       ####  ####    ####      ####       ## ###  ##    ###
        ####    ####                                     #####
sub upperrigth {
	print "
<html>
<head></head>
<BODY TEXT=#000000 LINK=#007700 VLINK=#770000 ALINK=#770000 BGCOLOR=#dfdfdf>
<center>
<table width=80% height=100%><tr><td>
<font size=+1 face=helvetica,ariel color=#8f8f8f>
This frame contains the basic media handling menus.
You can activate them by clicking the selected media from the upper left frame.
</td></tr></table>
</body>
</html>
";
}



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


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

sub upperrigth_ova {
	print "
<html>
<head>
</head>
<BODY TEXT=#000000 LINK=#007700 VLINK=#770000 ALINK=#770000 BGCOLOR=#dfdfdf>
<form target=center name=search method=post action=http://$OMA::OVAHOST/ova-perl/ova-search>
<font face=helvetica,arial>
<b><img src=/img/film.png align=top>[Film]
<a target=dwnwork href=http://$OMA::OVAHOST/ova-perl/.sec/ova-upload>upload file</a> | 
<a target=dwnwork href=http://$OMA::OVAHOST/ova-perl/.sec/ova-entry>enter entry</a> |
<a target=center href=http://$OMA::OVAHOST/ova-perl/.sec/ova-page-id>change entry</a> |
<a target=center href=http://$OMA::OVAHOST/ova-perl/ova-latest?skrit=title>show latest</a>
<br>
<br>
</b>
<SELECT NAME=find_what>
<OPTION>all
<OPTION>title
<OPTION>subtitle
<OPTION>abstract
<OPTION>staff
<OPTION>author
<OPTION>director
<OPTION>editor
<OPTION>camera
<OPTION>sound
<OPTION>distributor
</SELECT>
<INPUT TYPE=text NAME=querystring SIZE=15 MAXLENGTH=30>
</font>
</form>
</body>
</html>
";

}


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


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

sub upperrigth_ora {
	print "
<html>
<head></head>
<BODY TEXT=#000000 LINK=#007700 VLINK=#770000 ALINK=#770000 BGCOLOR=#dfdfdf>
<form target=center name=search method=post action=http://$OMA::ORAHOST/ora-perl/ora-search>
<font face=helvetica,arial>
<b>
<img src=/img/audio.png align=top>[Audio]
<a target=dwnwork href=http://$OMA::ORAHOST/ora-perl/.sec/ora-upload>upload file</a> | 
<a target=dwnwork href=http://$OMA::ORAHOST/ora-perl/.sec/ora-entry>enter entry</a> |
<a target=center href=http://$OMA::ORAHOST/ora-perl/.sec/ora-page-id>change entry</a> |
<a target=center href=http://$OMA::ORAHOST/ora-perl/ora-latest?skrit=title>show latest</a>
</b>
<br>
<br>
<SELECT NAME=find_what>
<OPTION>all
<OPTION>abstract
<OPTION>title
<OPTION>author
<OPTION value=Interpret>Artist
<OPTION>label
</SELECT>
<INPUT TYPE=text NAME=querystring SIZE=15 MAXLENGTH=30>
</font>
</form>
</font>
</body>
</html>
";
}



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


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

sub upperrigth_opa {
	print "
<html>
<head></head>
<BODY TEXT=#000000 LINK=#007700 VLINK=#770000 ALINK=#770000 BGCOLOR=#dfdfdf>
<form target=center name=search method=post action=http://$OMA::OPAHOST/opa-perl/opa-search>
<font face=helvetica,arial>
<b>
<img src=/img/image.png align=top>[Image]
<a target=dwnwork href=http://$OMA::OPAHOST/opa-perl/.sec/opa-upload>upload file</a> | 
<a target=dwnwork href=http://$OMA::OPAHOST/opa-perl/.sec/opa-entry>enter entry</a> |
<a target=center href=http://$OMA::OPAHOST/opa-perl/.sec/opa-page-id>change entry</a> |
<a target=center href=http://$OMA::OPAHOST/opa-perl/opa-latest?skrit=title>show latest</a>
</b>
<br>
<br>
<SELECT NAME=find_what>
<OPTION>all
<OPTION>abstract
<OPTION>title
<OPTION>photographer
<OPTION>agency
</SELECT>
<INPUT TYPE=text NAME=querystring SIZE=15 MAXLENGTH=30>
</font>
</form>
</body>
</html>
";
}



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


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

sub upperrigth_ota {
	print "
<html>
<head></head>
<BODY TEXT=#000000 LINK=#007700 VLINK=#770000 ALINK=#770000 BGCOLOR=#dfdfdf>
<form target=center name=search method=post action=http://$OMA::OTAHOST/ota-perl/ota-search>
<font face=helvetica,arial>
<b>
<img src=/img/text.png align=top>[Text]
<a target=dwnwork href=http://$OMA::OTAHOST/ota-perl/.sec/ota-upload>upload file</a> |
<a target=dwnwork href=http://$OMA::OTAHOST/ota-perl/.sec/ota-entry>enter entry</a> |
<a target=center href=http://$OMA::OTAHOST/ota-perl/.sec/ota-page-id>change entry</a> |
<a target=center href=http://$OMA::OTAHOST/ota-perl/ota-latest?skrit=title>show latest</a>
</b>
<br>
<br>
<SELECT NAME=find_what>
<OPTION>all
<OPTION>abstract
<OPTION>title
<OPTION>photographer
<OPTION>agency
</SELECT>
<INPUT TYPE=text NAME=querystring SIZE=15 MAXLENGTH=30>
</font>
</form>
</td></tr></table>
</body>
</html>
";
}


                                                   ##           ###       ##
                                                                 ##       ##
 ##  ## ## ###  ## ###    ####  ## ###  ## ###    ###     #####  ## ##   #####
 ##  ##  ##  ##  ##  ##  ##  ##  ### ##  ### ##    ##    ##  ##  ### ##   ##
 ##  ##  ##  ##  ##  ##  ######  ##      ##        ##    ##  ##  ##  ##   ##
 ##  ##  #####   #####   ##      ##      ##        ##     #####  ##  ##   ## ##
  #####  ##      ##       ####  ####    ####      ####       ## ###  ##    ###
        ####    ####                                     #####
                                                                  ##
                                                                  ##
        ## ###    ####  ##   ##  ####     ####    ####    ####   #####
         ##  ##  ##  ## ## # ##     ##   ##      ##      ##  ##   ##
         ##  ##  ###### ## # ##  #####    ####    ####   ######   ##
         ##  ##  ##     ####### ##  ##       ##      ##  ##       ## ##
         ##  ##   ####   ## ##   ### ##  #####   #####    ####     ###
########
sub upperrigth_reboot {
    print "
<html>
<head></head>
<BODY TEXT=#000000 LINK=#007700 VLINK=#770000 ALINK=#770000 BGCOLOR=#dfdfdf>
<form target=center name=search method=post action=http://$OMA::NEWASSETHOST/reboot-perl/reboot-search>
<font face=helvetica,arial>
<b>
<img src=/img/reboot.png align=top>[reboot]
<a target=dwnwork href=http://$OMA::NEWASSETHOST/reboot-perl/.sec/reboot-upload>upload file</a> |
<a target=dwnwork href=http://$OMA::NEWASSETHOST/reboot-perl/.sec/reboot-entry>enter entry</a> |
<a target=center href=http://$OMA::NEWASSETHOST/reboot-perl/.sec/reboot-page-id>change entry</a> |
<a target=center href=http://$OMA::NEWASSETHOST/reboot-perl/reboot-latest?skrit=title>show latest</a>
</b>
<br>
<br>
<INPUT TYPE=text NAME=querystring SIZE=15 MAXLENGTH=30>
</font>
</form>
</font>
</body>
</html>
";
}



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

sub center {
	print "
<html>
<head></head>
<BODY TEXT=#000000 LINK=#007700 VLINK=#770000 ALINK=#770000 BGCOLOR=#dfdfdf>
<center>
<table width=80% height=100%><tr><td>
<font size=+1 face=helvetica,ariel color=#8f8f8f>
This is the action frame.
Here in you get the different masks
to categorize your media entries,
deal with the open tree structure
as well as compile new editorials
from the archived media files.
</td></tr></table>
</body>
</html>
";
}

sub tree {
	print "
<html>
<head></head>
<BODY TEXT=#000000 LINK=#007700 VLINK=#770000 ALINK=#770000 BGCOLOR=#dfdfdf>
<center>
<table width=80% height=100%><tr><td>
<font size=+1 face=helvetica,ariel color=#8f8f8f>
In this frame you will see the open
tree and list outputs of search results.
You get the tree by a click on the <i>refresh tree</i>
link in the upper left frame. The entry field
for your search requests can be found below this link.
</td></tr></table>
</body>
</html>
";
}


                        ###        ##
                         ##
  ####    ####    ####   ##  ##   ###     ####            ####   ##  ##  ####
 ##  ##  ##  ##  ##  ##  ## ##     ##    ##  ##          ##  ##  ##  ##     ##
 ##      ##  ##  ##  ##  ####      ##    ######          ##  ##  ##  ##  #####
 ##  ##  ##  ##  ##  ##  ## ##     ##    ##              ##  ##   ####  ##  ##
  ####    ####    ####  ###  ##   ####    ####            ####     ##    ### ##
                                                ########
sub cookie_ova {
	print "cookie_ova\n";
}


                        ###        ##
                         ##
  ####    ####    ####   ##  ##   ###     ####            ####  ## ###   ####
 ##  ##  ##  ##  ##  ##  ## ##     ##    ##  ##          ##  ##  ##  ##     ##
 ##      ##  ##  ##  ##  ####      ##    ######          ##  ##  ##  ##  #####
 ##  ##  ##  ##  ##  ##  ## ##     ##    ##              ##  ##  #####  ##  ##
  ####    ####    ####  ###  ##   ####    ####            ####   ##      ### ##
                                                ########        ####
sub cookie_opa {
	print "cookie_opa\n";
}



                        ###        ##
                         ##
  ####    ####    ####   ##  ##   ###     ####            ####  ## ###   ####
 ##  ##  ##  ##  ##  ##  ## ##     ##    ##  ##          ##  ##  ### ##     ##
 ##      ##  ##  ##  ##  ####      ##    ######          ##  ##  ##      #####
 ##  ##  ##  ##  ##  ##  ## ##     ##    ##              ##  ##  ##     ##  ##
  ####    ####    ####  ###  ##   ####    ####            ####  ####     ### ##
                                                ########
sub cookie_ora {
	print "cookie_ora\n";
}

sub cookie_reboot {
	print "cookie_reboot\n";
}




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

upperleft if($in{'op'} eq "upperleft");
upperrigth if($in{'op'} eq "upperrigth");
upperrigth_ova if($in{'op'} eq "upperrigth_ova");
upperrigth_ora if($in{'op'} eq "upperrigth_ora");
upperrigth_opa if($in{'op'} eq "upperrigth_opa");
upperrigth_ota if($in{'op'} eq "upperrigth_ota");
upperrigth_reboot if($in{'op'} eq "upperrigth_reboot");
tree if($in{'op'} eq "tree");
center if($in{'op'} eq "center");
cookie_ova if($in{'op'} eq "cookie_ova");
cookie_ora if($in{'op'} eq "cookie_ora");
cookie_opa if($in{'op'} eq "cookie_opa");
cookie_ota if($in{'op'} eq "cookie_ota");
cookie_reboot if($in{'op'} eq "cookie_reboot");
fset if(!$in{'op'});

1;
