head	1.6;
access;
symbols
	NEWHELM:1.1.1.1
	TIGRIS_NOV_12_2000:1.1.1
	OLDHELM:1.4.0.4
	TIGRIS_NOV_11_2000:1.4
	TIGRIS_SEP_13_2000:1.4.0.2
	TIGRIS_BASELINE:1.4;
locks; strict;
comment	@# @;


1.6
date	2000.11.16.04.31.15;	author edk;	state dead;
branches;
next	1.5;

1.5
date	2000.11.12.22.57.33;	author dlr;	state Exp;
branches;
next	1.4;

1.4
date	2000.08.02.18.37.57;	author kmaples;	state Exp;
branches;
next	1.3;

1.3
date	2000.05.19.20.06.32;	author manoj;	state Exp;
branches;
next	1.2;

1.2
date	2000.05.05.01.36.34;	author manoj;	state Exp;
branches;
next	1.1;

1.1
date	2000.04.29.00.04.10;	author jrobbins;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2000.11.12.21.17.42;	author dlr;	state Exp;
branches;
next	;


desc
@@


1.6
log
@these are obsoleted by anzu & eyebrowse
@
text
@#!/usr/bin/perl -w

# ================================================================
# Copyright (c) 2000 Collab.Net.  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 end-user documentation included with the redistribution, if
# any, must include the following acknowlegement: "This product includes
# software developed by Collab.Net (http://www.Collab.Net/)."
# Alternately, this acknowlegement may appear in the software itself, if
# and wherever such third-party acknowlegements normally appear.
# 
# 4. The hosted project names must not be used to endorse or promote
# products derived from this software without prior written
# permission. For written permission, please contact info@@collab.net.
# 
# 5. Products derived from this software may not use the "Tigris" name
# nor may "Tigris" appear in their names without prior written
# permission of Collab.Net.
# 
# THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
# IN NO EVENT SHALL COLLAB.NET OR ITS CONTRIBUTORS BE LIABLE FOR ANY
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#
# ====================================================================
# 
# This software consists of voluntary contributions made by many
# individuals on behalf of Collab.Net.
#


# qmail-project-add
# $Id: qmail-project-add,v 1.5 2000/11/12 22:57:33 dlr Exp $
# --------------------

# Provides functions to update the qmail aliases to match the user list;
# forward all the email addrs to the proper place.  Also, update the config
# files used by qmail to do virtual hosting.



# Note that for this to work (and the qmail mailing lists - see
# Helm::QmailLists) several users must exist and be configured in
# qmail. The user configured in the $qmail_user config parameter
# (see Helm::Config) must exist and qmail be set to use it for
# mail to domain.org (in control/virtualdomains). For each project,
# qmail should map project.domain.org to ${qmail_user}-project.
#
# Note that we create these aliases for each domain, so that mail to
# user@@tigris.org works as well as user@@project.tigris.org.

use strict;

# XXX - How do we deal with concurrent access?

# Process arguments
my $sandbox      = $ARGV[0];
my $project_name = $ARGV[1];
my $domain_name  = $ARGV[2];
my $brand_name   = $ARGV[3];

my $qmailcontroldir;
my $hosts_allow;
if ($> == 0) {
    $qmailcontroldir = "/var/qmail/control";
    $hosts_allow = "/etc/hosts.allow";

}
else {
    $qmailcontroldir = "$sandbox";
    $hosts_allow = "$sandbox/hosts.allow";
}

my $virtualdomains = "$qmailcontroldir/virtualdomains";
my $rcpthosts = "$qmailcontroldir/rcpthosts";

my $qmailhome = "$sandbox/tigrisq";

my $cmd = "unix command line";


print "qmail: add virtualhost line for $project_name in $domain_name\n";

open VIRTUALDOMAINS, ">>$virtualdomains" or die "Can't open $virtualdomains: $!\n";
print VIRTUALDOMAINS "$project_name.$domain_name:tigrisq-$project_name\n";
print VIRTUALDOMAINS "$project_name:tigrisq-$project_name\n";
close VIRTUALDOMAINS;

