my $pref = "preferences";
my $new_pref = "preferences.tmp";
my $bak = "preferences.bak";

{
  my $pref = "preferences";
  my $new_pref = "preferences.tmp";
  my $bak = "preferences.bak";


  open PREF, "< $pref";
  open NEW_PREF, ">> $new_pref";

  while (<PREF>) {
	s#$image_directory/.*#$wallpaper"#;
	print NEW_PREF $_;
  }


  rename ($pref,$bak);
  rename($new_pref,$pref);
}

chdir "/home/jivy" or die "Cannot change to jivy: ($!)";

if (`ps -e | grep icewm-session`) {
	exec "icewmbg -r";
	} else {
	exec "icewm-session";
}