head	1.17;
access;
symbols
	TIGRIS_1_1_0RC2:1.8.6.1
	TIGRIS_1_1_0RC1:1.8.6.1
	TIGRIS_1_1:1.8.6.1.0.2
	TIGRIS_1_0_8:1.8.6.1
	TIGRIS_1_0_8RC3:1.8.6.1
	TIGRIS_1_0_8RC2:1.8.6.1
	TIGRIS_1_0_8RC1:1.8.6.1
	TIGRIS_1_0_7:1.8.6.1
	TIGRIS_1_0_7RC3:1.8.6.1
	TIGRIS_1_0_7RC2:1.8.6.1
	TIGRIS_1_0_7RC1:1.8.6.1
	TIGRIS_1_0_6:1.8.6.1
	TIGRIS_1_0_6RC5:1.8.6.1
	TIGRIS_1_0_6RC4:1.8
	TIGRIS_1_0_6RC3:1.8
	TIGRIS_1_0_6RC2:1.8
	TIGRIS_1_0_6RC1:1.8
	TIGRIS_1_0_5:1.8
	TIGRIS_1_0_5RC6:1.8
	TIGRIS_1_0_5RC5:1.8
	TIGRIS_1_0_5RC4:1.8
	TIGRIS_1_0_5RC3:1.8
	TIGRIS_1_0_5RC2:1.8
	TIGRIS_1_0_5RC1:1.8
	TIGRIS_1_0_4:1.8
	TIGRIS_1_0_3:1.8
	TIGRIS_1_0_2:1.8
	TIGRIS_1_0_1:1.8
	TIGRIS_1_0:1.8.0.6
	TIGRIS_1_0_0:1.8
	TIGRIS_1_0_0_RC1:1.8.0.2
	dlr:1.1.1
	TIGRIS_0_9_2_4:1.7
	TIGRIS_0_9_2_3:1.7
	HELM_PEER_PORT_BRANCH:1.1.1.2
	TURBINE_PEER:1.7
	TIGRIS_0_9_2_1:1.7
	TIGRIS_0_9_2:1.7.0.2
	TIGRIS_0_9_0:1.3.0.4
	TIGRIS_0_8_4:1.3.0.2
	NEWHELM:1.1.1.1
	TIGRIS_NOV_12_2000:1.1.1;
locks; strict;
comment	@# @;


1.17
date	2001.08.16.21.27.05;	author kmaples;	state Exp;
branches;
next	1.16;

1.16
date	2001.07.30.18.07.19;	author kmaples;	state Exp;
branches;
next	1.15;

1.15
date	2001.07.10.05.02.00;	author kmaples;	state Exp;
branches;
next	1.14;

1.14
date	2001.06.13.21.56.18;	author kmaples;	state Exp;
branches;
next	1.13;

1.13
date	2001.06.05.22.36.18;	author kmaples;	state Exp;
branches;
next	1.12;

1.12
date	2001.04.25.17.14.58;	author kmaples;	state Exp;
branches;
next	1.11;

1.11
date	2001.04.18.02.02.58;	author kmaples;	state Exp;
branches;
next	1.10;

1.10
date	2001.04.17.04.44.54;	author kmaples;	state Exp;
branches;
next	1.9;

1.9
date	2001.04.07.00.02.14;	author kmaples;	state Exp;
branches;
next	1.8;

1.8
date	2001.02.22.22.04.59;	author kmaples;	state Exp;
branches
	1.8.6.1;
next	1.7;

1.7
date	2001.01.13.02.04.52;	author kmaples;	state Exp;
branches;
next	1.6;

1.6
date	2001.01.09.03.57.03;	author kmaples;	state Exp;
branches;
next	1.5;

1.5
date	2001.01.05.23.31.11;	author kmaples;	state Exp;
branches;
next	1.4;

1.4
date	2000.12.27.22.57.44;	author kmaples;	state Exp;
branches;
next	1.3;

