<?php
// All of the documentation and software included in the PHP Climate
// Release is copyrighted by Sebastien Windal
//
// Copyright 2002
// Sebastien Windal. All rights reserved.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are met:
// 1. Redistributions of source code must retain the above copyright notice,
// this list of conditions and the following disclaimer.
// 2. Redistributions in binary form must reproduce the above copyright
// notice, this list of conditions and the following disclaimer in the
// documentation and/or other materials provided with the distribution.
// 3. All advertising materials mentioning features or use of this software
// must display the following acknowledgement:
// This product includes software developed by Sebastien Windal and their
// contributors.
// 4. Neither my name nor the names of its contributors may be used to
// endorse or promote products derived from this software without
// specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
// ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
// ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
// FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
// DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
// SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
// CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
// LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
// OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
// SUCH DAMAGE.
//
?>
<HTML>
<HEAD>
<TITLE><?php echo $phpfile?></TITLE>
</HEAD>
<BODY BGCOLOR="white">
<?php
//For security purpose, do not authorize the display of files
//that are not in this directory i.e. file name containing '/'
//should be rejected.
$pos2 = strpos($phpfile, "://");
$pos = strpos($phpfile, "./") + ($phpfile[0]=='/') + ($phpfile[0]=='.');
if (!$pos && !$pos2)
show_source($phpfile);
else {
if ($pos2)
{
echo "Use your own server and script to do that!\n";
}
else
{
echo "Your IP address, exact date of the attempt has been sent to the ";
echo "system administrator.<br> Further action will be ";
echo "taken by contacting your ";
echo "ISP and competent authorities.\n";
}
}
?>
</BODY>
</HTML>