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.41;	author edk;	state dead;
branches;
next	1.1;

1.1
date	2000.05.31.00.48.59;	author manoj;	state Exp;
branches
	1.1.1.1;
next	;

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


desc
@@


1.2
log
@remove obsolete/non-functional scripts
@
text
@#!/usr/bin/perl -w

# Turn off buffering
#$| = 1;

# Fix up some commonly-tainted variables
$ENV{'PATH'} = "/bin:/usr/bin";
delete $ENV{'BASH_ENV'};

use lib "__SANDBOX__/helm/perl";
use Helm::Database;
my $module = "Helm::ApacheModules";
eval "use $module;";

my $query = shift @@ARGV;
my $arg = shift @@ARGV;
my $db = new Helm::Database;

#my $user = $module->user($db);
#my $uid = getpwnam($module-user($db));
#if ($> == 0 or $uid == 0 or $> != $uid) {
#    die "$0: Something funny is going on with uids. \$> = $>, \$uid = $uid";
#}

if ($query =~ /^(add|del)_project$/) {
    $module->$query($db, $arg);
    $module->update($db);
    print "<li>$query of $arg on $module returned\n\n";
}
elsif ($query eq "update") {
    $module->update($db);
    print "<li>$query on $module returned\n\n";
}
else {
    die "Unknown command $query\n";
}

exit 0;

@


1.1
log
@Allow update.cgi to not be a setuid root script, by using
lower-privileged scripts (in cgi-helpers) to do the dirty work.
@
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
@@

