richard: server/kolabd/kolabd/templates convert_resmgr_conf2config.pl, NONE, 1.1

[cvs at kolab.org]

Author: richard

Update of /kolabrepository/server/kolabd/kolabd/templates
In directory doto:/tmp/cvs-serv20006/templates

Added Files:
	convert_resmgr_conf2config.pl 
Log Message:
The script convert_resmgr_conf2config.pl is to be used to convert the
templates/resmgr.conf.template file into config.php, which is than to be
copied to kolab-filter cvs module.



--- NEW FILE: convert_resmgr_conf2config.pl ---
#!/usr/bin/perl
#
# This code has be copied from:
# server/kolabconf/lib/Kolab/Conf.pm cvs version 1.12
#
# $Id: convert_resmgr_conf2config.pl,v 1.1 2007/12/04 07:34:19 richard Exp $
#

use IO::File;

$Kolab::config{"kolabfilter-verify-from-header"} = "true";
$Kolab::config{"kolabfilter-allow-sender-header"} = "true";
$Kolab::config{"kolabfilter-reject-forged-from-header"} = "false";

# The script has to be run from:
# server/kolabd/kolabd/templates
my $template;
$template = IO::File->new('resmgr.conf.template.in', 'r');

my $skip = 0;
my $keep = 0;
while (<$template>) {

  #Eat the meta data sections
  if (/^KOLAB_META_START$/) {
    my $found_end;
    while (!$found_end) {
      $_ = <$template>;
      $found_end = /^KOLAB_META_END$/;
    }
    $_ = <$template>;
  }

  s%\@{3}connect_addr\@{3}%localhost%g;
  s%\@{3}local_addr\@{3}%localhost%g;
  s%\@{3}postfix-mydomain\@{3}%example.com%g;
  s%\@{3}ldap_uri\@{3}%ldaps://ldap.example.com%g;
  s%\@{3}base_dn\@{3}%dc=example,dc=com%g;
  s%\@{3}php_dn\@{3}%cn=nobody,cn=internal,dc=example,dc=com%g;
  s%\@{3}php_pw\@{3}%xyz%g;
  s%\@{3}postfix-mydomain\@{3}%example.com%g;
  s%\@{3}kolabhost.*\@{3}%one.example.com,two.example.com,three.example.com%g;
  s%\@{3}base_dn\@{3}%dc=example,dc=com%g;
  s%\@{3}calendar_id\@{3}%calendar%g;
  s%\@{3}calendar_pw\@{3}%zyx%g;
  s%\@{3}fqdnhostname\@{3}%localhost%g;
  s%\@webserver_web_prefix\@%%g;
  s%\@resmgr_logdir\@%/kolab/var/kolab-filter/log%g;
  s%\@resmgr_tmpdir\@%%g;
  s%\@sysconfdir\@%/kolab/etc%g;

  if (/\@{3}if (\S+?)\@{3}/) {
    # print STDERR "DEBUG: " . $1 . "\n";
    if ($Kolab::config{$1} && lc($Kolab::config{$1}) ne "false" ) {
      # Keep text
      $keep = 1;
    } else {
      # Skip text
      $skip++;
      $keep = 0;
    }
    s/\@{3}if (\S+?)\@{3}\n?//;
  } elsif (/\@{3}else\@{3}/) {
    if( $keep == 0 ) {
      # Now keep
      $keep = 1;
      $skip--;
    } else {
      # Now skip
      $keep = 0;
      $skip++;
    }
    s/\@{3}else\@{3}\n?//;
  } elsif (/\@{3}endif\@{3}/) {
    ($skip > 0) && $skip--;
    s/\@{3}endif\@{3}\n?//;
  }  else {
    while (/\@{3}([^\s\@]+?)(\|(.+?)\((.*)\))?\@{3}/) {
      my $attr = $1;
      my $fct  = $3;
      my $args = $4;
      # print STDERR "attr=\"$attr\", fct=\"$fct\", args=\"$args\"\n";
      # print STDERR "config=" . $Kolab::config{$attr} . "\n";

      $val = $Kolab::config{$attr};
      s/\@{3}([^\s\@]+?)(\|.+?)?\@{3}/$val/;
      last if ( $val eq "\@{3}$attr\@{3}" ); # prevent endless loop
    }
  }

  if ($skip == 0) {
     # Change the resulting string ('true'='TRUE') in just true
     # If there is a better a way, to achieve the same result please
     # update the script.
     s/\('//;
     s/'=='TRUE'\)//;
     print $_;
  }
}

$template->close;