Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:thomas-schraitle
docbook2odf
update_from_svn.pl
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File update_from_svn.pl of Package docbook2odf
#! /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
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor