Rev 27 | Blame | Last modification | View Log | RSS feed
#!/usr/bin/env perl
use warnings;
use strict;
our $VERSION = '1.0';
# find our location and use it for searching for libraries
BEGIN {
use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin);
}
use sysinfoconf;
sub readManifest {
my $filename = shift;
my %manifest;
my $directory = 'none';
open FILE,"<$filename" or die "Could not read $filename: $!\n";
while ( $line = <FILE> ) {
chomp $line;
next if $line =~ m/^#/;
if ( $line =~ m/\[(.*)\]/ ) {
$directory = $1;
} else {
my ( $filename, $flags ) = split( "\t", $line );
$manifest{$filename}{'directory'} = $directory;
$manifest{$filename}{$flags} = $flags;
}
}
close FILE;
return \%manifest;
}
sub installFile {
my $fileSpec = shift;
my $manifest = &readManifest( 'MANIFEST' );
foreach my $filename ( keys %$manifest ) {
if ( &installFile( $$manifest{$filename} ) ) {
$$manifest{$filename}{'status'} = 'moved';
} else {
$$mainfest{$filename}{'status'} = 'error';
print &dumpStatus( $manifest );
die;
}
}
}