|
@@ -1,23 +1,18 @@
|
|
my $cfg = $CONFIG->{simple_tc};
|
|
my $cfg = $CONFIG->{simple_tc};
|
|
|
|
|
|
-print <<'END';
|
|
|
|
-#/bin/sh
|
|
|
|
-
|
|
|
|
-uci -q batch <<EOF
|
|
|
|
-END
|
|
|
|
|
|
+print "#/bin/sh\n\n";
|
|
|
|
|
|
foreach my $name (sort keys %{$cfg}) {
|
|
foreach my $name (sort keys %{$cfg}) {
|
|
my $interface = $cfg->{$name};
|
|
my $interface = $cfg->{$name};
|
|
|
|
|
|
|
|
+ print "uci -q get gluon-simple-tc.$name >/dev/null || uci -q batch <<EOF\n";
|
|
print "set gluon-simple-tc.$name=interface\n";
|
|
print "set gluon-simple-tc.$name=interface\n";
|
|
|
|
|
|
for (qw(enabled ifname limit_egress limit_ingress)) {
|
|
for (qw(enabled ifname limit_egress limit_ingress)) {
|
|
print "set gluon-simple-tc.$name.$_=$interface->{$_}\n";
|
|
print "set gluon-simple-tc.$name.$_=$interface->{$_}\n";
|
|
}
|
|
}
|
|
-}
|
|
|
|
|
|
|
|
-print <<END;
|
|
|
|
|
|
+ print "EOF\n\n";
|
|
|
|
+}
|
|
|
|
|
|
-commit gluon-simple-tc
|
|
|
|
-EOF
|
|
|
|
-END
|
|
|
|
|
|
+print "uci commit gluon-simple-tc\n";
|