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 ┃

⟦a73b9d789⟧ TextFile

    Length: 1139 (0x473)
    Types: TextFile
    Names: »B«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

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

procedure Sauver (Quoi : String := "!Users.reck.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/reck/a_sauver/data",
             Remote_Machine => "aconit",
             Username => "reck",
             Password => "mariejoe",
             Append_To_File => False,
             Transfer_Type => Ftp_Defs.Image,
             Response => Profile.Get);

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