Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

	Does not allow overwriting existing file when uploading.
	User instead receives this message:
	Unable to upload $filename, a file by that name was found in $path
	To upload, rename or delete existing $filename in $path.

    1: # Copyright Michigan State University Board of Trustees
    2: #
    3: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    4: #
    5: # LON-CAPA is free software; you can redistribute it and/or modify
    6: # it under the terms of the GNU General Public License as published by
    7: # the Free Software Foundation; either version 2 of the License, or 
    8: # (at your option) any later version.
    9: #
   10: # LON-CAPA is distributed in the hope that it will be useful,
   11: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   12: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   13: # GNU General Public License for more details.
   14: #
   15: # You should have received a copy of the GNU General Public License
   16: # along with LON-CAPA; if not, write to the Free Software
   17: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   18: #
   19: # /home/httpd/html/adm/gpl.txt
   20: #
   21: # http://www.lon-capa.org/
   22: #
   23: 
   24: package Apache::portfolio;
   25: use strict;
   26: use Apache::Constants qw(:common :http);
   27: use Apache::loncommon;
   28: use Apache::lonnet;
   29: use Apache::lontexconvert;
   30: use Apache::lonfeedback;
   31: use Apache::lonlocal;
   32: 
   33: # receives a file name and path stub from username/userfiles/portfolio/
   34: # returns an anchor tag consisting encoding filename and currentpath
   35: sub make_anchor {
   36:     my ($filename, $current_path) = @_;
   37:     my $anchor = '<a href="/adm/portfolio?selectfile='.$filename.'&currentpath='.$current_path.'">'.$filename.'</a>';
   38:     return $anchor;
   39: }
   40: 
   41: # returns html with <br /> separated contents of the directory
   42: # returns a <strong>currentFile</strong> (bolds the selected file/dir)
   43: sub display_directory_old {
   44:     my ($currentPath, $currentFile, @dirList,) = @_;
   45:     my $displayOut='';  
   46:     my $filename;
   47:     my $upPath;
   48:     if ($currentPath ne '/') {
   49:         $displayOut = 'Listing of '.$currentPath.'<br /><hr />';
   50:         # provides the "up one directory level" function
   51:         # it means shortening the currentpath to the parent directory
   52:         $currentPath =~ m:(^/.*)(/.*/$):;
   53:         if ($1 ne '/') {
   54:             $upPath = $1.'/';
   55:         } else {
   56:             $upPath = $1;
   57:         }
   58:         
   59:         # $displayOut = $displayOut.'<a href="/adm/portfolio?selectfile='.$upPath.'&currentpath='.$upPath.'">..</a><br />';
   60:     } else {
   61:         # $displayOut = $displayOut.'at root '.$currentPath.'<br />';
   62:     }
   63:     foreach my $line (@dirList) {
   64:     	#$strip holds directory/file name
   65:     	#$dom 
   66:     	my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); 
   67:         if (($filename ne '.') && ($filename ne '..')) {
   68:             if ($testdir =~ m:^1:) {
   69:                 # handle directories different from files
   70:                 if ($filename eq $currentFile) {
   71: 		    #checks to bold the selected file
   72:                     $displayOut.= '<strong>'.(&make_anchor($filename.'/', $filename.'/').'</strong><br />'."\n");
   73:                 } else {
   74:                     $displayOut.= (&make_anchor($filename.'/', $filename.'/').'<br />'."\n");
   75:                 }
   76:             } else {
   77:                 if ($filename eq $currentFile) {
   78: 		    #checks to bold the selected file
   79:                     $displayOut.='<strong>'.(&make_anchor($filename, $currentPath).'</strong><br />'."\n");
   80:                 } else {
   81:                     $displayOut.=(&make_anchor($filename, $currentPath).'<br />'."\n");
   82:                 }
   83:             }
   84:             
   85:         }
   86:     	
   87:     }
   88:     return $displayOut;
   89: }
   90: 
   91: sub displayActions {
   92:     # returns html to offer user appropriate actions depending on selected file/directory
   93:     my $displayOut;
   94:     my ($currentPath, $currentFile, $isEmpty) = @_;
   95: #   $displayOut = 'here are actions for '.$currentFile;
   96:     if ($currentFile =~ m:/$:) {
   97:         # if the selected file is a directory, these are the options
   98:         # offer the chance to delete the directory only if it is empty
   99:         if ($isEmpty && ($currentPath ne '/')) {
  100:             $displayOut =   $displayOut.'<form method="POST">
  101:             <input type="hidden" name="selectfile" 
  102:             value="'.$currentFile.'" />
  103:             <input type="hidden" name="fileaction" value="delete" /> 
  104:             <input type="hidden" name="currentpath" value="'.$currentPath.'" /> 
  105:             <center>
  106:             <input type="submit" 
  107:             value="Delete '.$currentFile.'" />
  108:             </center>
  109:             </form>';
  110:         } 
  111:         if ($currentPath ne '/') {
  112:             $displayOut = $displayOut.'<hr />
  113:             <form method="POST">
  114:             <input type="hidden" name="selectfile" 
  115:             value="'.$currentFile.'" />
  116:             <input type="hidden" name="fileaction" value="rename" /> 
  117:             <input type="hidden" name="currentpath" value="'.$currentPath.'" /> 
  118:             <input type="input" name="filenewname" value="Type new name here" /> 
  119:             <input type="submit" 
  120:             value="Rename '.$currentFile.'" />
  121:             </form>';
  122:         }
  123:     } else {  #action options offered for files
  124:         $displayOut = $displayOut.'<form method="POST">';
  125:         $displayOut = $displayOut.'<input type="hidden" name="selectfile"';
  126:         $displayOut = $displayOut.'value="'.$currentFile;
  127:         $displayOut = $displayOut.'" /><input type="hidden" name="fileaction" value="delete" /> 
  128:         <input type="hidden" name="currentpath" value="'.$currentPath.'" /> 
  129:         <center>
  130:         <input type="submit"
  131:         value="Delete '.$currentFile.'" />
  132:         </center>
  133:         </form>';
  134:     
  135:         $displayOut = $displayOut.'<hr />
  136:         <form method="POST">
  137:         <input type="hidden" name="selectfile" 
  138:         value="'.$currentFile.'" />
  139:         <input type="hidden" name="fileaction" value="rename" /> 
  140:         <input type="hidden" name="currentpath" value="'.$currentPath.'" /> 
  141:         <input type="input" name="filenewname" value="Type new name here" /> 
  142:         <input type="submit" 
  143:         value="Rename '.$currentFile.'" />
  144:         </form>
  145:         <hr />';
  146:     }
  147:     $displayOut = $displayOut.'<hr />Add a file to '.$currentPath;
  148:     # file upload form 
  149:     $displayOut = $displayOut.'<form method="post" enctype="multipart/form-data">';
  150:     $displayOut = $displayOut.'<input name="uploaddoc" type="file" />'.
  151:         '<input type="hidden" name="currentpath" value="'.$currentPath.'" />'.
  152:         '<input type="submit" name="storeupl" value="Upload" />'.
  153:         '</form><hr />';
  154:     $displayOut = $displayOut.'<form method="POST">
  155:         <input name="subdir" type="text" />
  156:         <input type="submit" value="Create Subdirectory" />
  157:         </form>
  158:             ';
  159:     return $displayOut;
  160: }
  161: 
  162: my $dirptr=16384;
  163: sub display_directory {
  164:     my ($r,$current_path,$is_empty,$dir_list)=@_;
  165:     my $iconpath= $r->dir_config('lonIconsURL') . "/";
  166:     $r->print('<table border="0" cellspacing="2" cellpadding="2"><tr valign="middle">');
  167:     $r->print('<td bgcolor="#ccddaa" align="center">');
  168:     my $displayOut = '<form method="post" enctype="multipart/form-data">';
  169:     $displayOut = $displayOut.'<input name="uploaddoc" type="file" />'.
  170:         '<input type="hidden" name="currentpath" value="'.$current_path.'" />'.
  171:         '<input type="submit" name="storeupl" value="Upload" />'.
  172:         '</form>';
  173:     $r->print($displayOut);
  174:     $r->print('</td></tr><tr><td bgcolor="#ccddaa" align="center">');
  175:     $displayOut = '<form method="post">';
  176:     $displayOut .= '<input name="newdir" type="input" />'.
  177:         '<input type="hidden" name="currentpath" value="'.$current_path.'" />'.
  178:         '<input type="submit" name="createdir" value="'.&mt("Create Directory").'" />'.
  179:         '</form>';
  180:     $r->print($displayOut);
  181:     $r->print('</td></tr></table>');
  182:     my @tree = split (/\//,$current_path);
  183:     $r->print('<font size="+2">'.&make_anchor('portfolio','/').'/');
  184:     if (@tree > 1){
  185:         my $newCurrentPath = '';
  186:         for (my $i = 1; $i< @tree; $i++){
  187:             $newCurrentPath .= $tree[$i].'/';
  188:             $r->print(&make_anchor($tree[$i],'/'.$newCurrentPath).'/');
  189:         }
  190:     }
  191:     $r->print('</font>');
  192:     &Apache::lonhtmlcommon::store_recent('portfolio',$current_path,$current_path);
  193:     $r->print('<br /><form method=post action="/adm/portfolio">'.
  194: 	      &Apache::lonhtmlcommon::select_recent('portfolio','currentpath',
  195: 						    'this.form.submit();'));
  196:     $r->print("</form>");
  197:     if ($is_empty) {
  198:         $displayOut = '<form method="post" action="/adm/portfolio">'.
  199:         '<input type="hidden" name="action" value="deletedir" />'.
  200:         '<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.
  201:         '<input type="hidden" name="selectfile" value="" />'.
  202:         '<input type="hidden" name="currentpath" value="'.$current_path.'" />'.
  203:         '</form>';
  204:         
  205:         $r->print($displayOut);
  206: 	return;
  207:     }
  208:     $r->print('<table border="0" cellspacing="2" cellpadding="2">'.
  209:             '<tr><th>Actions</th><th>&nbsp;</th><th>Name</th><th>Size</th><th>Last Modified</th></tr>');
  210:     my $href_location="/uploaded/$ENV{'user.domain'}/$ENV{'user.name'}/portfolio/$current_path/";
  211:     foreach my $line (sort 
  212: 		      { 
  213: 			  my ($afile)=split('&',$a,2);
  214: 			  my ($bfile)=split('&',$b,2);
  215: 			  return (lc($afile) cmp lc($bfile));
  216: 		      } (@$dir_list)) {
  217:     	#$strip holds directory/file name
  218:     	#$dom 
  219:     	my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); 
  220:     	if (($filename ne '.') && ($filename ne '..')) {
  221:             if ($dirptr&$testdir) {
  222:                 $r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>');
  223:                 $r->print('<td>Go to ...</td>');
  224:                 $r->print('<td>'.&make_anchor($filename.'/',$current_path.$filename.'/').'</td>'); 
  225:                 $r->print('</tr>'); 
  226:             } else {
  227:                 $r->print('<tr bgcolor="#CCCCFF">');
  228:                 $r->print('<td>
  229: <form method="post" action="/adm/portfolio">
  230: <select name="action">
  231:   <option value=""></option>
  232:   <option value="delete">'.&mt("Delete").'</option>
  233:   <option value="rename">'.&mt("Rename").'</option>
  234: </select>
  235: <input type="submit" name="doit" value="Go" />
  236: <input type="hidden" name="selectfile" value="'.$filename.'" />
  237: <input type="hidden" name="currentpath" value="'.$current_path.'" />
  238: </form>
  239: </td>');
  240:                 $r->print('<td><img src="'.$iconpath.'unknown.gif"></td>');
  241:                 $r->print('<td><a href="'.$href_location.$filename.'">'.
  242: 			  $filename.'</a></td>'); 
  243:                 $r->print('<td>'.$size.'</td>');
  244:                 $r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');
  245:                 $r->print('</tr>'); 
  246:             }
  247:         }
  248:     }
  249: #   <tr bgcolor="#FFAA99"> pink bg 
  250: #   <tr bgcolor="#CCCCFF"> blue bg            
  251: #   $r->print(&display_directory($current_path, $currentFile, @dir_list));
  252: #    $r->print('</td>><td>');
  253: #   $r->print(&display_actions($current_path, $currentFile, $isEmpty));
  254:     $r->print('</table></form>');
  255: }
  256: 
  257: sub open_form {
  258:     my ($r)=@_;
  259:     $r->print('<form method="post" action="/adm/portfolio">');
  260:     $r->print('<input type="hidden" name="action" value="'.
  261: 	      $ENV{'form.action'}.'" />');
  262:     $r->print('<input type="hidden" name="confirmed" value="1" />');
  263:     $r->print('<input type="hidden" name="selectfile" value="'.
  264: 	      $ENV{'form.selectfile'}.'" />');
  265:     $r->print('<input type="hidden" name="currentpath" value="'.
  266: 	      $ENV{'form.currentpath'}.'" />');
  267: }
  268: 
  269: sub clean_filename {
  270:     my ($fname)=@_;
  271: # Replace Windows backslashes by forward slashes
  272:     $fname=~s/\\/\//g;
  273: # Get rid of everything but the actual filename
  274:     $fname=~s/^.*\/([^\/]+)$/$1/;
  275: # Replace spaces by underscores
  276:     $fname=~s/\s+/\_/g;
  277: # Replace all other weird characters by nothing
  278:     $fname=~s/[^\w\.\-]//g;
  279:     return $fname;
  280: }
  281: 
  282: sub close_form {
  283:     my ($r)=@_;
  284:     $r->print('<p><input type="submit" value="'.&mt('Continue').
  285: 	      '" /></p></form>');
  286:     $r->print('<form action="/adm/portfolio" method="POST">
  287:                <p>
  288:               <input type="hidden" name="currentpath" value="'.
  289: 	      $ENV{'form.currentpath'}.'" />
  290:                  <input type="submit" value="'.&mt('Cancel').'" />
  291:                </p></form>');
  292: 
  293: }
  294: 
  295: sub display_file {
  296:     my ($path,$filename)=@_;
  297:     if (!defined($path)) { $path=$ENV{'form.currentpath'}; }
  298:     if (!defined($filename)) { $filename=$ENV{'form.selectfile'}; }
  299:     return '<tt>'.$path.$filename.'</tt>';
  300: }
  301: 
  302: sub done {
  303:     return ('<h3><a href="/adm/portfolio?currentpath='.
  304: 	    $ENV{'form.currentpath'}.'">'.&mt('Done').'</a></h3>');
  305: }
  306: 
  307: sub delete {
  308:     my ($r)=@_;
  309:     &open_form($r);
  310:     $r->print('<p>'.&mt('Delete').' '.&display_file().'?</p>');
  311:     &close_form($r);
  312: } 
  313: 
  314: sub delete_confirmed {
  315:     my ($r)=@_;
  316:     my $result=&Apache::lonnet::removeuserfile($ENV{'user.name'},
  317: 					       $ENV{'user.domain'},'portfolio'.
  318: 					       $ENV{'form.currentpath'}.
  319: 					       $ENV{'form.selectfile'});
  320:     if ($result ne 'ok') {
  321: 	$r->print('<font color="red"> An error occured ('.$result.
  322: 		  ') while trying to delete '.&display_file().'</font><br />');
  323:     }
  324:     $r->print(&done());
  325: }
  326: 
  327: sub delete_dir {
  328:     my ($r)=@_;
  329:     &open_form($r);
  330:     $r->print('<p>'.&mt('Delete').' '.&display_file().'?</p>');
  331:     &close_form($r);
  332: } 
  333: 
  334: sub delete_dir_confirmed {
  335:     my ($r)=@_;
  336:     my $directory_name = $ENV{'form.currentpath'};
  337:     $directory_name =~ m/\/$/;
  338:     $directory_name = $`;
  339:     my $result=&Apache::lonnet::removeuserfile($ENV{'user.name'},
  340: 					       $ENV{'user.domain'},'portfolio'.
  341: 					       $directory_name);
  342: 					       
  343:     if ($result ne 'ok') {
  344: 	$r->print('<font color="red"> An error occured (dir) ('.$result.
  345: 		  ') while trying to delete '.$directory_name.'</font><br />');
  346:     } else {
  347:         my @dirs = split m!/!, $directory_name;
  348:         
  349: #        $directory_name =~ m/^(\/*\/)(\/*.)$/;
  350:         $directory_name='/';
  351:         for (my $i=1; $i < (@dirs - 1); $i ++){
  352:             $directory_name .= $dirs[$i].'/';
  353:         }
  354:         $ENV{'form.currentpath'} = $directory_name;
  355:     }
  356:     $r->print(&done());
  357: }
  358: 
  359: sub rename {
  360:     my ($r)=@_;
  361:     &open_form($r);
  362:     $r->print('<p>'.&mt('Rename').' '.&display_file().' to 
  363:                <input name="filenewname" type="input" size="50" />?</p>');
  364:     &close_form($r);
  365: }
  366: 
  367: sub rename_confirmed {
  368:     my ($r)=@_;
  369:     my $filenewname=&Apache::lonnet::clean_filename($ENV{'form.filenewname'});
  370:     if ($filenewname eq '') {
  371: 	$r->print('<font color="red">'.
  372: 		  &mt("Error: no valid filename was provided to rename to.").
  373: 		  '</font><br />');
  374: 	$r->print(&done());
  375: 	return;
  376:     } 
  377:     my $result=
  378: 	&Apache::lonnet::renameuserfile($ENV{'user.name'},$ENV{'user.domain'},
  379:             'portfolio'.$ENV{'form.currentpath'}.$ENV{'form.selectfile'},
  380:             'portfolio'.$ENV{'form.currentpath'}.$ENV{'form.filenewname'});
  381:     if ($result ne 'ok') {
  382: 	$r->print('<font color="red"> An errror occured ('.$result.
  383: 		  ') while trying to rename '.&display_file().' to '.
  384: 		  &display_file(undef,$filenewname).'</font><br />');
  385:     }
  386:     $r->print(&done());
  387: }
  388: 
  389: sub upload {
  390:     my ($r)=@_;
  391:     #FIXME if the file already exists we need to do a confirmation pass 
  392:     #before overwriting
  393:     my $fname=$ENV{'form.uploaddoc.filename'};
  394:     $fname=&clean_filename($fname);
  395:    	my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},
  396: 						 $ENV{'user.name'}).
  397: 						'/userfiles/portfolio';
  398: 	my @dir_list=&Apache::lonnet::dirlist($ENV{'form.currentpath'},
  399: 					    $ENV{'user.domain'},
  400: 					    $ENV{'user.name'},$portfolio_root);
  401:   	my $found_file = 0;
  402:     foreach my $line (@dir_list) {
  403:     	#$strip holds directory/file name
  404:     	#$dom 
  405:     	my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); 
  406:         if ($filename eq $fname){
  407:             $found_file = 1;
  408:         }
  409:     }
  410:     if ($found_file){   
  411:         $r->print('<font color="red">Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>'.$ENV{'form.currentpath'}.'</strong></font>'.
  412:                   '<br />To upload, rename or delete existing '.$fname.' in '.$ENV{'form.currentpath'});
  413:     } else {
  414:         my $result=&Apache::lonnet::userfileupload('uploaddoc','',
  415: 	        	 'portfolio'.$ENV{'form.currentpath'});
  416:         if ($result !~ m|^/uploaded/|) {
  417:         	$r->print('<font color="red"> An errror occured ('.$result.
  418: 		              ') while trying to upload '.&display_file().'</font><br />');
  419:         }
  420:     }
  421:     $r->print(&done());
  422: }
  423: 
  424: sub createdir {
  425:     my ($r)=@_;
  426:     #FIXME 1) file exists in place of dir (errormessage needs improvement)
  427:     my $newdir=&Apache::lonnet::clean_filename($ENV{'form.newdir'});
  428:     if ($newdir eq '') {
  429: 	$r->print('<font color="red">'.
  430: 		  &mt("Error: no valid directory name was provided.").
  431: 		  '</font><br />');
  432: 	$r->print(&done());
  433: 	return;
  434:     } 
  435:     my $result=&Apache::lonnet::mkdiruserfile($ENV{'user.name'},
  436: 	     $ENV{'user.domain'},'portfolio'.$ENV{'form.currentpath'}.$newdir);
  437:     if ($result ne 'ok') {
  438: 	$r->print('<font color="red"> An errror occured ('.$result.
  439: 		  ') while trying to create a new directory '.&display_file().'</font><br />');
  440:     }
  441:     $r->print(&done());
  442: }
  443: 
  444: sub handler {
  445:     # this handles file management
  446:     my $r = shift;
  447: 	my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},
  448: 							 $ENV{'user.name'}).
  449: 							'/userfiles/portfolio';
  450:     &Apache::loncommon::no_cache($r);
  451:     &Apache::loncommon::content_type($r,'text/html');
  452:     $r->send_http_header;
  453:     # Give the LON-CAPA page header
  454:     $r->print('<html><head><title>'.
  455:               &mt('Portfolio Manager').
  456:               "</title></head>\n".
  457:               &Apache::loncommon::bodytag('Portfolio Manager'));
  458:     $r->rflush();
  459:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
  460:                                             ['selectfile','currentpath',
  461: 					     'currentfile']);
  462: 
  463:     if ($ENV{'form.uploaddoc.filename'}) {
  464: 	&upload($r);
  465:     } elsif ($ENV{'form.action'} eq 'delete' && $ENV{'form.confirmed'}) {
  466: 	&delete_confirmed($r);
  467:     } elsif ($ENV{'form.action'} eq 'delete') {
  468: 	&delete($r);
  469:     } elsif ($ENV{'form.action'} eq 'deletedir' && $ENV{'form.confirmed'}) {
  470: 	&delete_dir_confirmed($r);
  471:     } elsif ($ENV{'form.action'} eq 'deletedir'){
  472: 	&delete_dir($r);
  473:     } elsif ($ENV{'form.action'} eq 'rename' && $ENV{'form.confirmed'}) {
  474: 	&rename_confirmed($r);
  475:     } elsif ($ENV{'form.action'} eq 'rename') {
  476: 	&rename($r);
  477:     } elsif ($ENV{'form.createdir'}) {
  478: 	&createdir($r);
  479:     } else {
  480: 	my $current_path='/';
  481: 	if ($ENV{'form.currentpath'}) {
  482: 	    $current_path = $ENV{'form.currentpath'};
  483: 	}
  484: 	my @dir_list=&Apache::lonnet::dirlist($current_path,
  485: 					    $ENV{'user.domain'},
  486: 					    $ENV{'user.name'},$portfolio_root);
  487:     
  488: 	# need to know if directory is empty so it can be removed if desired
  489: 	my $is_empty=(@dir_list == 2);
  490: 	&display_directory($r,$current_path,$is_empty,\@dir_list);
  491: 	$r->print("</body>\n</html>\n");
  492: 	return OK;
  493:     }
  494: }
  495: 1;
  496: __END__