Révision 1724ae25
- Fix matching table names that include "-" charachter
- Fix drawing graph for inout graphs
| plugins/network/pf_tables_ | ||
|---|---|---|
| 113 | 113 |
|
| 114 | 114 |
print "in.label in\n"; |
| 115 | 115 |
print "in.type DERIVE\n"; |
| 116 |
print "in.draw AREASTACK\n";
|
|
| 116 |
print "in.draw AREA\n"; |
|
| 117 | 117 |
print "in.colour C00000\n"; |
| 118 | 118 |
print "in.cdef in,8,*\n"; |
| 119 | 119 |
print "in.min 0\n"; |
| 120 | 120 |
print "in.graph no\n"; |
| 121 |
print "out.label out\n";
|
|
| 121 |
print "out.label bps\n";
|
|
| 122 | 122 |
print "out.type DERIVE\n"; |
| 123 | 123 |
print "out.negative in\n"; |
| 124 |
print "out.draw AREASTACK\n";
|
|
| 125 |
print "out.colour 0000C0\n";
|
|
| 124 |
print "out.draw AREA\n"; |
|
| 125 |
print "out.colour COLOUR18\n";
|
|
| 126 | 126 |
print "out.cdef out,8,*\n"; |
| 127 | 127 |
print "out.min 0\n"; |
| 128 |
print "out.graph no\n"; |
|
| 129 | 128 |
|
| 130 | 129 |
foreach my $field (qw(in out)) {
|
| 131 | 130 |
print_thresholds($field); |
| ... | ... | |
| 191 | 190 |
|
| 192 | 191 |
foreach (split(/\n/, $output)) {
|
| 193 | 192 |
|
| 194 |
if (m|^[cpairhC\-]{7}\s+(\w+)$|) {
|
|
| 193 |
if (m|^[cpairhC\-]{7}\s+(\S+)$|) {
|
|
| 195 | 194 |
$name = $1; |
| 196 |
$tables{$name}->{"name"} = $1;
|
|
| 195 |
$name =~ s/\-/_/; |
|
| 196 |
$tables{$name}->{"name"} = $name;
|
|
| 197 | 197 |
next; |
| 198 | 198 |
} |
| 199 | 199 |
|
Formats disponibles : Unified diff