Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:jnweiger
jw-env
update_from_cvs.pl
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File update_from_cvs.pl of Package jw-env
#! /usr/bin/perl -w # # update_from_cvs.pl -- script to update osc package from source. # 2009-10-22, jw use POSIX; my $now = strftime "svn%Y%m%d", localtime; my $url = ''; my $v; open IN, <*.spec>; while (defined (my $line = <IN>)) { chomp $line; if ($line =~ m{^Url:\s+(\S+)}) { $url = $1; last; } } print "now=$now\n"; print "url=$url\n"; my $cmd = "svn cat $url/NEWS 2>/dev/null"; open IN, "$cmd|" or die "$cmd: failed: $!\n"; while (defined (my $line = <IN>)) { chomp $line; if ($line =~ m{^(0\.\d+\w*)$}) { $v = $1; last; } } close IN; print "v=$v\n"; $v .= "." if length $v; $v .= $now; # todo: push version number into osc/core.py # subprocess.check_call(["sed", "-ie", "/^__version__/s/_SVN//", d+"/osc/core.py"]) $cmd = "svn export $url osc-$v && tar czf osc-$v.tar.gz osc-$v"; system $cmd;
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
