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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.136, Sat Sep 6 20:34:52 2008 UTC revision 1.137, Thu Sep 25 15:36:03 2008 UTC
# Line 3954  Line 3954 
3954      return $self->{last_updated};      return $self->{last_updated};
3955  }  }
3956    
3957    sub get_checkvariant_definitions {
3958      my ( $self ) = @_;
3959    
3960      my $cvd_string = '';
3961      if ( open( CVD, "<$self->{dir}/checkvariant_definitions" ) ) {
3962        while ( defined( $_ = <CVD> ) ) {
3963          $cvd_string .= $_;
3964        }
3965        close( CVD );
3966      }
3967      return $cvd_string;
3968    }
3969    
3970    sub get_checkvariant_rules {
3971      my ( $self ) = @_;
3972    
3973      my $cvr_string = '';
3974      if ( open( CVR, "<$self->{dir}/checkvariant_rules" ) ) {
3975        while ( defined( $_ = <CVR> ) ) {
3976          $cvr_string .= $_;
3977        }
3978        close( CVR );
3979      }
3980      return $cvr_string;
3981    }
3982    
3983    sub save_checkvariant_definitions {
3984      my ( $self, $cvd_string ) = @_;
3985      open( CVD, ">$self->{dir}/checkvariant_definitions" ) || die "could not open checkvariant_definitions file";
3986      print CVD "$cvd_string\n";
3987      close( CVD );
3988    }
3989    
3990    sub save_checkvariant_rules {
3991      my ( $self, $cvs_string ) = @_;
3992    
3993      open( CVS, ">$self->{dir}/checkvariant_rules" ) || die "could not open checkvariant_rules file";
3994      print CVS "$cvs_string\n";
3995      close( CVS );
3996    }
3997    
3998  #  #
3999  # Subsystem copying logic  # Subsystem copying logic
4000  #  #

Legend:
Removed from v.1.136  
changed lines
  Added in v.1.137

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3