Diff for /loncom/LONCAPA.pm between versions 1.13 and 1.13.2.1

version 1.13, 2006/08/11 20:07:18 version 1.13.2.1, 2006/10/13 19:11:05
Line 269  sub _do_hash_untie { Line 269  sub _do_hash_untie {
        return undef;          return undef; 
    }      } 
 # If this is compressed, we will actually need an exclusive lock  # If this is compressed, we will actually need an exclusive lock
    if (-e "$file_prefix.db.gz") {     if (-e "$file_prefix.db.gz"
          || !-e "$file_prefix.db.old" ) {
        if (!&flock_sym(LOCK_EX)) {         if (!&flock_sym(LOCK_EX)) {
    &clean_sym();     &clean_sym();
    return undef;     return undef;
Line 294  sub _do_hash_untie { Line 295  sub _do_hash_untie {
        system("gunzip $file_prefix.hist.gz");         system("gunzip $file_prefix.hist.gz");
    }     }
        }         }
          if (!-e "$file_prefix.db.old") {
              my $dump_db = '/home/httpd/perl/debug/dump_db_static_32';
      my $create_db = '/home/httpd/perl/debug/create_db_dynamic_64';
              my $file = "$file_prefix.db";
              &main::logthis("Converting $file");
              if (!-x $dump_db) {
          &clean_symb();
          &main::logthis("$dump_db unexecutable");
          return;
      }
              if (!-x $create_db) {
          &clean_symb();
          &main::logthis("$create_db unexecutable");
          return;
      }
      system("$dump_db -f $file|$create_db -f $file.new");
      if (!-e "$file.new") {
          &clean_symb();
          &main::logthis("conversion faile $file.new doesn't exist");
          return;
      }
              rename($file,"$file.old");
      rename("$file.new","$file");
          }
 # Change access mode to non-blocking  # Change access mode to non-blocking
        $how=$how|&GDBM_NOLOCK();         $how=$how|&GDBM_NOLOCK();
 # Go ahead and tie the hash  # Go ahead and tie the hash

Removed from v.1.13  
changed lines
  Added in v.1.13.2.1


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>