Re: [cobalt-users] Problem decoding .raq files

[Gerald Young <me@xxxxxxxxxxx>]

Hi Tomas this does it nicely.
removes raq headers and leaves a file you can open.
b w wampy.

#!/usr/bin/perl
# based on code by Jeff Bilicki <jeffb@xxxxxxxxxxxxx>
# modified by Ben Charlton <bencharlton@xxxxxxxxxxxx>
# support added for RaQ3 .raq backup files.
#
# This code removes the custom header information from the backup file. use strict; my ($infile);
my ($outfile);
my ($end) = "\%\%END_INDEX";
my ($begin) = "\%\%BACKUP_HEADER";
my ($end2) = "\%\%END_XML";
my ($begin2) = "\%\%BACKUP_XML"; if (@ARGV) {
$infile = $ARGV[0];
$outfile = $ARGV[1];
} else {
print "usage: strip.pl <file to clean> <output file>\n\nOutput file should be a .tar.gz\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 {
if ( /^$begin2/ ... /^$end2/ ) {
next;
} else {
print OUTFILE $_;
}
}
}
close(INFILE);
close(OUTFILE);
exit 0;


On Tue, 11 Dec 2001 12:31:57 -0300
Tomas Garcia Ferrari <tgf@xxxxxxxxxxx> wrote:

> Hello,
> 
> I am trying the backup facility on a RaQ server using the web interface. I
> ended up with a .raq file on my FTP server, but I can't check the content of
> this file using 'tar -ztvf whatever.raq'. I tried changing the extension
> from '.raq' to '.tar.gz' or '.tgz' but nothing worked...
> 
> Any ideas?
> 
> Regards,
> Tomás
> 
> +--                                         --+
>        Tomás García Ferrari
>        Bigital
>        http://bigital.com/
> +--                                         --+
> 
> 
> _______________________________________________
> cobalt-users mailing list
> cobalt-users@xxxxxxxxxxxxxxx
> To Subscribe or Unsubscribe, please go to:
> http://list.cobalt.com/mailman/listinfo/cobalt-users
> 
> 


---------------------------------------------------
http://www.coolcat.net      http://www.coolcoach.net 
  6:01am  up 4 days, 10:22,
Linux, the way to get rid of boot viruses