Warning: target file exists, and has been published!
'; - } elsif ( -e $construct ) { - $result.='Warning: target file exists!
'; - } - return $result; + my ($user, $domain, $dir, $file) = @_; + + # Create complete paths in publication and construction space. + + my $published = &PublicationPath($domain, $user, $dir, $file); + my $construct = &ConstructionPath($user, $dir, $file); + + # If the resource exists in either space indicate this fact. + # Note that the check for existence in resource space is stricter. + + my $result; + if ( -e $published) { + $result.='Warning: target file exists, and has been published!
'; + } + elsif ( -e $construct) { + $result.='Warning: target file exists!
'; + } + + return $result; + } +=pod + +=item checksuffix($old, $new) + + Determine if a resource filename suffix (the stuff after the .) would change +as a result of this operation. + + Parameters: + +=over 4 + +=item $old = string [in] Previous filename. + +=item $new = string [in] Resultant filename. + +=back + + Returns: + +=over 4 + +=item Empty string if everythikng worked. + +=item String containing an error message if there was a problem. + +=back + +=cut + sub checksuffix { my ($old,$new) = @_; my $result; @@ -126,166 +376,634 @@ sub checksuffix { if ($new=~m:(.*/*)([^/]+)\.(\w+)$:) { $newsuffix=$3; } if ($old=~m:(.*)/+([^/]+)\.(\w+)$:) { $oldsuffix=$3; } if ($oldsuffix ne $newsuffix) { - $result.='Warning: change of MIME type!
'; + $result.= + 'Warning: change of MIME type!
'; } return $result; } +=pod -sub phaseone { - my ($r,$fn,$uname,$udom)=@_; +=item CloseForm1($request, $user, $file) + + Close of a form on the successful completion of phase 1 processing + +Parameters: + +=over 4 - $fn=~m:(.*)/([^/]+)\.(\w+)$:; - my $dir=$1; - my $main=$2; - my $suffix=$3; - - my $conspace; - if ($fn =~ m-^/home/-) { - $conspace=$fn; +=item $request - Apache Request Object [in] - Apache server request object. + +=item $user - string [in] - Name of the user initiating the request. + +=item $file - A filename. + +=back + +=cut + +sub CloseForm1 { + my ($request, $user, $file) = @_; + my $url = "/priv/".$file; + + + $url =~ s/public_html\///; + $url =~ s/\/home//; + $url =~ s/\/\//\//; + + $request->print(''); + $request->print(''); + +} + + +=pod + +=item CloseForm2($request, $user, $directory) + + Successfully close off the phase 2 form. + +Parameters: + +=over 4 + +=item $request - Apache Request object [in] - The request that is being + executed. + +=item $user - string [in] - Name of the user that is initiating the + request. + +=item $directory - string [in] - Directory in which the operation is + being done relative to the top level construction space + directory. + +=back + +=cut + +sub CloseForm2 { + my ($request, $user, $directory) = @_; + + $request->print('Rename '.$filename.' to '. + $dir.'/'.$newfilename.'?
'); + &CloseForm1($request, $user, $filename); + } else { + $request->print('No new filename specified
'); + return; + } } else { - $conspace='/home/'.$uname.'/public_html'.$fn; + $request->print('No such File
'); + return; } + +} +=pod - $r->print(''); - return; - } - } else { - $r->print('No such file.
'); - return; - } - } elsif ($ENV{'form.action'} eq 'delete') { - if (-e $conspace) { - $r->print('Delete '.$fn.'?
'); - } else { - $r->print('No such file.
'); - return; - } - } elsif ($ENV{'form.action'} eq 'copy') { - if (-e $conspace) { - if ($ENV{'form.newfilename'}) { - $r->print(&checksuffix($fn,$ENV{'form.newfilename'})); - $r->print(&exists($uname,$udom,$dir,$ENV{'form.newfilename'})); - $r->print('Copy '.$fn.' to '. - $dir.'/'.$ENV{'form.newfilename'}.'?
'); - } else { - $r->print('No new filename specified.
'); - return; - } - } else { - $r->print('No such file.
'); - return; - } - } elsif ($ENV{'form.action'} eq 'newdir') { - my $newdir='/home/'.$uname.'/public_html/'. - $fn.$ENV{'form.newfilename'}; - if (-e $newdir) { - $r->print('Directory exists.
'); - return; - } - $r->print('Make new directory '. - $fn.$ENV{'form.newfilename'}.'?
'); - +=item Delete1 + + Performs phase 1 processing of the delete operation. In phase one + we just check to be sure the file exists. + +Parameters: + +=over 4 + +=item $request - Apache Request Object [in] request object for the current + request. + +=item $user - string [in] Name of session user. + +=item $filename - string [in] Name fo the file to be deleted: + Filename is the full filesystem path to the file. + +=back + +=cut + +sub Delete1 { + my ($request, $user, $filename) = @_; + + if( -e $filename) { + $request->print(''); + $request->print('Delete '.$filename.'?
'); + &CloseForm1($request, $user, $filename); + } else { + $request->print('No Such file: '.$filename.'
'); + } +} + +=pod + +=item Copy1($request, $user, $domain, $filename, $newfilename) + + Performs phase 1 processing of the construction space copy command. + Ensure that the source fil eexists. Ensure that a destination exists, + also warn if the detination already exists. + +Parameters: + +=over 4 + +=item $request - Apache Request Object [in] request object for the current + request. + +=item $user - string [in] Name of the user initiating the request. + +=item $domain - string [in] Domain the initiating user is logged in as + +=item $dir - string [in] Directory path. + +=item $filename - string [in] Source filename. + +=item $newfilename-string [in] Destination filename. + +=back + +=cut + +sub Copy1 { + my ($request, $user, $domain, $dir, $filename, $newfilename) = @_; + + + if(-e $filename) { + $request->print(&checksuffix($filename,$newfilename)); + $request->print(&exists($user, $domain, $dir, $newfilename)); + $request->print('Copy '.$filename.' to'. + ''.$dir.'/'.$newfilename.'/?
'); + &CloseForm1($request, $user, $filename); + } else { + $request->print('No such file '.$filename.'
'); + } +} + +=pod + +=item NewDir1 + + Does all phase 1 processing of directory creation: + Ensures that the user provides a new directory name, + and that the directory does not already exist. + +Parameters: + +=over 4 + +=item $request - Apache Request Object [in] - Server request object for the + current url.. + +=item $username - Name of the user that is requesting the directory creation. + +=item $path - current directory relative to construction spacee. + +=item $newdir - Name of the directory to be created; path relative to the + top level of construction space. +=back + +Side Effects: + +=over 4 + +=item A new form is displayed. Clicking on the confirmation button +causes the newdir operation to transition into phase 2. The hidden field +"newfilename" is set with the construction space path to the new directory. + + +=back + +=cut + + +sub NewDir1 +{ + my ($request, $username, $path, $newdir) = @_; + + my $fullpath = '/home/'.$username.'/public_html/'. + $path.'/'.$newdir; + Debug($request, "Full path is : ".$fullpath); + + if(-e $fullpath) { + $request->print('Directory exists.
'); + } + else { + $request->print('Make new directory '. + $path."/".$newdir.'?
'); + &CloseForm1($request, $username, $newdir); + + } +} + +=pod + +=item phaseone($r, $fn, $uname, $udom) + + Peforms phase one processing of the request. In phase one, error messages +are returned if the request cannot be performed (e.g. attempts to manipulate +files that are nonexistent). If the operation can be performed, what is +about to be done will be presented to the user for confirmation. If the +user confirms the request, then phase two is executed, the action +performed and reported to the user. + + Parameters: + +=over 4 + +=item $r - request object [in] - The Apache request being executed. + +=item $fn = string [in] - The filename being manipulated by the + request. + +=item $uname - string [in] Name of user logged in and doing this action. + +=item $udom - string [in] Domain nmae under which the user logged in. + +=back + +=cut + +sub phaseone { + my ($r,$fn,$uname,$udom)=@_; + + $fn=~m:(.*)/([^/]+)\.(\w+)$:; + my $dir=$1; + my $main=$2; + my $suffix=$3; + + # my $conspace=ConstructionPathFromRelative($uname, $fn); + + + $r->print(''); + } + } elsif ($ENV{'form.action'} eq 'newdir') { + &NewDir1($r, $uname, $dir, $ENV{'form.newfilename'}); + } + +} + +=pod + +=item Rename2($request, $user, $directory, $oldfile, $newfile) + +Performs phase 2 procesing of a rename reequest. This is where the +actual rename is performed. + +Parameters + +=over 4 + +=item $request - Apache request object [in] The request being processed. + +=item $user - string [in] The name of the user initiating the request. + +=item $directory - string [in] The name of the directory relative to the + construction space top level of the renamed file. + +=item $oldfile - Name of the file. + +=item $newfile - Name of the new file. + +=back + +Returns: + +=over 4 + +=item 1 Success. + +=item 0 Failure. + +=cut + +sub Rename2 { + + my ($request, $user, $directory, $oldfile, $newfile) = @_; + + &Debug($request, "Rename2 directory: ".$directory." old file: ".$oldfile. + " new file ".$newfile."\n"); + &Debug($request, "Target is: ".$directory.'/'. + $newfile); + + if(-e $oldfile) { + unless(rename($oldfile, + $directory.'/'.$newfile)) { + $request->print('Error: '.$!.''); + return 0; + } else {} + } else { + $request->print("No such file: /home".$user.'/public_html'. + $oldfile.'
'); + return 0; + } + return 1; +} +=pod + +=item Delete2($request, $user, $filename) + + Performs phase two of a delete. The user has confirmed that they want +to delete the selected file. The file is deleted and the results of the +delete attempt are indicated. + +Parameters: + +=over 4 + +=item $request - Apache Request object [in] the request object for the current + delete operation. + +=item $user - string [in] The name of the user initiating the delete + request. + +=item $filename - string [in] The name of the file, relative to construction space, + to delete. + +=back + +Returns: + 1 - success. + 0 - Failure. + +=cut + +sub Delete2 { + my ($request, $user, $filename) = @_; + + if(-e $filename) { + unless(unlink($filename)) { + $request->print('Error: '.$!.''); + return 0; } - $r->print(''); - $r->print(''); + } else { + $request->print('No such file. print(' Error: '.$!.''); + return 0; + } else { + return 1; + } + } else { + $request->print('
No such file
'); + return 0; + } + return 1; +} +=pod + +=item NewDir2($request, $user, $newdirectory) + + Performs phase 2 processing of directory creation. This involves creating the directory and + reporting the results of that creation to the user. + +Parameters: +=over 4 + +=item $request - Apache request object [in]. Object representing the current HTTP request. + +=item $user - string [in] The name of the user that is initiating the request. + +=item $newdirectory - string [in] The full path of the directory being created. + +=back + +Returns 0 - failure 1 - success. + +=cut + +sub NewDir2 { + my ($request, $user, $newdirectory) = @_; + + unless(mkdir($newdirectory, 02770)) { + $request->print('Error: '.$!.''); + return 0; + } + unless(chmod(02770, ($newdirectory))) { + $request->print(' Error: '.$!.''); + return 0; + } + return 1; } +=pod + +=item phasetwo($r, $fn, $uname, $udom) + + Controls the phase 2 processing of file management + requests for construction space. In phase one, the user + was asked to confirm the operation. In phase 2, the operation + is performed and the result is shown. + + The strategy is to break out the processing into specific action processors + named action2 where action is the requested action and the 2 denotes + phase 2 processing. + +Parameters: + +=over 4 + +=item $r - Apache Request object [in] The request object for this httpd + transaction. + +=item $fn - string [in] A filename indicating the object that is being + manipulated. + +=item $uname - string [in] The name of the user initiating the file management + request. + +=item $udom - string [in] The login domain of the user initiating the + file management request. +=back + +=cut + sub phasetwo { my ($r,$fn,$uname,$udom)=@_; - + &Debug($r, "loncfile - Entering phase 2 for $fn"); - + + # Break down the file into it's component pieces. + $fn=~/(.*)\/([^\/]+)\.(\w+)$/; - my $dir=$1; - my $main=$2; - my $suffix=$3; - $dir =~ s-^/[^/]*/[^/]*/[^/]*--; + my $dir=$1; # Directory path + my $main=$2; # Filename. + my $suffix=$3; # Extension. + my $dest; # On success this is where we'll go. - &Debug($r, "loncfile::phase2 dir = $dir main = $main suffix = $suffix"); + &Debug($r, + "loncfile::phase2 dir = $dir main = $main suffix = $suffix"); + &Debug($r, + " newfilename = ".$ENV{'form.newfilename'}); my $conspace=$fn; - - &Debug($r, "loncfile::phase2 Full construction space name: $conspace"); - - &Debug($r, "loncfie::phase2 action is $ENV{'form.action'}"); - - if ($ENV{'form.action'} eq 'rename') { - if (-e $conspace) { - if ($ENV{'form.newfilename'}) { - unless (rename($fn, - '/home/'.$uname.'/public_html'.$dir.'/'.$ENV{'form.newfilename'})) { - $r->print('Error: '.$!.''); - } - } - } else { - $r->print('No such file.'); - return; - } + + &Debug($r, + "loncfile::phase2 Full construction space name: $conspace"); + + &Debug($r, + "loncfie::phase2 action is $ENV{'form.action'}"); + + # Select the appropriate processing sub. + + if ($ENV{'form.action'} eq 'rename') { # Rename. + if($ENV{'form.newfilename'}) { + if(!&Rename2($r, $uname, $dir, $fn, $ENV{'form.newfilename'})) { + return; + } + # Prepend the directory to the new name to form the basis of the + # url of the new resource. + # + $dest = $dir."/".$ENV{'form.newfilename'}; + } } elsif ($ENV{'form.action'} eq 'delete') { - if (-e $conspace) { - unless (unlink($fn)) { - $r->print('Error: '.$!.''); - } - } else { - $r->print('
No such file.'); - return; - } + if(!&Delete2($r, $uname, $ENV{'form.newfilename'})) { + return ; + } + # Once a resource is deleted, we just list the directory that + # previously held it. + # + $dest = $dir."/"; # Parent dir. } elsif ($ENV{'form.action'} eq 'copy') { - if (-e $conspace) { - if ($ENV{'form.newfilename'}) { - unless (copy($fn, - '/home/'.$uname.'/public_html'.$dir.'/'.$ENV{'form.newfilename'})) { - $r->print('Error: '.$!.''); - } - } else { - $r->print('
No new filename specified.'); - return; - } - } else { - $r->print('
No such file.'); - return; - } + if($ENV{'form.newfilename'}) { + if(!&Copy2($r, $uname, $dir, $fn, $ENV{'form.newfilename'})) { + return + } + $dest = $ENV{'form.newfilename'}; + + } else { + $r->print('
No New filename specified'); + return; + } + } elsif ($ENV{'form.action'} eq 'newdir') { + # + # Since the newfilename form field is construction space + # relative, ew need to prepend the current path; now in $fn. + # my $newdir= $fn.$ENV{'form.newfilename'}; - - &Debug($r, "loncfile::phasetwo - new directory name: $newdir"); - - unless (mkdir($newdir,0770)) { - $r->print('Error: '.$!.''); - &Debug($r, "loncfile::phasetwo - mkdir failed $!"); - } - &Debug($r, "Done button: uname = $uname, dir = $dir, fn = $fn"); - my $url = '/priv/'.$uname.$newdir.'/'; - &Debug($r, "URL[1] = ".$url); - $url =~ s/\/home\/$uname\/public_html//o; - &Debug($r, "URL = ".$url); - - $r->print('