File update_from_svn.pl of Package jw-env

#! /usr/bin/perl -w
#
# update_from_svn.pl -- script to update buildservice package from source.
# 2009-10-22, jw
# 2009-11-01, jw

use POSIX;

my $name = shift;

my $now = strftime "svn%Y%m%d", localtime;
my $url = '';
my $v;
open IN, <*.spec>;
while (defined (my $line = <IN>))
  {
    chomp $line;
    $url = $1 if $line =~ m{^Url:\s+(\S+)};
    $name = $1 if $line =~ m{^Name:\s+(\S+)};
    last if $name and $url;
  }
print "now=$now\n";
print "url=$url\n";
print "name=$name\n";

$v .= $now;
my $urlp = $1 if $url =~ m{(.*)/\w};

## SVN:
for my $cmd (
             "svn export $url $name-$v",
#             "sed -ie \"s/^__version__.*/__version__ = '$v'/\" $name-$v/osc/core.py",
              "svn cat $urlp/param.mkp > $name-$v/param.mkp",
             "sed -ie \"s/^Version:.*/Version:          $v/\" *.spec",
	     "tar jcvf $name-$v.tar.bz2 $name-$v")
  {
    print "$cmd\n";
    system $cmd;
  }


## CVS
# cvs -z6 -d:pserver:anonymous@cvs.sv.gnu.org:/sources/avr-libc export -d avr-libc-cvs20091101 -D now avr-libc
# mv avr-libc-cvs20091110 avr-libc-1.6.7.cvs20091110
# tar zcvf avr-libc-1.6.7.cvs20091110.tar.gz avr-libc-1.6.7.cvs20091110