"); $i += 1; $fp = fopen($datei,"r"); while (!feof($fp)) { $linie = fgets($fp, 1024); $index=""; if( preg_match('~~i', $linie, $title) ) { $buf_title = $title[1]; $line[$i] = $buf_title; //echo ("title: "); //echo($title); //echo("
"); } if( preg_match('', $linie, $index) ) { break; } } $buf_index = $index[1]; $link[$i] = $datei; $line_index[$i] = $buf_index; fclose($fp); } } for($n = 1; $n < $i+1;$n++) { for($m = 1; $m < $i;$m++) { if(strcmp($line[$m],$line[$m+1]) > 0) { $sort = $link[$m]; $link[$m] = $link[$m+1]; $link[$m+1] = $sort; $sort = $line[$m]; $line[$m] = $line[$m+1]; $line[$m+1] = $sort; $sort = $line_index[$m]; $line_index[$m] = $line_index[$m+1]; $line_index[$m+1] = $sort; } } } for($n = 1; $n < $i+1;$n++) { for($m = 1; $m < $i;$m++) { if(strcmp($line_index[$m],$line_index[$m+1]) > 0) { $sort = $link[$m]; $link[$m] = $link[$m+1]; $link[$m+1] = $sort; $sort = $line[$m]; $line[$m] = $line[$m+1]; $line[$m+1] = $sort; $sort = $line_index[$m]; $line_index[$m] = $line_index[$m+1]; $line_index[$m+1] = $sort; } } } // Create file for menu $filename = 'kletter_menu.txt2'; if (is_writable($filename)) { if (!$handle = fopen($filename, "w")) { print "Error, could not open file $filename"; exit; } $output_line = ("\n"); fwrite($handle, $output_line); $output_line = ("

\n"); fwrite($handle, $output_line); fclose($handle); } else { print "File $filename not writeable"; } ?> %s\n",$line); } else { echo($line); } } fclose($fp); $unix_time = filemtime($_SERVER['SCRIPT_FILENAME']); echo "

Last Update
"; echo strftime("%d.%m.%y",$unix_time); echo "

"; ?>

Der Klettervirus hat mich seit 2003 endgütig gepackt, daher folgen hier Bilder und Beschreibungen von den Kletterfelsen und Klettersteigen, die ich "heimgesucht" habe.

•  
•