/*
// This file is a part of the TMI distribution mudlib.
// Please retain this header if you use this code.
// Coded by Grog (10/15/91 - 11/03/91)
// Added to the /bin structure by Buddha (1/18/91)
// Help added by Brian (1/28/92)
// Single arg cp added by Scythe@Dead Souls (1/25/93)
// Bug in single arg cp fixed by Pallando (5/26/93)
// Added wild card support by Brodbane@Eve (4/3/06)
*/
#include <lib.h>
inherit LIB_DAEMON;
int help();
string rmSlash(string str) { return replace_string(str,"//","/"); }
int cmd(string str) {
string line;
string file1;
string file2;
int localdest;
string * files;
int ow;
if(this_player()->GetForced()) {
write("Someone has tried forcing you to cp " + str);
return 1;
}
localdest = 0; /* Assume it's not a local destination */
if (!str || sscanf(str, "%s %s", file1, file2) != 2) {
if (str && sscanf(str, "%s", file1)) {
file2 = ""; // Check to see if it's a one arg
localdest = 1; // cp function. Assume localdest.
} else {
help();
return 1;
}
}
if( str && sscanf( str, "-o %s", str)) ow = 1;
/* check for last parameter == "." */
if (file2 == ".") {
localdest = 1; /* It's a local destination */
file2 = "";
}
/* Given the player's current working directory and the path(s)
for the file, construct the new full path for both files */
file1 = absolute_path(this_player()->query_cwd(), file1);
file2 = absolute_path(this_player()->query_cwd(), file2);
/* Added by Brodbane to handle wild card options, 3/3/06 */
if( !sizeof( files = wild_card( file1 ) ) )
files = ({ file1 });
if( sizeof(files) > 1 )
{
switch( file_size(file2) )
{
case -1:
this_player()->eventForce("mkdir "+file2);
break;
case -2:
break;
default:
return(write("Cannot copy wild card to a single file."),1);
}
}
foreach( string file in files ) {
string dest = (file_size(file2)==-2 ? rmSlash(file2+"/"+
explode( file, "/")[<1]) : file2 );
if( file_size( file ) == -2 ) {
localdest = 1;
if( sizeof(files) > 1 )
continue;
else write( "cp: "+file+" is a directory." );
}
else if( file_size(file) < 1 ) { write( "cp: couldn't find "+file ); }
else if( file == dest ) write( "cp: You cant copy a file on to itself!" );
else if( file_size(dest) > 0 && !ow && !sscanf(dest, "%*s.save" )) write( "cp: "+dest+" already exists." );
else if( !master()->valid_read( file, this_player(), "cp" ) ) write( file+": Permission denied." );
else if( !master()->valid_write( dest, this_player(), "cp" ) ) write( dest+": Permission denied." );
else {
write_file( dest, read_file(file), 1 );
write( "Copied: "+file+" to "+dest );
}
}
return 1;
}
int
help() {
message("help", "Command: cp\nSyntax: cp <oldfile> [pathname]<newfile>\n"
"This command makes a copy of the file using the new name "
"and location passed. If a new pathname is not specified "
"then the copy is put into the present working directory."
"Optionally, wild cards can be used by employing the * operator.",
this_player());
return 1;
}
/* EOF */
