ToBeArchitect

#!/usr/bin/perl
#
# Copyright ?003-2006, BuildForge, Inc. All rights reserved.
# BuildForge, Inc. owns the copyright and other
# intellectual property rights in this software.
#
# Duplication or use of the Software is not permitted
# except as expressly provided in a written agreement
# between your company and BuildForge, Inc.
#
# Make sure the BuildForge::API is in our library path.
use FindBin;
use lib $FindBin::Bin."/..";

# Pull in the BuildForge::API
use BuildForge::API;

use strict;

# Create an API Instance, this must always be the first action.
my $API = new BuildForge::API({
        login=>"root",
        password=>"ibmK0rea",
        host=>"localhost",
        port=>888});


my $ProjectName = "NGI Build [TongTe]";
my $pDeployListNo = @ARGV[0];

# Create a new Project
my $Project = new BuildForge::API::Project({
        title=>$ProjectName
        });

my $BuildID = $Project->Fire({DeployListNo=>$pDeployListNo});
print "Launched Project Build ID $BuildID\n";


exit 0;

이 글은 스프링노트에서 작성되었습니다.