1.3
date	2000.11.16.21.58.53;	author kmaples;	state Exp;
branches;
next	1.2;

1.2
date	2000.11.16.00.38.49;	author kmaples;	state Exp;
branches;
next	1.1;

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

1.1.1.1
date	2000.11.12.21.17.36;	author dlr;	state Exp;
branches;
next	1.1.1.2;

1.1.1.2
date	2001.02.21.00.36.11;	author dlr;	state Exp;
branches;
next	;

1.8.6.1
date	2001.06.13.21.51.34;	author kmaples;	state Exp;
branches;
next	;


desc
@@


1.17
log
@Issue number: 4934
Added a more sensible 'milestone 1' in place of the irritating '---' when
a project is created.
@
text
@#!/usr/bin/perl

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


# 
# $Id: issuezilla-project-add,v 1.16 2001/07/30 18:07:19 kmaples Exp $
# --------------------
# 

# Flush buffer, just in case:
$| = 1;

use strict;
use DBI;

# For the sake of -T:
$ENV{'PATH'} = "/bin:/usr/bin:/usr/local/bin";
# Detaint the args by brute force:
@@ARGV = detaint_array(@@ARGV);


# Process arguments
my $sandbox            = $ARGV[0] || '';
my $project_name       = $ARGV[1] || '';
my $dbname             = $ARGV[2] || '';
my $is_public          = $ARGV[3] || '';
my $multiple_dbs       = $ARGV[4] || '';  

# Some email address for issuezilla:
my $login_name = "issues\@@$project_name";

# String for current sql statement
my $command;

# Placeholder vars for db work:
my ($select, $ret);
 
# NOTE - this script requires the info necessary to connect
# to the correct DB, e.g., username/password, DB name, etc.

my $dbuser         = $ENV{DATABASE_USER}     || '';
my $dbpass         = $ENV{DATABASE_PASSWORD} || '';

my $dbrootuser     = $ENV{DATABASE_ROOTUSER} || '';
my $dbrootpass     = $ENV{DATABASE_ROOTPASS} || '';

# Grab just the filename portion of this script to use as a 
# log identifier:
my $script_name = $0;
$script_name =~ s/^.*\/([^\/]+)$/  $1/;

#---------------------------------------------------------------
# MAIN
#---------------------------------------------------------------
# First, create the database.  We presume that project == database,
# even for installations where there's only one database - that
# is interpreted as 'there's only one project':  
chdir("$sandbox/issuezilla") or die "$script_name: unable to chdir to issuezilla: $!\n";

unless(system("./checksetup.pl --user $dbrootuser --password $dbrootpass --database $dbname ") == 0){
    print "$script_name: unable to create project database\n";
    exit(1);
}
unless(system("./checkdbuser.pl --user $dbrootuser --password $dbrootpass --database $dbname") == 0){
    print "$script_name: unable to flush db permissions\n";
    exit(1);
}

# Fail if we don't have what we need to talk to the database:
unless($dbname && $dbuser && $dbpass){
    print "$script_name: envrionmentals for DB access not set\n";
    exit(1);
}

my $dbc = join(':',"DBI:mysql:$dbname",$ENV{DATABASE_HOST},$ENV{DATABASE_PORT});
my $CONN = DBI->connect($dbc, $dbuser, $dbpass);

# Check for a good connection:
unless( $CONN =~ m/HASH/){
    print "$script_name: no connection to database: $!\n";
    exit(1);
}

# Do the sql quoting for the values we're gonna play with:
foreach($project_name, $login_name){
    $_ = $CONN->quote( $_ );
}

# One: test and insert in the 'components' table:
print "$script_name: checking for previous record in 'components' table\n";

$command = qq[
    SELECT * FROM components WHERE
    component   = $project_name AND
    description = $project_name    
    LIMIT 1
];

$select = $CONN->prepare($command);
$ret    = $select->execute;

