urpmi mini How To

[Guest anon]

http://homepage.ntlworld.com/brian.robinso...cs/urpmi-howto/

[DOlson]

This is on the links page now. :)

[ezroller]

this should get moved me thinks? kernel and programming DOLson?????? 8) :roll: :roll: :roll:

[DOlson]

Why did you say my name? It's not like I can move it or anything, so talk to one of the mods. And when I originally replied, the forum layout hadn't been changed. So there. :P

[ezroller]

LMAO

[Guest DirtDart]

I usually store the RPMs from the distro CDs, and a few others like Texstar's, on my local developement box, then use FTP to install new stuff.

 

Well, quickly found that I needed more-updated hdlist.cz files. To create them, I found a script called genhdlist which makes the hdlist.cz files. From what I've read, it used to be included with a few distros but not anymore for some strange reason.

 

Anyway, here is the script, for those that want it. NOTE: I did not write this and take no credit for doing anything execpt finding it on the 'net.

 

#!/usr/bin/perl

 

use strict;

use URPM;

use URPM::Build;

use File::Find;

use File::Path;

 

my $urpm = new URPM;

my $tmpdir = "/tmp/genhdlist";

my $index="hdlist.cz";

my $synthesis="synthesis.$index";

my $dir = @ARGV[0] or die "usage: genhdlist <dir>";

 

chdir $dir or die "can't chdir in directory $dir";

 

# get rpm list

my @rpms;

File::Find::find({wanted => &wanted}, ".");

sub wanted {

if (-f $_ && $_ =~ /^.*.rpm$/ ) {

print "$File::Find::namen";

push(@rpms, $File::Find::name);

}

}

if (!@rpms) {

print "no rpms found, abortingn";

exit(0);

}

 

# create index file

mkpath($tmpdir);

$urpm->parse_rpms_build_headers(dir => $tmpdir,

rpms => @rpms);

@{$urpm->{depslist}} > 0 or die "nothing read";

$urpm->build_hdlist(start => 0,

end => $#{$urpm->{depslist}},

dir => $tmpdir,

hdlist => $index,

ratio => 9);

rmtree($tmpdir);

 

# create synthesis file

$urpm->build_synthesis(start => 0,

end => $#{$urpm->{depslist}},

synthesis => $synthesis);

 

# create list file

open(LIST, "> list") or die "can't create list file list: $!";

foreach my $rpm (@rpms) { print LIST "$rpmn" };

close(LIST);

 

 

 

Hope this helps.

 

 

 

 

DirtDart

[bvc]

The original link above has changed to

http://myweb.tiscali.co.uk/jwrobinson/docs.html