Code / Perl / .fishsrv.pl

  1. #!/usr/bin/perl
  2. =pod
  3. This file was transferred by kio_fish, a network client part of the
  4. KDE project. You may safely delete it, it will be transferred again
  5. when needed. It's only purpose is to make kio_fish access faster and
  6. more reliable.
  7. =cut
  8. use Fcntl;
  9. $|++;
  10. #open(DEBUG,">/tmp/kio_fish.debug.$$.log");
  11. if (defined $code) {
  12. unlink('.fishsrv.pl');
  13. sysopen(FH,'.fishsrv.pl',O_WRONLY|O_CREAT|O_EXCL);
  14. print FH $code;
  15. close(FH);
  16. chmod(0444,'.fishsrv.pl');
  17. } elsif ($ARGV[0] ne "abcc4c517321c96aa2184bf291d3dcb7") {
  18. $|=1;
  19. print "### 100 transfer fish servern";
  20. while(<STDIN>) {
  21. last">last if /^__END__/;
  22. $code.=$_;
  23. }
  24. exit(eval($code));
  25. }
  26. print "### 200n";
  27. use strict;
  28. use POSIX qw(getcwd dup2 strftime);
  29. $SIG{'CHLD'} = 'IGNORE';
  30. $| = 1;
  31. MAIN: while (<STDIN>) {
  32. chomp;
  33. chomp;
  34. next">next if !length($_) || substr($_,0,1) ne '#';
  35. #print DEBUG "$_n";
  36. s/^#//;
  37. /^VER / && do {
  38. print "VER 0.0.3 copy lscount lslinks lsmime exec statn### 200n";
  39. next">next;
  40. };
  41. /^PWD$/ && do {
  42. print getcwd(),"n### 200n";
  43. next">next;
  44. };
  45. /^SYMLINKs+((?:\.|[^\])*?)s+((?:\.|[^\])*?)s*$/ && do {
  46. my">my $ofn = unquote($1);
  47. my">my $fn = unquote($2);
  48. print (symlink($ofn,$fn)?"### 200n":"### 500 $!n");
  49. next">next;
  50. };
  51. /^COPYs+((?:\.|[^\])*?)s+((?:\.|[^\])*?)s*$/ && do {
  52. my">my $ofn = unquote($1);
  53. my">my $fn = unquote($2);
  54. my">my ($size) = (stat($ofn))[7];
  55. my">my $read = 1;
  56. if (-l $ofn) {
  57. my">my $dest = readlink($ofn);
  58. unlink($fn);
  59. symlink($dest,$fn) || ($read = 0);
  60. } else {
  61. sysopen(FH,$ofn,O_RDONLY) || do { print "### 500 $!n"; next">next; };
  62. sysopen(OFH,$fn,O_WRONLY|O_CREAT|O_TRUNC) || do { close(FH); print "### 500 $!n"; next">next; };
  63. local $/ = undef;
  64. my">my $buffer = '';
  65. while ($size > 32768 && ($read = sysread(FH,$buffer,32768)) > 0) {
  66. $size -= $read;
  67. if (syswrite(OFH,$buffer,$read) != $read) {
  68. close(FH); close(OFH);
  69. print "### 500 $!n";
  70. next MAIN;
  71. }
  72. }
  73. while ($size > 0 && ($read = sysread(FH,$buffer,$size)) > 0) {
  74. $size -= $read;
  75. if (syswrite(OFH,$buffer,$read) != $read) {
  76. close(FH); close(OFH);
  77. print "### 500 $!n";
  78. next MAIN;
  79. }
  80. }
  81. close(FH);
  82. close(OFH);
  83. }
  84. if ($read > 0) {
  85. print "### 200n";
  86. } else {
  87. print "### 500 $!n";
  88. }
  89. next;
  90. };
  91. /^LINKs+((?:\.|[^\])*?)s+((?:\.|[^\])*?)s*$/ && do {
  92. my $ofn = unquote($1);
  93. my $fn = unquote($2);
  94. print (link($ofn,$fn)?"### 200n":"### 500 $!n");
  95. next;
  96. };
  97. /^RENAMEs+((?:\.|[^\])*?)s+((?:\.|[^\])*?)s*$/ && do {
  98. my $ofn = unquote($1);
  99. my $fn = unquote($2);
  100. print (rename($ofn,$fn)?"### 200n":"### 500 $!n");
  101. next;
  102. };
  103. /^CHGRPs+(d+)s+((?:\.|[^\])*?)s*$/ && do {
  104. my $fn = unquote($2);
  105. print (chown(-1,int($1),$fn)?"### 200n":"### 500 $!n");
  106. next;
  107. };
  108. /^CHOWNs+(d+)s+((?:\.|[^\])*?)s*$/ && do {
  109. my $fn = unquote($2);
  110. print (chown(int($1),-1,$fn)?"### 200n":"### 500 $!n");
  111. next;
  112. };
  113. /^CHMODs+([0-7]+)s+((?:\.|[^\])*?)s*$/ && do {
  114. my $fn = unquote($2);
  115. print (chmod(oct($1),$fn)?"### 200n":"### 500 $!n");
  116. next;
  117. };
  118. /^DELEs+((?:\.|[^\])*?)s*$/ && do {
  119. my $fn = unquote($1);
  120. print (unlink($fn)?"### 200n":"### 500 $!n");
  121. next;
  122. };
  123. /^RMDs+((?:\.|[^\])*?)s*$/ && do {
  124. my $dn = unquote($1);
  125. print (rmdir($dn)?"### 200n":"### 500 $!n");
  126. next;
  127. };
  128. /^MKDs+((?:\.|[^\])*?)s*$/ && do {
  129. my $dn = unquote($1);
  130. if (mkdir($dn,0777)) {
  131. print "### 200n";
  132. } else {
  133. my $err = $!;
  134. print (chdir($dn)?"### 501 $errn":"### 500 $errn");
  135. }
  136. next;
  137. };
  138. /^CWDs+((?:\.|[^\])*?)s*$/ && do {
  139. my $dn = unquote($1);
  140. print (chdir($dn)?"### 200n":"### 500 $!n");
  141. next;
  142. };
  143. /^LISTs+((?:\.|[^\])*?)s*$/ && do {
  144. list($1, 1);
  145. next;
  146. };
  147. /^STATs+((?:\.|[^\])*?)s*$/ && do {
  148. list($1, 0);
  149. next;
  150. };
  151. /^WRITEs+(d+)s+(d+)s+((?:\.|[^\])*?)s*$/ && do {
  152. write_loop($2,$3,O_WRONLY|O_CREAT,$1);
  153. next;
  154. };
  155. /^APPENDs+(d+)s+((?:\.|[^\])*?)s*$/ && do {
  156. write_loop($1,$2,O_WRONLY|O_APPEND);
  157. next;
  158. };
  159. /^STORs+(d+)s+((?:\.|[^\])*?)s*$/ && do {
  160. write_loop($1,$2,O_WRONLY|O_CREAT|O_TRUNC);
  161. next;
  162. };
  163. /^RETRs+((?:\.|[^\])*?)s*$/ && do {
  164. read_loop($1);
  165. next;
  166. };
  167. /^READs+(d+)s+(d+)s+((?:\.|[^\])*?)s*$/ && do {
  168. read_loop($3,$2,$1);
  169. next;
  170. };
  171. /^EXECs+((?:\.|[^\])*?)s+((?:\.|[^\])*?)s*$/ && do {
  172. my $tempfile = unquote($2);
  173. my $command = unquote($1);
  174. $command = $command . ";echo "###RESULT: $?"";
  175. print("### 500 $!n"), next
  176. if (!sysopen(FH,$tempfile,O_CREAT|O_EXCL|O_WRONLY,0600));
  177. my $pid = fork();
  178. print("### 500 $!n"), next
  179. if (!defined $pid);
  180. if ($pid == 0) {
  181. open(STDOUT,'>>&FH');
  182. open(STDERR,'>>&FH');
  183. open(STDIN,'</dev/null'); # not sure here, ms windows anyone?
  184. exec('/bin/sh','-c',$command);
  185. print STDERR "Couldn't exec /bin/sh: $!n";
  186. exit(255);
  187. }
  188. waitpid($pid,0);
  189. close(FH);
  190. print "### 200n";
  191. next">next;
  192. };
  193. }
  194. exit(0);
  195. sub list {
  196. my">my $dn = unquote($_[0]);
  197. my">my @entries;
  198. if (!-e $dn) {
  199. print "### 404 File does not existn";
  200. return;
  201. } elsif ($_[1] && -d _) {
  202. opendir(DIR,$dn) || do { print "### 500 $!n"; return; };
  203. @entries = readdir(DIR);
  204. closedir(DIR);
  205. } else {
  206. ($dn, @entries) = $dn =~ m{(.*)/(.*)};
  207. $dn = '/' if (!length($dn));
  208. }
  209. print scalar(@entries),"n### 100n";
  210. my">my $cwd = getcwd();
  211. chdir($dn) || do { print "### 500 $!n"; return; };
  212. foreach (@entries) {
  213. my">my $link = readlink;
  214. my">my ($mode,$uid,$gid,$size,$mtime) = (lstat)[2,4,5,7,9];
  215. print filetype($mode,$link,$uid,$gid);
  216. print "S$sizen";
  217. print strftime("D%Y %m %d %H %M %Sn",localtime($mtime));
  218. print ":$_n";
  219. print "L$linkn" if defined $link;
  220. print mimetype($_);
  221. print "n";
  222. }
  223. chdir($cwd);
  224. print "### 200n";
  225. }
  226. sub read_loop {
  227. my">my $fn = unquote($_[0]);
  228. my">my ($size) = ($_[1]?int($_[1]):(stat($fn))[7]);
  229. my">my $error = '';
  230. print "### 501 Is directoryn" and return if -d $fn;
  231. sysopen(FH,$fn,O_RDONLY) || ($error = $!);
  232. if ($_[2]) {
  233. sysseek(FH,int($_[2]),0) || do { close(FH); $error ||= $!; };
  234. }
  235. print "### 500 $errorn" and return if $error;
  236. if (@_ < 2) {
  237. print "$sizen";
  238. }
  239. print "### 100n";
  240. my $buffer = '';
  241. my $read = 1;
  242. while ($size > 32768 && ($read = sysread(FH,$buffer,32768)) > 0) {
  243. #print DEBUG "$size left, $read readn";
  244. $size -= $read;
  245. print $buffer;
  246. }
  247. while ($size > 0 && ($read = sysread(FH,$buffer,$size)) > 0) {
  248. #print DEBUG "$size left, $read readn";
  249. $size -= $read;
  250. print $buffer;
  251. }
  252. while ($size > 0) {
  253. print ' ';
  254. $size--;
  255. }
  256. $error ||= $! if $read <= 0;
  257. close(FH);
  258. if (!$error) {
  259. print "### 200n";
  260. } else {
  261. print "### 500 $errorn";
  262. }
  263. }
  264. sub write_loop {
  265. my $size = int($_[0]);
  266. my $fn = unquote($_[1]);
  267. #print DEBUG "write_loop called $size size, $fn fn, $_[2]n";
  268. my $error = '';
  269. sysopen(FH,$fn,$_[2]) || do { print "### 400 $!n"; return; };
  270. eval { flock(FH,2); };
  271. if ($_[3]) {
  272. sysseek(FH,int($_[3]),0) || do { close(FH);print "### 400 $!n"; return; };
  273. }
  274. <STDIN>;
  275. print "### 100n";
  276. my $buffer = '';
  277. my $read = 1;
  278. while ($size > 32768 && ($read = read(STDIN,$buffer,32768)) > 0) {
  279. #print DEBUG "$size left, $read readn";
  280. $size -= $read;
  281. $error ||= $! if (syswrite(FH,$buffer,$read) != $read);
  282. }
  283. while ($size > 0 && ($read = read(STDIN,$buffer,$size)) > 0) {
  284. #print DEBUG "$size left, $read readn";
  285. $size -= $read;
  286. $error ||= $! if (syswrite(FH,$buffer,$read) != $read);
  287. }
  288. close(FH);
  289. if (!$error) {
  290. print "### 200n";
  291. } else {
  292. print "### 500 $errorn";
  293. }
  294. }
  295. sub unquote { $_ = shift; s/\(.)/$1/g; return $_; }
  296. sub filetype {
  297. my ($mode,$link,$uid,$gid) = @_;
  298. my $result = 'P';
  299. while (1) {
  300. -f _ && do { $result .= '-'; last; };
  301. -d _ && do { $result .= 'd'; last; };
  302. defined($link) && do { $result .= 'l'; last; };
  303. -c _ && do { $result .= 'c'; last; };
  304. -b _ && do { $result .= 'b'; last; };
  305. -S _ && do { $result .= 's'; last; };
  306. -p _ && do { $result .= 'p'; last; };
  307. $result .= '?'; last;
  308. }
  309. $result .= ($mode & 0400?'r':'-');
  310. $result .= ($mode & 0200?'w':'-');
  311. $result .= ($mode & 0100?($mode&04000?'s':'x'):($mode&04000?'S':'-'));
  312. $result .= ($mode & 0040?'r':'-');
  313. $result .= ($mode & 0020?'w':'-');
  314. $result .= ($mode & 0010?($mode&02000?'s':'x'):($mode&02000?'S':'-'));
  315. $result .= ($mode & 0004?'r':'-');
  316. $result .= ($mode & 0002?'w':'-');
  317. $result .= ($mode & 0001?($mode&01000?'t':'x'):($mode&01000?'T':'-'));
  318. $result .= ' ';
  319. $result .= (getpwuid($uid)||$uid);
  320. $result .= '.';
  321. $result .= (getgrgid($gid)||$gid);
  322. $result .= "n";
  323. return $result;
  324. }
  325. sub mimetype {
  326. my $fn = shift;
  327. return "Minode/directoryn" if -d $fn;
  328. pipe(IN,OUT);
  329. my $pid = fork();
  330. return '' if (!defined $pid);
  331. if ($pid) {
  332. close(OUT);
  333. my $type = <IN>;
  334. close(IN);
  335. chomp $type;
  336. chomp $type;
  337. $type =~ s/[,; ].*//;
  338. return '' if ($type !~ m///);
  339. return "M$typen"
  340. }
  341. close(IN);
  342. sysopen(NULL,'/dev/null',O_RDWR);
  343. dup2(fileno(NULL),fileno(STDIN));
  344. dup2(fileno(OUT),fileno(STDOUT));
  345. dup2(fileno(NULL),fileno(STDERR));
  346. exec('/usr/bin/file','-i','-b','-L',$fn);
  347. exit(0);
  348. }
  349.  

Download as Text : January 6th, 2009