mod/resource/coursefiles.php

   1 <?PHP // $Id$
   2
   3 //  Manage all uploaded files in a course file area
   4
   5 //  This file is a hack to files/index.php that removes
   6 //  the headers and adds some controls so that images
   7 //  can be selected within the Richtext editor.
   8
   9 //  All the Moodle-specific stuff is in this top section
  10 //  Configuration and access control occurs here.
  11 //  Must define:  USER, basedir, baseweb, html_header and html_footer
  12 //  USER is a persistent variable using sessions
  13
  14     require("../../config.php");
  15     require("../../files/mimetypes.php");
  16
  17     require_variable($id);
  18     optional_variable($file, "");
  19     optional_variable($wdir, "");
  20     optional_variable($action, "");
  21
  22     if (! $course = get_record("course", "id", $id) ) {
  23         error("That's an invalid course id");
  24     }
  25
  26     require_login($course->id);
  27
  28     if (! isteacher($course->id) ) {
  29         error("Only teachers can edit files");
  30     }
  31
  32     function html_footer() {
  33         echo "</td></tr></table></body></html>";
  34     }
  35
  36     function html_header($course, $wdir, $formfield=""){
  37
  38         global $CFG;
  39
  40         if (! $site = get_site()) {
  41             error("Invalid site!");
  42         }
  43
  44         if ($course->id == $site->id) {
  45             $strfiles = get_string("sitefiles");
  46         } else {
  47             $strfiles = get_string("files");
  48         }
  49
  50         if ($wdir == "/") {
  51             $fullnav = "$strfiles";
  52         } else {
  53             $dirs = explode("/", $wdir);
  54             $numdirs = count($dirs);
  55             $link = "";
  56             $navigation = "";
  57             for ($i=1; $i<$numdirs; $i++) {
  58                $navigation .= " -> ";
  59                $link .= "/".urlencode($dirs[$i]);
  60                $navigation .= "<a href=\"".$_SERVER['PHP_SELF']."?id=$course->id&wdir=$link\">".$dirs[$i]."</a>";
  61             }
  62             $fullnav = "<a href=\"".$_SERVER['PHP_SELF']."?id=$course->id&wdir=/\">$strfiles</a> $navigation";
  63         }
  64
  65         print_header();
  66         ?>
  67             <script language="javscript" type="text/javascript">
  68             <!--
  69             function set_value(txt) {
  70                     opener.document.forms['theform'].reference.value = txt;
  71                     window.close();
  72             }
  73         -->
  74             </script>
  75         <?php
  76
  77         echo '<table border="0" cellpadding="3" cellspacing="0" width="100%">';
  78         echo '<tr>';
  79         echo '<td bgcolor="'.$THEME->cellheading.'" class="navbar">';
  80         echo '<font size="2"><b>'."$course->shortname -> $fullnav".'</b></font>';
  81         echo '</td>';
  82         echo '</tr>';
  83         echo '</table>';
  84
  85         if ($course->id == $site->id) {
  86             print_heading(get_string("publicsitefileswarning"), "center", 2);
  87         }
  88
  89         echo "<table border=0 align=center cellspacing=3 cellpadding=3 width=640>";
  90         echo "<tr>";
  91         echo "<td colspan=\"2\">";
  92     }
  93
  94     if (! $basedir = make_upload_directory("$course->id")) {
  95         error("The site administrator needs to fix the file permissions");
  96     }
  97
  98     $baseweb = $CFG->wwwroot;
  99
 100 //  End of configuration and access control
 101
 102
 103     $regexp="\\.\\.";
 104     if (ereg( $regexp, $file, $regs )| ereg( $regexp, $wdir,$regs )) {
 105         $message = "Error: Directories can not contain \"..\"";
 106         $wdir = "/";
 107         $action = "";
 108     }
 109
 110     if (!$wdir) {
 111         $wdir="/";
 112     }
 113
 114
 115     switch ($action) {
 116
 117         case "upload":
 118             html_header($course, $wdir);
 119
 120             if (!empty($_FILES['userfile'])) {
 121                 $userfile = $_FILES['userfile'];
 122             } else {
 123                 $save = false;
 124             }
 125             if (!empty($save)) {
 126                 if (!is_uploaded_file($userfile['tmp_name']) or $userfile['size'] == 0) {
 127                     notify(get_string("uploadnofilefound"));
 128                 } else {
 129                     $userfile_name = clean_filename($userfile['name']);
 130                     if ($userfile_name) {
 131                         $newfile = "$basedir$wdir/$userfile_name";
 132                         if (move_uploaded_file($userfile['tmp_name'], $newfile)) {
 133                             chmod($newfile, 0666);
 134                             $a = NULL;
 135                             $a->file = "$userfile_name (".$userfile['type'].")";
 136                             $a->directory = $wdir;
 137                             print_string("uploadedfileto", "", $a);
 138                         } else {
 139                             notify(get_string("uploadproblem", "", $userfile_name));
 140                         }
 141                     }
 142                 }
 143                 displaydir($wdir);
 144
 145             } else {
 146                 $upload_max_filesize = get_max_upload_file_size($CFG->maxbytes);
 147                 $filesize = display_size($upload_max_filesize);
 148
 149                 $struploadafile = get_string("uploadafile");
 150                 $struploadthisfile = get_string("uploadthisfile");
 151                 $strmaxsize = get_string("maxsize", "", $filesize);
 152                 $strcancel = get_string("cancel");
 153
 154                 echo "<P>$struploadafile ($strmaxsize) --> <B>$wdir</B>";
 155                 echo "<TABLE><TR><TD COLSPAN=2>";
 156                 echo "<FORM ENCTYPE=\"multipart/form-data\" METHOD=\"post\" ACTION=\"".$_SERVER['PHP_SELF']."\">";
 157                 echo " <INPUT TYPE=hidden NAME=MAX_FILE_SIZE value=\"$upload_max_filesize\">";
 158                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 159                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 160                 echo " <INPUT TYPE=hidden NAME=action VALUE=upload>";
 161                 echo " <INPUT NAME=\"userfile\" TYPE=\"file\" size=\"60\">";
 162                 echo " </TD><TR><TD WIDTH=10>";
 163                 echo " <INPUT TYPE=submit NAME=save VALUE=\"$struploadthisfile\">";
 164                 echo "</FORM>";
 165                 echo "</TD><TD WIDTH=100%>";
 166                 echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=\"get\">";
 167                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 168                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 169                 echo " <INPUT TYPE=hidden NAME=action VALUE=cancel>";
 170                 echo " <INPUT TYPE=submit VALUE=\"$strcancel\">";
 171                 echo "</FORM>";
 172                 echo "</TD></TR></TABLE>";
 173             }
 174             html_footer();
 175             break;
 176
 177         case "delete":
 178             if (!empty($confirm)) {
 179                 html_header($course, $wdir);
 180                 foreach ($USER->filelist as $file) {
 181                     $fullfile = $basedir.$file;
 182                     if (! fulldelete($fullfile)) {
 183                         echo "<BR>Error: Could not delete: $fullfile";
 184                     }
 185                 }
 186                 clearfilelist();
 187                 displaydir($wdir);
 188                 html_footer();
 189
 190             } else {
 191                 html_header($course, $wdir);
 192                 if (setfilelist($_POST)) {
 193                     echo "<p align=center>".get_string("deletecheckwarning").":</p>";
 194                     print_simple_box_start("center");
 195                     printfilelist($USER->filelist);
 196                     print_simple_box_end();
 197                     echo "<br />";
 198                     notice_yesno (get_string("deletecheckfiles"),
 199                                 "".basename($_SERVER['PHP_SELF'])."?id=$id&wdir=$wdir&action=delete&confirm=1",
 200                                 "".basename($_SERVER['PHP_SELF'])."?id=$id&wdir=$wdir&action=cancel");
 201                 } else {
 202                     displaydir($wdir);
 203                 }
 204                 html_footer();
 205             }
 206             break;
 207
 208         case "move":
 209             html_header($course, $wdir);
 210             if ($count = setfilelist($_POST)) {
 211                 $USER->fileop     = $action;
 212                 $USER->filesource = $wdir;
 213                 echo "<p align=center>";
 214                 print_string("selectednowmove", "moodle", $count);
 215                 echo "</p>";
 216             }
 217             displaydir($wdir);
 218             html_footer();
 219             break;
 220
 221         case "paste":
 222             html_header($course, $wdir);
 223             if (isset($USER->fileop) and $USER->fileop == "move") {
 224                 foreach ($USER->filelist as $file) {
 225                     $shortfile = basename($file);
 226                     $oldfile = $basedir.$file;
 227                     $newfile = $basedir.$wdir."/".$shortfile;
 228                     if (!rename($oldfile, $newfile)) {
 229                         echo "<P>Error: $shortfile not moved";
 230                     }
 231                 }
 232             }
 233             clearfilelist();
 234             displaydir($wdir);
 235             html_footer();
 236             break;
 237
 238         case "rename":
 239             if (!empty($name)) {
 240                 html_header($course, $wdir);
 241                 $name = clean_filename($name);
 242                 if (file_exists($basedir.$wdir."/".$name)) {
 243                     echo "Error: $name already exists!";
 244                 } else if (!rename($basedir.$wdir."/".$oldname, $basedir.$wdir."/".$name)) {
 245                     echo "Error: could not rename $oldname to $name";
 246                 }
 247                 displaydir($wdir);
 248
 249             } else {
 250                 $strrename = get_string("rename");
 251                 $strcancel = get_string("cancel");
 252                 $strrenamefileto = get_string("renamefileto", "moodle", $file);
 253                 html_header($course, $wdir, "form.name");
 254                 echo "<P>$strrenamefileto:";
 255                 echo "<TABLE><TR><TD>";
 256                 echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=\"post\" NAME=\"form\">";
 257                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 258                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 259                 echo " <INPUT TYPE=hidden NAME=action VALUE=rename>";
 260                 echo " <INPUT TYPE=hidden NAME=oldname VALUE=\"$file\">";
 261                 echo " <INPUT TYPE=text NAME=name SIZE=35 VALUE=\"$file\">";
 262                 echo " <INPUT TYPE=submit VALUE=\"$strrename\">";
 263                 echo "</FORM>";
 264                 echo "</TD><TD>";
 265                 echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=get>";
 266                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 267                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 268                 echo " <INPUT TYPE=hidden NAME=action VALUE=cancel>";
 269                 echo " <INPUT TYPE=submit VALUE=\"$strcancel\">";
 270                 echo "</FORM>";
 271                 echo "</TD></TR></TABLE>";
 272             }
 273             html_footer();
 274             break;
 275
 276         case "mkdir":
 277             if (!empty($name)) {
 278                 html_header($course, $wdir);
 279                 $name = clean_filename($name);
 280                 if (file_exists("$basedir$wdir/$name")) {
 281                     echo "Error: $name already exists!";
 282                 } else if (! make_upload_directory("$course->id/$wdir/$name")) {
 283                     echo "Error: could not create $name";
 284                 }
 285                 displaydir($wdir);
 286
 287             } else {
 288                 $strcreate = get_string("create");
 289                 $strcancel = get_string("cancel");
 290                 $strcreatefolder = get_string("createfolder", "moodle", $wdir);
 291                 html_header($course, $wdir, "form.name");
 292                 echo "<P>$strcreatefolder:";
 293                 echo "<TABLE><TR><TD>";
 294                 echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=post NAME=form>";
 295                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 296                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 297                 echo " <INPUT TYPE=hidden NAME=action VALUE=mkdir>";
 298                 echo " <INPUT TYPE=text NAME=name SIZE=35>";
 299                 echo " <INPUT TYPE=submit VALUE=\"$strcreate\">";
 300                 echo "</FORM>";
 301                 echo "</TD><TD>";
 302                 echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=get>";
 303                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 304                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 305                 echo " <INPUT TYPE=hidden NAME=action VALUE=cancel>";
 306                 echo " <INPUT TYPE=submit VALUE=\"$strcancel\">";
 307                 echo "</FORM>";
 308                 echo "</TD></TR></TABLE>";
 309             }
 310             html_footer();
 311             break;
 312
 313         case "edit":
 314             html_header($course, $wdir);
 315             if (isset($text)) {
 316                 $fileptr = fopen($basedir.$file,"w");
 317                 fputs($fileptr, stripslashes($text));
 318                 fclose($fileptr);
 319                 displaydir($wdir);
 320
 321             } else {
 322                 $streditfile = get_string("edit", "", "<B>$file</B>");
 323                 $fileptr  = fopen($basedir.$file, "r");
 324                 $contents = fread($fileptr, filesize($basedir.$file));
 325                 fclose($fileptr);
 326
 327                 if (mimeinfo("type", $file) == "text/html") {
 328                     if ($usehtmleditor = can_use_richtext_editor()) {
 329                         $onsubmit = "onsubmit=\"copyrichtext(document.form.text);\"";
 330                     } else {
 331                         $onsubmit = "";
 332                     }
 333                 } else {
 334                     $usehtmleditor = false;
 335                     $onsubmit = "";
 336                 }
 337
 338                 print_heading("$streditfile");
 339
 340                 echo "<TABLE><TR><TD COLSPAN=2>";
 341                 echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=\"post\" NAME=\"form\" $onsubmit>";
 342                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 343                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=\"$wdir\">";
 344                 echo " <INPUT TYPE=hidden NAME=file VALUE=\"$file\">";
 345                 echo " <INPUT TYPE=hidden NAME=action VALUE=edit>";
 346                 print_textarea($usehtmleditor, 25, 80, 680, 400, "text", $contents);
 347                 echo "</TD></TR><TR><TD>";
 348                 echo " <INPUT TYPE=submit VALUE=\"".get_string("savechanges")."\">";
 349                 echo "</FORM>";
 350                 echo "</TD><TD>";
 351                 echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=get>";
 352                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 353                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 354                 echo " <INPUT TYPE=hidden NAME=action VALUE=cancel>";
 355                 echo " <INPUT TYPE=submit VALUE=\"".get_string("cancel")."\">";
 356                 echo "</FORM>";
 357                 echo "</TD></TR></TABLE>";
 358
 359                 if ($usehtmleditor) {
 360                     print_richedit_javascript("form", "text", "yes");
 361                 }
 362
 363
 364             }
 365             html_footer();
 366             break;
 367
 368         case "zip":
 369             if (!empty($name)) {
 370                 html_header($course, $wdir);
 371                 $name = clean_filename($name);
 372                 if (empty($CFG->zip)) {    // Use built-in php-based zip function
 373                     $files = array();
 374                     foreach ($USER->filelist as $file) {
 375                         $files[] = "$basedir/$file";
 376                     }
 377                     include_once($CFG->libdir.'/pclzip/pclzip.lib.php');
 378                     $archive = new PclZip("$basedir/$wdir/$name");
 379                     if (($list = $archive->create($files,'',"$basedir/$wdir/")) == 0) {
 380                         error($archive->errorInfo(true));
 381                     }
 382                 } else {                   // Use external zip program
 383                     $files = "";
 384                     foreach ($USER->filelist as $file) {
 385                         $files .= basename($file);
 386                         $files .= " ";
 387                     }
 388                     $command = "cd $basedir/$wdir ; $CFG->zip -r $name $files";
 389                     Exec($command);
 390                 }
 391                 clearfilelist();
 392                 displaydir($wdir);
 393
 394             } else {
 395                 html_header($course, $wdir, "form.name");
 396
 397                 if (setfilelist($_POST)) {
 398                     echo "<P ALIGN=CENTER>".get_string("youareabouttocreatezip").":</P>";
 399                     print_simple_box_start("center");
 400                     printfilelist($USER->filelist);
 401                     print_simple_box_end();
 402                     echo "<BR>";
 403                     echo "<P ALIGN=CENTER>".get_string("whattocallzip");
 404                     echo "<TABLE><TR><TD>";
 405                     echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=post NAME=form>";
 406                     echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 407                     echo " <INPUT TYPE=hidden NAME=wdir VALUE=\"$wdir\">";
 408                     echo " <INPUT TYPE=hidden NAME=action VALUE=zip>";
 409                     echo " <INPUT TYPE=text NAME=name SIZE=35 VALUE=\"new.zip\">";
 410                     echo " <INPUT TYPE=submit VALUE=\"".get_string("createziparchive")."\">";
 411                     echo "</FORM>";
 412                     echo "</TD><TD>";
 413                     echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=get>";
 414                     echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 415                     echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 416                     echo " <INPUT TYPE=hidden NAME=action VALUE=cancel>";
 417                     echo " <INPUT TYPE=submit VALUE=\"".get_string("cancel")."\">";
 418                     echo "</FORM>";
 419                     echo "</TD></TR></TABLE>";
 420                 } else {
 421                     displaydir($wdir);
 422                     clearfilelist();
 423                 }
 424             }
 425             html_footer();
 426             break;
 427
 428         case "unzip":
 429             html_header($course, $wdir);
 430             if (!empty($file)) {
 431                 $strname = get_string("name");
 432                 $strsize = get_string("size");
 433                 $strmodified = get_string("modified");
 434                 $strstatus = get_string("status");
 435                 $strok = get_string("ok");
 436                 $strunpacking = get_string("unpacking", "", $file);
 437
 438                 echo "<P ALIGN=CENTER>$strunpacking:</P>";
 439
 440                 $file = basename($file);
 441
 442                 if (empty($CFG->unzip)) {    // Use built-in php-based unzip function
 443                     include_once($CFG->libdir.'/pclzip/pclzip.lib.php');
 444                     $archive = new PclZip("$basedir/$wdir/$file");
 445                     if (!$list = $archive->extract("$basedir/$wdir")) {
 446                         error($archive->errorInfo(true));
 447                     } else {  // print some output
 448                         echo "<table cellpadding=\"4\" cellspacing=\"2\" border=\"0\" width=640>";
 449                         echo "<tr><th align=left>$strname</th>";
 450                         echo "<th align=right>$strsize</th>";
 451                         echo "<th align=right>$strmodified</th>";
 452                         echo "<th align=right>$strstatus</th></tr>";
 453                         foreach ($list as $item) {
 454                             echo "<tr>";
 455                             $item['filename'] = str_replace("$basedir/$wdir/", "", $item['filename']);
 456                             print_cell("left", $item['filename']);
 457                             if (! $item['folder']) {
 458                                 print_cell("right", display_size($item['size']));
 459                             } else {
 460                                 echo "<td>&nbsp;</td>";
 461                             }
 462                             $filedate  = userdate($item['mtime'], get_string("strftimedatetime"));
 463                             print_cell("right", $filedate);
 464                             print_cell("right", $item['status']);
 465                             echo "</tr>";
 466                         }
 467                         echo "</table>";
 468                     }
 469
 470                 } else {                     // Use external unzip program
 471                     print_simple_box_start("center");
 472                     echo "<PRE>";
 473                     $command = "cd $basedir/$wdir ; $CFG->unzip -o $file 2>&1";
 474                     passthru($command);
 475                     echo "</PRE>";
 476                     print_simple_box_end();
 477                 }
 478
 479                 echo "<CENTER><FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=get>";
 480                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 481                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 482                 echo " <INPUT TYPE=hidden NAME=action VALUE=cancel>";
 483                 echo " <INPUT TYPE=submit VALUE=\"$strok\">";
 484                 echo "</FORM>";
 485                 echo "</CENTER>";
 486             } else {
 487                 displaydir($wdir);
 488             }
 489             html_footer();
 490             break;
 491
 492         case "listzip":
 493             html_header($course, $wdir);
 494             if (!empty($file)) {
 495                 $strname = get_string("name");
 496                 $strsize = get_string("size");
 497                 $strmodified = get_string("modified");
 498                 $strok = get_string("ok");
 499                 $strlistfiles = get_string("listfiles", "", $file);
 500
 501                 echo "<P ALIGN=CENTER>$strlistfiles:</P>";
 502                 $file = basename($file);
 503
 504                 include_once($CFG->libdir.'/pclzip/pclzip.lib.php');
 505                 $archive = new PclZip("$basedir/$wdir/$file");
 506                 if (!$list = $archive->listContent("$basedir/$wdir")) {
 507                     notify($archive->errorInfo(true));
 508
 509                 } else {
 510                     echo "<table cellpadding=\"4\" cellspacing=\"2\" border=\"0\" width=640>";
 511                     echo "<tr><th align=left>$strname</th><th align=right>$strsize</th><th align=right>$strmodified</th></tr>";
 512                     foreach ($list as $item) {
 513                         echo "<tr>";
 514                         print_cell("left", $item['filename']);
 515                         if (! $item['folder']) {
 516                             print_cell("right", display_size($item['size']));
 517                         } else {
 518                             echo "<td>&nbsp;</td>";
 519                         }
 520                         $filedate  = userdate($item['mtime'], get_string("strftimedatetime"));
 521                         print_cell("right", $filedate);
 522                         echo "</tr>";
 523                     }
 524                     echo "</table>";
 525                 }
 526                 echo "<br><center><form action=\"".$_SERVER['PHP_SELF']."\" method=get>";
 527                 echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 528                 echo " <INPUT TYPE=hidden NAME=wdir VALUE=$wdir>";
 529                 echo " <INPUT TYPE=hidden NAME=action VALUE=cancel>";
 530                 echo " <INPUT TYPE=submit VALUE=\"$strok\">";
 531                 echo "</FORM>";
 532                 echo "</CENTER>";
 533             } else {
 534                 displaydir($wdir);
 535             }
 536             html_footer();
 537             break;
 538
 539         case "torte":
 540                 if($_POST)
 541                 {
 542                         while(list($key, $val) = each($_POST))
 543                         {
 544                                 if(ereg("file([0-9]+)", $key, $regs))
 545                                 {
 546                                         $file = $val;
 547                                 }
 548                         }
 549                         if(@filetype($CFG->dataroot ."/". $course->id . $file) == "file")
 550                         {
 551                                 if(mimeinfo("icon", $file) == "image.gif")
 552                                 {
 553                                         $url = $CFG->wwwroot ."/file.php?file=/" .$course->id . $file;
 554                                         runjavascript($url);
 555                                 }
 556                                 else
 557                                 {
 558                                         print "File is not a image!";
 559                                 }
 560                         }
 561                         else
 562                         {
 563                                 print "You cannot insert FOLDER into richtext editor!!!";
 564                         }
 565                 }
 566                 break;
 567         case "cancel";
 568             clearfilelist();
 569
 570         default:
 571             html_header($course, $wdir);
 572             displaydir($wdir);
 573             html_footer();
 574             break;
 575 }
 576
 577
 578 /// FILE FUNCTIONS ///////////////////////////////////////////////////////////
 579
 580
 581 function fulldelete($location) {
 582     if (is_dir($location)) {
 583         $currdir = opendir($location);
 584         while ($file = readdir($currdir)) {
 585             if ($file <> ".." && $file <> ".") {
 586                 $fullfile = $location."/".$file;
 587                 if (is_dir($fullfile)) {
 588                     if (!fulldelete($fullfile)) {
 589                         return false;
 590                     }
 591                 } else {
 592                     if (!unlink($fullfile)) {
 593                         return false;
 594                     }
 595                 }
 596             }
 597         }
 598         closedir($currdir);
 599         if (! rmdir($location)) {
 600             return false;
 601         }
 602
 603     } else {
 604         if (!unlink($location)) {
 605             return false;
 606         }
 607     }
 608     return true;
 609 }
 610
 611
 612
 613 function setfilelist($VARS) {
 614     global $USER;
 615
 616     $USER->filelist = array ();
 617     $USER->fileop = "";
 618
 619     $count = 0;
 620     foreach ($VARS as $key => $val) {
 621         if (substr($key,0,4) == "file") {
 622             $count++;
 623             $USER->filelist[] = rawurldecode($val);
 624         }
 625     }
 626     return $count;
 627 }
 628
 629 function clearfilelist() {
 630     global $USER;
 631
 632     $USER->filelist = array ();
 633     $USER->fileop = "";
 634 }
 635
 636
 637 function printfilelist($filelist) {
 638     global $basedir, $CFG;
 639
 640     foreach ($filelist as $file) {
 641         if (is_dir($basedir.$file)) {
 642             echo "<img src=\"$CFG->pixpath/f/folder.gif\" height=16 width=16> $file<br>";
 643             $subfilelist = array();
 644             $currdir = opendir($basedir.$file);
 645             while ($subfile = readdir($currdir)) {
 646                 if ($subfile <> ".." && $subfile <> ".") {
 647                     $subfilelist[] = $file."/".$subfile;
 648                 }
 649             }
 650             printfilelist($subfilelist);
 651
 652         } else {
 653             $icon = mimeinfo("icon", $file);
 654             echo "<img src=\"$CFG->pixpath/f/$icon\"  height=16 width=16> $file<br>";
 655         }
 656     }
 657 }
 658
 659
 660 function print_cell($alignment="center", $text="&nbsp;") {
 661     echo "<TD ALIGN=\"$alignment\" NOWRAP>";
 662     echo "<FONT SIZE=\"-1\" FACE=\"Arial, Helvetica\">";
 663     echo "$text";
 664     echo "</FONT>";
 665     echo "</TD>\n";
 666 }
 667
 668 function displaydir ($wdir) {
 669 //  $wdir == / or /a or /a/b/c/d  etc
 670
 671     global $basedir;
 672     global $id;
 673     global $USER, $CFG;
 674
 675     $fullpath = $basedir.$wdir;
 676
 677     $directory = opendir($fullpath);             // Find all files
 678     while ($file = readdir($directory)) {
 679         if ($file == "." || $file == "..") {
 680             continue;
 681         }
 682
 683         if (is_dir($fullpath."/".$file)) {
 684             $dirlist[] = $file;
 685         } else {
 686             $filelist[] = $file;
 687         }
 688     }
 689     closedir($directory);
 690
 691     $strname = get_string("name");
 692     $strsize = get_string("size");
 693     $strmodified = get_string("modified");
 694     $straction = get_string("action");
 695     $strmakeafolder = get_string("makeafolder");
 696     $struploadafile = get_string("uploadafile");
 697     $strwithchosenfiles = get_string("withchosenfiles");
 698     $strmovetoanotherfolder = get_string("movetoanotherfolder");
 699     $strmovefilestohere = get_string("movefilestohere");
 700     $strdeletecompletely = get_string("deletecompletely");
 701     $strcreateziparchive = get_string("createziparchive");
 702     $strrename = get_string("rename");
 703     $stredit   = get_string("edit");
 704     $strunzip  = get_string("unzip");
 705     $strlist   = get_string("list");
 706     $strchoose   = get_string("choose");
 707
 708
 709     echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=post NAME=dirform>";
 710     echo "<TABLE BORDER=0 cellspacing=2 cellpadding=2 width=640>";
 711     echo "<TR>";
 712     echo "<TH WIDTH=5></TH>";
 713     echo "<TH ALIGN=left>$strname</TH>";
 714     echo "<TH ALIGN=right>$strsize</TH>";
 715     echo "<TH ALIGN=right>$strmodified</TH>";
 716     echo "<TH ALIGN=right>$straction</TH>";
 717     echo "</TR>\n";
 718
 719     if ($wdir == "/") {
 720         $wdir = "";
 721     }
 722
 723     $count = 0;
 724
 725     if (!empty($dirlist)) {
 726         asort($dirlist);
 727         foreach ($dirlist as $dir) {
 728
 729             $count++;
 730
 731             $filename = $fullpath."/".$dir;
 732             $fileurl  = rawurlencode($wdir."/".$dir);
 733             $filesafe = rawurlencode($dir);
 734             $filedate = userdate(filectime($filename), "%d %b %Y, %I:%M %p");
 735
 736             echo "<TR>";
 737
 738             print_cell("center", "<INPUT TYPE=checkbox NAME=\"file$count\" VALUE=\"$fileurl\">");
 739             print_cell("left", "<A HREF=\"".basename($_SERVER['PHP_SELF'])."?id=$id&wdir=$fileurl\"><IMG SRC=\"$CFG->pixpath/f/folder.gif\" HEIGHT=16 WIDTH=16 BORDER=0 ALT=\"Folder\"></A> <A HREF=\"".basename($_SERVER['PHP_SELF'])."?id=$id&wdir=$fileurl\">".htmlspecialchars($dir)."</A>");
 740             print_cell("right", "-");
 741             print_cell("right", $filedate);
 742             print_cell("right", "<A HREF=\"".basename($_SERVER['PHP_SELF'])."?id=$id&wdir=$wdir&file=$filesafe&action=rename\">$strrename</A>");
 743
 744             echo "</TR>";
 745         }
 746     }
 747
 748
 749     if (!empty($filelist)) {
 750         asort($filelist);
 751         foreach ($filelist as $file) {
 752
 753             $icon = mimeinfo("icon", $file);
 754
 755             $count++;
 756             $filename    = "$fullpath/$file";
 757             $fileurl     = "$wdir/$file";
 758             $filesafe    = rawurlencode($file);
 759             $fileurlsafe = rawurlencode($fileurl);
 760             $filedate    = userdate(filectime($filename), "%d %b %Y, %I:%M %p");
 761
 762             if (substr($fileurl,0,1) == '/') {
 763                 $selectfile = substr($fileurl,1);
 764             } else {
 765                 $selectfile = $fileurl;
 766             }
 767             if ($CFG->slasharguments) {
 768                 $ffurl = "/file.php/$id$fileurl";
 769             } else {
 770                 $ffurl = "/file.php?file=/$id$fileurl";
 771             }
 772
 773             echo "<tr>";
 774
 775             print_cell("center", "<input type=\"checkbox\" name=\"file$count\" value=\"$fileurl\">");
 776
 777             echo "<td align=left nowrap>";
 778             link_to_popup_window ($ffurl, "display",
 779                                   "<img src=\"$CFG->pixpath/f/$icon\" height=16 width=16 border=0 alt=\"file\">",
 780                                   480, 640);
 781             echo "<font size=\"-1\" face=\"Arial, Helvetica\">";
 782             link_to_popup_window ($ffurl, "display", htmlspecialchars($file), 480, 640);
 783             echo "</font></td>";
 784
 785             $file_size = filesize($filename);
 786             print_cell("right", display_size($file_size));
 787             print_cell("right", $filedate);
 788
 789             $edittext = "<b><a onMouseDown=\"return set_value('$selectfile')\" href=\"\">$strchoose</a></b>&nbsp;";
 790
 791             if ($icon == "text.gif" || $icon == "html.gif") {
 792                 $edittext .= "<a href=\"".basename($_SERVER['PHP_SELF'])."?id=$id&wdir=$wdir&file=$fileurl&action=edit\">$stredit</a>";
 793             } else if ($icon == "zip.gif") {
 794                 $edittext .= "<a href=\"".basename($_SERVER['PHP_SELF'])."?id=$id&wdir=$wdir&file=$fileurl&action=unzip\">$strunzip</a>&nbsp;";
 795                 $edittext .= "<a href=\"".basename($_SERVER['PHP_SELF'])."?id=$id&wdir=$wdir&file=$fileurl&action=listzip\">$strlist</a> ";
 796             }
 797
 798             print_cell("right", "$edittext <A HREF=\"".basename($_SERVER['PHP_SELF'])."?id=$id&wdir=$wdir&file=$filesafe&action=rename\">$strrename</A>");
 799
 800             echo "</tr>";
 801         }
 802     }
 803     echo "</table>";
 804     echo "<hr width=640 align=center noshade size=1>";
 805
 806     if (empty($wdir)) {
 807         $wdir = "/";
 808     }
 809
 810     echo "<TABLE BORDER=0 cellspacing=2 cellpadding=2 width=640>";
 811     echo "<TR><TD>";
 812     echo "<INPUT TYPE=hidden NAME=id VALUE=\"$id\">";
 813     echo "<INPUT TYPE=hidden NAME=wdir VALUE=\"$wdir\"> ";
 814     $options = array (
 815                    "move" => "$strmovetoanotherfolder",
 816                    "delete" => "$strdeletecompletely",
 817                    "zip" => "$strcreateziparchive"
 818                );
 819     if (!empty($count)) {
 820         choose_from_menu ($options, "action", "", "$strwithchosenfiles...", "javascript:document.dirform.submit()");
 821     }
 822
 823     echo "</FORM>";
 824     echo "<TD ALIGN=center>";
 825     if (!empty($USER->fileop) and ($USER->fileop == "move") and ($USER->filesource <> $wdir)) {
 826         echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=get>";
 827         echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 828         echo " <INPUT TYPE=hidden NAME=wdir VALUE=\"$wdir\">";
 829         echo " <INPUT TYPE=hidden NAME=action VALUE=paste>";
 830         echo " <INPUT TYPE=submit VALUE=\"$strmovefilestohere\">";
 831         echo "</FORM>";
 832     }
 833     echo "<TD ALIGN=right>";
 834         echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=get>";
 835         echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 836         echo " <INPUT TYPE=hidden NAME=wdir VALUE=\"$wdir\">";
 837         echo " <INPUT TYPE=hidden NAME=action VALUE=mkdir>";
 838         echo " <INPUT TYPE=submit VALUE=\"$strmakeafolder\">";
 839         echo "</FORM>";
 840     echo "</TD>";
 841     echo "<TD ALIGN=right>";
 842         echo "<FORM ACTION=\"".$_SERVER['PHP_SELF']."\" METHOD=get>";
 843         echo " <INPUT TYPE=hidden NAME=id VALUE=$id>";
 844         echo " <INPUT TYPE=hidden NAME=wdir VALUE=\"$wdir\">";
 845         echo " <INPUT TYPE=hidden NAME=action VALUE=upload>";
 846         echo " <INPUT TYPE=submit VALUE=\"$struploadafile\">";
 847         echo "</FORM>";
 848     echo "</TD></TR>";
 849     echo "</TABLE>";
 850     echo "<HR WIDTH=640 ALIGN=CENTER NOSHADE SIZE=1>";
 851
 852 }
 853
 854 ?>