+sub append
+{
+ return 0 unless $active;
+
+ my $suffix = shift;
+ my @in = @_;
+ my @out;
+
+ if ($suffix) {
+ my $fn = _fn() . ".$suffix";
+ my $fh = IO::File->new;
+ if ($fh->open("$fn", "a+")) {
+ $fh->seek(0, 2); # belt and braces !!
+ print $fh "$_\n" for @in;
+ $fh->close;
+ } else {
+ LogDbg('err', "DXCIDR::append error appending to $fn $!");
+ }
+ } else {
+ LogDbg('err', "DXCIDR::append require badip suffix");
+ }
+ return scalar @in;
+}
+