#!/usr/bin/perl
# Jeff Bilicki <jeffb@cobaltnet.com>
# removes the header out of a Qube 2 and RaQ 2 backup file

use strict;

my ($infile);
my ($outfile) = "out.tar.gz";
my ($end) = "\%\%END_XML";
my ($begin) = "\%\%BACKUP_HEADER";

if (@ARGV) {
    $infile = $ARGV[0];
} else {
    print "usage: stripheader.pl <file name>\n";
    exit 1;
}

open (INFILE, $infile) or die "Can't open: $!\n";
open (OUTFILE, ">$outfile") or die "Can't open $!\n";

while (<INFILE>) {
    if ( /^$begin/ ... /^$end/ ) {
	next;
    } else {
	print OUTFILE $_;
    }
}
close(INFILE);
close(OUTFILE);
exit 0;