The following changes were made:

* Added ability to dump contents of package
  * Wrapped open3 in eval in Package.pm files()
  * Added :flock to Fcntl in Snap.pm
  * Added lock file to Snap.pm
  * Moved setup() under conditionals where appropriate in snap

SRC/snap/Package.pm

@@ -282,6 +282,87 @@ sub depends {
 	$self->revdeps( $sources, $dependencies );
 	}
 
+sub dump {
+	my $self = shift;
+	my $pid;
+	my $sel;
+	my $cnt;
+	my $stderr;
+	my $stat;
+	local $| = 1;
+
+	if ( $self->{'path'} =~ /^https*:\/\// ) {
+		( my $filename = $self->{'path'} ) =~ s/.*\///;
+
+		Snap->httpget( $self->{'path'}, Snap->PKGDIR
+			. "/$filename", 0644 );
+
+		$self->{'path'} = Snap->PKGDIR . "/$filename";
+		}
+
+	print "Dumping $self->{'name'}=$self->{'version'}\n";
+
+	print "\e[?25l\r";
+
+	eval {
+		my $target = Snap->TARGET ||
+			"$self->{'name'}-$self->{'version'}";
+
+		if ( ! -d $target ) {
+			mkdir( $target );
+			}
+
+		$pid = open3( \*CHLDIN, \*CHLDOUT, \*CHLDERR,
+			"/usr/bin/ar p $self->{'path'} files.tar.gz|"
+			. "tar --no-overwrite-dir --keep-directory-symlink"
+			. " -hzvxf - -C $target" );
+		} || Snap->error( int( $! ), "open3(): /usr/bin/ar: $!" );
+
+	close( CHLDIN );
+
+	$sel = IO::Select->new();
+	$sel->add( *CHLDOUT, *CHLDERR );
+
+	while ( my @fhs = $sel->can_read ) {
+		foreach my $fh ( @fhs ) {
+			if ( eof( $fh ) ) {
+				$sel->remove( $fh );
+
+				next;
+				}
+
+			if ( fileno( $fh ) == fileno( *CHLDOUT ) ) {
+				my $line = <$fh>;
+				( my $file = $line ) =~ s/.*\/|\n$//;
+				chomp( $line );
+				chomp( $file );
+
+				if ( $file ) {
+					$cnt++;
+
+					print "\e[K$file\r";
+					}
+				}
+			elsif ( fileno( $fh ) == fileno( *CHLDERR ) ) {
+				$stderr .= <$fh>;
+				}
+			}
+		}
+
+	close( CHLDOUT );
+	close( CHLDERR );
+
+	waitpid( $pid, 0 );
+	$stat = $? >> 8;
+
+	if ( $stat ) {
+		Snap->error( $stat, "Failed dumping $self->{'name'}:"
+			. " $stderr\e[?25h" );
+		}
+
+	print "\e[K$cnt files extracted\e[?25h\n";
+	}
+
 sub files {
 	my $self = shift;
 	my $opts = shift;
@@ -293,8 +374,13 @@ sub files {
 		my $stdout;
 		my $stderr;
 		my $stat;
-		my $pid = open3( \*CHLDIN, \*CHLDOUT, \*CHLDERR,
-			"/usr/bin/ar p $self->{'path'} manifest" );
+		my $pid;
+
+		eval {
+			$pid = open3( \*CHLDIN, \*CHLDOUT, \*CHLDERR,
+				"/usr/bin/ar p $self->{'path'} manifest" );
+			} || Snap->error( int( $! ), "open3(): /usr/bin/ar:"
+				. " $!" );
 
 		close( CHLDIN );
 

SRC/snap/Snap.pm

@@ -7,7 +7,7 @@ use Snap::Commands;
 use Snap::Package;
 use Snap::Sources;
 
-use Fcntl;
+use Fcntl qw( :flock );
 use IPC::Open3;
 use IO::Socket::INET;
 use Digest::SHA qw( sha256_hex );
@@ -89,7 +89,7 @@ use constant VERFILE => eval {
 		}
 	};
 use constant {
-	VERSION => '0.8',
+	VERSION => '0.9',
 	SNAPDIR => TARGET . '/var/lib/snap',
 	PKGDIR => TARGET . '/var/lib/snap/packages',
 	INSTDIR => TARGET . '/var/lib/snap/installed',
@@ -105,6 +105,7 @@ use constant SNAPVER => eval {
 
 	return( $version );
 	};
+use constant LOCKFILE => '/var/lock/snap';
 
 ############################################################
 #
@@ -114,6 +115,17 @@ use constant SNAPVER => eval {
 
 $0 =~ s/.*\///;
 
+############################################################
+#
+# Exit unless we can get exclusive lock
+#
+############################################################
+
+open( LOCK, '>', LOCKFILE ) || Snap->error( int( $! ), "open(): "
+	. LOCKFILE . ": Unable to open lock file" );
+flock( LOCK, LOCK_EX|LOCK_NB ) || Snap->error( int( $! ), "flock(): "
+	. LOCKFILE . ": Unable to lock file" );
+
 ############################################################
 #
 # Make sure we bring back the cursor if we're killed

SRC/snap/snap

@@ -6,15 +6,6 @@ use warnings;
 use Snap;
 use Data::Dumper;
 
-############################################################
-#
-# setup() will give the user the option to create the files
-# and directories needed for snap to function
-#
-############################################################
-
-setup();
-
 my $command = shift( @ARGV );
 my $conf = readconf();
 my $commands = Snap::Commands->new();
@@ -23,9 +14,15 @@ my $sources = Snap::Sources->new( $conf->{'sources'} );
 if ( $ARGV[0] && $ARGV[0] eq '-h' ) {
 	$commands->commandhelp( $command );
 	}
-elsif ( $command eq 'genpkg' ) {
+elsif ( $command eq 'dump' ) {
+	print "\n";
+
 	foreach my $arg ( @ARGV ) {
-		genpkg( $arg );
+		my $package = Snap::Package->new( $arg );
+
+		$package->dump();
+
+		print "\n";
 		}
 	}
 elsif ( $command eq 'files' ) {
@@ -61,11 +58,15 @@ elsif ( $command eq 'files' ) {
 
 	print "\n";
 	}
+elsif ( $command eq 'genpkg' ) {
+	foreach my $arg ( @ARGV ) {
+		genpkg( $arg );
+		}
+	}
 elsif ( $command eq 'help' ) {
 	$commands->help();
 	}
 elsif ( $command eq 'info' ) {
-
 	print "\n";
 
 	foreach my $arg ( @ARGV ) {
@@ -104,6 +105,8 @@ elsif ( $command eq 'install' ) {
 	my $bytes = 0;
 	my $virtfs = 0;
 
+	setup();
+
 	foreach my $attrib ( @attribs ) {
 		if ( $string =~ /$attrib\s*:\s*(\S+)/ ) {
 			$opts->{$attrib} = $1;
@@ -331,6 +334,8 @@ elsif ( $command eq 'list' ) {
 	print "\n";
 	}
 elsif ( $command eq 'refresh' ) {
+	setup();
+
 	print "\n";
 
 	$sources->refresh();
@@ -361,6 +366,8 @@ elsif ( $command eq 'reinstall' ) {
 	my $packages = [];
 	my $virtfs = 0;
 
+	setup();
+
 	$sources->readpkgs();
 
 	print "\n";