Changeset 2061
- Timestamp:
- 10/29/06 02:41:03
- Files:
-
- misc/blogping (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
misc/blogping
r2060 r2061 19 19 our $config = eval { YAML::LoadFile($conf) || {} }; 20 20 setup_default() unless $config->{default}; 21 22 if (@ARGV and ($ARGV[0] eq '--list' || $ARGV[0] eq '-l')) { 23 my $default = $config->{default}; 24 for my $name (keys %$config) { 25 next if $name eq 'default'; 26 my $site = $config->{$name}; 27 $name .= '*' if $name eq $default; 28 print $name, " " x (16-length($name)), "$site->{name} ($site->{url})\n"; 29 } 30 exit; 31 } 21 32 22 33 my $name = $ARGV[0] || $config->{default};