|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1370 (0x55a)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─⟦6f12a12be⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Ftp;
with Ftp_Defs;
with Ftp_Profile;
with Io;
with Profile;
with Remote_Operations;
with System_Utilities;
with Time_Utilities;
package body Rs6000_Remote_Exec is
package Ro renames Remote_Operations;
package Su renames System_Utilities;
package Tu renames Time_Utilities;
Printer_User : constant String := "printer";
Printer_User_Password : constant String := "retnipr*9";
Rs6000 : constant String := "aconit";
The_Context : Ro.Context;
The_Status : Ro.Error_Status;
procedure Initialize is
begin
Ro.Acquire (A_Context => The_Context,
Status => The_Status,
Machine => Rs6000,
User => Printer_User,
Password => Printer_User_Password,
Session => "",
Instance => "");
end Initialize;
procedure Execute (Command : String := "") is
begin
Ro.Execute (Command => Command,
In_Context => The_Context,
Status => The_Status,
Timeout => Remote_Operations.Wait_Forever);
end Execute;
procedure Finalize is
begin
Ro.Release (A_Context => The_Context,
Status => The_Status,
Idle_Timeout => Remote_Operations.Default);
end Finalize;
end Rs6000_Remote_Exec;