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 / clients / checkmedia.ycp < prev    next >
Text File  |  2006-11-29  |  931b  |  50 lines
  1. /**
  2.  * File:
  3.  *   clients/checkmedia.ycp
  4.  *
  5.  * Summary:
  6.  *   Client for checkig media integrity
  7.  *
  8.  * Authors:
  9.  *   Ladislav Slezak <lslezak@suse.cz>
  10.  *
  11.  * $Id: checkmedia.ycp 27936 2006-02-13 20:01:14Z olh $
  12.  *
  13.  */
  14.  
  15. {
  16.  
  17.     textdomain "packager";
  18.  
  19.     import "CommandLine";
  20.  
  21.     include "checkmedia/ui.ycp";
  22.  
  23.     /* The main () */
  24.     y2milestone ("Checkmedia module started");
  25.     y2milestone ("----------------------------------------");
  26.     y2milestone ("arguments: %1", WFM::Args());
  27.  
  28.     /* main ui function */
  29.     any ret = nil;
  30.  
  31.     /**
  32.      * Command line definition - minimal command line support
  33.      */
  34.     map cmdline = $[
  35.     // module description
  36.     "help"      : _("Check CD or DVD media integrity"),
  37.     "id"        : "checkmedia",
  38.     "guihandler": MainSequence,
  39.     ];
  40.  
  41.  
  42.     ret = CommandLine::Run(cmdline);
  43.  
  44.     y2debug("ret == %1", ret);
  45.  
  46.     /* Finish */
  47.     y2milestone ("Checkmedia module finished");
  48.     return ret;
  49. }
  50.