home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 6.1.064 < prev    next >
Encoding:
Internet Message Format  |  2002-05-14  |  16.9 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.1.064
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. MIME-Version: 1.0
  6. Content-Type: text/plain; charset=ISO-8859-1
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 6.1.064
  11. Problem:    The URLs that the netrw plugin recognized for ftp and rcp did not
  12.         conform to the standard method://[user@]host[:port]/path.
  13. Solution:   Use ftp://[user@]host[[:#]port]/path, which supports both the new
  14.         and the previous style.  Also added a bit of dav/cadaver support.
  15.         (Charles Campbell)
  16. Files:        runtime/plugin/netrw.vim
  17.  
  18.  
  19. *** ../vim61.063/runtime/plugin/netrw.vim    Fri Feb  8 16:50:03 2002
  20. --- runtime/plugin/netrw.vim    Tue May 14 21:40:49 2002
  21. ***************
  22. *** 1,13 ****
  23.   " netrw.vim: (global plugin) Handles file transfer across a network
  24. ! " Last Change:    Jan 4, 2002
  25.   " Maintainer:    Charles E. Campbell, Jr. PhD   <cec@NgrOyphSon.gPsfAc.nMasa.gov>
  26. ! " Version:    2.20
  27.   
  28.   " Credits:
  29.   "  Vim editor   by Bram Moolenaar (Thanks, Bram!)
  30.   "  rcp, ftp support by C Campbell <cec@NgrOyphSon.gPsfAc.nMasa.gov>
  31.   "  scp  support by raf            <raf@comdyn.com.au>
  32.   "  http support by Bram Moolenaar <bram@moolenaar.net>
  33.   "  inputsecret(), BufReadCmd, BufWriteCmd contributed by C Campbell
  34.   
  35.   " Debugging:
  36. --- 1,14 ----
  37.   " netrw.vim: (global plugin) Handles file transfer across a network
  38. ! " Last Change:    Apr 16, 2002
  39.   " Maintainer:    Charles E. Campbell, Jr. PhD   <cec@NgrOyphSon.gPsfAc.nMasa.gov>
  40. ! " Version:    22
  41.   
  42.   " Credits:
  43.   "  Vim editor   by Bram Moolenaar (Thanks, Bram!)
  44.   "  rcp, ftp support by C Campbell <cec@NgrOyphSon.gPsfAc.nMasa.gov>
  45.   "  scp  support by raf            <raf@comdyn.com.au>
  46.   "  http support by Bram Moolenaar <bram@moolenaar.net>
  47. + "  dav  support by C Campbell
  48.   "  inputsecret(), BufReadCmd, BufWriteCmd contributed by C Campbell
  49.   
  50.   " Debugging:
  51. ***************
  52. *** 32,54 ****
  53.   "      up the file.
  54.   
  55.   " Reading:
  56. ! " :Nread ?                give help
  57. ! " :Nread "machine:file"            uses rcp
  58. ! " :Nread "machine file"            uses ftp with <.netrc>
  59. ! " :Nread "machine id password file"    uses ftp
  60. ! " :Nread "ftp://machine[#port]/file"    uses ftp  (autodetects <.netrc>)
  61. ! " :Nread "http://[user@]machine/file"    uses http (wget)
  62. ! " :Nread "rcp://machine/file"        uses rcp
  63. ! " :Nread "scp://[user@]machine/file"    uses scp
  64.   
  65.   " Writing:
  66. ! " :Nwrite ?                give help
  67. ! " :Nwrite "machine:file"        uses rcp
  68. ! " :Nwrite "machine file"        uses ftp with <.netrc>
  69. ! " :Nwrite "machine id password file"    uses ftp
  70. ! " :Nwrite "ftp://machine[#port]/file"    uses ftp  (autodetects <.netrc>)
  71. ! " :Nwrite "rcp://machine/file"        uses rcp
  72. ! " :Nwrite "scp://[user@]machine/file"    uses scp
  73.   " http: not supported!
  74.   
  75.   " User And Password Changing:
  76. --- 33,57 ----
  77.   "      up the file.
  78.   
  79.   " Reading:
  80. ! " :Nread ?                    give help
  81. ! " :Nread "machine:file"                uses rcp
  82. ! " :Nread "machine file"                uses ftp   with <.netrc>
  83. ! " :Nread "machine id password file"        uses ftp
  84. ! " :Nread "ftp://[user@]machine[[:#]port]/file"    uses ftp   autodetects <.netrc>
  85. ! " :Nread "http://[user@]machine/file"        uses http  uses wget
  86. ! " :Nread "rcp://[user@]machine/file"        uses rcp
  87. ! " :Nread "scp://[user@]machine/file"        uses scp
  88. ! " :Nread "dav://machine[:port]/file"        uses cadaver
  89.   
  90.   " Writing:
  91. ! " :Nwrite ?                    give help
  92. ! " :Nwrite "machine:file"            uses rcp
  93. ! " :Nwrite "machine file"            uses ftp   with <.netrc>
  94. ! " :Nwrite "machine id password file"        uses ftp
  95. ! " :Nwrite "ftp://[user@]machine[[:#]port]/file"    uses ftp   autodetects <.netrc>
  96. ! " :Nwrite "rcp://[user@]machine/file"        uses rcp
  97. ! " :Nwrite "scp://[user@]machine/file"        uses scp
  98. ! " :Nwrite "dav://machine[:port]/file"        uses cadaver
  99.   " http: not supported!
  100.   
  101.   " User And Password Changing:
  102. ***************
  103. *** 111,126 ****
  104.    endif
  105.   endif
  106.   
  107. ! " Vimrc Support:
  108. ! " Auto-detection for ftp://*, rcp://*, scp://*, and http://*
  109.   " Should make file transfers across networks transparent.  Currently I haven't
  110.   " supported appends.  Hey, gotta leave something for <netrw.vim> version 3!
  111.   if version >= 600
  112.    augroup Network
  113.     au!
  114. !   au BufReadCmd        ftp://*,rcp://*,scp://*,http://* exe "Nread 0r " . expand("<afile>") | exe "doau BufReadPost " . expand("<afile>")
  115. !   au FileReadCmd    ftp://*,rcp://*,scp://*,http://* exe "Nread "     . expand("<afile>") | exe "doau BufReadPost " . expand("<afile>")
  116. !   au BufWriteCmd    ftp://*,rcp://*,scp://*         exe "Nwrite "     . expand("<afile>")
  117.    augroup END
  118.   endif
  119.   
  120. --- 114,129 ----
  121.    endif
  122.   endif
  123.   
  124. ! " Transparency Support:
  125. ! " Auto-detection for ftp://*, rcp://*, scp://*, http://*, and dav://*
  126.   " Should make file transfers across networks transparent.  Currently I haven't
  127.   " supported appends.  Hey, gotta leave something for <netrw.vim> version 3!
  128.   if version >= 600
  129.    augroup Network
  130.     au!
  131. !   au BufReadCmd        ftp://*,rcp://*,scp://*,http://*,dav://* exe "Nread 0r " . expand("<afile>") | exe "doau BufReadPost " . expand("<afile>")
  132. !   au FileReadCmd    ftp://*,rcp://*,scp://*,http://*,dav://* exe "Nread "     . expand("<afile>") | exe "doau BufReadPost " . expand("<afile>")
  133. !   au BufWriteCmd    ftp://*,rcp://*,scp://*,dav://*         exe "Nwrite "     . expand("<afile>")
  134.    augroup END
  135.   endif
  136.   
  137. ***************
  138. *** 172,184 ****
  139.      " Reconstruct Choice if choice starts with '"'
  140.      if match(choice,"?") == 0
  141.       echo "NetRead Usage:"
  142. !     echo ":Nread machine:file                  uses rcp"
  143. !     echo ':Nread "machine file"                uses ftp with <.netrc>'
  144. !     echo ':Nread "machine id password file"    uses ftp'
  145. !     echo ':Nread ftp://machine[#port]/file     uses ftp  (autodetects <.netrc>)'
  146. !     echo ":Nread http://[user@]machine/file    uses http (wget)"
  147. !     echo ":Nread rcp://machine/file            uses rcp"
  148. !     echo ":Nread scp://[user@]machine/file     uses scp"
  149.       break
  150.      elseif match(choice,"^\"") != -1
  151.   "    Decho "DBG: reconstructing choice"
  152. --- 175,188 ----
  153.      " Reconstruct Choice if choice starts with '"'
  154.      if match(choice,"?") == 0
  155.       echo "NetRead Usage:"
  156. !     echo ":Nread machine:path                      uses rcp"
  157. !     echo ':Nread "machine path"                    uses ftp   with <.netrc>'
  158. !     echo ':Nread "machine id password path"        uses ftp'
  159. !     echo ':Nread ftp://[user@]machine[:port]/path  uses ftp   autodetects <.netrc>'
  160. !     echo ":Nread http://[user@]machine/path        uses http  wget"
  161. !     echo ":Nread rcp://[user@]machine/path         uses rcp"
  162. !     echo ":Nread scp://[user@]machine/path         uses scp"
  163. !     echo ":Nread dav://machine[:port]/path         uses cadaver"
  164.       break
  165.      elseif match(choice,"^\"") != -1
  166.   "    Decho "DBG: reconstructing choice"
  167. ***************
  168. *** 291,302 ****
  169.     elseif     b:netrw_method  == 5    " read with http (wget)
  170.   "    Decho "DBG: read via http (method #5)"
  171.      if match(b:netrw_fname,"#") == -1
  172. !     exe "!wget http://" . g:netrw_machine . "/" . b:netrw_fname . " -O " . tmpfile
  173.       let result = s:NetGetFile(readcmd, tmpfile)
  174.      else
  175.       let netrw_html= substitute(b:netrw_fname,"#.*$","","")
  176.       let netrw_tag = substitute(b:netrw_fname,"^.*#","","")
  177. !     exe "!wget http://" . g:netrw_machine . "/" . netrw_html . " -O " . tmpfile
  178.       let result = s:NetGetFile(readcmd, tmpfile)
  179.       exe 'norm! 1G/<\s*a\s*name=\s*"'.netrw_tag.'"'
  180.      endif
  181. --- 295,306 ----
  182.     elseif     b:netrw_method  == 5    " read with http (wget)
  183.   "    Decho "DBG: read via http (method #5)"
  184.      if match(b:netrw_fname,"#") == -1
  185. !     exe "!wget -O " . tmpfile . " http://" . g:netrw_machine . "/" . b:netrw_fname
  186.       let result = s:NetGetFile(readcmd, tmpfile)
  187.      else
  188.       let netrw_html= substitute(b:netrw_fname,"#.*$","","")
  189.       let netrw_tag = substitute(b:netrw_fname,"^.*#","","")
  190. !     exe "!wget -O " . tmpfile . " http://" . g:netrw_machine . "/" . netrw_html
  191.       let result = s:NetGetFile(readcmd, tmpfile)
  192.       exe 'norm! 1G/<\s*a\s*name=\s*"'.netrw_tag.'"'
  193.      endif
  194. ***************
  195. *** 305,310 ****
  196. --- 309,328 ----
  197.      let b:netrw_lastfile = choice
  198.   
  199.     ".........................................
  200. +   " cadaver: Method #6
  201. +   elseif     b:netrw_method  == 6    " read with cadaver
  202. + "    Decho "DBG: read via cadaver (method #6)"
  203. +    if g:netrw_cygwin == 1
  204. +     let cygtmpfile=substitute(tmpfile,'^\(\a\):','//\1/','e')
  205. +     exe "!cadaver http://" . g:netrw_machine . "/" . b:netrw_fname . " " . cygtmpfile
  206. +    else
  207. + "    call Decho("DBG: !cadaver http://" . g:netrw_machine . "/" . b:netrw_fname . " " . tmpfile)
  208. +     exe "!cadaver http://" . g:netrw_machine . "/" . b:netrw_fname . " " . tmpfile
  209. +    endif
  210. +    let result = s:NetGetFile(readcmd, tmpfile)
  211. +    let b:netrw_lastfile = choice
  212. + 
  213. +   ".........................................
  214.     else " Complain
  215.      echo "***warning*** unable to comply with your request<" . choice . ">"
  216.     endif
  217. ***************
  218. *** 385,396 ****
  219.      " Reconstruct Choice if choice starts with '"'
  220.      if match(choice,"?") == 0
  221.       echo "NetWrite Usage:"
  222. !     echo ":Nwrite machine:file                  uses rcp"
  223. !     echo ":Nwrite \"machine file\"                uses ftp with <.netrc>"
  224. !     echo ":Nwrite \"machine id password file\"    uses ftp"
  225. !     echo ":Nwrite ftp://machine[#port]/file          uses ftp  (autodetects <.netrc>)"
  226. !     echo ":Nwrite rcp://machine/file          uses rcp"
  227. !     echo ":Nwrite scp://[user@]machine/file   uses scp"
  228.       break
  229.   
  230.      elseif match(choice,"^\"") != -1
  231. --- 403,415 ----
  232.      " Reconstruct Choice if choice starts with '"'
  233.      if match(choice,"?") == 0
  234.       echo "NetWrite Usage:"
  235. !     echo ":Nwrite machine:path                  uses rcp"
  236. !     echo ":Nwrite \"machine path\"                uses ftp with <.netrc>"
  237. !     echo ":Nwrite \"machine id password path\"    uses ftp"
  238. !     echo ":Nwrite ftp://machine[#port]/path          uses ftp  (autodetects <.netrc>)"
  239. !     echo ":Nwrite rcp://machine/path          uses rcp"
  240. !     echo ":Nwrite scp://[user@]machine/path   uses scp"
  241. !     echo ":Nwrite dav://[user@]machine/path   uses cadaver"
  242.       break
  243.   
  244.      elseif match(choice,"^\"") != -1
  245. ***************
  246. *** 475,480 ****
  247. --- 494,510 ----
  248.      endif
  249.      let b:netrw_lastfile = choice
  250.   
  251. +   ".........................................
  252. +   " dav: Method #6
  253. +   elseif     b:netrw_method == 6    " write with cadaver
  254. +    if g:netrw_cygwin == 1
  255. +     let cygtmpfile=substitute(tmpfile,'^\(\a\):','//\1/','e')
  256. +     exe "!cadaver " . cygtmpfile . " http://" . g:netrw_machine . "/" . b:netrw_fname
  257. +    else
  258. +     exe "!cadaver " . tmpfile . " http://" . g:netrw_machine . "/" . b:netrw_fname
  259. +    endif
  260. +    let b:netrw_lastfile = choice
  261. + 
  262.     else " Complain
  263.      echo "***warning*** unable to comply with your request<" . choice . ">"
  264.     endif
  265. ***************
  266. *** 513,518 ****
  267. --- 543,549 ----
  268.   "         3: ftp + machine, id, password, and [path]filename
  269.   "         4: scp
  270.   "         5: http (wget)
  271. + "         6: cadaver
  272.   function! s:NetMethod(choice)  " globals: method machine id passwd fname
  273.   "    Decho "DBG: NetMethod(a:choice<".a:choice.">) {"
  274.   
  275. ***************
  276. *** 523,550 ****
  277.    let g:netrw_port    = ""
  278.   
  279.    " Patterns:
  280. !  " mipf   : a:machine a:id password filename  Use ftp
  281. !  " mf      : a:machine filename              Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd
  282. !  " ftpurm : ftp://host[#port]/filename          Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd
  283. !  " rcpurm : rcp://host/filename              Use rcp
  284. !  " rcphf  : host:filename              Use rcp
  285. !  " scpurm : scp://[user@]host/filename          Use scp
  286. !  " httpurm: http://[user@]host/filename       Use wget
  287.    let mipf   = '\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)'
  288.    let mf     = '\(\S\+\)\s\+\(\S\+\)'
  289. !  let ftpurm = 'ftp://\([^/#]\{-}\)\(#\d\+\)\=/\(.*\)$'
  290. !  let rcpurm = 'rcp://\([^/]\{-}\)/\(.*\)$'
  291. !  let rcphf  = '\(\I\i*\):\(\S\+\)'
  292.    let scpurm = 'scp://\([^/]\{-}\)/\(.*\)$'
  293. !  let httpurm= 'http://\([^/]\{-}\)/\(.*\)$'
  294.   
  295.    " Determine Method
  296. !  " rcp://hostname/...path-to-file
  297.    if match(a:choice,rcpurm) == 0
  298.   "    Decho "DBG: NetMethod: rcp://..."
  299.     let b:netrw_method = 1
  300. !   let g:netrw_machine= substitute(a:choice,rcpurm,'\1',"")
  301. !   let b:netrw_fname  = substitute(a:choice,rcpurm,'\2',"")
  302.   
  303.    " scp://user@hostname/...path-to-file
  304.    elseif match(a:choice,scpurm) == 0
  305. --- 554,587 ----
  306.    let g:netrw_port    = ""
  307.   
  308.    " Patterns:
  309. !  " mipf   : a:machine a:id password filename        Use ftp
  310. !  " mf      : a:machine filename                      Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd
  311. !  " ftpurm : ftp://[user@]host[[#:]port]/filename    Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd
  312. !  " rcpurm : rcp://[user@]host/filename            Use rcp
  313. !  " rcphf  : [user@]host:filename            Use rcp
  314. !  " scpurm : scp://[user@]host/filename            Use scp
  315. !  " httpurm: http://[user@]host/filename            Use wget
  316. !  " davurm : dav://host[:port]/path                      Use cadaver
  317.    let mipf   = '\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)'
  318.    let mf     = '\(\S\+\)\s\+\(\S\+\)'
  319. !  let ftpurm = 'ftp://\([^/@]@\)\=\([^/#:]\{-}\)\([#:]\d\+\)\=/\(.*\)$'
  320. !  let rcpurm = 'rcp://\([^/@]@\)\=\([^/]\{-}\)/\(.*\)$'
  321. !  let rcphf  = '\([^@]\{-}@\)\=\(\I\i*\):\(\S\+\)'
  322.    let scpurm = 'scp://\([^/]\{-}\)/\(.*\)$'
  323. !  let httpurm= 'http://\([^/]\{-}\)\(/.*\)\=$'
  324. !  let davurm = 'dav://\([^/]\{-}\)/\(.*\)\=$'
  325.   
  326.    " Determine Method
  327. !  " rcp://user@hostname/...path-to-file
  328.    if match(a:choice,rcpurm) == 0
  329.   "    Decho "DBG: NetMethod: rcp://..."
  330.     let b:netrw_method = 1
  331. !   let userid         = substitute(a:choice,rcpurm,'\1',"")
  332. !   let g:netrw_machine= substitute(a:choice,rcpurm,'\2',"")
  333. !   let b:netrw_fname  = substitute(a:choice,rcpurm,'\3',"")
  334. !   if userid != ""
  335. !    let g:netrw_uid= userid
  336. !   endif
  337.   
  338.    " scp://user@hostname/...path-to-file
  339.    elseif match(a:choice,scpurm) == 0
  340. ***************
  341. *** 553,573 ****
  342.     let g:netrw_machine= substitute(a:choice,scpurm,'\1',"")
  343.     let b:netrw_fname  = substitute(a:choice,scpurm,'\2',"")
  344.   
  345. !  " http://hostname/...path-to-file
  346.    elseif match(a:choice,httpurm) == 0
  347.   "    Decho "DBG: NetMethod: http://..."
  348.     let b:netrw_method = 5
  349.     let g:netrw_machine= substitute(a:choice,httpurm,'\1',"")
  350.     let b:netrw_fname  = substitute(a:choice,httpurm,'\2',"")
  351.   
  352. !  " ftp://hostname/...path-to-file
  353.    elseif match(a:choice,ftpurm) == 0
  354.   "    Decho "DBG: NetMethod: ftp://..."
  355. !   let g:netrw_machine= substitute(a:choice,ftpurm,'\1',"")
  356. !   let g:netrw_port   = substitute(a:choice,ftpurm,'\2',"")
  357. !   let b:netrw_fname  = substitute(a:choice,ftpurm,'\3',"")
  358.     if g:netrw_port != ""
  359. !     let g:netrw_port = substitute(g:netrw_port,"#","","")
  360.     endif
  361.     if exists("g:netrw_uid") && exists("g:netrw_passwd")
  362.      let b:netrw_method = 3
  363. --- 590,620 ----
  364.     let g:netrw_machine= substitute(a:choice,scpurm,'\1',"")
  365.     let b:netrw_fname  = substitute(a:choice,scpurm,'\2',"")
  366.   
  367. !  " http://user@hostname/...path-to-file
  368.    elseif match(a:choice,httpurm) == 0
  369.   "    Decho "DBG: NetMethod: http://..."
  370.     let b:netrw_method = 5
  371.     let g:netrw_machine= substitute(a:choice,httpurm,'\1',"")
  372.     let b:netrw_fname  = substitute(a:choice,httpurm,'\2',"")
  373. +  
  374. +  " dav://hostname[:port]/..path-to-file..
  375. +  elseif match(a:choice,davurm) == 0
  376. +   let b:netrw_method= 6
  377. +   let g:netrw_machine= substitute(a:choice,davurm,'\1',"")
  378. +   let b:netrw_fname  = substitute(a:choice,davurm,'\2',"")
  379.   
  380. !  " ftp://[user@]hostname[[:#]port]/...path-to-file
  381.    elseif match(a:choice,ftpurm) == 0
  382.   "    Decho "DBG: NetMethod: ftp://..."
  383. !   let userid         = substitute(a:choice,ftpurm,'\1',"")
  384. !   let g:netrw_machine= substitute(a:choice,ftpurm,'\2',"")
  385. !   let g:netrw_port   = substitute(a:choice,ftpurm,'\3',"")
  386. !   let b:netrw_fname  = substitute(a:choice,ftpurm,'\4',"")
  387.     if g:netrw_port != ""
  388. !     let g:netrw_port = substitute(g:netrw_port,"[#:]","","")
  389. !   endif
  390. !   if userid != ""
  391. !    let g:netrw_uid= userid
  392.     endif
  393.     if exists("g:netrw_uid") && exists("g:netrw_passwd")
  394.      let b:netrw_method = 3
  395. ***************
  396. *** 589,596 ****
  397.    elseif match(a:choice,rcphf) == 0
  398.   "    Decho "DBG: NetMethod: (rcp) host:file"
  399.     let b:netrw_method = 1
  400. !   let g:netrw_machine= substitute(a:choice,rcphf,'\1',"")
  401. !   let b:netrw_fname  = substitute(a:choice,rcphf,'\2',"")
  402.     if has("win32")
  403.      " don't let PCs try <.netrc>
  404.      let b:netrw_method = 3
  405. --- 636,647 ----
  406.    elseif match(a:choice,rcphf) == 0
  407.   "    Decho "DBG: NetMethod: (rcp) host:file"
  408.     let b:netrw_method = 1
  409. !   let userid         = substitute(a:choice,rcphf,'\1',"")
  410. !   let g:netrw_machine= substitute(a:choice,rcphf,'\2',"")
  411. !   let b:netrw_fname  = substitute(a:choice,rcphf,'\3',"")
  412. !   if userid != ""
  413. !    let g:netrw_uid= userid
  414. !   endif
  415.     if has("win32")
  416.      " don't let PCs try <.netrc>
  417.      let b:netrw_method = 3
  418. *** ../vim61.063/src/version.c    Sun May 12 18:48:10 2002
  419. --- src/version.c    Wed May 15 20:31:14 2002
  420. ***************
  421. *** 608,609 ****
  422. --- 608,611 ----
  423.   {   /* Add new patch number below this line */
  424. + /**/
  425. +     64,
  426.   /**/
  427.  
  428. -- 
  429. hundred-and-one symptoms of being an internet addict:
  430. 13. You refer to going to the bathroom as downloading.
  431.  
  432.  ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
  433. ///   Creator of Vim -- http://vim.sf.net -- ftp://ftp.vim.org/pub/vim   \\\
  434. \\\           Project leader for A-A-P -- http://www.a-a-p.org           ///
  435.  \\\  Help me helping AIDS orphans in Uganda - http://iccf-holland.org  ///
  436.