head	1.2;
access;
symbols
	TIGRIS_1_1_0RC2:1.1
	TIGRIS_1_1_0RC1:1.1
	TIGRIS_1_1:1.1.0.14
	TIGRIS_1_0_8:1.1
	TIGRIS_1_0_8RC3:1.1
	TIGRIS_1_0_8RC2:1.1
	TIGRIS_1_0_8RC1:1.1
	TIGRIS_1_0_7:1.1
	TIGRIS_1_0_7RC3:1.1
	TIGRIS_1_0_7RC2:1.1
	TIGRIS_1_0_7RC1:1.1
	TIGRIS_1_0_6:1.1
	TIGRIS_1_0_6RC5:1.1
	TIGRIS_1_0_6RC4:1.1
	TIGRIS_1_0_6RC3:1.1
	TIGRIS_1_0_6RC2:1.1
	TIGRIS_1_0_6RC1:1.1
	TIGRIS_1_0_5:1.1
	TIGRIS_1_0_5RC6:1.1
	TIGRIS_1_0_5RC5:1.1
	TIGRIS_1_0_5RC4:1.1
	TIGRIS_1_0_5RC3:1.1
	TIGRIS_1_0_5RC2:1.1
	TIGRIS_1_0_5RC1:1.1
	TIGRIS_1_0_4:1.1
	TIGRIS_1_0_3:1.1
	TIGRIS_1_0_2:1.1
	TIGRIS_1_0_1:1.1
	TIGRIS_1_0:1.1.0.16
	TIGRIS_1_0_0:1.1
	TIGRIS_1_0_0_RC1:1.1.0.12
	dlr:1.1.1
	TIGRIS_0_9_2_4:1.1
	TIGRIS_0_9_2_3:1.1
	HELM_PEER_PORT_BRANCH:1.1.1.1
	TURBINE_PEER:1.1
	TIGRIS_0_9_2_1:1.1
	TIGRIS_0_9_2:1.1.0.10
	TIGRIS_0_9_0:1.1.0.8
	TIGRIS_0_8_4:1.1.0.6
	NEWHELM:1.1.1.1
	TIGRIS_NOV_12_2000:1.1.1
	OLDHELM:1.1.0.4
	TIGRIS_NOV_11_2000:1.1
	TIGRIS_SEP_13_2000:1.1.0.2
	TIGRIS_BASELINE:1.1;
locks; strict;
comment	@# @;


1.2
date	2001.08.14.21.56.40;	author edk;	state dead;
branches;
next	1.1;

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

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


desc
@@


1.2
log
@remove obsolete/non-functional scripts
@
text
@#!/usr/bin/perl
# (c) 2000 Collab, Inc.

# CGI that allows list scripts to be executed via apache, rather
# than having java do an exec, which causes performance problems.

use CGI;

my $sandbox = '__SANDBOX__';

my $cgi = new CGI;
my $script = $cgi->param('script');
my $params = $cgi->param('params');
my $mailhost = $cgi->param('mailhost');
my $mailuser = $cgi->param('mailuser');

my $scriptdir = "$sandbox/helm/perl/scripts";

# Send back the header.
print $cgi->header("text/plain");

if ($script !~ m/^list\-/) {
	print "not allowed: $script\n";
	exit(1);
};

# do some *simple* validation of the input
if ($params =~ m/[;`\|]/) {
    print "invalid character(s) in input\n";
    exit();
}

# handle ~tigrisq -- since we don't do a shell call (security reasons)
# we need to substitute ~tigrisq ourselves.  bleah.
$params =~ s@@\~tigrisq@@__MAIL_ROOT__@@;

# split the params ourselves so we don't pass potentially unclean
# data to the shell.
$params =~ s/^\s+//;
my @@command = split /\s+/, $params;
if ($mailhost && $mailuser) {
    unshift @@command, 'ssh', '-l', $mailuser, $mailhost, $script;
} else {
    unshift @@command, "$scriptdir/$script";
}

open (IN, "-|") || exec @@command;
while (<IN>) {
    $result .= $_;
}
print "$result";

@


1.1
log
@big changes as part of the conf file rationalization.   everything in
data/helm/apache is obsolete now (so ApacheConfig is unneeded, though
it hasn't been removed yet).  the apache conf files are now installed in
a new location, and they are fairly different: instead of vhosts,
we use rewritecond to support dynamic virtual hosts.   the file in
helm/perl/cgi/local was moved up to helm/perl/cgi
@
text
@@


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
@@

