with Ada.Text_Io;
use Ada.Text_Io;
with Ada.Command_Line;
use Ada.Command_Line;
procedure Webmake is
   
   procedure Usage is
   begin
      Put_Line("usage : webmake Project_Dir");
   end Usage;
   File : File_Type;
   function System(Line : in String) return Integer;
   pragma Import (C, System, "system");
   Errno : Integer := 0;
   Target : access String;
begin
   if Argument_Count = 0 then
      Usage;
      return;
   end if;
   Open(File, In_File, Argument(1) & "/Copyright");
   Target := new String ' (Get_Line(File));
   
   Close(File);
   Errno := System("cp -ar " & Argument(1) & " /var/www/html/" & Target.all & "/" & Character'Val(0));
   Errno := System("tar -cf " & Argument(1) & ".tar " & Argument(1) & Character'Val(0));
   Errno := System("gzip " & Argument(1) & ".tar " & Character'Val(0));
   Errno := System("cp " & Argument(1) & ".tar.gz /var/www/html/" & Target.all & "/" & Character'Val(0));
exception
   when Name_Error =>
      Put_Line(Argument(1) & "/Copyright not Found");
end Webmake;