| 11,6 → 11,7 |
|---|
| |
| // Clear variables |
| unset($Redirect); |
| unset($RedirectUpper); |
| unset($RedirectToPage); |
| unset($Lang); |
| |
| 20,10 → 21,8 |
|---|
| // Do all upcase |
| foreach($Redirect as $Key => $Value) |
| { |
| $RedirectNew[strtoupper($Key)]=$Value; |
| $RedirectUpper[strtoupper($Key)]=$Value; |
| } |
| $Redirect=$RedirectNew; |
| unset($RedirectNew); |
| |
| // Process language |
| $Lang=$_SERVER[SCRIPT_FILENAME]; |
| 31,20 → 30,54 |
|---|
| if ($Lang==$_SERVER[SCRIPT_FILENAME]) $Lang=""; |
| |
| // Find redirect |
| $RedirectToPage=$Redirect[strtoupper(urldecode($_SERVER[QUERY_STRING]))]; |
| $RedirectToPage=$RedirectUpper[strtoupper(urldecode($_SERVER[QUERY_STRING]))]; |
| |
| // If not found -> list all posibilities |
| if ($RedirectToPage=="") |
| { |
| $RedirectToPage="/"; // DOPSAT |
| // VYPIS a KONEC |
| // File Name |
| if ($Lang=="") |
| $Lang="en"; |
| $FileName="DirectLink.$Lang.tmpl"; |
| // Read Template |
| $Template=@file($FileName); |
| // Trim Lines |
| if ($Template<>FALSE) |
| { |
| foreach($Template as $Key => $Line) |
| { |
| $Template[$Key]=rtrim($Line); |
| } |
| $Template=implode("\n",$Template); |
| } |
| // Generate List |
| $Table =""; |
| $Table.="<table>\n"; |
| $Table.=" <tr>\n"; |
| $Table.=" <th> Direct Link </th>\n"; |
| $Table.=" <th> Redirected to </th>\n"; |
| $Table.=" </tr>\n"; |
| foreach($Redirect as $Key => $Value) |
| { |
| $Table.=" <tr>\n"; |
| $Table.=" <td> $Key </td>\n"; |
| $Table.=" <td> $Value </td>\n"; |
| $Table.=" </tr>\n"; |
| } |
| $Table.="<table>\n"; |
| // Put it into Template |
| if ($Template<>"") |
| print str_ireplace("<<Table>>", $Table, $Template); |
| else |
| print $Table; |
| // Finished |
| return 0; |
| } |
| else |
| { |
| if ($Lang<>"") |
| if (file_exists($RedirectToPage.".".$Lang.".html")) |
| if ($Lang<>"") |
| if (file_exists($_SERVER["DOCUMENT_ROOT"].$RedirectToPage.".".$Lang.".html")) |
| $RedirectToPage.=".".$Lang.".html"; |
| // DOPSAT - zkusit ENG/CZE verzi |
| } |
| |
| // Redirect page |