[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]

Re: RHEL 4.2 Anaconda problems



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 redhat com
> 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 thomson net              | 2) Learn how to change this list.
Phone: (416) 585-9995                 |
Fax: (416) 364-1585                   |


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]