Yeah, I think that would help a lot ... in the end I ended up grabbing a
jpackage'd RPM of Java (rather than the Sun one) because it worked with jedit
... it had the right name, too, which was a nice bonus. :>
Sebastien, would this be you would like to post to the Fedora Wiki? I think it
would be helpful to other folk out there.
Klaus
>
> If that may help, I wrote this small Perl script that takes care of
> renaming RPM files that don't have the expected names (like Sun JDK):
>
> ---[begin: pkg-rename.pl]---
> #!/usr/bin/perl
> use strict;
> use File::Spec;
> use RPM::Perlonly; # pure Perl clone of RPM::Info
>
> die "usage: $0 <rpms directory>\n",
> " check the rpms located in the directory given in argument\n",
> " and rename them correctly if necessary\n"
> unless @ARGV and @ARGV==1;
>
> my($rpms_dir) = @ARGV;
>
> # check that the given arguments exist
> -d $rpms_dir or die "No such directory: $rpms_dir\n";
>
> opendir(DIR, $rpms_dir) or die "can't read directory '$rpms_dir': $!";
> my @dir = grep /\.rpm$/, readdir(DIR);
> closedir(DIR);
>
> for my $file (@dir) {
> my $path = File::Spec->catfile($rpms_dir, $file);
> tie my %header, "RPM::Perlonly", $path or next;
> my $new_name = sprintf "%s-%s-%s.%s.rpm", @header{qw(NAME VERSION RELEASE
> ARCH)};
> if($file ne $new_name) {
> print " $file --> $new_name\n";
> rename($path, File::Spec->catfile($rpms_dir, $new_name))
> or warn "can't rename '$file' to '$new_name': $!";
> }
> untie %header;
> }
> ---[end]---
>
> --
> S?bastien Aperghis-Tramoni
>
> Close the world, txEn eht nepO.
>
> _______________________________________________
> Kickstart-list mailing list
> Kickstart-list@xxxxxxxxxx
> https://www.redhat.com/mailman/listinfo/kickstart-list
--
Klaus Steden |
Senior Systems Administrator |
Technicolor Creative Services | TODO:
Toronto | 1) Learn to use my new Unix account.
klaus.steden@xxxxxxxxxxx | 2) Learn how to change this list.
Phone: (416) 585-9995 |
Fax: (416) 364-1585 |
