Kyoshiro/bip
1
0
Fork 0
forked from bip/bip
Code Pull Requests Activity

fixes

Browse Source
This commit is contained in:
kyoshiro 2007-03-24 11:58:58 +00:00
parent c41cc8c155
commit 220de6e088
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
samples/bip.conf
View File

@ -67,7 +67,7 @@ network {
# SSL network sample. SSL is per-network option, not per-server ! # SSL network sample. SSL is per-network option, not per-server !
network { network {
name = "oftcs"; name = "oftcs";
ssl = "true"; ssl = true;
server { host = "ircs.oftc.net"; port = 9999; }; server { host = "ircs.oftc.net"; port = 9999; };
}; };

6
scripts/bipgenconfig
View File

@ -530,7 +530,7 @@ sub writeConfig {
next if ($cf{'global'}->{$k} eq undef); next if ($cf{'global'}->{$k} eq undef);
next if ($optdesc{'global'}->{$k}->{'nosave'} eq 1); next if ($optdesc{'global'}->{$k}->{'nosave'} eq 1);
my $t = $optdesc{'global'}->{$k}->{'type'}; my $t = $optdesc{'global'}->{$k}->{'type'};
if ($t eq 's' || $t eq 'b') { if ($t eq 's') {
print $fh "$k = \"" . $cf{'global'}->{$k} . "\";\n"; print $fh "$k = \"" . $cf{'global'}->{$k} . "\";\n";
} else { } else {
print $fh "$k = " . $cf{'global'}->{$k} . ";\n"; print $fh "$k = " . $cf{'global'}->{$k} . ";\n";
@ -586,7 +586,7 @@ sub printBlock {
next if ($e->{$k} eq undef); next if ($e->{$k} eq undef);
next if ($optdesc{$name}->{$k}->{'nosave'} eq 1); next if ($optdesc{$name}->{$k}->{'nosave'} eq 1);
my $t = $optdesc{$name}->{$k}->{'type'}; my $t = $optdesc{$name}->{$k}->{'type'};
if ($t eq 's' || $t eq 'b') { if ($t eq 's') {
$out .= $prefix . "\t$k = \"" . $e->{$k} . "\";\n"; $out .= $prefix . "\t$k = \"" . $e->{$k} . "\";\n";
} elsif (ref($e->{$k}) eq 'ARRAY') { } elsif (ref($e->{$k}) eq 'ARRAY') {
foreach my $e2 (@{$e->{$k}}) { foreach my $e2 (@{$e->{$k}}) {
@ -596,7 +596,7 @@ sub printBlock {
$out .= $prefix . "\t$k = " . $e->{$k} . ";\n"; $out .= $prefix . "\t$k = " . $e->{$k} . ";\n";
} }
} }
$out .= $prefix . "}\n\n"; $out .= $prefix . "};\n\n";
return $out; return $out;
} }