ToBeArchitect :: Perl Script : Schedule 동적 생성 script

Perl Script : Schedule 동적 생성 script

2007/07/24 00:24

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=>"root", host=>"localhost", port=>888});

# Check the Status:

if($API->GetLastError())
{
    die("Failed to create project, Error:".$API->GetLastError());
}

# my $ProjectName = @ARGV[0];
my $ProjectName = "HangulProject";

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

$Project->Sync();

my $ScheduleDesc = "Schdule Create Test";

my $Sched = new BuildForge::API::Schedule();
$Sched->{'description'} = $ScheduleDesc;
$Sched->{'project_id'} = $Project->{'project_id'};

$Sched->{'active'} = 1;
$Sched->{'minute'} = "0";
$Sched->{'hour'} = "0";
$Sched->{'day_of_month'} = "*";
$Sched->{'month'} = "*";
$Sched->{'day_of_week'} = "*";

$Sched = $Sched->Create();

my $ScheduleID = $Sched->{'schedule_id'};

print "New Schedule is created $ScheduleID for $ProjectName\n";

exit 0;