[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.152, Thu Sep 16 04:35:03 2004 UTC revision 1.153, Thu Sep 16 15:15:57 2004 UTC
# Line 1154  Line 1154 
1154      {      {
1155          &verify_dir($1);          &verify_dir($1);
1156      }      }
1157      mkdir($dir,0777) || die "could not make $dir";      mkdir($dir,0777) || die "could not make $dir: $!";
1158      chmod 02777,$dir;      chmod 02777,$dir;
1159  }  }
1160    
# Line 3958  Line 3958 
3958              print TMP "$feature_id\n$time_made\n$user\n$annotation", (substr($annotation,-1) eq "\n") ? "" : "\n","//\n";              print TMP "$feature_id\n$time_made\n$user\n$annotation", (substr($annotation,-1) eq "\n") ? "" : "\n","//\n";
3959              my $seek2 = tell TMP;              my $seek2 = tell TMP;
3960              close(TMP);              close(TMP);
3961              chmod 02777, $file;              chmod 0777, $file;
3962              my $ln = ($seek2 - $seek1) - 3;              my $ln = ($seek2 - $seek1) - 3;
3963              my $rdbH = $self->db_handle;              my $rdbH = $self->db_handle;
3964              if ($rdbH->SQL("INSERT INTO annotation_seeks ( fid, dateof, who, ma, fileno, seek, len ) VALUES ( \'$feature_id\', $time_made, \'$user\', \'$ma\', $fileno, $seek1, $ln )"))              if ($rdbH->SQL("INSERT INTO annotation_seeks ( fid, dateof, who, ma, fileno, seek, len ) VALUES ( \'$feature_id\', $time_made, \'$user\', \'$ma\', $fileno, $seek1, $ln )"))
# Line 7141  Line 7141 
7141      flock(TMP,LOCK_EX) || confess "cannot lock deleted.features";      flock(TMP,LOCK_EX) || confess "cannot lock deleted.features";
7142      print TMP "$fid\n";      print TMP "$fid\n";
7143      close(TMP);      close(TMP);
7144      chmod 02777, "$FIG_Config::global/deleted.features";      chmod 0777, "$FIG_Config::global/deleted.features";
7145      $self->{_deleted_fids} = undef;      $self->{_deleted_fids} = undef;
7146  }  }
7147    
# Line 7334  Line 7334 
7334          flock(TMP,LOCK_EX) || confess "cannot lock changed.location.features";          flock(TMP,LOCK_EX) || confess "cannot lock changed.location.features";
7335          print TMP "$fid\n";          print TMP "$fid\n";
7336          close(TMP);          close(TMP);
7337          chmod 02777, "$FIG_Config::global/changed.location.features";          chmod 0777, "$FIG_Config::global/changed.location.features";
7338          $self->{_changed_location_fids} = undef;          $self->{_changed_location_fids} = undef;
7339    
7340          if (($type eq "peg") && defined($translation))          if (($type eq "peg") && defined($translation))

Legend:
Removed from v.1.152  
changed lines
  Added in v.1.153

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3