#!/usr/bin/perl

while (my (@pwent) = getpwent()) {
  my $homedir = $pwent[7];
  my $prefs;
  if (open PREFS, "<$homedir/.ayttm/prefs") {
    while (<PREFS>) {
      s!/usr/share/ayttm/modules!/usr/lib/ayttm!g;
      $prefs .= $_;
    }
    close PREFS;
    unless (rename("$homedir/.ayttm/prefs","$homedir/.ayttm/prefs.orig")) {
      warn "Cannot $homedir/.ayttm/prefs to $homdir/.ayttm/prefs.orig";
      next;
    }
    open PREFS, ">$homedir/.ayttm/prefs";
    print PREFS $prefs;
    close PREFS;
  }
}