The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
RUSAKOV / ePortal-4.5 / comp_root / frames.htm 
%#============================================================================
%# ePortal - WEB Based daily organizer
%# Author - S.Rusakov <rusakov_sa@users.sourceforge.net>
%#
%# Copyright (c) 2000-2004 Sergey Rusakov.  All rights reserved.
%# This program is open source software
%#
%#
%#----------------------------------------------------------------------------
% my $p = $ARGS{p} || "/index.htm";
<HTML>
<HEAD>
  <TITLE>ePortal v<% $ePortal::Server::VERSION %></TITLE>
  <META NAME="Robots" CONTENT="noindex">
  <SCRIPT LANGUAGE="JavaScript">

  // this page should never load inside of another frame
  if (top.location != self.location) {
    top.location = self.location;
  }

  </SCRIPT>
</HEAD>

<FRAMESET rows="*,3" border="0" FRAMESPACING="0" TOPMARGIN="0" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0">
 <FRAME name="main" src="<% $p %>" TOPMARGIN="0" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0"  SCROLLING=Yes FRAMEBORDER=No NORESIZE FRAMESPACING=0></FRAME>
 <FRAME name="alerter" src="frame_alerter.htm" FRAMEBORDER=No BORDER="0" SCROLLING=No NORESIZE></FRAME>
</FRAMESET>

</HTML>

%#=== @metags flags =========================================================
<%flags>
inherit => undef
</%flags>