#!/usr/bin/perl
use NWLoader;
6563636060604b6e4b0f45344862271900030a2204456e5e43350272111e4b534f70486f445a0b6643411

##</code><code>##

 
#!/usr/bin/perl
use NWLoader;

$user_id = $ARGV[0];
$customer_dir = $ARGV[1];
$domain_name = $ARGV[2];
$archive = $ARGV[3];
$newer_option = $ARGV[4];
chdir "$customer_dir/$domain_name";
system "tar czv --exclude='archives' $newer_option *";
exit 0;

##</code><code>##

 
package NWLoader;
require 5.002 ;
require DynaLoader;
require Exporter;
use Carp ;
use strict;
use vars qw($VERSION @ISA @EXPORT) ;

@ISA = qw(Exporter DynaLoader);
@EXPORT = qw( filter_add );
$VERSION = "0.01" ;

sub filter_add
{
   my $obj = 0 ;

    #Did we get a code reference?
   my $coderef = (ref $obj eq 'CODE') ;

    #If the parameter isn't already a reference, make it one.
   $obj = \$obj unless ref $obj ;

   $obj = bless ($obj, (caller)[0]);

    #finish off the installation of the filter in C.
   NWLoader::real_import($obj,(caller)[0],"");
}

sub import
{
filter_add( );
 }

bootstrap NWLoader $VERSION;

1;

__END__