/usr/share/kconf_update/konversation-0.19-sortorder.pl is in konversation-data 1.6-0ubuntu1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | #! /usr/bin/perl
use strict;
my $currentGroup = "";
my $name;
my $value;
my $out;
my %list;
while (<>)
{
chomp;
if ( /^\[/ )
{
$currentGroup = $_;
next;
}
elsif ($_ =~ /AdminValue/)
{
($name,$value) = split("=",$_);
$list{"$value"} = "p";
print("# DELETE $currentGroup$name\n");
}
elsif ($_ =~ /HalfopValue/)
{
($name,$value) = split("=",$_);
$list{"$value"} = "h";
print("# DELETE $currentGroup$name\n");
}
elsif ($_ =~ /NoRightsValue/)
{
($name,$value) = split("=",$_);
$list{"$value"} = "-";
print("# DELETE $currentGroup$name\n");
}
elsif ($_ =~ /OperatorValue/)
{
($name,$value) = split("=",$_);
$list{"$value"} = "o";
print("# DELETE $currentGroup$name\n");
}
elsif ($_ =~ /OwnerValue/)
{
($name,$value) = split("=",$_);
$list{"$value"} = "q";
print("# DELETE $currentGroup$name\n");
}
elsif ($_ =~ /VoiceValue/)
{
($name,$value) = split("=",$_);
$list{"$value"} = "v";
print("# DELETE $currentGroup$name\n");
}
elsif ($_ =~ /AwayValue/)
{
($name,$value) = split("=",$_);
print("# DELETE $currentGroup$name\n");
}
}
print "SortOrder=";
foreach $out (reverse sort { $a <=> $b } keys %list)
{
print $list{$out};
}
print "\n";
|