[Koha-cvs] CVS: koha buildrelease,1.1.2.5,1.1.2.6

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv26872

Modified Files:
      Tag: rel-1-2
        buildrelease 
Log Message:
Now remembers locations of cvs checkouts.  Prettied up the output a bit.


Index: buildrelease
===================================================================
RCS file: /cvsroot/koha/koha/Attic/buildrelease,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -C2 -r1.1.2.5 -r1.1.2.6
*** buildrelease        25 Jun 2002 21:11:07 -0000      1.1.2.5
--- buildrelease        25 Jun 2002 21:58:53 -0000      1.1.2.6
***************
*** 3,6 ****
--- 3,20 ----
  my $kohadir=`pwd`;
  chomp $kohadir;
+ my $kohahtmldir="/koha/koha/koha-html/";
+ 
+ if (-e "/root/.kohaautobuild.conf") {
+     open C, "/root/.kohaautobuild.conf";
+     while (<C>) {
+       chomp;
+       if (/kohadir=(.*)/) {
+           $kohadir=$1;
+       }
+       if (/kohahtmldir=(.*)/) {
+           $kohahtmldir=$1;
+       }
+     }
+ }
  
  my $input;
***************
*** 25,29 ****
  
  
- my $kohahtmldir="/koha/koha/koha-html/";
  print "\nWhere is the 'koha-html' cvs module located [$kohahtmldir]: ";
  chomp($input = <STDIN>);
--- 39,42 ----
***************
*** 32,35 ****
--- 45,53 ----
  }
  
+ open (C, ">/root/.kohaautobuild.conf");
+ print C qq|
+ kohadir=$kohadir
+ kohahtmldir=$kohahtmldir
+ |;
  
  print "\n\nGuessing at next release version.  You may need to enter your 
SourceForge password...\n";
***************
*** 86,96 ****
  
  print "Current release tag is $currentversion.\n";
! print "Would you like to bump that up to $releaseversion?  [Y]/N: ";
  chomp($input = <STDIN>);
  if ($input =~ /^n/i) {
!     print "Would you like to rebuild the $currentversion tarball?  Y/[N]: ";
      chomp($input = <STDIN>);
      if ($input =~ /^y/i) {
        $releaseversion=$currentversion;
        print "Do not do this if you have released the tarball to anybody, as 
it will\n";
        print "overwrite the tag marking the files that were in the 
tarball.\n\n";
--- 104,115 ----
  
  print "Current release tag is $currentversion.\n";
! print "\nWould you like to bump that up to $releaseversion?  [Y]/N: ";
  chomp($input = <STDIN>);
  if ($input =~ /^n/i) {
!     print "\nWould you like to rebuild the $currentversion tarball?  Y/[N]: ";
      chomp($input = <STDIN>);
      if ($input =~ /^y/i) {
        $releaseversion=$currentversion;
+       print "\n\n";
        print "Do not do this if you have released the tarball to anybody, as 
it will\n";
        print "overwrite the tag marking the files that were in the 
tarball.\n\n";
***************
*** 134,138 ****
  system("cvs update");
  print qq|
! Tagging koha with tag release-$tagname
  |;
  system("cvs tag -F R_$tagname");
--- 153,157 ----
  system("cvs update");
  print qq|
! Tagging koha with tag R_$tagname
  |;
  system("cvs tag -F R_$tagname");
***************
*** 144,148 ****
  system("cvs update");
  print qq|
! Tagging koha-html with tag release-$tagname
  |;
  system("cvs tag -F R_$tagname");
--- 163,167 ----
  system("cvs update");
  print qq|
! Tagging koha-html with tag R_$tagname
  |;
  system("cvs tag -F R_$tagname");
***************
*** 234,237 ****
--- 253,266 ----
  chdir("/tmp");
  system("tar czf /tmp/koha-$releaseversion.tar.gz koha-".$releaseversion);
+ system("rm -rf $rootdir");
+ 
+ print qq|
+ ============
+ = ALL DONE =
+ ============
+ 
+ Your new tarball is located in /tmp/koha-$releaseversion.tar.gz
+ 
+ |;