First working version. rpm created and tested (a little).

root/etc/e-smith/events/actions/profile-gui-clean

@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+# vim:sts=4:sw=4:tw=78
+
+package esmith;
+
+use strict;
+use Errno;
+use esmith::DB::db;
+use IO::File;
+use English;
+
+# This script helps cleaning up only graphical settings for a user.
+
+my $db_users = esmith::DB::db->open('accounts') || die("Cannot open e-smith db accounts: " . esmith::DB::db->error . "\n");
+
+my $event = $ARGV[0];
+
+defined $ARGV[1] || die("No user specified");
+my $user = $ARGV[1];
+
+profile_gui_clean($user);
+
+sub profile_gui_clean {
+    my ($username) = @_;
+    my @u = $db_users->get($username) || die("No user record for '$username'.");
+
+    my @directories = (
+	".cache",
+	".config",
+	".gconf",
+	".kde",
+	".gnome2",
+	".gnome2_private"
+    );
+
+    foreach (@directories) {
+	system("rm -rf /var/lib/nethserver/home/$username/$_") == 0 || die("Error cleaning up graphics settings for $username. Exiting.");
+    }
+}