The following changes were made:

* Updated Makefile.snaplinux to be more flexible with package names
  * Added bit to set root password in snapinstall

Makefile

@@ -8,17 +8,17 @@
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
 
-DEPENDS = binutils,coreutils,gzip,perl=5.20.0,tar
+DEPENDS = binutils,coreutils,gzip,perl>=5.20.0,tar
 ARCH = x86_64
 URL = 
 DESC = The Snaplinux package management system
+SNAPVER = 0
 
 ARCHIVE := ''
 SRCDIR := $(PWD)/SRC/snap
 PATCHDIR := $(PWD)/SRC/patches
-VERSION := 0.4-0
+VERSION := $(shell grep 'VERSION =>' SRC/snap/Snap.pm| \
-
+	sed "s/.*=> '\|',//g")-$(SNAPVER)
-MAKEINST = make install
 
 include /usr/share/snap/Makefile.snaplinux
 
@@ -29,7 +29,7 @@ $(ROOT): $(SRCDIR)/Makefile
 		mkdir -v $(ROOT); \
 	fi
 
-	@cd $(SRCDIR) && $(MAKEINST) DESTDIR=$(ROOT)
+	@cd $(SRCDIR) && make install DESTDIR=$(ROOT)
 
 clean:
 	@rm -rvf $(ROOT) \

SNAP/usher

@@ -1,43 +0,0 @@
-#!/bin/bash
-
-set -e
-
-case $1 in
-  preinst)
-    exit 0
-    ;;
-  postinst)
-    setpass=`cat ${TARGET}/etc/shadow|grep ^root|awk -F':' '{print $2}'`
-
-    if [ "$setpass" == 'SETPASS' ]; then
-      echo "Setting root password"
-
-      if [[ ${TARGET} ]]; then
-        if ! mountpoint ${TARGET}/dev; then
-          mount -o ro -t devtmpfs devtmpfs ${TARGET}/dev
-          chroot ${TARGET} passwd root
-          umount ${TARGET}/dev
-        else
-          chroot ${TARGET} passwd root
-        fi
-      else
-        passwd root
-      fi
-    fi
-
-    echo "Refreshing snap"
-
-    if [[ ${TARGET} ]]; then
-      chroot ${TARGET} snap refresh
-    else
-      snap refresh
-    fi
-    exit 0
-    ;;
-  prerm)
-    exit 0
-    ;;
-  postrm)
-    exit 0
-    ;;
-esac

SRC/snap/Commands.pm

@@ -208,6 +208,11 @@ my $commands = {
 			. " separate\n\t\t\t\tdirectory/file system\n",
 			"\t\t\t\tProceed without prompting"
 			]
+		},
+	version => {
+		options => [],
+		brief => 'Display version information',
+		help => []
 		}
 	};
 

SRC/snap/Makefile

@@ -5,6 +5,7 @@ dirs:
 
 files:
 	install -v -m 755 snap $(DESTDIR)/usr/bin/snap
+	install -v -m 755 snapinstall $(DESTDIR)/usr/bin/snapinstall
 	install -v -m 644 Makefile.skel \
 		$(DESTDIR)/usr/share/snap/Makefile.skel
 	install -v -m 644 Makefile.snaplinux \

SRC/snap/Makefile.skel

@@ -19,7 +19,7 @@ ARCHIVE := $(PWD)/SRC/$(shell ls SRC|egrep '(bz2|gz|tar|xz)$$'|tail -1)
 TYPE := $(shell file -ib $(ARCHIVE)|cut -d';' -f1|tr -d '\n')
 SRCDIR := $(shell tar -tf $(ARCHIVE)|head -1|sed 's/\/.*//')
 PATCHDIR := $(PWD)/SRC/patches
-VERSION := $(shell echo $(SRCDIR)|egrep -o '\-[0-9].*'|sed 's/^-//')$(SNAPVER)
+VERSION := $(shell echo $(SRCDIR)|egrep -o '\-[0-9].*'|sed 's/^-//')-$(SNAPVER)
 
 include /usr/share/snap/Makefile.snaplinux
 

SRC/snap/Makefile.snaplinux

@@ -9,11 +9,23 @@
 # GNU General Public License for more details.
 
 PWD := $(shell pwd)
