head	1.2;
access;
symbols
	HELM_PEER_PORT_BRANCH:1.1.1.1 dlr:1.1.1;
locks; strict;
comment	@# @;


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

1.1
date	2001.02.21.00.35.48;	author dlr;	state Exp;
branches
	1.1.1.1;
next	;

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


desc
@@


1.2
log
@remove generated files which were added by accident
@
text
@#!/usr/bin/perl -w
# CVSloginfo CGI helper

# Turn off buffering
#$| = 1;

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

use lib "/home/dlr/sandbox/helm/perl";
use Helm::Database;
my $module = 'Helm::CVSloginfo';
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
@Initial revision
@
text
@@


1.1.1.1
log
@Replacing the HEAD with the HELM_PEER_PORT_BRANCH.
@
text
@@
