convert-sieve.pl   [plain text]

#!/usr/bin/perl

#
# Run this script in your sievedir to fix the names of people's sieve
# directories to conform with the altnamespace format.
# 

$|++;

foreach $file (glob "?/*.*") {
    print "Converting $file...";

    $oldfile = $file;
    $file =~ s/\./^/g;

    print "to $file...";

    if (rename $oldfile, $file) {
	print "Done.\n";
    } else {
	print "Error: $!\n";
    }
}