src/util/shbat/l4get.bat

   1 @echo off\r
   2 iff exist %* then\r
   3         del %*\r
   4 endiff\r
   5 setlocal\r
   6 set url="138.47.241.187"\r
   7 rem for %@eval[%#+1] in (%*) do (\r
   8 rem for %# in (1,1,%*) do (\r
   9 :loop\r
  10         set /a o=0\r
  11 :oooo\r
  12         set /a q=%@EVAL[%@LEN[%1] - 4]\r
  13         set w=%@INSTR[0,%q,%1]\r
  14         iff NOT "%w" == "" then\r
  15         set /a o=%o+1\r
  16         set y=%w.z%o\r
  17 rem      echo y=%y\r
  18         if %o lt 100 (\r
  19                 if %o lt 10 (\r
  20                         set z=00%o\r
  21                 ) else (\r
  22                         set z=0%o\r
  23                 ) endif\r
  24         ) else if %o gt 99 (\r
  25                 set z=%o\r
  26         ) endif\r
  27 \r
  28         htget http://%url/%1.zip.%z > %y\r
  29 rem     pause\r
  30         iff NOT "%@FILESIZE[%y,b]" == "0" then\r
  31                 type %y >> %w.zip\r
  32                 iff "%@FILESIZE[%y,b]" == "65536" then\r
  33 rem                             echo o=%o\r
  34                         goto oooo\r
  35                 endiff\r
  36                 iff NOT "%#" == "0" then\r
  37                         shift /1\r
  38                         iff exist %w.zip then\r
  39                                 unzip %w.zip\r
  40                                 del %w.z*\r
  41                         endiff\r
  42                         goto loop\r
  43                 else\r
  44                         del %#\r
  45                 endiff\r
  46         else\r
  47                 del %y\r
  48                 echo Error null zip file wwww\r
  49         endiff\r
  50         else\r
  51                 rem del %y.z*\r
  52                 rem need to add a cleaner wwww\r
  53                 echo done~ wwww\r
  54         endiff\r
  55 rem  echo y="%y"\r
  56 rem  echo q=%q\r
  57 rem  echo o=%o\r
  58 rem  echo w=%w\r
  59 rem  echo %%1=%1\r
  60 endlocal\r