695 |
$text .= ", <a href=$self?D=".urlencode($relDir)."&show_deleted=1>undelete</a>"; |
$text .= ", <a href=$self?D=".urlencode($relDir)."&show_deleted=1>undelete</a>"; |
696 |
} |
} |
697 |
$text .= " or revise files on this web site." ; |
$text .= " or revise files on this web site." ; |
698 |
|
$text .= "<br>Examine list of files <a href=\"$self?A=Ch1\">changed in last day</a> or <a href=\"$self?A=Ch\">all changes</a>."; |
699 |
StartHTML("(Navigate)",$text) ; |
StartHTML("(Navigate)",$text) ; |
700 |
|
|
701 |
echo "<TABLE BORDER=0 CELLPADDING=2 |
echo "<TABLE BORDER=0 CELLPADDING=2 |
1123 |
|
|
1124 |
////////////////////////////////////////////////////////////////// |
////////////////////////////////////////////////////////////////// |
1125 |
|
|
1126 |
|
function ChangeLog($target,$msg) { |
1127 |
|
|
1128 |
|
global $gblFsRoot; |
1129 |
|
$log=fopen("$gblFsRoot/.changelog","a+"); |
1130 |
|
if (substr($target,0,strlen($gblFsRoot)) == $gblFsRoot) |
1131 |
|
$target=substr($target,strlen($gblFsRoot),strlen($target)-strlen($gblFsRoot)); |
1132 |
|
fputs($log,time()."\t$target\t$GLOBALS[gblUserName]\t$msg\n"); |
1133 |
|
fclose($log); |
1134 |
|
|
1135 |
|
} |
1136 |
|
|
1137 |
|
function DisplayChangeLog($day) { |
1138 |
|
|
1139 |
|
global $gblFsRoot; |
1140 |
|
if (!file_exists("gblFsRoot/.changelog")) return; |
1141 |
|
$log=fopen("$gblFsRoot/.changelog","r"); |
1142 |
|
$logarr = array(); |
1143 |
|
while($line = fgetcsv($log,255,"\t")) { |
1144 |
|
if ($day!=1 || $day==1 && $line[0]-time() < 24*60) { |
1145 |
|
array_unshift($logarr,array($line[0],$line[1],$line[2],$line[3])); |
1146 |
|
} |
1147 |
|
} |
1148 |
|
fclose($log); |
1149 |
|
$cl1=" class=lst"; $cl2=""; |
1150 |
|
print "<table border=0 width=100%>\n"; |
1151 |
|
while ($e = array_shift($logarr)) { |
1152 |
|
$cl=$cl1; $cl1=$cl2; $cl2=$cl; |
1153 |
|
$date = date("$GLOBALS[gblDateFmt]", $e[0]); |
1154 |
|
$time = date("$GLOBALS[gblTimeFmt]", $e[0]); |
1155 |
|
$dir = dirname($e[1]); |
1156 |
|
$file = basename($e[1]); |
1157 |
|
print "<tr><td$cl>$date</td><td$cl>$time</td><td$cl><a href=\"$GLOBALS[PHP_SELF]?D=".urlencode($dir)."\">$dir</a>/$file</td><td$cl>$e[2]</td><td$cl>$e[3]</td></tr>\n"; |
1158 |
|
} |
1159 |
|
print "</table>"; |
1160 |
|
} |
1161 |
|
|
1162 |
|
////////////////////////////////////////////////////////////////// |
1163 |
|
|
1164 |
// MAIN PROGRAM |
// MAIN PROGRAM |
1165 |
// ============ |
// ============ |
1166 |
// query parameters: capital letters |
// query parameters: capital letters |
1254 |
if (isset($FILENAME)) { |
if (isset($FILENAME)) { |
1255 |
Unlock($target); |
Unlock($target); |
1256 |
} |
} |
1257 |
|
ChangeLog($target,"updated"); |
1258 |
break ; |
break ; |
1259 |
|
|
1260 |
case "SAVE" : |
case "SAVE" : |
1270 |
fclose($fh) ; |
fclose($fh) ; |
1271 |
clearstatcache() ; |
clearstatcache() ; |
1272 |
Logit($path,"saved changes"); |
Logit($path,"saved changes"); |
1273 |
|
ChangeLog($path,"saved changes"); |
1274 |
break ; |
break ; |
1275 |
|
|
1276 |
case "CREATE" : |
case "CREATE" : |
1301 |
} |
} |
1302 |
$tstr = "$PHP_SELF?A=E&D=".urlencode($relDir)."&F=".urlencode($FN) ; |
$tstr = "$PHP_SELF?A=E&D=".urlencode($relDir)."&F=".urlencode($FN) ; |
1303 |
header("Location: " . $tstr) ; |
header("Location: " . $tstr) ; |
1304 |
|
ChangeLog($target,"created"); |
1305 |
exit ; |
exit ; |
1306 |
} |
} |
1307 |
break ; |
break ; |
1441 |
header("Content-Disposition: attachment; filename=$F" ); |
header("Content-Disposition: attachment; filename=$F" ); |
1442 |
Header("Location: ".urlpath("$relDir/$F")); |
Header("Location: ".urlpath("$relDir/$F")); |
1443 |
exit; |
exit; |
1444 |
|
case "Ch" : |
1445 |
|
StartHTML("(File changes)","All changes chronologicaly..."); |
1446 |
|
DisplayChangeLog(0); // all |
1447 |
|
EndHTML() ; |
1448 |
|
exit; |
1449 |
|
case "Ch1" : |
1450 |
|
StartHTML("(File changes)","Changes to files in last day..."); |
1451 |
|
DisplayChangeLog(1); |
1452 |
|
EndHTML() ; |
1453 |
|
exit; |
1454 |
} |
} |
1455 |
|
|
1456 |
// default: display directory $relDir |
// default: display directory $relDir |