DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ B T ┃

⟦077111984⟧ TextFile

    Length: 2327 (0x917)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Ftp;
with Ftp_Defs;
with Ftp_Profile;
procedure Install_Multinet_Dtia (Remote_Machine : in String := "";
                                 Username : in String := "";
                                 Password : in String := "";
                                 Remote_Directory : in String := "") is

begin
    -- Transfer the backup save set.
    Ftp.Put (From_Local_File => "dtia_multinet_sav",
             To_Remote_File => "dtia_multinet.sav",
             Remote_Machine => Remote_Machine,
             Username => Username,
             Password => Password,
             Account => Username,
             Remote_Directory => Remote_Directory,
             Remote_Type => "Vax",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Image,
             Transfer_Mode => Ftp_Defs.Stream,
             Transfer_Structure => Ftp_Defs.File,
             Send_Port => Ftp_Profile.Send_Port_Enabled,
             Response => Ftp.Profile_Get);

    -- Transfer the FDL for restoring the save set.
    Ftp.Put (From_Local_File => "ftp_to_backup_fdl",
             To_Remote_File => "ftp_to_backup.fdl",
             Remote_Machine => Remote_Machine,
             Username => Username,
             Password => Password,
             Account => Username,
             Remote_Directory => Remote_Directory,
             Remote_Type => "Vax",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Ascii,
             Transfer_Mode => Ftp_Defs.Stream,
             Transfer_Structure => Ftp_Defs.File,
             Send_Port => Ftp_Profile.Send_Port_Enabled,
             Response => Ftp.Profile_Get);

    -- Transfer the build command procedure.
    Ftp.Put (From_Local_File => "build_com",
             To_Remote_File => "build.com",
             Remote_Machine => Remote_Machine,
             Username => Username,
             Password => Password,
             Account => Username,
             Remote_Directory => Remote_Directory,
             Remote_Type => "Vax",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Ascii,
             Transfer_Mode => Ftp_Defs.Stream,
             Transfer_Structure => Ftp_Defs.File,
             Send_Port => Ftp_Profile.Send_Port_Enabled,
             Response => Ftp.Profile_Get);

end Install_Multinet_Dtia;