Attachment 964 Details for Bug 337 – Script listing packages to delete

Script listing packages to delete

clean.rb (text/plain), 1.36 KB, created by Pascal Terjan on 2011-10-14 22:05:17 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Pascal Terjan

Created: 2011-10-14 22:05:17 CEST

Size: 1.36 KB

patch

obsolete

>#!/usr/bin/ruby
>
>def usage
>	puts "Usage: #{$0} [options]"
>	puts "Lists packages without src.rpm"
>	puts
>	puts "-h, --help		show help"
>	puts "-m, --media <path>	path to the binary media"
>	puts "-s, --src <path>	path to the associated src media"
>end
>
>require 'rpm'
>require 'getoptlong'
>
>opts = GetoptLong.new(
> [ '--help', '-h', GetoptLong::NO_ARGUMENT ],
> [ '--media', '-m', GetoptLong::REQUIRED_ARGUMENT ],
> [ '--smedia', '-s', GetoptLong::REQUIRED_ARGUMENT ],
> [ '--src', '-S', GetoptLong::NO_ARGUMENT ]
>)
>
>bin_path = "/distrib/bootstrap/distrib/cauldron/i586/media/core/release"
>src_path = "/distrib/bootstrap/distrib/cauldron/SRPMS/core/release"
>mode = "bin"
>
>opts.each do |opt, arg|
>	case opt
>		when '--help'
>			usage
>			exit 0
>		when '--media'
>			bin_path = arg
>		when '--smedia'
>			src_path = arg
>		when '--src'
>			mode = "src"
>	end
>end
>
>used_srcs = {}
>old_binaries = []
>srcs = {}
>
>`urpmf --synthesis "#{src_path}/media_info/synthesis.hdlist.cz" --qf '%filename' "."`.each_line{|l|
>	srcs[l.rstrip] = true
>}
>`urpmf --synthesis "#{bin_path}/media_info/synthesis.hdlist.cz" --qf '%sourcerpm:%filename' ":"`.each_line{|l|
>	l2 = l.split(':')
>	src = l2[0]
>	filename = l2[1].rstrip
>	old_binaries << filename unless srcs[src]
>	used_srcs[src] = true
>}
>
>if mode == "bin"
>	old_binaries.each{|b|
>		puts "#{bin_path}/#{b}"
>	}
>else
>	srcs.each_key{|s|
>		puts "#{src_path}/#{s}" unless used_srcs[s]
>	}
>end
>

#!/usr/bin/ruby

def usage
	puts "Usage: #{$0} [options]"
	puts "Lists packages without src.rpm"
	puts
	puts "-h, --help		show help"
	puts "-m, --media <path>	path to the binary media"
	puts "-s, --src <path>	path to the associated src media"
end

require 'rpm'
require 'getoptlong'

opts = GetoptLong.new(
 [ '--help', '-h', GetoptLong::NO_ARGUMENT ],
 [ '--media', '-m', GetoptLong::REQUIRED_ARGUMENT ],
 [ '--smedia', '-s', GetoptLong::REQUIRED_ARGUMENT ],
 [ '--src', '-S', GetoptLong::NO_ARGUMENT ]
)

bin_path = "/distrib/bootstrap/distrib/cauldron/i586/media/core/release"
src_path = "/distrib/bootstrap/distrib/cauldron/SRPMS/core/release"
mode = "bin"

opts.each do |opt, arg|
	case opt
		when '--help'
			usage
			exit 0
		when '--media'
			bin_path = arg
		when '--smedia'
			src_path = arg
		when '--src'
			mode = "src"
	end
end

used_srcs = {}
old_binaries = []
srcs = {}

`urpmf --synthesis "#{src_path}/media_info/synthesis.hdlist.cz" --qf '%filename' "."`.each_line{|l|
	srcs[l.rstrip] = true
}
`urpmf --synthesis "#{bin_path}/media_info/synthesis.hdlist.cz" --qf '%sourcerpm:%filename' ":"`.each_line{|l|
	l2 = l.split(':')
	src = l2[0]
	filename = l2[1].rstrip
	old_binaries << filename unless srcs[src]
	used_srcs[src] = true
}

if mode == "bin"
	old_binaries.each{|b|
		puts "#{bin_path}/#{b}"
	}
else
	srcs.each_key{|s|
		puts "#{src_path}/#{s}" unless used_srcs[s]
	}
end

Actions: View

Attachments on bug 337: 964 | 965