if($ret && $ret ne '0E0'){
    print "$script_name: record found\n";
} else {
    print "$script_name: performing insert\n";
    $command = qq[

    INSERT INTO components SET 
        component    = $project_name, 
        description  = $project_name, 
        milestoneurl = '',
		defaultmilestone = 'milestone 1',
        disallownew  =  0
    ];

    $select = $CONN->prepare($command);
    $ret    = $select->execute;

    unless($ret){
        print "$script_name: unable to perform insert: $!\n";
        $CONN->disconnect;
        exit(1);
    }    
}

# Two: test and insert in the 'profiles' table:
print "$script_name: checking for previous record in 'profiles_internal' table\n";

$command = qq[
    SELECT * FROM profiles_internal WHERE
    login_name     = $login_name
    LIMIT 1
];

$select = $CONN->prepare($command);
$ret    = $select->execute;

if($ret && $ret ne '0E0'){
    print "$script_name: record found\n";
} else {
    print "$script_name: performing insert\n";

    $command = qq[
    	INSERT INTO profiles SET 
    	emailnotification = 'All',
        newemailtech   = 1
    ];

    $select = $CONN->prepare($command);
    $ret    = $select->execute;

    $select = $CONN->prepare('SELECT LAST_INSERT_ID()');
    $ret    = $select->execute;
    
    my $userid = $select->fetch->[0];

    unless($userid){
        print "$script_name: unable to perform insert: $!\n";
        $CONN->disconnect;
        exit(1);
    }    

    $command = qq[
        INSERT INTO profiles_internal VALUES ($userid, $login_name)
    ];

    $select = $CONN->prepare($command);
    $ret    = $select->execute;
}

# Three: test and insert in the 'versions' table:
print "$script_name: checking for previous record in 'versions' table\n";

$command = qq[
    SELECT * FROM versions WHERE
    value   = 'current' AND
    program = $project_name
    LIMIT 1
];

$select = $CONN->prepare($command);
$ret    = $select->execute;

if($ret && $ret ne '0E0'){
    print "$script_name: record found\n";
} else {
    print "$script_name: performing insert\n";
    $command = qq[

    INSERT INTO versions SET
	value   = 'current',
	program = $project_name
    ];

    $select = $CONN->prepare($command);
    $ret    = $select->execute;

    unless($ret){
        print "$script_name: unable to perform insert: $!\n";
        $CONN->disconnect;
        exit(1);
    }    
}

# Four: add a default milestone for this component: 
print "$script_name: creating default milestone for $project_name\n";

$command = qq[
    SELECT * FROM milestones
    WHERE value = 'milestone 1' AND
    component = $project_name
];

$select = $CONN->prepare($command);
$ret    = $select->execute;

if($ret && $ret ne '0E0'){
    print "$script_name: record found\n";
} else {
    print "$script_name: performing insert\n";
    $command = qq[
        INSERT INTO milestones SET
        value = 'milestone 1',
        component = $project_name
    ];
    $select = $CONN->prepare($command);
    $ret    = $select->execute;

    unless($ret){
        print "$script_name: unable to perform insert: $!\n";
        $CONN->disconnect;
        exit(1);
    }
}

# Five: add a useable milestone to the component (this is not the
# same as the above - IZ requires that you change the milestone from
# the default when accepting it):

print "$script_name: creating usable milestone for $project_name\n";

$command = qq[
    SELECT * FROM milestones
    WHERE value = 'not determined' AND
    component = $project_name
];

$select = $CONN->prepare($command);
$ret    = $select->execute;

if($ret && $ret ne '0E0'){
    print "$script_name: record found\n";
} else {
    print "$script_name: performing insert\n";
    $command = qq[
        INSERT INTO milestones SET
        value = 'not determined',
        component = $project_name
    ];
    $select = $CONN->prepare($command);
    $ret    = $select->execute;

    unless($ret){
        print "$script_name: unable to perform insert: $!\n";
        $CONN->disconnect;
        exit(1);
    }
}


