pike.git
/
NT
/
tools
/
lib.pike
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/NT/tools/lib.pike:67:
array vars=({}); foreach(tmp/"\n",string var) if(search(var,"=")!=-1) vars+=({var}); cmd=vars+cmd; } string tmp=getcwd(); string mnt=getenv("NTMOUNT"); if(mnt && strlen(mnt)) tmp=replace(tmp,mnt,""); cmd=({getenv("NTDRIVE")+replace(tmp,"/","\\")})+cmd;
+
+
#if 1
+
/* Experimental */
+
if(mnt && strlen(mnt)>1)
+
{
+
for(int e=1;e<sizeof(cmd);e++)
+
cmd[e]=replace(cmd[e],mnt,getenv("NTDRIVE"));
+
}
+
#endif
+
if(!f->connect(getenv("NTHOST"),(int)getenv("NTPORT"))) { werror("Failed to connect "+strerror(errno())+".\n"); exit(1); } f->write(sprintf("%4c",sizeof(cmd))); for(int e=0;e<sizeof(cmd);e++) f->write(sprintf("%4c%s",strlen(cmd[e]),cmd[e]));