X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=febootstrap_cmdline.ml;h=902e313593a6e54890636a89fc5d3e5541db2885;hb=refs%2Ftags%2F3.8;hp=3ce10299111cee796151e20db9ecd54eb4501c35;hpb=66a9d53e48f14d7fe1d9f4b801a1c5582d83efa6;p=febootstrap.git

diff --git a/febootstrap_cmdline.ml b/febootstrap_cmdline.ml
index 3ce1029..902e313 100644
--- a/febootstrap_cmdline.ml
+++ b/febootstrap_cmdline.ml
@@ -24,6 +24,7 @@ let outputdir = ref "."
 let packages = ref []
 let verbose = ref false
 let warnings = ref true
+let yum_config = ref None
 
 let print_version () =
   printf "%s %s\n" Config.package_name Config.package_version;
@@ -32,6 +33,9 @@ let print_version () =
 let add_exclude re =
   excludes := Str.regexp re :: !excludes
 
+let set_yum_config str =
+  yum_config := Some str
+
 let argspec = Arg.align [
   "--exclude", Arg.String add_exclude,
     "regexp Exclude packages matching regexp";
@@ -49,6 +53,8 @@ let argspec = Arg.align [
     " Print package name and version, and exit";
   "--version", Arg.Unit print_version,
     " Print package name and version, and exit";
+  "--yum-config", Arg.String set_yum_config,
+    "file Set alternate yum configuration file";
 ]
 let anon_fn str =
   packages := str :: !packages
@@ -77,6 +83,8 @@ let excludes = List.rev !excludes
 let names_mode = !names_mode
 let outputdir = !outputdir
 let packages = List.rev !packages
+let verbose = !verbose
 let warnings = !warnings
+let yum_config = !yum_config
 
-let debug fs = ksprintf (fun str -> if !verbose then print_endline str) fs
+let debug fs = ksprintf (fun str -> if verbose then print_endline str) fs