# Clean up and leave quietly:
$select->finish();
$CONN->disconnect;

#---------------------------------------------------------------
# END MAIN
#---------------------------------------------------------------


# A crude attempt to overcome data tainting in perl:
#-------------------
sub detaint_array {
#-------------------
    my @@unclean = @@_;
    my @@clean = ();

    foreach(@@unclean){
        # We don't really have rules for this, so at the moment
        # this acts as a passthrough:
        $_ =~ m/^(.*)$/;
        push(@@clean,$1);
    }

    return(@@clean);
}

@


1.16
log
@Issue number: 4544, 4242
Making the world a better place by removing the scripts the taskrunner
used to need to run to create IZ users.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.15 2001/07/10 05:02:00 kmaples Exp $
d157 1
d255 1
a255 1
    WHERE value = '---' AND
d268 1
a268 1
        value = '---',
@


1.15
log
@Issue number: 4544
Sanity check-in round 3.  Editing users and groups works using new schema
and abstraction. Changed helper scripts to add appropriately.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.14 2001/06/13 21:56:18 kmaples Exp $
d71 2
a72 3
my $domain_name        = $ARGV[3] || ''; 
my $is_public         = $ARGV[4] || '';
my $multiple_dbs       = $ARGV[5] || '';  
d75 1
a75 3
my $mail_pfx   = $ENV{MAIL_PREFIX} || ''; 
my $login_name = $mail_pfx . "issues\@@$project_name". '.' . "$domain_name";
my $realname   = "$project_name issues mailing list";
d130 1
a130 1
foreach($project_name, $domain_name, $login_name, $realname){
d171 1
a171 1
print "$script_name: checking for previous record in 'profiles' table\n";
d174 1
a174 1
    SELECT * FROM profiles WHERE
a188 2
    	login_name     = $login_name,
    	realname       = $realname,
d196 6
a201 1
    unless($ret){
d206 7
@


1.14
log
@Swapped cmd-line switches for posix-style args.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.13 2001/06/05 22:36:18 kmaples Exp $
a193 1
    	groupset       = 0,
@


1.13
log
@Issue number: 4242
Completely removing IZ's password and LDAP code.  This is in advance of
more signifigant changes to persuade IZ to obtain permission information
directly from Helm.

This is a large-scale cleanup of code which is useless to IZ, since it
obtains the information it uses for authentication from Helm in any event.
Password information was merely dummy strings that acted as placeholders
in the profiles table; as of now, it is sufficient to have an entry in
the profiles table (non-disabled, of course) for access.

Related changes can be found in issuezilla/
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.12 2001/04/25 17:14:58 kmaples Exp $
d108 1
a108 1
unless(system("./checksetup.pl -u $dbrootuser -p $dbrootpass -d $dbname ") == 0){
d112 1
a112 1
unless(system("./checkdbuser.pl -u $dbrootuser -p $dbrootpass -d $dbname ") == 0){
@


1.12
log
@Added a filter and some shared logging routine to quiet the output of the
scripts in production.  Lines which do not explicitly use the routines are
interpreted as debug.

Changed the arguments (unimplemented) from 'is_private' to 'is_public' to
conform with helm.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.11 2001/04/18 02:02:58 kmaples Exp $
a73 1
my $issues_password    = $ENV{ISSUZILLA_PASSWORD};
d133 1
a133 1
foreach($project_name, $domain_name, $issues_password, $login_name, $realname){
a192 2
        password       = $issues_password,
    	cryptpassword  = ENCRYPT($issues_password),
@


1.11
log
@Undoing yesterday's commit - my hastiness to implement some sort of logging
level notion into these scripts caused me great pain.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.9 2001/04/07 00:02:14 kmaples Exp $
d72 1
a72 1
my $is_private         = $ARGV[4] || '';
@


1.10
log
@Scripts now use IN_PRODUCTION to determine logging level
@
text
@a54 5
my $scripts_dir = $ENV{'SANDBOX'} . '/helm/perl/scripts';

require "$scripts_dir/ParentChildArgumentBridge.pl"
    or die "Require failed: $!\n";

d110 1
a110 1
    print_log(1, "$script_name: unable to create project database\n");
d114 1
a114 1
    print_log(1, "$script_name: unable to flush db permissions\n");
d120 1
a120 1
    print_log(1, "$script_name: envrionmentals for DB access not set\n");
d129 1
a129 1
    print_log(1, "$script_name: no connection to database: $!\n");
d139 1
a139 1
print_log(1, "$script_name: checking for previous record in 'components' table\n");
d152 1
a152 1
    print_log(1, "$script_name: record found\n");
d154 1
a154 1
    print_log(1, "$script_name: performing insert\n");
d168 1
a168 1
        print_log(1, "$script_name: unable to perform insert: $!\n");
d175 1
a175 1
print_log(1, "$script_name: checking for previous record in 'profiles' table\n");
d187 1
a187 1
    print_log(1, "$script_name: record found\n");
d189 1
a189 1
    print_log(1, "$script_name: performing insert\n");
d206 1
a206 1
        print_log(1, "$script_name: unable to perform insert: $!\n");
d213 1
a213 1
print_log(1, "$script_name: checking for previous record in 'versions' table\n");
d226 1
a226 1
    print_log(1, "$script_name: record found\n");
d228 1
a228 1
    print_log(1, "$script_name: performing insert\n");
d240 1
a240 1
        print_log(1, "$script_name: unable to perform insert: $!\n");
d247 1
a247 1
print_log(1, "$script_name: creating default milestone for $project_name\n");
d259 1
a259 1
    print_log(1, "$script_name: record found\n");
d261 1
a261 1
    print_log(1, "$script_name: performing insert\n");
d271 1
a271 1
        print_log(1, "$script_name: unable to perform insert: $!\n");
d281 1
a281 1
print_log(1, "$script_name: creating usable milestone for $project_name\n");
d293 1
a293 1
    print_log(1, "$script_name: record found\n");
d295 1
a295 1
    print_log(1, "$script_name: performing insert\n");
d305 1
a305 1
        print_log(1, "$script_name: unable to perform insert: $!\n");
@


1.9
log
@Added preliminary support for 'is_private'
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.8 2001/02/22 22:04:59 kmaples Exp $
d55 5
d115 1
a115 1
    print "$script_name: unable to create project database\n";
d119 1
a119 1
    print "$script_name: unable to flush db permissions\n";
d125 1
a125 1
    print "$script_name: envrionmentals for DB access not set\n";
d134 1
a134 1
    print "$script_name: no connection to database: $!\n";
d144 1
a144 1
print "$script_name: checking for previous record in 'components' table\n";
d157 1
a157 1
    print "$script_name: record found\n";
d159 1
a159 1
    print "$script_name: performing insert\n";
d173 1
a173 1
        print "$script_name: unable to perform insert: $!\n";
d180 1
a180 1
print "$script_name: checking for previous record in 'profiles' table\n";
d192 1
a192 1
    print "$script_name: record found\n";
d194 1
a194 1
    print "$script_name: performing insert\n";
d211 1
a211 1
        print "$script_name: unable to perform insert: $!\n";
d218 1
a218 1
print "$script_name: checking for previous record in 'versions' table\n";
d231 1
a231 1
    print "$script_name: record found\n";
d233 1
a233 1
    print "$script_name: performing insert\n";
d245 1
a245 1
        print "$script_name: unable to perform insert: $!\n";
d252 1
a252 1
print "$script_name: creating default milestone for $project_name\n";
d264 1
a264 1
    print "$script_name: record found\n";
d266 1
a266 1
    print "$script_name: performing insert\n";
d276 1
a276 1
        print "$script_name: unable to perform insert: $!\n";
d286 1
a286 1
print "$script_name: creating usable milestone for $project_name\n";
d298 1
a298 1
    print "$script_name: record found\n";
d300 1
a300 1
    print "$script_name: performing insert\n";
d310 1
a310 1
        print "$script_name: unable to perform insert: $!\n";
@


1.8
log
@Added a 'not determined' milestone so that bugs can be reported against a
component 'out of the box' (IZ requires that you change a bug from its
defaut milestone in order to accept it).
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.7 2001/01/13 02:04:52 kmaples Exp $
d72 2
a73 1
my $multiple_dbs       = $ARGV[4] || '';  
@


1.8.6.1
log
@Reviewed by: leonardr@@collab.net
Swapped short command-line switches with posix-style args.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.8 2001/02/22 22:04:59 kmaples Exp $
d108 1
a108 1
unless(system("./checksetup.pl --user $dbrootuser --password $dbrootpass --database $dbname ") == 0){
d112 1
a112 1
unless(system("./checkdbuser.pl --user $dbrootuser --password $dbrootpass --database $dbname") == 0){
d118 1
a118 1
unless($dbname && $dbuser){
@


1.7
log
@First furtive attempts to support remote databases.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.6 2001/01/09 03:57:03 kmaples Exp $
d276 33
@


1.6
log
@Added scripts to disable all users in a given project (database).  This is
a prelude to re-synchronizing with Helm's user table (which will re-enable
accounts with their current permissions).
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.5 2001/01/05 23:31:11 kmaples Exp $
d123 1
a123 1
my $dbc = "DBI:mysql:$dbname";
@


1.5
log
@It may or may not be a good idea, but here it is - the ability to edit
(rename) projects.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.4 2000/12/27 22:57:44 kmaples Exp $
d142 1
a142 1
    component     = $project_name AND
d157 1
a157 1
        component      = $project_name, 
@


1.4
log
@Framework changes to recognize whether database type is set to single or
multiple.  This implements no changes in the behavior of the scripts, only
changes in the framework.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.3 2000/11/16 21:58:53 kmaples Exp $
a75 1
# Some email address for issuezilla:
d157 4
a160 4
    	component      = $project_name, 
	description  = $project_name, 
	milestoneurl = '',
	disallownew  =  0
@


1.3
log
@Tweaking emailing when MAIL_PREFIX is set.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.2 2000/11/16 00:38:49 kmaples Exp $
d72 1
@


1.2
log
@Changed presumptive mailing addresses to be <user>@@<project>.<domain>
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.1.1.1 2000/11/12 21:17:36 dlr Exp $
d75 3
a77 1
my $login_name = "issues\@@$project_name". '.' . "$domain_name";
@


1.1
log
@Initial revision
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.11 2000/11/10 17:39:47 kmaples Exp $
d75 1
a75 1
my $login_name = $project_name . '-issues@@' . $domain_name;
@


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


1.1.1.2
log
@Replacing the HEAD with the HELM_PEER_PORT_BRANCH.
@
text
@d51 1
a51 1
# $Id: issuezilla-project-add,v 1.7 2001/01/13 02:04:52 kmaples Exp $
a71 1
my $multiple_dbs       = $ARGV[4] || '';  
d75 1
a75 2
my $mail_pfx   = $ENV{MAIL_PREFIX} || ''; 
my $login_name = $mail_pfx . "issues\@@$project_name". '.' . "$domain_name";
d121 1
a121 1
my $dbc = join(':',"DBI:mysql:$dbname",$ENV{DATABASE_HOST},$ENV{DATABASE_PORT});
d140 1
a140 1
    component   = $project_name AND
d155 4
a158 4
        component    = $project_name, 
        description  = $project_name, 
        milestoneurl = '',
        disallownew  =  0
@

