#!/usr/bin/perl
print "Updating nthemes.rc";
chdir("/home/cpanel/cpanelsync/addons/cpanel");
$program = $ARGV[0];
$progver = $ARGV[1];
@lines = ();
open(NTHEMES,"<","nthemes.rc");
while (<NTHEMES>) {
	chomp;
	my @line = split(/\|/,$_);
	#print "$line[5]\n";
	if ($line[0] =~ /^${program}.*/) {
		#print "Looking @ $line[5]\n";
		if ($line[5] =~ m/^([\d.]+)-(.*)/) {
 			$fver = $1;
			$sver = $2;
			#print "${fver}\n";
			#print "${fver}-${progver}";
			$line[5] =~ s/.*/${fver}-${progver}/;
		}
		else {
			$line[5] =~ s/.*/${progver}/;
		}
	        push @lines,join("|",@line);
	}
	else { push @lines,$_; }
}
close(NTHEMES);
open(NTHEMES,">","nthemes.rc");
print NTHEMES join("\n",@lines);
close(NTHEMES);