Menu
▾
▴
[Woc-commit] CVS: woc/src/woc/cgi-src/popup anim.pl,NONE,1.1 view.pl,NONE,1.1
|
From: Geert J. <gj...@us...> - 2002-09-03 19:40:51
|
Update of /cvsroot/woc/woc/src/woc/cgi-src/popup
In directory usw-pr-cvs1:/tmp/cvs-serv23171/woc/cgi-src/popup
Added Files:
anim.pl view.pl
Log Message:
--- NEW FILE: anim.pl ---
#!/usr/local/bin/perl -w
use strict;
my $pictlink = "data/pictures";
my $iconlink = "gui/pictures";
my $flag = "";
my $item_id = "";
my $titel = "";
$flag = shift if @ARGV;
$item_id = shift if @ARGV;
$titel = " - $ARGV[0]" if @ARGV;
# ------------------------------------------------------------
# Print out what we need
if ($item_id && $flag =~ /^index/i) {
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<TITLE>WOC-anims$titel</TITLE>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<FRAMESET ROWS="*,70" FRAMEBORDER="0" FRAMESPACING="0" BORDER="No">
<FRAME TITLE="Animatie-Venster" NAME="Anim"
SRC="/cgi-bin-woc/popup/anim.pl?stop+$item_id">
<FRAME TITLE="Animatie-Buttons" NAME="AnimButtons" MARGINHEIGHT="0" SCROLLING="No"
SRC="/cgi-bin-woc/popup/anim.pl?buttons+$item_id">
</FRAMESET>
</HTML>
EOT
} elsif ($item_id && $flag =~ /^buttons/i) {
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY BGCOLOR="#EEEEEE">
<TABLE WIDTH="100\%">
<TR><TD WIDTH="60\%" ALIGN="Center">
<A HREF="/cgi-bin-woc/popup/anim.pl?play+$item_id" TARGET="Anim">
<IMG SRC="$iconlink/play.gif" BORDER="0" VSPAC="0"></A>
<A HREF="/cgi-bin-woc/popup/anim.pl?stop+$item_id" TARGET="Anim">
<IMG SRC="$iconlink/stop.gif" BORDER="0" VSPAC="0"></A>
</TD><TD WIDTH="40\%" ALIGN="Center">
<FORM>
<BR>
<INPUT TYPE="Button" VALUE="Close" onClick="javascript:top.close()">
</FORM>
</TD></TR>
</TABLE>
</BODY>
</HTML>
EOT
} elsif ($item_id && $flag =~ /^play/i) {
$item_id =~ s/^.*\///;
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY>
<TABLE WIDTH="100\%" HEIGHT="100\%">
<TR><TD WIDTH="100\%" HEIGHT="100\%" ALIGN="Center" VALIGN="Center">
<IMG SRC="$pictlink/anims/$item_id">
</TD></TR>
</TABLE>
</BODY>
</HTML>
EOT
} elsif ($item_id && $flag =~ /^stop/i) {
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY>
<TABLE WIDTH="100\%" HEIGHT="100\%">
<TR><TD WIDTH="100\%" HEIGHT="100\%" ALIGN="Center" VALIGN="Center">
<IMG SRC="$pictlink/$item_id">
</TD></TR>
</TABLE>
</BODY>
</HTML>
EOT
} else {
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<TITLE>Popup WOC-anims</TITLE>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY>
<H1>Error</H1>
</BODY>
</HTML>
EOT
}
# ------------------------------------------------------------
--- NEW FILE: view.pl ---
#!/usr/local/gnu/bin/perl -w -- -*-perl-*-
use strict;
my $itemdir = "/vol/www/woc/web-docs/gui/items";
my @item;
my $titel;
# ------------------------------------------------------------
&get_item ($ARGV[0]);
# Print out what we need
print <<EOT;
Content-type: text/html
<HTML>
<HEAD>
<TITLE>Popup WOC-items</TITLE>
<BASE HREF="http://www.sci.kun.nl/woc/">
<LINK REL="stylesheet" HREF="gui/styles/mol4d.css" TYPE="text/css">
</HEAD>
<BODY>
<TABLE BORDER="0" NOBORDER WIDTH="100\%" CELLSPACING="0" CELLPADDING="4">
<TR BGCOLOR="Black" ><TD>
<A HREF="http://www.sci.kun.nl/woc/">
<IMG SRC="gui/pictures/static_azijnzuur.gif" HEIGHT="13" WIDTH="13" BORDER="0"></A>
<FONT SIZE="2" FACE="Arial,Verdana,Helvetica" COLOR="White">
Woordenboek <I>Organische</I> Chemie
</FONT>
<!--WEBBOT bot="HTMLMarkup" Startspan ALT="Site Meter"-->
<script language="JavaScript">
document.write("<a href=`http://www.sitemeter.com/");
document.write("stats.asp?site=woccounter` target=_top class=`button`>");
document.write("<img src=`http://www.sitemeter.com/");
document.write("meter.asp?site=woccounter");
document.write("&refer="+escape(document.referrer));
document.write("&hours="+(new Date()).getHours());
document.write("&minutes="+(new Date()).getMinutes());
document.write("` border=0 alt=`Site Meter`></a>");
</script>
<!--WEBBOT bot="HTMLMarkup" Endspan-->
</TD><TD>
<FONT SIZE="2" FACE="Arial,Verdana,Helvetica" COLOR="Yellow">
<I>$ARGV[0]</I>
</FONT>
</TD></TR>
</TABLE>
<TABLE BORDER="0" NOBORDER HEIGHT="95\%" CELLSPACING="0" CELLPADDING="4">
<TR VALIGN="Top"><TD WIDTH="40" HEIGHT="100\%" ROWSPAN="2" BGCOLOR="navy"> </TD><TD>
@item
<FORM>
<CENTER>
<INPUT TYPE="Button" VALUE="Close" onClick="javascript:top.close()">
</CENTER>
</FORM>
</TD></TR>
</TABLE>
</BODY>
</HTML>
EOT
# ------------------------------------------------------------
sub get_item {
my $itemfile = shift;
my @file = ();
open (FILE, "$itemdir/$itemfile.shtml") || die "$itemdir/$itemfile.shtml: $!$/";
while (<FILE>) {
push (@file, $_);
}
close (FILE) || die "$itemdir/$itemfile.shtml: $!$/";
my $inbody = "";
my $notwebbot = "True";
my $nr_hr = 0;
while (@file) {
$_ = shift (@file);
$inbody = "" if /\<\/BODY.*?\>/i;
$notwebbot = "" if /U bent bezoeker/i;
if ($inbody && $notwebbot) {
$nr_hr++ if /\<HR.*?\>/i;
if ($nr_hr == 2) {
push (@item, "</TD></TR><TR><TD VALIGN=Bottom>");
$nr_hr = 0;
}
s/Last update.*?\.//i;
push (@item, $_);
}
$inbody = "True" if /\<BODY.*?\>/i;
$notwebbot = "True" if /WEBBOT.*?Endspan/i;
}
}
|