-PACKAGE := $(shell echo $(PWD)|sed 's/.*\///')
 SNAPDIR = $(PWD)/SNAP
 ROOT = $(PWD)/ROOT
 
-SNAP = $(PACKAGE)-$(VERSION).snap
+# This will set PACKAGE only if the package itself has
+# not provided a package name
+
+ifndef PACKAGE
+PACKAGE := $(shell echo $(PWD)|sed 's/.*\///')
+endif
+
+# This defines the name of the package file unless
+# specified
+
+ifndef PKGFILE
+PKGFILE := $(PACKAGE)-$(VERSION).snap
+endif
+
 SNAPINFO = $(SNAPDIR)/snapinfo
 MANIFEST = $(SNAPDIR)/manifest
 USHER = $(SNAPDIR)/usher
@@ -24,7 +36,7 @@ FILES = $(SNAPDIR)/files.tar.gz
 # if we find that not to be supplied we're going to
 # assume that the SRCPKG is the same as the PACKAGE
 
-ifeq ( $(SRCPKG), )
+ifndef SRCPKG
 SRCPKG := $(PACKAGE)
 endif
 
@@ -34,19 +46,19 @@ ifndef VERSION
 $(error VERSION is not set)
 endif
 
-$(SNAP): $(SNAPINFO) $(FILES)
+$(PKGFILE): $(SNAPINFO) $(FILES)
-	@if [ -f $(SNAP) ]; then \
+	@if [ -f $(PKGFILE) ]; then \
-		rm -v $(SNAP); \
+		rm -v $(PKGFILE); \
 	fi
 
-	@ar cvr $(SNAP) $(SNAPINFO) $(MANIFEST); \
+	@ar cvr $(PKGFILE) $(SNAPINFO) $(MANIFEST); \
 	if [ -f $(USHER) ]; then \
 		chmod +x $(USHER); \
-		ar cvr $(SNAP) $(USHER); \
+		ar cvr $(PKGFILE) $(USHER); \
 	fi; \
-	ar cvr $(SNAP) $(FILES)
+	ar cvr $(PKGFILE) $(FILES)
 
-	@echo "Successfully built $(SNAP)"
+	@echo "Successfully built $(PKGFILE)"
 
 $(SNAPINFO): $(MANIFEST)
 	@>$(SNAPINFO)
@@ -105,21 +117,22 @@ $(FILES): $(ROOT)
 		done; \
 	fi
 
-	if [ "$(PACKAGE)" != 'grub' ]; then
 	@find $(ROOT) -type f | while read -r file; do \
 		type=`file -i $$file|sed 's/.*: //'`; \
 		case $$type in \
 			*'/x-executable; charset=binary') \
+				echo "--strip-unneeded $$file"; \
 				strip --strip-unneeded $$file \
 				;; \
 			*'/x-object; charset=binary') \
-					strip --strip-unneeded $$file \
+				echo "--strip-debug $$file"; \
+				strip --strip-debug $$file \
 				;; \
 			*'/x-sharedlib; charset=binary') \
-					strip --strip-unneeded $$file \
+				echo "--strip-debug $$file"; \
+				strip --strip-debug $$file \
 				;; \
 		esac; \
-		done; \
+	done
-	fi
 	@cd $(ROOT) && tar cvzf $(FILES) *
 

SRC/snap/Package.pm

@@ -255,7 +255,7 @@ sub depends {
 				} );
 
 			if ( ! $package ) {
-				push( @$failures, $depend );
+				push( @$failures, "$depend" );
 
 				next;
 				}
