"01", "February"=>"02", "March"=>"03", "April"=>"04", "May"=>"05", "June"=>"06", "July"=>"07", "August"=>"08", "September"=>"09", "October"=>"10", "November"=>"11", "December"=>"12");
$this_month=$months[$month];
$r="http://dev.climbtothestars.org/archive/$year/$this_month/";
$test["2003"]["12"]="yes";
$test["2003"]["11"]="yes";
$test["2003"]["10"]="yes";
for($i="9";$i>"4";$i--)
{
$month_key="0".$i;
$test["2003"][$month_key]="yes";
}
if($test[$year][$this_month]=="yes")
{
header( "Location: $r" );
exit;
}
}
}
if($REQUEST_URI=="/")
{
if(!preg_match('/dev\.climbtothestars/', $HTTP_REFERER))
{
header( "Location: http://dev.climbtothestars.org/" );
exit;
}
}
*/
# version climbtothestars.org 3.1, April 2001
# this is the top include
# give default values to variables which have not been specified
if(!$description) {$description = 'Tara\'s bilingual site contains a frequently-updated weblog, writing (essays, creating, travel journal for a year in India), resources for people who make the web today - coding tips and links (html, css, php), as well as photographs, deep thoughts and other stuff.';}
if(!$keywords) {$keywords = 'personal site, travelogue, blog, weblog, music, internet, cyberspace, writing, french, india, switzerland, pune, thoughts, ideas, web design, links, people, français, Switzerland, suisse, lausanne, Stephanie Booth, Stéphanie Booth';}
if(!$stylesheet) {$stylesheet = "http://" . $_SERVER['HTTP_HOST'] . "/notables.css";} else {$stylesheet = "http://" . $_SERVER['HTTP_HOST'] . "/$stylesheet";} #that is the generic stylesheet
function title()
{
global $title;
global $pagetitle;
if($title){
if($pagetitle)
{
return(" - $title ($pagetitle)");
}
else
{
return(" - $title");
}
}}
$filename=basename($_SERVER['PHP_SELF']);
$filebase=strtok($filename, ".");
function stick_in($something)
{
global $$something;
global $filebase;
$file=$filebase."."."$something";
if(file_exists($file))
{
return("include(\"$file\");");
}
else
{
print($$something);
}
}
function dates()
{
global $created;
global $revised;
$dateline="created $created";
if($revised)
{
$dateline=$dateline." - last meaningful revision $revised";
}
print($dateline);
}
function french($height=12, $width=18)
{
print(" ");
}
// ############# function counts lines of comments for a given post
function countlines($list,$ctr) { clearstatcache(); if (file_exists($list)) { $lines = file($list); while(list($key, $val) = each($lines)) { if (stristr ($val, "")) { $ctr++; } } } if ($ctr > 0)
return("(".$ctr.")");}
// ############ function inserts trackback link
function maketrackback($id)
{
$result='
![\"French](\"/img/fr.gif\")
");
}
// ############# function counts lines of comments for a given post
function countlines($list,$ctr) { clearstatcache(); if (file_exists($list)) { $lines = file($list); while(list($key, $val) = each($lines)) { if (stristr ($val, "")) { $ctr++; } } } if ($ctr > 0)
return("(".$ctr.")");}
// ############ function inserts trackback link
function maketrackback($id)
{
$result='';
return $result;
}
function maketrackbackrdf($id, $permalink, $title)
{
?>
' . $message;
// the file which contains the comments
$commentfile=$_SERVER['DOCUMENT_ROOT'] . "/comments/" . $name . ".comment";
// check if comment file exists
if (file_exists($commentfile))
{
// read the file into $list, line by line
$lines = file($commentfile);
// go through each line, and increase the counter by 1 if a comment "tag" is found
while(list($key, $val) = each($lines))
{
if (stristr ($val, ""))
{
$ctr++;
}
}
}
// checks if there are comments
if ($ctr > 0)
{
// adds the number of comments to the result
$number=' ('.$ctr.")";
$result=$result.$number;
}
$result=$result."";
return($result);
}
// ############# make sure translation links are active if the language variables aren't set
if(!$en&&!$fr)
{
$en=true;
$fr=true;
}
print("\n");
?>