head	1.7;
access;
symbols
	NEWHELM:1.1.1.1
	TIGRIS_NOV_12_2000:1.1.1
	OLDHELM:1.5.0.4
	TIGRIS_NOV_11_2000:1.5
	TIGRIS_SEP_13_2000:1.5.0.2
	TIGRIS_BASELINE:1.4;
locks; strict;
comment	@# @;


1.7
date	2000.11.16.04.30.01;	author edk;	state dead;
branches;
next	1.6;

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

1.5
date	2000.10.13.03.03.02;	author ed;	state Exp;
branches;
next	1.4;

1.4
date	2000.07.15.00.08.44;	author ed;	state Exp;
branches;
next	1.3;

1.3
date	2000.06.01.00.57.04;	author ed;	state Exp;
branches;
next	1.2;

1.2
date	2000.06.01.00.37.03;	author ed;	state Exp;
branches;
next	1.1;

1.1
date	2000.05.31.23.25.29;	author ed;	state Exp;
branches
	1.1.1.1;
next	;

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


desc
@@


1.7
log
@this are now obsoleted by anzu
@
text
@#!/usr/bin/perl
if (scalar(@@ARGV) < 2) {
    die "usage: $0 list_dir email [email ...]";
}

$ENV{PATH} = '/bin:/usr/bin:/usr/local/bin';
$ENV{BASH_ENV} = '';

# this inferface requires the full list directory (instead
# of deriving it from the list name and a known directory)
# so as to make it easier to handle digest/moderator/etc
# "lists".
# treat "www" specially since that project is used to indicate
# lists which shouldn't be part of a subdomain.
$list_dir = shift;
$list_dir =~ m/^([^;\|\`]+)$/;
$list_dir = $1;
$list_dir =~ s@@/www-(\w+/?)$@@/$1@@ or
    $list_dir =~ s@@/www-(\w+/\w+/?)$@@/$1@@;
while (($email = shift)) {
    $email =~ m/^([^;\|\`]+)$/;
    $email = $1;
    system ("ezmlm-sub", "$list_dir", "$email") if $email;
}
@


1.6
log
@Resolved merge conflicts.
@
text
@@


1.5
log
@allow - in list names (though this is currently prevented by ProjMailAdd
it does work if done by have via the database)
@
text
@d18 2
a19 2
$list_dir =~ s@@/www-([\w\-]+/?)$@@/$1@@ or
    $list_dir =~ s@@/www-([\w\-]+/\w+/?)$@@/$1@@;
@


1.4
log
@remove $sandbox (which isn't going to be accurate); don't substitute
~tigrisq (since that's done in maillist.cgi now) and treat www-
as a special case (while using some care to avoid rewriting www-
unless it really is in the right place).  the www- stuff is a
hack, but should hold us until we replace this mail system.
@
text
@d18 2
a19 2
$list_dir =~ s@@/www-(\w+/?)$@@/$1@@ or
    $list_dir =~ s@@/www-(\w+/\w+/?)$@@/$1@@;
@


1.3
log
@umm, since we avoid shell expansion, we need to expand ~tigrisq ourselves.
there's got to be a better way to do this, though.
PR:
Obtained from:
Submitted by:
Reviewed by:
@
text
@a8 2
$sandbox = "/usr/tigris";

d13 2
d18 2
a19 1
$list_dir =~ s@@\~tigrisq@@$sandbox/tigrisq@@;
@


1.2
log
@improve security by avoiding giving strings to the shell to parse
PR:
Obtained from:
Submitted by:
Reviewed by:
@
text
@d9 2
d18 1
@


1.1
log
@add scripts used by the new ezmlm management servlet
PR:
Obtained from:
Submitted by:
Reviewed by:
@
text
@d19 1
a19 1
    system ("ezmlm-sub $list_dir $email") if $email;
@


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
@a12 2
# treat "www" specially since that project is used to indicate
# lists which shouldn't be part of a subdomain.
a15 2
$list_dir =~ s@@/www-(\w+/?)$@@/$1@@ or
    $list_dir =~ s@@/www-(\w+/\w+/?)$@@/$1@@;
d19 1
a19 1
    system ("ezmlm-sub", "$list_dir", "$email") if $email;
@


