#!/usr/bin/tclsh

proc clean_fieldname arg {
    return [regsub -all {[^A-Za-z]} $arg "_"]
}

proc main {argc argv} {
    set queues [exec /usr/sbin/rabbitmqctl list_queues -q]
    if {$argc > 0} {
	switch [lindex $argv 0] {
	    "config" {
		puts "graph_title Number of messages in RabbitMQ queues"
		puts "graph_vlabel messages"
		puts "graph_category RabbitMQ"
		foreach {q m} $queues {
		    set clean [clean_fieldname $q]
		    puts "$clean.label $q"
		    puts "$clean.draw LINE3"
		}
	    }
	    "autoconf" {
		puts "yes"
	    }
	}
    } else {
	foreach {q m} $queues {
	    set clean [clean_fieldname $q]
	    puts "$clean.value $m"
	}
    }
}

main $argc $argv