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 - metrics - download
Index: B T

⟦d3b258ae9⟧ TextFile

    Length: 2205 (0x89d)
    Types: TextFile
    Names: »B«

Derivation

└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦274c33adf⟧ 
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦274c33adf⟧ 
                └─⟦this⟧

TextFile

with Debug_Tools;
with Error_Reporting;
with Ftp_Server;
with Program;
with Tcp_Ip_Boot;
with Network_Product;
with Ftp_Product;
with Rpc_Product;

procedure Initialize_Network is
begin
    if Network_Product.Is_Installed ("TCP/IP") then
        begin
            Tcp_Ip_Boot (Exos_Prefix => "!Tools.Networking.");
        exception
            when others =>
                Error_Reporting.Report_Error
                   (Caller => "!Machine.Initialize_Network.TCP_IP_Boot",
                    Reason => Error_Reporting.Create_Condition_Name
                                 ("Unhandled_Exception",
                                  Error_Reporting.Problem),
                    Explanation => Debug_Tools.Get_Exception_Name (True, True));
        end;
    end if;

    if Ftp_Product.Is_Installed then
        begin
            delay 15.0;
            Ftp_Server.Start;
        exception
            when others =>
                Error_Reporting.Report_Error
                   (Caller => "!Machine.Initialize_Network.FTP",
                    Reason => Error_Reporting.Create_Condition_Name
                                 ("Unhandled_Exception",
                                  Error_Reporting.Problem),
                    Explanation => Debug_Tools.Get_Exception_Name (True, True));
        end;
    end if;

    if Rpc_Product.Is_Installed then
        begin
            delay 15.0;
            Program.Run_Job
               ("""!Commands"".Archive.Server",
                Context => "!Machine.Error_Logs",
                Options => "Output => !Machine.Error_Logs.Archive_Server_Log," &
                              "Name => (Archive Server), " &
                              "User=NETWORK_PUBLIC, Password=()");
        exception
            when others =>
                Error_Reporting.Report_Error
                   (Caller => "!Machine.Initialize_Network.Archive",
                    Reason => Error_Reporting.Create_Condition_Name
                                 ("Unhandled_Exception",
                                  Error_Reporting.Problem),
                    Explanation => Debug_Tools.Get_Exception_Name (True, True));
        end;
    end if;
end Initialize_Network;