Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.2:PowerPC
branding-basedonopensuse
extract.pl
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File extract.pl of Package branding-basedonopensuse
#!/usr/bin/perl # Copyright (c) 2007, 2008, SUSE Linux Products GmbH # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to deal # in the Software without restriction, including without limitation the rights # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell # copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN # THE SOFTWARE. use POSIX; # Needed for setlocale() my $inpkg = 0; my $packagename = $ARGV[1]; my $tag = $ARGV[2]; my $descr = ''; my %sources; my $name; open(SOURCES, $ARGV[0]); while ( <SOURCES> ) { chomp; if (m/^=Pkg:/ && $inpkg) { last; } if (m/^\+$tag/) { $intag = 1; next; } if ($inpkg && m/^=$tag/) { s/.*:\s*//; print "$_\n"; next; } $intag = 0 if (m/^\-$tag/); if (m/^=Pkg:.*$packagename.* /) { $inpkg = 1; } print "$_\n" if ($inpkg && $intag); } close(SOURCES);
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