Changeset 2061

Timestamp:

10/29/06 02:41:03

Author:

miyagawa

Message:

add --list command

Files:

• misc/blogping (modified) (1 diff)

misc/blogping

@@ -19 +19 @@
-our $config = eval { YAML::LoadFile($conf) || {} };
-setup_default() unless $config->{default};
+
+if (@ARGV and ($ARGV[0] eq '--list' || $ARGV[0] eq '-l')) {
+    my $default = $config->{default};
+    for my $name (keys %$config) {
+        next if $name eq 'default';
+        my $site = $config->{$name};
+        $name .= '*' if $name eq $default;
+        print $name, " " x (16-length($name)), "$site->{name} ($site->{url})\n";
+    }
+    exit;
+}
-
-my $name = $ARGV[0] || $config->{default};