[jamdb-user] Bug in jamdb-update alias jamdb

[<dan...@gm...>]

Hi Marc,

In Fact that MD5 don't worked for me I've find this in my Log:

Undefined subroutine &main::get_file_md5sum called at
        /var/www/dbstuff/jamdb line 910 (#1)
    (F) The subroutine indicated hasn't been defined, or if it was, it has
    since been undefined.

Uncaught exception from user code:
        Undefined subroutine &main::get_file_md5sum called at 
/var/www/dbstuff/jamdb line 910.
        main::do_check_md5sums() called at /var/www/dbstuff/jamdb line 1292

After this I've found the missing Lines in the CVS:

############################################################
# calculate a files md5sum
# returns md5sum if activated in config or an empty string
sub get_file_md5sum {

  my ($file) = shift;	# file to calculate checksum from
  my $digest;		# digest object
  my $md5sum = "";	# calculated md5sum

  if ($config{"SAVE_MD5SUM"} =~ /YES|Yes|yes/) {
    use Digest::MD5;
    # open file
    open(FILE, $file)
      or die "Couldn't read file $file";
    # set file to binary
    binmode(FILE);
    # calculate md5sum
    $digest = Digest::MD5->new();
    $digest->addfile(*FILE);
    $md5sum = $digest->hexdigest;
  }
  return $md5sum;
}

After inserting the md5sum works but now I have an other problem.
How can I insert the MD5Sums from the files without deleting the hole
Database?

MFG
Daniel Kröhl

PS.:
Sorry for my english.