|
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: 1381 (0x565)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Log;
with Profile;
with Operator;
with String_Utilities;
with System_Utilities;
procedure Logout_Other_Sessions is
Current_User_Name : constant String := System_Utilities.User_Name;
Current_Session_Name : constant String := System_Utilities.Session_Name;
Iter : System_Utilities.Session_Iterator;
Sid : System_Utilities.Session_Id;
begin
Operator.Enable_Privileges (Enable => True);
System_Utilities.Init (Iter);
while not System_Utilities.Done (Iter) loop
Sid := System_Utilities.Value (Iter);
if String_Utilities.Equal (System_Utilities.User_Name (Sid),
Current_User_Name, True) and then
not String_Utilities.Equal (System_Utilities.Session_Name (Sid),
Current_Session_Name, True) then
Log.Put_Line (Message => "Logging out session " &
System_Utilities.User_Name (Sid) & "." &
System_Utilities.Session_Name (Sid),
Kind => Profile.Positive_Msg);
Operator.Force_Logoff (Physical_Line =>
System_Utilities.Terminal (Sid),
Commit_Buffers => True);
end if;
System_Utilities.Next (Iter);
end loop;
end Logout_Other_Sessions;