#!/bin/sh
-#$Id: snom.pl,v 1.20 2006-05-21 23:03:54 michael Exp $
+#$Id: snom.pl,v 1.24 2006-05-21 23:13:01 michael Exp $
+
+# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html
PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
my @sections = ();
while(<INIFILE>) {
chomp;
+
+ next if (m/^#/);
+
if (m/^\s*\[(.*)\]\s*$/) {
push @sections, $1;
next;
}
- if (defined($sections[0])) {
- for my $var (qw(host login password)) {
- if (m/^\s*${var}\s*=\s*(.*)\s*$/) {
- ${$Config{$sections[$#sections]}}{$var} = $1;
- }
+ if (@sections) {
+ if (m/^\s*(.+)\s*=\s*(.*)\s*$/) {
+ ${$Config{$sections[$#sections]}}{$1} = $2;
}
}
}
for my $section (@sections) {
- for my $val (keys(%{$Config{$section}})) {
- print "$section: $val: <" . ${$Config{$section}}{$val}.">\n";
- #for my $val (qw(host login password)) {
- # if (defined($cfg->val($section, $val))) {
- # print "$val: <" . $cfg->val($section, $val) . ">\n";
- # }
- #}
+ for my $val (qw(host login password)) {
+ if (defined(${$Config{$section}}{$val})) {
+ print "$section: $val: <" . ${$Config{$section}}{$val}.">\n";
+ }
}
}