Mercurial > dropbear
annotate libtommath/filter.pl @ 1442:517c67cbcd31
dropbear server: support -T max auth tries
Add support for '-T n' for a run-time specification for maximum number
of authentication attempts where 'n' is between 1 and compile time
option MAX_AUTH_TRIES.
A default number of tries can be specified at compile time using
'DEFAULT_AUTH_TRIES' which itself defaults to MAX_AUTH_TRIES for
backwards compatibility.
Signed-off-by: Kevin Darbyshire-Bryant <[email protected]>
| author | Kevin Darbyshire-Bryant <kevin@darbyshire-bryant.me.uk> |
|---|---|
| date | Mon, 29 May 2017 10:25:09 +0100 |
| parents | 60fc6476e044 |
| children | 8bba51a55704 |
| rev | line source |
|---|---|
| 1436 | 1 #!/usr/bin/perl |
| 2 | |
| 3 # we want to filter every between START_INS and END_INS out and then insert crap from another file (this is fun) | |
| 4 | |
| 5 $dst = shift; | |
| 6 $ins = shift; | |
| 7 | |
| 8 open(SRC,"<$dst"); | |
| 9 open(INS,"<$ins"); | |
| 10 open(TMP,">tmp.delme"); | |
| 11 | |
| 12 $l = 0; | |
| 13 while (<SRC>) { | |
| 14 if ($_ =~ /START_INS/) { | |
| 15 print TMP $_; | |
| 16 $l = 1; | |
| 17 while (<INS>) { | |
| 18 print TMP $_; | |
| 19 } | |
| 20 close INS; | |
| 21 } elsif ($_ =~ /END_INS/) { | |
| 22 print TMP $_; | |
| 23 $l = 0; | |
| 24 } elsif ($l == 0) { | |
| 25 print TMP $_; | |
| 26 } | |
| 27 } | |
| 28 | |
| 29 close TMP; | |
| 30 close SRC; | |
| 31 | |
| 32 # $Source$ | |
| 33 # $Revision$ | |
| 34 # $Date$ |