head	1.3;
access;
symbols
	NEWHELM:1.1.1.1
	TIGRIS_NOV_12_2000:1.1.1
	OLDHELM:1.2.0.4
	TIGRIS_NOV_11_2000:1.2
	TIGRIS_SEP_13_2000:1.2.0.2
	TIGRIS_BASELINE:1.2;
locks; strict;
comment	@# @;


1.3
date	2000.11.16.04.31.15;	author edk;	state dead;
branches;
next	1.2;

1.2
date	2000.05.09.01.05.35;	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.40;	author dlr;	state Exp;
branches;
next	;


desc
@@


1.3
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.
#


# mhonarc-projmail-add
# --------------------
# provide functions related to the mhonarc email archiving tool's
# configuration files.

use strict;

use File::Path;

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

my $EZMLMSUB = "/usr/bin/ezmlm/ezmlm-sub";
my $archivedir = "$sandbox/html/$project_name/www/$project_name-$list_name";
my $archiveaddress = "archiver-$project_name-$list_name\@@$project_name.$domain_name";
my $qmailroot = "$sandbox/tigrisq";
my $list_dir = "$qmailroot/$project_name-$list_name";

my $cmd = "unix command line";

print "mhonarc: add directory for $list_name in $project_name\n";
mkpath($archivedir) or die "mkpath $archivedir failed: $!";
symlink(".", "$archivedir/current")
    or die "symlink $archivedir/current -> . failed: $!";

print "mhonarc: subscribing the archiver to $list_name in $project_name";
system($EZMLMSUB, $list_dir, $archiveaddress)
    or die "system($EZMLMSUB, $list_dir, $archiveaddress) failed: $!";

@


1.2
log
@The untested first passes at mhonarc setup routines
@
text
@@


1.1
log
@initial checkin
@
text
@d57 2
d67 1
a67 1
my $EZMLMSUB = "/usr/local/bin/ezmlm/ezmlm-sub";
d69 3
a71 5
my $archiveaddress = $list_name . "archive\@@$project_name.$domain_name";
my $qmailhome = "home/tigrisq";
my $list_dir = "$qmailhome/$project_name-$list_name";
my $archive_dot = "$qmailhome/.qmail-$project_name-$list_name" . "archive";
my $archive_monitor = "jrobbins-archive\@@collab.net";
a74 1

d76 7
a82 20

$cmd = "mkdir -p $archivedir";
print "Running: $cmd";

$cmd = "ln -s $archivedir $archivedir/current";
print "Running: $cmd";

$cmd = "$EZMLMSUB $list_dir $archiveaddress";
print "Running: $cmd";

$cmd = "echo $webnewmail $project_name $list_name $domain_name > $archive_dot";
print "Running: $cmd";

$cmd = "echo $archive_monitor >> $archive_dot";
print "Running: $cmd";

#is this needed?
# chown -R tigrisq:nobody /home/tigrisq/$1-announce
# chown -R tigrisq:nobody /home/tigrisq/.qmail-$1-announcearchive

@


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
@a56 2
use File::Path;

d65 1
a65 1
my $EZMLMSUB = "/usr/bin/ezmlm/ezmlm-sub";
d67 5
a71 3
my $archiveaddress = "archiver-$project_name-$list_name\@@$project_name.$domain_name";
my $qmailroot = "$sandbox/tigrisq";
my $list_dir = "$qmailroot/$project_name-$list_name";
d75 1
d77 20
a96 7
mkpath($archivedir) or die "mkpath $archivedir failed: $!";
symlink(".", "$archivedir/current")
    or die "symlink $archivedir/current -> . failed: $!";

print "mhonarc: subscribing the archiver to $list_name in $project_name";
system($EZMLMSUB, $list_dir, $archiveaddress)
    or die "system($EZMLMSUB, $list_dir, $archiveaddress) failed: $!";
@


