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 ┃

⟦42d1ad8c5⟧ TextFile

    Length: 1140 (0x474)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Archive;
with Ftp;
with Ftp_Defs;
with Profile;
with System_Utilities;

procedure Sauver (Quoi : String := "!Users.miclo.Tiny_Talk") is

    package Su renames System_Utilities;

    Directory : constant String := "!machine.temporary." & Su.User_Name;
begin
    Archive.Save (Objects => Quoi,
                  Options => "R1000",
                  Device => Directory,
                  Response => "<PROFILE>");

    Ftp.Put (From_Local_File => Directory & ".data",
             To_Remote_File => "/home/aconit/hurst/a_sauver/data",
             Remote_Machine => "aconit",
             Username => "hurst",
             Password => "ch90pr",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Image,
             Response => Profile.Get);

    Ftp.Put (From_Local_File => Directory & ".index",
             To_Remote_File => "/home/aconit/hurst/a_sauver/index",
             Remote_Machine => "aconit",
             Username => "hurst",
             Password => "ch90pr",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Image,
             Response => Profile.Get);
end Sauver;