Gossamer Forum: Products: Gossamer Links: Development, Plugins and Globals: GT::Tar ... making new tar...

Jan 30, 2004, 7:54 AM

Andy

Veteran / Moderator (18441 posts)

Jan 30, 2004, 7:54 AM

Post #1 of 3

Shortcut

GT::Tar ... making new tar...

Hi. I'm trying to make a TAR file from all the files in the template folder. I currently have;

Code:
   my @file_list; 
   my $file; 
   opendir(DIR, $CFG->{admin_root_path}) or die "Can't opendir $CFG->{admin_root_path}: $!\n"; 
     while (defined($file = readdir(DIR))) { 
       if ($file =~ /\.(html|txt)/i){  
        push @file_list, $file; 
       } 
     } 
    close(DIR); 

    my $tar = new GT::Tar; 

    foreach (@file_list) { 
      $tar->add_file( $CFG->{admin_root_path} . "/templates/default/" . $_ ); 
    } 

    $tar->write('Templates.tar');

...however, this gives me;

Quote:

GT::Tar (7227): Bad arguments passed to new(). Reason: No output archive passed in at /home/linkssql/linkssql.net/cgi-bin/imageSQL/admin/Plugins/Admin_Make_Temp.pm line 48.

...line 48 is;

Code:
    my $tar = new GT::Tar;

I've taken a look through the plugin managed, but I can't see where new files are added in the plugin wizard.. so it wasn't much help :(

TIA

Andy (mod)
andy@ultranerds.co.uk

Jan 30, 2004, 8:16 AM

Andy

Veteran / Moderator (18441 posts)

Jan 30, 2004, 8:16 AM

Post #2 of 3

Shortcut

Re: [Andy] GT::Tar ... making new tar... In reply to

BTW.. this is the GT demo for making a new .tar;

Code:
    my $tar = new GT::Tar; 

    $tar->add_file( '/home/httpd/html' ); 
    $tar->add_file( '/home/backup' ); 
    $tar->write('/tmp/foo.tar');

Any ideas guys?

Cheers

Andy (mod)
andy@ultranerds.co.uk

Jan 30, 2004, 8:30 AM

Andy

Veteran / Moderator (18441 posts)

Jan 30, 2004, 8:30 AM

Post #3 of 3

Shortcut

Re: [Andy] GT::Tar ... making new tar... In reply to

Got it :)

Code:
   my $tar = new GT::Tar "$CFG->{admin_root_path}/Templates.tar"; 

    foreach (@file_list) { 
      print "Added file > $_ <BR>"; 
      $tar->add_file( $_ ) || die $GT::Tar::error; 

    } 

    $tar->write("$CFG->{admin_root_path}/Templates.tar") || die $GT::Tar::error;

The part in red is the main bit that needed to be added :)

Cheers

Andy (mod)
andy@ultranerds.co.uk