home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / boot / i386 / root / usr / share / YaST2 / modules / FTP.ycp < prev    next >
Text File  |  2006-11-29  |  1KB  |  49 lines
  1. /**
  2.  * File:    modules/FTP.ycp
  3.  * Package: Transfer Protocols
  4.  * Summary: Handle FTP Requests
  5.  * Authors: Anas Nashif <nashif@suse.de>
  6.  * Flags:   Stable
  7.  *
  8.  * $Id: FTP.ycp 31241 2006-06-01 12:32:41Z locilka $
  9.  */
  10.  
  11. {
  12.  
  13. module "FTP";
  14.  
  15. global string user = "";
  16. global string password = "";
  17.  
  18. /**
  19.  * Send a get request
  20.  * @param url url in any standard form
  21.  * @param output file to save result to
  22.  * @return map Reponse map with HTTP code and transfer size and time
  23.  */
  24. global define map Get(string url, string output) ``{
  25.     y2debug("URL: %1", url);
  26.     map response = (map) SCR::Execute(.curl.get, url, $["output":output]);
  27.     return response;
  28. }
  29.  
  30. /**
  31.  * List FTP directory
  32.  */
  33. global define list Dir(string url) ``{
  34.  
  35.     map dir = (map) SCR::Execute(.curl.ftp.dir, url, $[]);
  36.     y2debug("returned string: %1", dir);
  37.  
  38.     if(size(dir) <= 0) {
  39.     y2error("Error while trying to list directory");
  40.     return [];
  41.     }
  42.  
  43.     return filter(string s, toset(splitstring(dir["output"]:"", "\r\n")), ``(s!="." && s!=".." && s!=""));
  44. }
  45.  
  46.  
  47. /* EOF */
  48. }
  49.