Subversion Repositories camp_sysinfo_client_3

#!/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;
   }
}
      
}