add_subdirectory( scripting/scripts )
add_subdirectory( aboutdialog/libattica-ocsclient )
add_subdirectory( transcoding )
-add_subdirectory( kconf_update )
add_subdirectory( importers )
#####################################################################
+++ /dev/null
-install( FILES amarok.upd DESTINATION ${KCONF_UPDATE_INSTALL_DIR} )
-install( PROGRAMS
- amarok-2.4.1-tokens_syntax_update.pl
- DESTINATION ${KCONF_UPDATE_INSTALL_DIR}
- )
+++ /dev/null
-#!/usr/bin/perl -w
-#
-# This script updates all format strings in amarokc config file
-# according to new syntax, replaces %token with %token% if It's needed.
-
-use strict;
-
-sub isUpdated($) {
- return ($_[0] =~ m/%[a-zA-Z0-9]+%/);
-}
-
-sub syntaxUpdate($) {
- my $value = $_[0];
- $value =~ s/(%[a-zA-Z0-9]+)/$1%/g;
- return $value;
-}
-
-#replaceKey("section", "key", "new value");
-sub replaceKey($$$) {
- my ($section, $key, $value) = @_;
- print("# DELETE $section$key\n");
- print("$section\n$key=$value\n");
-}
-
-my $section = "";
-
-while (<>) {
- chomp();
- if (/^\[/) {
- $section = $_;
- }
- elsif (($section eq "[OrganizeCollectionDialog]" and (/^Custom Scheme/ or /^Format Presets/)) or
- ($section eq "[FilenameLayoutDialog]" and /^Custom Scheme/ )) {
- my ($key,$value) = split(/=/);
- next unless length($value);
- replaceKey($section, $key, syntaxUpdate($value)) unless isUpdated($value);
- }
-}