Page MenuHomePhorge
Files F120838222

translatesieve
No OneTemporary
Actions

Authored By
Unknown
Size
10 KB
Referenced Files
None
Subscribers
None

translatesieve
View Options

#!/bin/sh
exec perl -x -S $0 ${1+"$@"} # -*-perl-*-
#!perl -w
#
# script to translate sieve scripts to use unixhierarchysep and/or altnamespace
# make sure you run it as the cyrus user
#
# Copyright (c) 1994-2008 Carnegie Mellon University. All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
#
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
#
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in
# the documentation and/or other materials provided with the
# distribution.
#
# 3. The name "Carnegie Mellon University" must not be used to
# endorse or promote products derived from this software without
# prior written permission. For permission or any legal
# details, please contact
# Carnegie Mellon University
# Center for Technology Transfer and Enterprise Creation
# 4615 Forbes Avenue
# Suite 302
# Pittsburgh, PA 15213
# (412) 268-7393, fax: (412) 268-7395
# innovation@andrew.cmu.edu
#
# 4. Redistributions of any form whatsoever must retain the following
# acknowledgment:
# "This product includes software developed by Computing Services
# at Carnegie Mellon University (http://www.cmu.edu/computing/)."
#
# CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
# THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
# AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
# FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
# AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
# OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
require 5;
use strict;
use warnings;
use Getopt::Std;
my $OPT_WasUnix = 0;
my $OPT_WasAlt = 0;
my $imapdconf = "/etc/imapd.conf";
my %Opts;
getopts('vnhuaC:', \%Opts);
usage() if $Opts{h};
my $OPT_NoAction = $Opts{n};
my $OPT_Verbose = $Opts{v} || $Opts{n};
my $OPT_Force = 1 if $Opts{f};
$OPT_WasUnix = 1 if $Opts{u};
$OPT_WasAlt = 1 if $Opts{a};
$imapdconf = $Opts{C} if $Opts{C};
$| = 1;
# XXX - actually read the cyrus username from the imapd.conf and
# change ownership as appropriate?
die "must not run as root" if ($< == 0);
my $sievedir = "/usr/sieve";
my $userprefix = "Other Users";
my $sharedprefix = "Shared Folders";
# The following two settings used to default to 0,but that changed
# with v3.0
my $unixhierarchysep = 1;
my $altnamespace = 1;
my @configs = ($imapdconf);
while (my $conf = shift @configs) {
read_conf($conf);
}
sub ouch {
my $msg = shift;
if ($OPT_Force || $OPT_NoAction) {
print "error: $msg\n";
} else {
print "fatal error: $msg\n";
exit 1;
}
}
sub usage {
die <<EOF
usage: $0 [-v] [-n] [-u] [-a] [-C imapd.conf]
-v verbose
-n no change - just show what would be done
-f keep going on errors
-u previous configuration used "unixhierarchysep: yes"
-a previous configuration used "altnamespace: yes"
-C use configuration file specified, rather than default
NOTE: if imapd.conf is not provided, it will be read from the default
location. On a normal system this will be /etc/imapd.conf. The *new*
settings for unixhierarchysep and altnamespace will be read from the
provided imapd.conf.
WARNING: By default, this utility assumes that the OLD configuration
did not use either unixhierarchysep or altnamespace. If you had used
either of these you MUST indicate this or your sieve scripts may get
broken!
In verbose mode, each command will be printed.
In "no change" mode, it will just print the changes. Note, verbose is
always turned on in no-change mode.
NOTE: It should be safe to run translatesieve on a running system, but
it may mess things up horribly if you have some processes still running
with old config, and some with new - so it is always recommended to
fully shut down Cyrus, change the configuration file, run
translatesieve, and then start Cyrus again.
EOF
}
sub read_conf {
my $file = shift;
open CONF, $file or die "can't open $file";
while (<CONF>) {
if (/^#/) {
next;
}
if (/\@include:\s+(.*)$/) {
push @configs, $1;
}
if (/^sievedir:\s+(.*)$/) {
$sievedir = $1;
print "you are using $sievedir as your sieve directory.\n";
}
if (/^unixhierarchysep:\s*(0|f|no|off)/) {
$unixhierarchysep = 0;
}
if (/^altnamespace:\s*(0|f|no|off)/) {
$altnamespace = 0;
}
if (/^userprefix:\s*(.*)$/) {
$userprefix = $1;
print "you are using $userprefix as your other users prefix.\n";
}
if (/^sharedprefix:\s*(.*)$/) {
$sharedprefix = $1;
print "you are using $sharedprefix as your shared prefix.\n";
}
}
close CONF;
}
# Only continue if the new settings are different from the old
unless (($unixhierarchysep != $OPT_WasUnix) || ($altnamespace != $OPT_WasAlt)) {
ouch "There's been no change to Unix hierarchy separator or the alternate namespace";
exit;
}
# Which separator did we used to use?
my $sep = $OPT_WasUnix ? '/' : '.';
my $psep = $OPT_WasUnix ? '/' : '\.'; # for use in patterns
# declare vars used in following loop
my $d = '';
my $file = '';
my $inbox = "[Ii][Nn][Bb][Oo][Xx]";
my $updates = 0;
my $orig = '';
print "translating sievedir $sievedir... ";
if ($unixhierarchysep > $OPT_WasUnix) {
print "converting separator from '.' to '/'\n";
} elsif ($OPT_WasUnix > $unixhierarchysep) {
print "converting separator from '/' to '.'\n";
} else {
print "not converting separator.\n";
}
if ($altnamespace > $OPT_WasAlt) {
print "converting name space from traditional to alternative.\n";
} elsif ($OPT_WasAlt > $altnamespace) {
# Due to ambiguous results, with shared folders, we cannot convert back
# to altnamespace: off
ouch "this utility *cannot* convert from altnamespace to traditional!";
exit;
} else {
print "not changing name space.\n";
}
chdir $sievedir or die "couldn't change to $sievedir";
opendir (H, ".");
while (my $i = readdir H) {
if ($i eq "." || $i eq "..") {
next;
}
if (-d $i) {
if (! chdir $i) {
ouch "couldn't chdir to $i";
next;
}
# translate the scripts user by user
opendir (D, ".");
while ($d = readdir D) {
next if ($d =~ /^\./s);
if (-d $d) { # Let's just skip over files, rather than bailing
if (! chdir $d) {
ouch "couldn't chdir to $d";
next;
}
# translate all of the user's scripts
opendir DIR, ".";
while ($file = readdir DIR) {
next if (!($file =~ /\.script$/));
print "translating $file...\n" if ($OPT_Verbose);
if (!open(IN, $file)) {
ouch "cannot open $file for reading: $!";
next;
}
if (!$OPT_NoAction) {
if (!open(OUT, ">.$file")) {
close(IN);
ouch "cannot create /.$file: $!";
next;
}
}
while (<IN>) {
$updates = 0;
$orig = $_;
# INBOX
if (/\s+fileinto\s+"$inbox"\s*;/) {
# do nothing
} else {
# Alternate namespace
if ($altnamespace != $OPT_WasAlt) {
# Personal namespace
if (/\s+fileinto\s+"($inbox$psep[^"]*)"\s*;/) {
substr($_, index($_, $1), 6) = "";
$updates++;
}
# Other Users namespace
elsif (/\s+fileinto\s+"(user$psep[^"]*)"\s*;/) {
substr($_, index($_, $1), 4) = $userprefix;
$updates++;
}
# Shared namespace
elsif (/\s+fileinto\s+"([^"]*)"\s*;/) {
substr($_, index($_, $1), 0) = $sharedprefix . $sep;
$updates++;
}
}
# Hierarchy separator
if ($unixhierarchysep > $OPT_WasUnix) {
if (/\s+fileinto\s+"([^"]*)"\s*;/) {
substr($_, index($_, $1)) =~ s~\.~/~g;
$updates++;
}
} elsif ($unixhierarchysep < $OPT_WasUnix) {
if (/\s+fileinto\s+"([^"]*)"\s*;/) {
substr($_, index($_, $1)) =~ s~/~.~g;
$updates++;
}
}
}
if ($OPT_Verbose && $updates > 0) {
print "< $orig";
print "> $_";
}
print OUT $_ unless $OPT_NoAction;
}
close(IN);
close(OUT);
if (!$OPT_NoAction) {
rename(".$file", "$file")
or ouch "couldn't move .$file to $file";
}
# print "\n";
}
closedir DIR;
chdir "..";
}
}
closedir D;
# back to "$sievedir"
chdir "..";
}
}
closedir H;
print "done\n";

File Metadata

Mime Type
text/x-shellscript
Expires
Fri, Apr 24, 1:56 PM (6 d, 14 h ago)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
18817446
Default Alt Text
translatesieve (10 KB)

Event Timeline