[Bio] / Sprout / NMPDRSetup.pl Repository:
ViewVC logotype

Diff of /Sprout/NMPDRSetup.pl

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

revision 1.2, Thu Dec 6 14:58:03 2007 UTC revision 1.3, Thu Dec 6 21:23:06 2007 UTC
# Line 122  Line 122 
122  use File::Copy;  use File::Copy;
123  use File::Path;  use File::Path;
124  use File::stat;  use File::stat;
125  use POSIX;  #use POSIX;
126  use IO::Handle;  use IO::Handle;
127    
128  # Get the command-line options.  # Get the command-line options.
# Line 146  Line 146 
146                                            server =>   ['nmpdr-1.nmpdr.org',                                            server =>   ['nmpdr-1.nmpdr.org',
147                                                         'name of the server containing the development NMPDR cover pages'],                                                         'name of the server containing the development NMPDR cover pages'],
148                                          },                                          },
149                                              '<versionID>',                                              '<versionNumber>',
150                                              @ARGV);                                              @ARGV);
151    
152  # Get the main directory names.  # Get the main directory names.
# Line 164  Line 164 
164  # Set up the CVS data. Note that we are using an anonymous login. You can  # Set up the CVS data. Note that we are using an anonymous login. You can
165  # update from the NMPDR server but you can't commit!  # update from the NMPDR server but you can't commit!
166  my $cvsroot = ":pserver:anonymous\@biocvs.mcs.anl.gov:/disks/cvs/bio";  my $cvsroot = ":pserver:anonymous\@biocvs.mcs.anl.gov:/disks/cvs/bio";
167  my $cvs_packages = "seed_base GBrowse Sprout NmpdrConfigs FigSeedViewer PPO SubsystemEditor WebApplication";  my $cvs_packages = "nmpdr_base";
168    
169  # Check the parameters. Note that if the starting stage is 5 (display instructions), we don't need to do any of this.  # Check the parameters.
 if ($options->{stage} < 5) {  
170      if (! $FIG_Config::nmpdr_base) {      if (! $FIG_Config::nmpdr_base) {
171          Confess("Please specify a value for FIG_Config::nmpdr_base.");          Confess("Please specify a value for FIG_Config::nmpdr_base.");
172      } elsif (! -d $FIG_Config::nmpdr_base) {      } elsif (! -d $FIG_Config::nmpdr_base) {
# Line 181  Line 180 
180      } elsif ($version !~ /^\d+$/) {      } elsif ($version !~ /^\d+$/) {
181          Confess("Invalid (non-numeric) version number $version.");          Confess("Invalid (non-numeric) version number $version.");
182      }      }
 }  
183  # Make the version number pretty.  # Make the version number pretty.
184  $version = sprintf("%02d", $version);  $version = sprintf("%02d", $version);
185  # Add the version number to the release name.  # Add the version number to the release name.
# Line 513  Line 511 
511  #  #
512  if ($options->{stage} <= 5) {  if ($options->{stage} <= 5) {
513      Trace("Copying cover pages.") if T(2);      Trace("Copying cover pages.") if T(2);
514      my @syncData = `rsync --archive --recursive /disks/nmpdr/$old_version/html /disks/nmpdr/$version_dir/`;      my @syncData = `rsync --archive --recursive /disks/nmpdr/v$old_version/html $version_dir/`;
515      Trace("Copy results\n" . join("\n", @syncData)) if T(3);      Trace("Copy results\n" . join("\n", @syncData)) if T(3);
516      # Create the version number file for the wiki.      # Create the version number file for the wiki.
517      my $text = join("\n", "<?php",      my $text = join("\n", "<?php",
518                            "\$wgNmpdrVersion = $version;",                            "\$wgNmpdrVersion = $version;",
519                            "?>",                            "?>",
520                            "");                            "");
521      my $fh = Tracer::Open(undef, ">/disks/nmpdr/$version_dir/html/wiki/extensions/NmpdrVersion.php");      my $fh = Tracer::Open(undef, ">$version_dir/html/wiki/extensions/NmpdrVersion.php");
522      print "$fh", $text;      print "$fh", $text;
523      close $fh;      close $fh;
524      Trace("Version file created for wiki.") if T(2);      Trace("Version file created for wiki.") if T(2);
# Line 531  Line 529 
529  #  #
530  if ($options->{stage} <= 6) {  if ($options->{stage} <= 6) {
531      Trace("Copying drug target files.") if T(2);      Trace("Copying drug target files.") if T(2);
532      my @syncData = `  rsync --archive --recursive /disks/nmpdr/$old_version/FIGdisk/FIG/var/DrugTargetData /disks/nmpdr/$version_dir/`;      my @syncData = `  rsync --archive --recursive /disks/nmpdr/v$old_version/FIGdisk/FIG/var/DrugTargets $version_dir/FIGdisk/FIG/var/`;
533      Trace("Copy results\n" . join("\n", @syncData)) if T(3);      Trace("Copy results\n" . join("\n", @syncData)) if T(3);
534      Trace("Stage 6 complete.") if T(2);      Trace("Stage 6 complete.") if T(2);
535  }  }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3