print "qmail: add a .qmail file to redirect mail for the given project\n";
open QMAILFILE, ">$qmailhome/.qmail-$project_name-default" or die "Can't open $qmailhome/.qmail-$project_name-default: $!\n";
print QMAILFILE "\$DEFAULT\@@tigris.org\n";
close QMAILFILE;

print "TODO: add $project_name to $hosts_allow\n";

@


1.5
log
@Resolved merge conflicts.
@
text
@d51 1
a51 1
# $Id: qmail-project-add,v 1.1.1.1 2000/11/12 21:17:42 dlr Exp $
@


1.4
log
@Minor syntax corrections.
@
text
@d51 1
a51 1
# $Id: qmail-project-add,v 1.3 2000/05/19 20:06:32 manoj Exp $
@


1.3
log
@Fix some syntax errors.
@
text
@d51 1
a51 1
# $Id: qmail-project-add,v 1.2 2000/05/05 01:36:34 manoj Exp $
d102 1
a102 1
open VIRTUALDOMAINS, ">>$virtualdomains";
d108 1
a108 1
open QMAILFILE, ">$qmailhome/.qmail-$project_name-default";
@


1.2
log
@More untested first passes at Tigris scripts.
@
text
@d51 1
a51 1
# $Id: qmail-project-add,v 1.1 2000/04/29 00:04:10 jrobbins Exp $
d80 2
d83 2
a84 2
    my $qmailcontroldir = "/var/qmail/control";
    my $hosts_allow = "/etc/hosts.allow";
d88 2
a89 2
    my $qmailcontroldir = "$sandbox";
    my $hosts_allow = "$sandbox/hosts.allow";
d102 1
a102 1
open VIRTUALDOMAINS ">>$virtualdomains";
d108 1
a108 1
open QMAILFILE ">$qmailhome/.qmail-$project_name-default";
@


1.1
log
@initial checkin
@
text
@d51 1
a51 1
# $Id: qmail.pm,v 1.1 2000/03/24 20:33:58 jrobbins Exp $
d72 2
d80 9
a88 2
my $qmailcontroldir = "$sandbox";
#TODO: switch to /var/qmail/control
d93 1
a93 4
my $hosts_allow = "$sandbox/hosts.allow";
#TODO: switch to /etc/hosts.allow

my $qmailhome = "/home/tigrisq";
d100 9
a108 10

$cmd = "echo '$project_name.$domain_name:tigrisq-$project_name' >> $virtualdomains";
print "Running: $cmd\n";

$cmd = "echo '$project_name:tigrisq-$project_name' >> $virtualdomains";
print "Running: $cmd\n";


$cmd = "echo '\$DEFAULT\@@tigris.org' > $qmailhome/.qmail-$project_name-default";
print "Running: $cmd\n";
@


1.1.1.1
log
@Merging newhelm tree into helm, as per IZ issue #557.  Previous major version of helm is tagged TIGRIS_NOV_11_2000.
@
text
@d51 1
a51 1
# $Id: qmail-project-add,v 1.1 2000/10/05 20:05:49 jrobbins Exp $
a71 2
# XXX - How do we deal with concurrent access?

d78 2
a79 11
my $qmailcontroldir;
my $hosts_allow;
if ($> == 0) {
    $qmailcontroldir = "/var/qmail/control";
    $hosts_allow = "/etc/hosts.allow";

}
else {
    $qmailcontroldir = "$sandbox";
    $hosts_allow = "$sandbox/hosts.allow";
}
d84 4
a87 1
my $qmailhome = "$sandbox/tigrisq";
d94 10
a103 9
open VIRTUALDOMAINS, ">>$virtualdomains" or die "Can't open $virtualdomains: $!\n";
print VIRTUALDOMAINS "$project_name.$domain_name:tigrisq-$project_name\n";
print VIRTUALDOMAINS "$project_name:tigrisq-$project_name\n";
close VIRTUALDOMAINS;

print "qmail: add a .qmail file to redirect mail for the given project\n";
open QMAILFILE, ">$qmailhome/.qmail-$project_name-default" or die "Can't open $qmailhome/.qmail-$project_name-default: $!\n";
print QMAILFILE "\$DEFAULT\@@tigris.org\n";
close QMAILFILE;
@


