[29501] trunk/base/portmgr/PortIndex2MySQL.tcl

[source_changes at macosforge.org]

Revision: 29501
          http://trac.macosforge.org/projects/macports/changeset/29501
Author:   eridius at macports.org
Date:     2007-09-25 14:17:11 -0700 (Tue, 25 Sep 2007)

Log Message:
-----------
Revert r29499, didn't realize it was a custom ui_channels

Modified Paths:
--------------
    trunk/base/portmgr/PortIndex2MySQL.tcl

Modified: trunk/base/portmgr/PortIndex2MySQL.tcl
===================================================================
--- trunk/base/portmgr/PortIndex2MySQL.tcl	2007-09-25 21:07:00 UTC (rev 29500)
+++ trunk/base/portmgr/PortIndex2MySQL.tcl	2007-09-25 21:17:11 UTC (rev 29501)
@@ -93,6 +93,42 @@
     exit $exit_status
 }
 
+
+# UI instantiation to route information/error messages wherever we want.
+proc ui_channels {priority} {
+    global ui_options runlog_fd
+    switch $priority {
+        debug {
+            if {[macports::ui_isset ui_options ports_debug]} {
+                return $runlog_fd
+            } else {
+                return {}
+            }
+        }
+        info {
+            if {[macports::ui_isset ui_options ports_verbose]} {
+                return $runlog_fd
+            } else {
+                return {}
+            }
+        }
+        msg {
+            if {[macports::ui_isset ui_options ports_quiet]} {
+                return $runlog_fd
+            } else {
+                return {}
+            }
+        }
+        error {
+            return $runlog_fd
+        }
+        default {
+            return {}
+        }
+    }
+}
+
+
 # Check if there are any stray sibling jobs before moving on, bail in such case.
 if {[file exists $lockfile]} {
     ui_error "PortIndex2MySQL lock file found, is another job running?"

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070925/c665ff95/attachment.html