MODE/K
#usercommand
@script JScript
function OnClick(clickData)
{
var arg=clickData.func.args.MODE;
var Mode=arg;
var cmd = clickData.func.command,stb=cmd.sourcetab,dtb=cmd.desttab;
var d=DOpus,df=d.Create(),dt=df.Date(),fs=d.FSUtil();
cmd.deselect = false;var sl=stb.selected;cmd.ClearFailed();
if(cmd.files.count==0){return;}
var time2=dt.Format("D#yyyy-MM-dd-T#HH-mm-ss-")+dt.ms;
cmd.AddLine('@set time2='+time2);
var sp=stb.path,spf=sp.filepart,spp=sp.pathpart,dp=dtb.path;
cmd.AddLine('@set sp='+sp);
cmd.AddLine('@set spp='+spp);
cmd.AddLine('@set spf='+spf);
cmd.AddLine('@set dp='+dp);
var folders=df.Vector();folders.reserve(cmd.files.count);
for (var itms = new Enumerator(cmd.files);!itms.atEnd(); itms.moveNext()){
var x=itms.item();
if(x.is_dir){
folders.push_back(x);
}
}
cmd.ClearFiles();cmd.AddFiles(folders);if(cmd.files.count==0){return;}
if(Mode=="view"){
var upackednam="Upacked";
cmd.AddLine('DOpusRT /col create "'+upackednam+'"');
var upackedcp="coll:\/\/"+upackednam;
cmd.AddLine('@set upackedcp='+upackedcp);
cmd.AddLine('DOpusRT /col clear /full "{$upackedcp}"');
for (var itms = new Enumerator(cmd.files);!itms.atEnd(); itms.moveNext()){
var x=itms.item();
var itms2 = fs.ReadDir(""+x);
while (!itms2.complete){
var x2 = itms2.Next();
cmd.AddLine('Copy FILE="'+x2+'" TO="{$upackedcp}" COPYTOCOLL=member AUTOSELECT=yes');
}
}
cmd.AddLine('Go PATH="{$upackedcp}" NEWTAB=findexisting');
}else if(Mode=="unpack"){
var isdisk=!(stb.path.drive==0);
if (isdisk){
var hasparent=sp.test_parent;
for (var itms = new Enumerator(cmd.files),fdsn=df.StringSetI();!itms.atEnd(); itms.moveNext()){
var x=itms.item();
fdsn.insert(x.name);
}
var stbslchanged=false;
for (var itms = new Enumerator(cmd.files),slt=df.StringSetI();!itms.atEnd(); itms.moveNext()){
var x=itms.item();
var itms2 = fs.ReadDir(""+x);
while (!itms2.complete){
var x2 = itms2.Next(),x2name=x2.name;
slt.insert(x2name);
if(!stbslchanged && fdsn.exists(x2name)){
cmd.AddLine('Rename PATTERN="*" TO="{file$}{$time2}"');
stbslchanged=true;
}
}
}
if(!hasparent){
cmd.AddLine('Copy MOVE FILE="{filepath$}*" TO="{$sp}" AUTOSELECT=yes');
cmd.AddLine('Delete FILE="{filepath$}"');
}else{
cmd.AddLine('Copy MOVE TO="{$spp}" AS="{$spf}" WHENEXISTS=merge AUTOSELECT=yes');
}
for (var itms = new Enumerator(slt);!itms.atEnd(); itms.moveNext()){
var x=itms.item();
cmd.AddLine('Select PATTERN="'+x+'" EXACT');
}
}else if(!isdisk){
if(stb.lister.dual==0){return;}
if(dtb.path.drive==0){return;}
cmd.AddLine('Copy FILE="{filepath$}*" TO="{$dp}" AUTOSELECT=yes');
}
}
cmd.Run();//cmd.Clear();
}