mirror of http://galexander.org/git/simplesshd.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
517 B
31 lines
517 B
#!/usr/bin/perl
|
|
|
|
# we want to filter every between START_INS and END_INS out and then insert crap from another file (this is fun)
|
|
|
|
$dst = shift;
|
|
$ins = shift;
|
|
|
|
open(SRC,"<$dst");
|
|
open(INS,"<$ins");
|
|
open(TMP,">tmp.delme");
|
|
|
|
$l = 0;
|
|
while (<SRC>) {
|
|
if ($_ =~ /START_INS/) {
|
|
print TMP $_;
|
|
$l = 1;
|
|
while (<INS>) {
|
|
print TMP $_;
|
|
}
|
|
close INS;
|
|
} elsif ($_ =~ /END_INS/) {
|
|
print TMP $_;
|
|
$l = 0;
|
|
} elsif ($l == 0) {
|
|
print TMP $_;
|
|
}
|
|
}
|
|
|
|
close TMP;
|
|
close SRC;
|