From 9819f763f6d436e4efd1d78fdcc00a70c3af0a00 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Fri, 6 Sep 2013 09:47:14 +0200
Subject: [PATCH] Add a command for creating project

---
 commands/project/create.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 commands/project/create.pl

diff --git a/commands/project/create.pl b/commands/project/create.pl
new file mode 100644
index 0000000..1bf0cf3
--- /dev/null
+++ b/commands/project/create.pl
@@ -0,0 +1,20 @@
+#! /usr/bin/env perl
+
+use v5.10.1;
+use strict;
+use warnings;
+
+use lib "../";
+
+use ACU::API::Base;
+use ACU::API::Projects;
+
+
+if ($#ARGV == 0)
+{
+    API::Projects::add($ARGV[0]);
+}
+else
+{
+    say "$0 <project_id>";
+}