@@ -273,16 +273,96 @@ sub depends {
 		}
 
 	if ( @$failures ) {
-		print STDERR "Failed to resolve dependencies for"
+		print STDERR "Failed to resolve dependencies\n";
-			. " $self->{'name'}!\n";
 
-		Snap->error( -1, "depends(): dependencies failed: "
+		Snap->error( -1, "depends(): unresolved dependencies: "
 			. join( ",", @$failures ) );
 		}
 
 	$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;
@@ -294,8 +374,13 @@ sub files {
 		my $stdout;
 		my $stderr;
 		my $stat;
-		my $pid = open3( \*CHLDIN, \*CHLDOUT, \*CHLDERR,
+		my $pid;
+
+		eval {
+			$pid = open3( \*CHLDIN, \*CHLDOUT, \*CHLDERR,
 				"/usr/bin/ar p $self->{'path'} manifest" );
+			} || Snap->error( int( $! ), "open3(): /usr/bin/ar:"
+				. " $!" );
 
 		close( CHLDIN );
 
@@ -318,7 +403,12 @@ sub files {
 						next;
 						}
 
-					if ( $opts->{'quiet'} ) {
+					if ( $opts->{'quiet'} &&
+					$opts->{'verbose'} ) {
+						push( @{$self->{'files'}}, [
+							$sha, $perms, $file ] );
+						}
+					elsif ( $opts->{'quiet'} ) {
 						push( @{$self->{'files'}},
 							$file );
 						}
@@ -368,8 +458,14 @@ sub files {
 					$self->{'files'} = [];
 					}
 
+				if ( $opts->{'verbose'} ) {
+					push( @{$self->{'files'}}, [
+						$sha, $perms, $file ] );
+					}
+				else {
 					push( @{$self->{'files'}}, $file );
 					}
+				}
 			elsif ( $opts->{'verbose'} ) {
 				print "$sha\t$perms\t$file\n";
 				}
@@ -402,7 +498,12 @@ sub install {
 	my $stat;
 	local $| = 1;
 
-	print "\e[?25lInstalling $self->{'name'}:\r";
+	$ENV{'VERSION'} = $self->{'version'};
+
+	if ( ! -f $self->{'path'} ) {
+		Snap->error( -1, "install(): $self->{'path'}:"
+			. " No such file or directory" );
+		}
 
 	if ( $self->{'path'} =~ /^https*:\/\// ) {
 		( my $filename = $self->{'path'} ) =~ s/.*\///;
@@ -443,13 +544,19 @@ sub install {
 			Snap->error( int( $! ), "rename(): $manifest: $!" );
 		}
 
+	print "Installing $self->{'name'}=$self->{'version'}\n";
+
 	$self->usher( 'preinst' );
 
+	print "\e[?25l\r";
+
 	eval {
+		my $target = Snap->TARGET || '/';
+
 		$pid = open3( \*CHLDIN, \*CHLDOUT, \*CHLDERR,
 			"/usr/bin/ar p $self->{'path'} files.tar.gz|"
-			. "tar --no-overwrite-dir -hzvxf - -C "
+			. "tar --no-overwrite-dir --keep-directory-symlink"
-			. Snap->TARGET );
+			. " -hzvxf - -C $target" );
 		} || Snap->error( int( $! ), "open3(): /usr/bin/ar: $!" );
 
 	close( CHLDIN );
@@ -481,8 +588,7 @@ sub install {
 				if ( $file ) {
 					$cnt++;
 
-					print "\e[KInstalling "
+					print "\e[K$file\r";
-						. "$self->{'name'}: $file\r";
 					}
 				}
 			elsif ( fileno( $fh ) == fileno( *CHLDERR ) ) {
@@ -502,6 +608,8 @@ sub install {
 			. " $stderr\e[?25h" );
 		}
 
+	print "\e[K$cnt files extracted\e[?25h\n";
+
 	if ( $oldpkg ) {
 		foreach ( @{$oldpkg->{'files'}} ) {
 			if ( -f Snap->TARGET . "/$_" ) {
@@ -548,7 +656,7 @@ sub install {
 			Snap->error( int( $! ), "unlink(): $manifest: $!" );
 		}
 
-	print "\e[KInstalling $self->{'name'}: DONE\e[?25h\n";
+	print "Finished installing $self->{'name'}\n";
 	}
 
 sub installed {
@@ -741,7 +849,7 @@ sub usher {
 	my $stderr;
 	my $stat;
 
-	if ( ! -f $usher || $action eq 'preinst' ) {
+	if ( $action eq 'preinst' ) {
 		my $cnt = 0;
 
 		eval {
@@ -769,17 +877,16 @@ sub usher {
 				if ( fileno( $fh ) == fileno( *CHLDOUT ) ) {
 					my $line = <$fh>;
 
-					if ( ! $cnt && $line =~
-					/^no entry usher in archive$/ ) {
-						last;
-						}
-
 					print USHER $line;
 
 					$cnt++;
 					}
 				elsif ( fileno( $fh ) == fileno( *CHLDERR ) ) {
 					$stderr .= <$fh>;
+
+					if ( $stderr =~ /^no entry usher/ ) {
+						last;
+						}
 					}
 				}
 			}
@@ -798,6 +905,8 @@ sub usher {
 
 		if ( ! $cnt && -f $usher ) {
 			unlink( $usher );
+
+			return;
 			}
 		}
 
@@ -805,17 +914,17 @@ sub usher {
 		return;
 		}
 
-	eval {
+	if ( $pid = fork() ) {
-		$pid = open3( \*CHLDIN, \*CHLDOUT, \*CHLDERR,
+		waitpid( $pid, 0 );
-			"TARGET=" . Snap->TARGET . " $usher $action" );
+		$stat = $? >> 8;
-		} || Snap->error( int( $! ), "open3():"
+		}
-			. " $usher ($action): $!" );
+	else {
+		exec( "$usher $action" );
+		}
 
-	close( CHLDIN );
+	if ( $stat ) {
-
+		Snap->error( $stat, "usher(): Failed executing usher" );
-	$sel = IO::Select->new();
+		}
-	$sel->add( *CHLDOUT, *CHLDERR );
-	$sel = IO::Select->new();
 	}
 
 ############################################################

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 );
@@ -23,9 +23,12 @@ our @EXPORT = qw(
 	human
 	list
 	listfiles
+	virtfs
 	readconf
 	refresh
 	setup
+	sha
+	sha256
 	target
 	termsize
 	vercmp
@@ -86,7 +89,7 @@ use constant VERFILE => eval {
 		}
 	};
 use constant {
-	VERSION => '0.3',
+	VERSION => '0.10',
 	SNAPDIR => TARGET . '/var/lib/snap',
 	PKGDIR => TARGET . '/var/lib/snap/packages',
 	INSTDIR => TARGET . '/var/lib/snap/installed',
@@ -102,6 +105,7 @@ use constant SNAPVER => eval {
 
 	return( $version );
 	};
+use constant LOCKFILE => '/var/lock/snap';
 
 ############################################################
 #
@@ -111,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
@@ -118,6 +133,8 @@ $0 =~ s/.*\///;
 ############################################################
 
 $SIG{INT} = sub{
+	virtfs( 'umount' );
+
 	print "\e[?25h\n";
 
 	exit( -1 );
@@ -125,7 +142,7 @@ $SIG{INT} = sub{
 
 ############################################################
 #
-# Export TARGET to the environment
+# Export TARGET to the environment for usher
 #
 ############################################################
 
@@ -195,6 +212,8 @@ sub error {
 
 	chomp( $errstr );
 
+	print "\e[?25h\n";
+
 	print STDERR ( caller() )[1] .":\n  $errstr at line "
 		. ( caller() )[2] . "\n";
 
@@ -212,6 +231,8 @@ sub error {
 	print "\n";
 
 	if ( $status ) {
+		virtfs( 'umount' );
+
 		exit( $status );
 		}
 	}
@@ -404,6 +425,26 @@ sub human {
 	return( $human );
 	}
 
+sub ismountpoint {
+	my $dir = shift;
+	my $statA;
+	my $statB;
+
+	if ( ! -d $dir ) {
+		return( 0 );
+		}
+
+	$statA = ( stat( $dir ) )[0];
+	$statB = ( stat( "$dir/.." ) )[0];
+
+	if ( $statA == $statB ) {
+		return( 0 );
+		}
+	else {
+		return( 1 );
+		}
+	}
+
 sub list {
 	my $packages = {};
 	my $package = {};
@@ -621,6 +662,15 @@ sub setup {
 		}
 	}
 
+sub sha {
+	my $file = shift;
+	my $digest = eval {
+		Digest::SHA->new( 1 )->addfile( $file );
+		} || Snap->error( -1, "sha(): $file: $!\n" );
+
+	return( $digest->hexdigest );
+	}
+
 ### sha256() ###############################################
 #
 # This sub returns a hex sha256 hash of a supplied file
@@ -638,20 +688,50 @@ sub sha256 {
 	}
 
 sub termsize {
-	require 'sys/ioctl.ph';
+        my $row = 24;
-	my $data;
+	my $col = 80;
-	my $row;
+	my $sel = IO::Select->new();
-	my $col;
+	my $stdout;
+	my $stderr;
+	my $stat;
+	my $pid;
 
-	open( TTY, "+</dev/tty" ) || Snap->error( 0, "No tty: $!" );
+        eval {
+                $pid = open3( \*CHLDIN, \*CHLDOUT, \*CHLDERR,
+                        "stty size -F /dev/tty" );
+        	} || return( { row => $row, col => $col } );
 
-	if ( ! ioctl( TTY, &TIOCGWINSZ, $data='' ) ) {
+	close( CHLDIN );
-		Snap->error( 0, "Failed to determine window size" );
+
+	$sel->add( *CHLDOUT, *CHLDERR );
+
+	while ( my @fhs = $sel->can_read ) {
+		foreach my $fh ( @fhs ) {
+			if ( eof( $fh ) ) {
+			        $sel->remove( $fh );
+
+                                next;
                                 }
 
-	close( TTY );
+			if ( fileno( $fh ) == fileno( *CHLDOUT ) ) {
+			        $stdout .= <$fh>;
+				}
+			elsif ( fileno( $fh ) == fileno( *CHLDERR ) ) {
+			        $stderr .= <$fh>;
+				}
+			}
+		}
 
-	( $row, $col ) = unpack( 'S4', $data );
+	close( CHLDOUT );
+	close( CHLDERR );
+
+	waitpid( $pid, 0 );
+	$stat = $? >> 8;
+
+	if ( $stdout =~ /(\d+)\s+(\d+)/ ) {
+		$row = $1;
+		$col = $2;
+		}
 
 	return( { row => $row, col => $col } );
 	}
@@ -732,4 +812,108 @@ sub vercmp {
 	@A <=> @B;
 	}
 
+sub virtfs {
+	my $command = shift;
+	my $virtfs = { 
+		dev => {
+			fs => 'devtmpfs',
+			dev => 'none',
+			dir => TARGET . '/dev'
+			},
+		proc => {
+			fs => 'proc',
+			dev => 'none',
+			dir => TARGET . '/proc'
+			},
+		sys => {
+			fs => 'sysfs',
+			dev => 'none',
+			dir => TARGET .'/sys'
+			}
+		};
+
+	if ( ! TARGET ) {
+		return;
+		}
+
+	foreach my $fs ( sort( keys( %$virtfs ) ) ) {
+		my $sel;
+		my $cmd;
+		my $stdout = '';
+		my $stderr = '';
+		my $stat = 0;
+		my $pid;
+
+		if ( ! -d $virtfs->{$fs}{'dir'} ) {
+			next;
+			}
+
+		if ( $command eq 'mount' ) {
+			if ( ismountpoint( $virtfs->{$fs}{'dir'} ) ) {
+				next;
+				}
+
+			$cmd = "mount -t $virtfs->{$fs}{'fs'}"
+				. " $virtfs->{$fs}{'dev'}"
+				. " $virtfs->{$fs}{'dir'}";
+			}
+		elsif ( $command eq 'umount' ) {
+			if ( ! ismountpoint( $virtfs->{$fs}{'dir'} ) ) {
+				next;
+				}
+
+			$cmd = "umount $virtfs->{$fs}{'dir'}";
+			}
+		else {
+			Snap->error( -1, "virtfs(): $command:"
+				. " not a valid command" );
+			}
+
+		eval {
+			$pid = open3( \*CHLDIN, \*CHLDOUT, \*CHLDERR, $cmd );
+			} || Snap->error( int( $! ), "open3(): $cmd: $!" );
+
+		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 ) ) {
+					$stdout .= <$fh>;
+					}
+				elsif ( fileno( $fh ) == fileno( *CHLDERR ) ) {
+					$stderr .= <$fh>;
+					}
+				}
+			}
+
+		close( CHLDOUT );
+		close( CHLDERR );
+
+		waitpid( $pid, 0 );
+		$stat = $? >> 8;
+
+		if ( $stat ) {
+			Snap->error( $stat, "Failed $command for"
+				. " $virtfs->{$fs}{'dir'}: $stderr" );
+			}
+		}
+
+	foreach my $fs ( sort( keys( %$virtfs ) ) ) {
+		if ( ! ismountpoint( $virtfs->{$fs}{'dir'} ) ) {
+			return( 0 );
+			}
+		}
+
+	return( 1 );
+	}
+
 1;

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 ) {
@@ -102,6 +103,9 @@ elsif ( $command eq 'install' ) {
 	my $string = "@ARGV";
 	my $packages = [];
 	my $bytes = 0;
+	my $virtfs = 0;
+
+	setup();
 
 	foreach my $attrib ( @attribs ) {
 		if ( $string =~ /$attrib\s*:\s*(\S+)/ ) {
@@ -291,17 +295,31 @@ elsif ( $command eq 'install' ) {
 			}
 		}
 
+	if ( $bytes < 0 ) {
+		print "\n\nInstall will recover " . human( -1 * $bytes )
+			. ". Continue? (y/n): ";
+		}
+	else {
 		print "\n\nInstall will require " . human( $bytes )
 			. ". Continue? (y/n): ";
+		}
 
 	chkyes();
 
+	foreach my $package ( @$packages ) {
+		if ( ! $virtfs ) {
+			$virtfs = virtfs( 'mount' );
+			}
+
 		print "\n";
 
-	foreach my $package ( @$packages ) {
 		$package->install( $sources );
 		}
 
+	if ( $virtfs ) {
+		virtfs( 'umount' );
+		}
+
 	print "\n";
 	}
 elsif ( $command eq 'list' ) {
@@ -316,6 +334,8 @@ elsif ( $command eq 'list' ) {
 	print "\n";
 	}
 elsif ( $command eq 'refresh' ) {
+	setup();
+
 	print "\n";
 
 	$sources->refresh();
@@ -331,6 +351,105 @@ elsif ( $command eq 'refresh' ) {
 		print "\n";
 		}
 	}
+elsif ( $command eq 'reinstall' ) {
+	my $opts = {
+		yes => eval {
+			for ( my $i = 0; $i <= $#ARGV; $i++ ) {
+				if ( $ARGV[$i] eq '-y' ) {
+					splice( @ARGV, $i, 1 );
+
+					return( 1 );
+					}
+				}
+			}
+		};
+	my $packages = [];
+	my $virtfs = 0;
+
+	setup();
+
+	$sources->readpkgs();
+
+	print "\n";
+
+	foreach my $pkgname ( @ARGV ) {
+		my $package;
+
+		if ( -f $pkgname ) {
+			$package = Snap::Package->new( $pkgname );
+			}
+		else {
+			$package = $sources->{'installed'}{$pkgname};
+			$package = $sources->search( {
+				name => $package->{'name'},
+				version => $package->{'version'},
+				quiet => 1
+				} );
+			}
+
+		if ( ! $package ) {
+			print STDERR "Package '$pkgname' not installed\n";
+
+			next;
+			}
+
+		if ( $package->{'path'} =~ /https*:\/\// ) {
+			( my $filename = $package->{'path'} ) =~ s/.*\///;
+
+			if ( ! -f Snap->PKGDIR . "/$filename" ) {
+				Snap->httpget( $package->{'path'},
+					Snap->PKGDIR . "/$filename", 0644 );
+				}
+
+			$package->{'path'} = Snap->PKGDIR . "/$filename";
+			}
+
+		push( @$packages, $package );
+		}
+
+	foreach my $package ( @$packages ) {
+		my $termsize = Snap->termsize();
+		my $cnt = 0;
+
+		foreach my $package ( sort { $a->{'name'} cmp $b->{'name'} }
+		( @$packages ) ) {
+			if ( ! $cnt ) {
+				print "The following packages will be"
+					. " reinstalled:\n  ";
+				}
+
+			if ( $termsize->{'col'} - ( length(
+			$package->{'name'} ) + 3 ) <= 0 ) {
+				print "\n  ";
+
+				$termsize = Snap->termsize();
+				}
+
+			print "$package->{'name'} ";
+
+			$termsize->{'col'} -= length( $package->{'name'} ) + 1;
+			$cnt++;
+			}
+		}
+
+	print "\n\nContinue? (y/n): ";
+
+	chkyes();
+
+	foreach my $package ( @$packages ) {
+		if ( ! $virtfs ) {
+			$virtfs = virtfs( 'mount' );
+			}
+
+		print "\n";
+
+		$package->install();
+		}
+
+	virtfs( 'umount' );
+
+	print "\n";
+	}
 elsif ( $command eq 'remove' ) {
 	my $opts = {
 		nodeps => eval {
@@ -498,35 +617,6 @@ elsif ( $command eq 'search' ) {
 		exit -1;
 		}
 
-	print "\n";
-	}
-elsif ( $command eq 'setup' ) {
-	my $opts = {
-		repo => 'core',
-		quiet => 1
-		};
-	my $packages;
-
-	print "\n";
-
-	if ( ! Snap->TARGET ) {
-		Snap->error( -1, 'A target must be specified with -t' );
-		}
-
-	$sources->readpkgs();
-	$packages = $sources->search( $opts );
-
-	for ( my $i = 0; $i <= $#$packages; $i++ ) {
-		if ( $packages->[$i]{'name'} eq 'snap-base' ) {
-			unshift( @$packages, $packages->[$i] );
-			splice( @$packages, $i+1, 1 );
-			}
-		}
-
-	foreach my $package ( @$packages ) {
-		$package->install();
-		}
-
 	print "\n";
 	}
 elsif ( $command eq 'verify' ) {
@@ -536,6 +626,9 @@ elsif ( $command eq 'verify' ) {
 		print Dumper( $package );
 		}
 	}
+elsif ( $command eq 'version' ) {
+	print "\n" . Snap->VERSION . "\n\n";
+	}
 elsif ( $command ) {
 	print "\n";
 

SRC/snap/snapinstall

@@ -0,0 +1,98 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Snap;
+use Data::Dumper;
+
+setup();
+
+my $conf = readconf();
+my $sources = Snap::Sources->new( $conf->{'sources'} );
+
+my $opts = {
+	repo => 'core',
+	quiet => 1
+	};
+my $corepkgs;
+my $packages;
+my $virtfs = 0;
+my $prepkgs = {};
+my $prelist = [ 'snap-base', 'bash', 'coreutils', 'glibc',
+	'libacl', 'libattr', 'libcap', 'ncurses', 'readline',
+	'tzdata', 'perl', 'initscripts' ];
+
+print "\n";
+
+if ( ! Snap->TARGET ) {
+	Snap->error( -1, 'A target must be specified with -t' );
+	}
+
+$sources->readpkgs();
+$corepkgs = $sources->search( $opts );
+
+for ( my $i = 0; $i <= $#$corepkgs; $i++ ) {
+	if ( ! $opts->{'nodeps'} ) {
+		print "Resolving dependencies for"
+			. " $corepkgs->[$i]{'name'}\n";
+
+		$corepkgs->[$i]->depends( $sources, $packages );
+		}
+	else {
+		print "Ignoring dependencies for"
+			. " $corepkgs->[$i]{'name'}\n";
+		}
+
+	push( @$packages, $corepkgs->[$i] );
+	}
+
+for ( my $i = 0; $i <= $#$packages; $i++ ) {
+	if ( $packages->[$i]{'path'} =~ /https*:\/\// ) {
+		( my $filename = $packages->[$i]{'path'} ) =~ s/.*\///;
+
+		if ( ! -f Snap->PKGDIR . "/$filename" ) {
+			Snap->httpget( $packages->[$i]{'path'},
+				Snap->PKGDIR . "/$filename", 0644 );
+			}
+
+		$packages->[$i]{'path'} = Snap->PKGDIR . "/$filename";
+		}
+
+
+	if ( grep( $_ eq $packages->[$i]{'name'}, @$prelist ) ) {
+		$prepkgs->{$packages->[$i]{'name'}} = $packages->[$i];
+
+		splice( @$packages, $i, 1 );
+		$i--;
+		}
+	}
+
+foreach my $package ( @$prelist ) {
+	print "\n";
+
+	$prepkgs->{$package}->install();
+	}
+
+foreach my $package ( @$packages ) {
+	if ( ! $virtfs ) {
+		$virtfs = virtfs( 'mount' );
+		}
+
+	print "\n";
+
+	$package->install();
+	}
+
+if ( $virtfs ) {
+	if ( $pid = fork() ) {
+		waitpid( $pid, 0 );
+		}
+	else {
+		exec( "chroot " . Snap->TARGET . " passwd" );
+		}
+	}
+
+virtfs( 'umount' );
+
+print "\n";