Changeset 194

Timestamp:

02/08/05 20:16:21 (4 years ago)

Author:

athomas

Message:

Added on_change() trigger for %CONF variables.

Files:

• manage/trunk/manage (modified) (6 diffs)

manage/trunk/manage

@@ -158 +158 @@
-}
-
-get
+read
-my $prompt = shift;
-my $tty = ctermid();
@@ -172 +172 @@
-        close(TTY);
-        return $secret;
+}
+
+sub get_password($) {
+        warning("get_password() is deprecated and will be removed, use read_password()");
+        return read_password(@_);
-}
-
@@ -280 +285 @@
-                        $_ =~ /^([.\w-]+)\s*=\s*(.*)/;
-                        if (defined($CONF{$1})) {
-
+
+
+
+
+
+
-                        }
-                }
@@ -310 +320 @@
-                                                $pattern = '.+' unless defined($pattern);
-                                                if ($value =~ /^$pattern$/) {
-
+
+
+
+
+
-                                                } else {
-                                                        error("Value for '$key' is invalid.");
@@ -411 +425 @@
-
-  Binary symlink:
-SELF -> $Config{bin}/$cli
+cli -> $Config{bin}/$SELF
-  Modules:
-EOF
@@ -509 +523 @@
-
-for my $key (keys %CONF) {
+        # We only trigger an on_change if this did not already occur in load_config()
+        ${$CONF{$key}->{value}} = $CONF{$key}->{on_change}->(${$CONF{$key}->{value}}, ${$CONF{$key}->{value}})
+                if $CONF{$key}->{on_change} and not $CONF{$key}->{loaded};
-        $ORIGINAL_CONF{$key} = ${$CONF{$key}->{value}};
-}