DataMuseum.dk

top - download

    Length: 5751 (0x1677)
    Types: TextFile
    Names: »B«

└─⟦d0624311f⟧ Bits:30000529 8mm tape, Rational 1000, DTIA 2_1_7
    └─ ⟦f494b5154⟧ »DATA« 
        └─⟦3ddce7122⟧ 
            └─⟦this⟧ 

TextFile

with Directory_Tools;
with Ftp;
with Ftp_Defs;
with Ftp_Name_Map;
with Log;
with Profile;
with String_Utilities;
procedure Move_Vms_Files (Hostname          : String;
                          Username          : String := "";
                          Password          : String := "";
                          Install_Directory : String := "";
                          Response          : String := "<VERBOSE>") is
    package Dtn renames Directory_Tools.Naming;
    package Su  renames String_Utilities;
    To_Platform       : constant String := "VMS";
    Installation_Area : constant String := Dtn.Default_Context;

    Product_Name : constant String :=
       Dtn.Simple_Name (Dtn.Prefix (Installation_Area));

    Archive_Directory : constant String :=
       Dtn.Full_Name ("!MACHINE.RELEASE.ARCHIVE." & Product_Name & '.' &
                      Dtn.Simple_Name (Installation_Area) & '.' & To_Platform);


    function Build_Release_Name return String is
        The_Release_Name : constant String :=
           Dtn.Simple_Name (Installation_Area);
        End_Index        : Natural         := 0;

    begin
        End_Index := String_Utilities.Reverse_Locate
                        (Fragment => "release", Within => The_Release_Name);

        if End_Index = 0 then
            return The_Release_Name;
        else  
            return "rev" & The_Release_Name
                              (End_Index + 1 .. The_Release_Name'Last);
        end if;
    end Build_Release_Name;


begin
    if Archive_Directory'Length = 0 then
        Log.Put_Line ("Platform name """ & To_Platform & """ does not exist." &
                      "  Check the spelling of parameter To_Platform",
                      Profile.Error_Msg, Profile.Value (Response));
    else
        declare
            Remote_Release_Name : constant String := Build_Release_Name;

            Workstation_Pathname : constant String :=
               Su.Lower_Case (Install_Directory);

            Remote_Build_Com         : constant String := "build.com";
            Remote_Dtia_Multinet     : constant String := "dtia_multinet.sav";
            Remote_Dtia_Ucx          : constant String := "dtia_ucx.sav";
            Remote_Ftp_To_Backup_Fdl : constant String := "ftp_to_backup.fdl";

            Local_Build_Com         : constant String :=
               Archive_Directory & ".build_com";
            Local_Dtia_Multinet     : constant String :=
               Archive_Directory & ".dtia_multinet_sav";
            Local_Dtia_Ucx          : constant String :=
               Archive_Directory & ".dtia_ucx_sav";
            Local_Ftp_To_Backup_Fdl : constant String :=
               Archive_Directory & ".ftp_to_backup_fdl";

        begin
            Ftp.Put (From_Local_File    => Local_Build_Com,
                     To_Remote_File     => Remote_Build_Com,
                     Remote_Machine     => Hostname,
                     Username           => Username,
                     Password           => Password,
                     Account            => "",
                     Remote_Directory   => Install_Directory,
                     Append_To_File     => False,
                     Transfer_Type      => Ftp_Defs.Ascii,
                     Transfer_Mode      => Ftp_Defs.Stream,
                     Transfer_Structure => Ftp_Defs.File,
                     Send_Port          => True,
                     Response           => Profile.Value (Response));

            Ftp.Put (From_Local_File    => Local_Ftp_To_Backup_Fdl,
                     To_Remote_File     => Remote_Ftp_To_Backup_Fdl,
                     Remote_Machine     => Hostname,
                     Username           => Username,
                     Password           => Password,
                     Account            => "",
                     Remote_Directory   => Install_Directory,
                     Append_To_File     => False,
                     Transfer_Type      => Ftp_Defs.Ascii,
                     Transfer_Mode      => Ftp_Defs.Stream,
                     Transfer_Structure => Ftp_Defs.File,
                     Send_Port          => True,
                     Response           => Profile.Value (Response));

            Ftp.Put (From_Local_File    => Local_Dtia_Multinet,
                     To_Remote_File     => Remote_Dtia_Multinet,
                     Remote_Machine     => Hostname,
                     Username           => Username,
                     Password           => Password,
                     Account            => "",
                     Remote_Directory   => Install_Directory,
                     Append_To_File     => False,
                     Transfer_Type      => Ftp_Defs.Image,
                     Transfer_Mode      => Ftp_Defs.Stream,
                     Transfer_Structure => Ftp_Defs.File,
                     Send_Port          => True,
                     Response           => Profile.Value (Response));

            Ftp.Put (From_Local_File    => Local_Dtia_Ucx,
                     To_Remote_File     => Remote_Dtia_Ucx,
                     Remote_Machine     => Hostname,
                     Username           => Username,
                     Password           => Password,
                     Account            => "",
                     Remote_Directory   => Install_Directory,
                     Append_To_File     => False,
                     Transfer_Type      => Ftp_Defs.Image,
                     Transfer_Mode      => Ftp_Defs.Stream,
                     Transfer_Structure => Ftp_Defs.File,
                     Send_Port          => True,
                     Response           => Profile.Value (Response));
        end;
    end if;
end Move_Vms_Files;
pragma Main;