^^&&^^

Edit File: update_local_rpm_versions

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - rpmversions                               Copyright 2012 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;
use warnings;

use Cpanel::RPM::Versions::File ();
use Cpanel::Usage               ();
use Cpanel::SafeDir::MK         ();

# ACTIVATION: remove this activation piece when cPanel on CentOS 7 is officially available #
use Cpanel::ConfigFiles::RpmVersions ();

my $add       = '';
my $edit      = '';
my $del       = '';
my $directory = '';
my $file      = '';
my $key       = 0;
my $section   = 1;
my $value     = '';
my $packages  = '';

my %opts = (
    'directory' => \$directory,
    'file'      => \$file,
    'add'       => \$add,
    'edit'      => \$edit,
    'del'       => \$del,
);

# --add section.key.key value
my $cmdl_regex = {
    'modify' => qr/--                    # -- to begin the command
                   (:?add|edit)          # add or edit
                   \s+                   # one or more spaces
                   (:?\S+?)              # keys
                   \s+                   # one or more spaces
                   (.+?)                 # value is the rest of the provided text.
                   \s*                   # Ignore any trailing spaces
                   $/x,    # end of command

'delete' => qr/--                    # -- to begin the command
                   (:?del)               # Delete command
                   \s+                   # one or more spaces
                   (:?\S+?)              # keys
                   $/x,    # end of command
};

my $orig_cmdl = join ' ', @ARGV;
Cpanel::Usage::wrap_options( \@ARGV, \&usage, \%opts );

$file ||= $Cpanel::ConfigFiles::RpmVersions::RPM_VERSIONS_FILE;
$directory ||= '/var/cpanel/rpm.versions.d';

if ( !-d $directory ) {
    Cpanel::SafeDir::MK::safemkdir( $directory, '0750' );
}

my $versions = Cpanel::RPM::Versions::File->new( { file => $file, directory => $directory } );

if ( $add || $edit ) {

usage() if ( $orig_cmdl !~ /$cmdl_regex->{'modify'}/ );

my $cmdl = $add ? $add : $edit;
    my ( $section, $keys, $value ) = parse_cmd($cmdl);

if ( !$section || !@{$keys} || !$value ) {
        usage();
        exit(1);
    }

my $set_method = "set_$section";
    if ( $versions->can($set_method) ) {

if ( $value =~ /\,/ ) {
            my @values = split /\s*\,\s*/, $value;
            $versions->$set_method( { 'key' => $keys, 'value' => \@values } );
        }
        else {
            $versions->$set_method( { 'key' => $keys, 'value' => $value } );
        }
        $versions->save();
    }
    else {
        print "Section $section does not exist.\n";
        exit 1;
    }
    exit(0);

}
elsif ($del) {

usage() if ( $orig_cmdl !~ /$cmdl_regex->{'delete'}/ );
    my ( $section, $keys ) = parse_cmd($del);

if ( !$section || !$keys ) {
        usage();
        exit(1);
    }

my $del_method = "delete_$section";
    if ( $versions->can($del_method) ) {
        $versions->$del_method( { 'key' => $keys } );
        $versions->save();
    }
    else {
        print "Section $section does not exist.\n";
        exit 1;
    }

exit(0);

}

sub usage {
    my $prog = $0;
    $prog =~ s{^.+/(.+)$}{$1};
    print <<EOF;
$prog --add section.key value
$prog --edit section.key value
$prog --del section.key

EOF
    exit;
}

sub parse_cmd {
    my ($cmd) = @_;
    my ( $section, @keys ) = split /\./, $cmd;

my $value;
    $value = $ARGV[-1] if $ARGV[-1] ne $ARGV[0];

return ( $section, \@keys, $value );
}