Initial Commit

App.rbbas

+#tag Class
Protected Class App
Inherits Application
	#tag Event
		Sub Open()
		  Window1.IdleThread.Run
		  Window1.Hide()
		End Sub
	#tag EndEvent


	#tag Constant, Name = kEditClear, Type = String, Dynamic = False, Default = \"&Delete", Scope = Public
		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"&Delete"
		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"&Delete"
	#tag EndConstant

	#tag Constant, Name = kFileQuit, Type = String, Dynamic = False, Default = \"&Quit", Scope = Public
		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"E&xit"
	#tag EndConstant

	#tag Constant, Name = kFileQuitShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public
		#Tag Instance, Platform = Mac OS, Language = Default, Definition  = \"Cmd+Q"
		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"Ctrl+Q"
	#tag EndConstant


	#tag ViewBehavior
	#tag EndViewBehavior
End Class
#tag EndClass
\ No newline at end of file

Build Automation.rbbas

+#tag BuildAutomation
			Begin BuildStepList Linux
				Begin BuildProjectStep Build
				End
			End
			Begin BuildStepList Mac OS X
				Begin BuildProjectStep Build
				End
			End
			Begin BuildStepList Windows
				Begin BuildProjectStep Build
				End
			End
#tag EndBuildAutomation
\ No newline at end of file

Globals.rbbas

+#tag Module
Protected Module Globals
	#tag Property, Flags = &h1
		Protected gAppFolderItem As FolderItem
	#tag EndProperty

	#tag Property, Flags = &h1
		Protected gDebugLoggingEnabled As Boolean = false
	#tag EndProperty

	#tag Property, Flags = &h1
		Protected gIdleLogoutPrefsFile As FolderItem
	#tag EndProperty

	#tag Property, Flags = &h1
		Protected gXMLprefsData As XmlDocument
	#tag EndProperty


	#tag Constant, Name = gcCPUtypeIntelStr, Type = String, Dynamic = False, Default = \"Intel", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = gcCPUtypePowerPC, Type = Double, Dynamic = False, Default = \"2", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = gcCPUtypePowerPCStr, Type = String, Dynamic = False, Default = \"PowerPC", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = gcCPUtypeUnknown, Type = Double, Dynamic = False, Default = \"-1", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = gcCPUtypeUnknownStr, Type = String, Dynamic = False, Default = \"Unknown", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = gcSingleQuote, Type = String, Dynamic = False, Default = \"\'", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = gcTABchar, Type = String, Dynamic = False, Default = \"\t", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kDeleteBackSpaceASCIIVal, Type = Double, Dynamic = False, Default = \"8", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kDiskVolumeIgnoreFlagFileName, Type = String, Dynamic = False, Default = \".BlastImageConfigIgnoreThisVolume", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kDoubleQuoteASCIIVal, Type = Double, Dynamic = False, Default = \"34", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kDoubleQuoteChar, Type = String, Dynamic = False, Default = \"\"", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kDownASCIIVal, Type = Double, Dynamic = False, Default = \"31", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kESC_ASCII_Val, Type = Double, Dynamic = False, Default = \"27", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kKeychainName, Type = String, Dynamic = False, Default = \"PSU Blast Image Config", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kLeftASCIIVal, Type = Double, Dynamic = False, Default = \"28", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kLogToFileDisable, Type = Boolean, Dynamic = False, Default = \"False", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kLogToFileEnable, Type = Boolean, Dynamic = False, Default = \"True", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kNullASCIIVal, Type = Double, Dynamic = False, Default = \"0", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kReturnMsgIsError, Type = Double, Dynamic = False, Default = \"2", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kReturnMsgIsStayOnCurrentStage, Type = Double, Dynamic = False, Default = \"3", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kReturnMsgIsSuccess, Type = Double, Dynamic = False, Default = \"0", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kReturnMsgIsWarning, Type = Double, Dynamic = False, Default = \"1", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kReturn_ASCII_Val, Type = Double, Dynamic = False, Default = \"13", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kRightASCIIVal, Type = Double, Dynamic = False, Default = \"29", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kSleepTimeForRectControls, Type = Double, Dynamic = False, Default = \"100", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kSleepTimeForWaitLoops, Type = Double, Dynamic = False, Default = \"250", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kSpaceASCIIVal, Type = Double, Dynamic = False, Default = \"32", Scope = Protected
	#tag EndConstant


	#tag ViewBehavior
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
	#tag EndViewBehavior
End Module
#tag EndModule
\ No newline at end of file

IdleLogout app/Idle Logout.app/Contents/Info.plist

+<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE plist SYSTEM
"file://localhost/System/Library/DTDs/PropertyList.dtd"><plist version="0.9"><dict>
   <key>CFBundleExecutable</key>
   <string>Idle Logout</string>
   <key>CFBundleName</key>
   <string>Idle Logout</string>
   <key>CFBundleIdentifier</key>
   <string>IdleLogout</string>
   <key>CFBundleInfoDictionaryVersion</key>
   <string>6.0</string>
   <key>CFBundleVersion</key>
   <string>1.0.1.2.0</string>
   <key>CFBundleDevelopmentRegion</key>
   <string>en</string>
   <key>CFBundlePackageType</key>
   <string>APPL</string>
   <key>CFBundleSignature</key>
   <string></string>
   <key>CFBundleGetInfoString</key>
   <string>1.0b1, Penn State University/ITS/CLC</string>
   <key>CFBundleShortVersionString</key>
   <string>1.0b1</string>
   <key>CFBundleIconFile</key>
   <string>Idle Logout.icns</string><key>LSMinimumSystemVersion</key><string>10.5.0</string>
   <key>CFBundleDocumentTypes</key>
   <array>
   </array></dict></plist>
\ No newline at end of file

IdleLogout app/Idle Logout.app/Contents/PkgInfo

+APPL????
\ No newline at end of file

IdleLogout app/IdleLogoutSudoers.sh

+#!/bin/bash
+
+# Written by Rusty Myers
+# 2012-11-06
+
+# postflight to tell etc/sudoers to add code
+DEST_VOLUME="${3}"
+TIME=`date "+%Y-%m-%d-%H-%M-%S"`
+
+# Allow Runtime to run with root privileges without prompting for an admin password
+
+# check sudoers for psuRebootNow.pl
+RUN_AS_ROOT=`grep "psuRebootNow.pl" "${DEST_VOLUME}"/etc/sudoers`
+
+if [ -n "${RUN_AS_ROOT}" ] # If it's there
+then
+	# Remove it from /etc/sudoers if it exists
+	sed /psuRebootNow.pl/d "${DEST_VOLUME}"/etc/sudoers > "${DEST_VOLUME}"/tmp/sudoers
+	# Make a copy of the current version
+	mv "${DEST_VOLUME}"/etc/sudoers "${DEST_VOLUME}"/etc/sudoers."${TIME}"
+	# Replace old version with new version
+	mv "${DEST_VOLUME}"/tmp/sudoers "${DEST_VOLUME}"/etc/sudoers
+else
+	# Make a copy of the current version
+	cp "${DEST_VOLUME}"/etc/sudoers "${DEST_VOLUME}"/etc/sudoers."${TIME}"
+fi
+# Add it back into /etc/sudoers
+echo 'ALL		ALL=NOPASSWD:/Library/CLMshared/psuRebootNow.pl' >> "${DEST_VOLUME}"/etc/sudoers
+  
+# Check permissions and reload sudoers file
+chmod 440        "${DEST_VOLUME}"/etc/sudoers
+chown root:wheel "${DEST_VOLUME}"/etc/sudoers
+visudo -c
+
+exit 0

IdleLogout app/edu.psu.its.clc.IdleLogoutSettings.plist

+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>IdleLoopDelaySeconds</key>
+	<string>120</string>
+	<key>ComputerIdleAfterNumSeconds</key>
+	<string>600</string>
+	<key>WaitForUserPromptSeconds</key>
+	<string>90</string>
+</dict>
+</plist>

IdleLogout app/psuRebootNow.pl

+#!/usr/bin/perl -w
+#
+#--------------------------------------------------------------------------------------------------
+#-- psuRebootRequested.pl
+#--------------------------------------------------------------------------------------------------
+# Program    : psuRebootRequested.pl
+#
+# Purpose    : Reboot computer
+#
+# Loaded By  : launchd
+# Called By  : psuKioskIdleLogout.app touching file /tmp/psu_reboot_requested
+#
+# Author     : <hkr@psu.edu> Ken Rosenberry
+#
+# Revisions  : 2009/08/18 <hkr> Initial version
+#            : 2010/06/21 <hkr> no longer using /tmp/psu_reboot_now flag file
+#--------------------------------------------------------------------------------------------------
+
+# Get name of program for log records.
+use File::Basename;
+my ( $programName ) = basename($0);
+
+LogData ("-->");
+
+# psuCurrentUser.dat file contains the last logged in user.
+# Remove this file, otherwise RunMaint tasks won't run because it looks like a user is logged in.
+$current_user_dat_file = '/Library/PSUtemp/psuCurrentUser.dat';
+if (-f $current_user_dat_file)
+	{
+	LogData("Remove current user file: $current_user_dat_file");
+	system "/bin/rm $current_user_dat_file";
+	}
+
+LogData("Rebooting Now!");
+LogData ("<--");
+
+system '/sbin/reboot';
+
+exit 0;
+
+#--------------------------------------------------------------------------------------------------
+#-- LogData - Print message to log file.
+#--------------------------------------------------------------------------------------------------
+sub LogData
+    {
+    my $text = $_[0] ;
+
+    if ( substr($text, -1, 1) ne "\n") { $text = $text . "\n"; }        ### Log messages must end w/ newline.
+    if ( substr($text,  0, 3) eq "-->")
+        {
+        $text = substr($text,  0, 3) . $programName . ": launched..." . substr($text, 3);
+        }
+    elsif ( substr($text,  0, 3) eq "<--" )
+        {
+        $text = substr($text,  0, 3) . $programName . ": ...terminated." . substr($text, 3);
+        }
+    else
+        {
+        $text = "   " . $programName . ": " . $text;                    ### All other log records indented.
+        }
+        
+    $text = (scalar localtime) . " " . $text;                           ### Timestamp log records.
+
+    print $text;
+    }

IdleLogout.rbbas

+#tag Class
Protected Class IdleLogout
Inherits Application
	#tag Event
		Sub Open()
		  Dim debugFileName as string
		  Dim theDate as date
		  dim mXMLtreeToFollow(-1) as string
		  dim mPrefKeyFoundData(-1) as string
		  dim mTempFoundPlistData as string = "" // Local variable to use for gathering plist settings
		  theDate = new Date
		  
		  Globals.gAppFolderItem = GetFolderItem("/Users/Shared/", FolderItem.PathTypeShell)
		  
		  // Set the name of the log
		  debugFileName = "psuIdleLogout.RUN" + MiscMethods.PadData("0",2,str(theDate.Year),Globals.kLogToFileDisable) _
		  + "-" + MiscMethods.PadData("0",2,str(theDate.Month),Globals.kLogToFileDisable) + "-"
		  debugFileName = debugFileName + MiscMethods.PadData("0",2,str(theDate.Day),Globals.kLogToFileDisable) + _
		  "-" + MiscMethods.PadData("0",2,str(theDate.Hour),Globals.kLogToFileDisable) + "-"
		  debugFileName = debugFileName + MiscMethods.PadData("0",2,str(theDate.Minute),Globals.kLogToFileDisable) + _
		  "-" + MiscMethods.PadData("0",2,str(theDate.Second),Globals.kLogToFileDisable) + ".log"
		  
		  // Initilize the log, quit if we can't create the log
		  if not (LogToFile.Initialize(debugFileName,Globals.gAppFolderItem)) then
		    beep
		    MsgBox "Error creating run log file! Exiting..."
		    quit
		  end if
		  
		  // Keep only the last 5 logs
		  if ( LogToFile.DeleteOldLogs(5) ) then
		    LogToFile("Deleted Old Logs")
		  end if
		  
		  
		  // Are there any users that we should ignore running for?
		  if ( PlistHelper.readPlist(LogoutWarning.pDefaultPrefsFSPath, LogoutWarning.pDefaultPrefsFileName, "IgnoreUser", mTempFoundPlistData ) ) then
		    
		    LogoutWarning.pIgnoreUser = mTempFoundPlistData
		    
		    LogToFile(CurrentMethodName + ": Found the default key data, = " + str(LogoutWarning.pIgnoreUser) )
		    
		  else // Failed!
		    
		    LogToFile(CurrentMethodName + ": Warning! Failed to find the default key 'IgnoreUser', using default of "+ str (LogoutWarning.pIgnoreUser) )
		    
		  end if
		  
		  // Are there any groups that we should ignore running for?
		  if ( PlistHelper.readPlist(LogoutWarning.pDefaultPrefsFSPath, LogoutWarning.pDefaultPrefsFileName, "IgnoreGroup", mTempFoundPlistData ) ) then
		    
		    LogoutWarning.pIgnoreGroup = mTempFoundPlistData
		    
		    LogToFile(CurrentMethodName + ": Found the default key data, = " + str(LogoutWarning.pIgnoreGroup) )
		    
		  else // Failed!
		    
		    LogToFile(CurrentMethodName + ": Warning! Failed to find the default key 'IgnoreGroup', using default of "+ str (LogoutWarning.pIgnoreGroup) )
		    
		  end if
		  
		  
		  // Is this user macadmin?
		  if ( MiscMethods.CurrentUsername(LogoutWarning.pIgnoreUser) ) then
		    // It is macadmin, quit the app
		    LogToFile("Current user is " + LogoutWarning.pIgnoreUser + ", quiting app")
		    quit
		  else
		    LogToFile("User is not " + LogoutWarning.pIgnoreUser + ", continuing")
		  end if
		  
		  // Is this user an admin?
		  if ( MiscMethods.CurrentGroup(LogoutWarning.pIgnoreGroup) ) then
		    // It is macadmin, quit the app
		    LogToFile("Current user is an " + LogoutWarning.pIgnoreGroup + ", quiting app")
		    quit
		  else
		    LogToFile("User is not an " + LogoutWarning.pIgnoreGroup + ", continuing")
		  end if
		  
		  
		  // How long should we wait before considering the Mac is idle too long?
		  if ( PlistHelper.readPlist(LogoutWarning.pDefaultPrefsFSPath, LogoutWarning.pDefaultPrefsFileName, "ComputerIdleAfterNumSeconds", mTempFoundPlistData ) ) then
		    
		    LogoutWarning.pComputerIdleAfterNumSeconds = val( mTempFoundPlistData )
		    
		    LogToFile(CurrentMethodName + ": Found the default key data, = " + str(LogoutWarning.pComputerIdleAfterNumSeconds) )
		    
		  else // Failed!
		    
		    LogToFile(CurrentMethodName + ": Warning! Failed to find the default key 'ComputerIdleAfterNumSeconds', using default of "+ str (LogoutWarning.pComputerIdleAfterNumSeconds) )
		    
		  end if
		  
		  // How often should we check to see how long the Mac has been idle?
		  if ( PlistHelper.readPlist(LogoutWarning.pDefaultPrefsFSPath, LogoutWarning.pDefaultPrefsFileName, "IdleLoopDelaySeconds", mTempFoundPlistData ) ) then
		    
		    LogoutWarning.pIdleLoopDelaySeconds = val( mTempFoundPlistData )
		    
		    LogToFile(CurrentMethodName + ": Found the default key data, = " + str(LogoutWarning.pIdleLoopDelaySeconds) )
		    
		  else // Failed!
		    
		    LogToFile(CurrentMethodName + ": Warning! Failed to find the default key 'IdleLoopDelaySeconds', using default of "+ str (LogoutWarning.pIdleLoopDelaySeconds) )
		    
		  end if
		  
		  
		  // How long should we wait for the user to respond for More Time or to Log Out?
		  if ( PlistHelper.readPlist(LogoutWarning.pDefaultPrefsFSPath, LogoutWarning.pDefaultPrefsFileName, "WaitForUserPromptSeconds", mTempFoundPlistData ) ) then
		    
		    LogoutWarning.pWaitForUserPromptSeconds = val( mTempFoundPlistData )
		    
		    LogToFile(CurrentMethodName + ": Found the default key data, = " + str(LogoutWarning.pWaitForUserPromptSeconds) )
		    
		  else // Failed!
		    
		    LogToFile(CurrentMethodName + ": Warning! Failed to find the default key 'WaitForUserPromptSeconds', using default of "+ str (LogoutWarning.pWaitForUserPromptSeconds) )
		    
		  end if
		  
		  // Set default
		  LogToFile(CurrentMethodName + ": Setting pMoreTimeAskedFor as True")
		  Dim pMoreTimeAskedFor as Boolean = true
		  LogoutWarning.Hide()
		  LogToFile(CurrentMethodName + ": Running IdleThread")
		  LogoutWarning.IdleThread.Run
		  
		  LogToFile(CurrentMethodName + ": <---")
		  
		  
		  
		  //Can't do loops in App Open event, won't give focus to window.
		  'do
		  'LogToFile("Waiting for idle time")
		  'LogToFile("pMoreTimeAskedFor: " + str(pMoreTimeAskedFor))
		  'LogoutWarning.Show
		  'loop until not (LogoutWarning.pMoreTimeAskedFor)
		  // Log the user out here or quit!
		  
		  // Check to see if LogoutCountdown is running
		  
		  
		End Sub
	#tag EndEvent


	#tag Note, Name = Icon
		Application Icon use with CC license:
		From http://www.flickr.com/photos/23453447@N02/5107438855/sizes/o/in/photostream/
		By zyrquel
		http://www.flickr.com/photos/23453447@N02/
	#tag EndNote


	#tag Constant, Name = kEditClear, Type = String, Dynamic = False, Default = \"&Delete", Scope = Public
		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"&Delete"
		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"&Delete"
	#tag EndConstant

	#tag Constant, Name = kFileQuit, Type = String, Dynamic = False, Default = \"&Quit", Scope = Public
		#Tag Instance, Platform = Windows, Language = Default, Definition  = \"E&xit"
	#tag EndConstant

	#tag Constant, Name = kFileQuitShortcut, Type = String, Dynamic = False, Default = \"", Scope = Public
		#Tag Instance, Platform = Mac OS, Language = Default, Definition  = \"Cmd+Q"
		#Tag Instance, Platform = Linux, Language = Default, Definition  = \"Ctrl+Q"
	#tag EndConstant


	#tag ViewBehavior
	#tag EndViewBehavior
End Class
#tag EndClass
\ No newline at end of file

LogToFile.rbbas

+#tag Module
Protected Module LogToFile
	#tag Method, Flags = &h1
		Protected Function DeleteOldLogs(numLogFilesToKeep as integer) As Boolean
		  dim loopVar as integer
		  dim numLogFolderItems as integer
		  dim logFileBaseName as string
		  dim logItem as FolderItem
		  dim numLogFilesFound as integer
		  dim logFileNames() as string
		  dim tempStr as string
		  dim numLogFilesToDelete as integer
		  
		  LogToFile("LogToFile.DeleteOldLogs: ---->")
		  
		  if (DebugLogFolder = nil) then
		    LogToFile("LogToFile.DeleteOldLogs: ERROR: LogFolderItem is nil, no directory to delete. Returning false.")
		    return false
		  end if
		  
		  if (numLogFilesToKeep < 2) then
		    LogToFile("LogToFile.DeleteOldLogs: numLogFilesToKeep is less than 2, so no files to delete. Returning true.")
		    LogToFile("LogToFile.DeleteOldLogs: <----")
		    return true
		  end if
		  
		  // Delete old log files next
		  LogToFile("LogToFile.DeleteOldLogs: Received number of log files to keep: " + str(numLogFilesToKeep))
		  
		  numLogFolderItems = DebugLogFolder.Count
		  LogToFile("LogToFile.DeleteOldLogs: Number of items in the log folder: " + str(numLogFolderItems))
		  
		  if (numLogFolderItems < numLogFilesToKeep) then
		    LogToFile("LogToFile.DeleteOldLogs: The number of items in the log folder is less than the number of log files to keep, nothing to scan. Exiting.")
		    LogToFile("LogToFile.DeleteOldLogs: <----")
		    return true
		  end if
		  
		  logFileBaseName = NthField(DebugLogFile.Name,".",1)
		  
		  // Need to get the count of the number of log files first before counting them otherwise we'll count the other items as log file counts
		  for loopVar = 1 to numLogFolderItems
		    logItem = DebugLogFolder.Item(loopVar)
		    if ( left(logItem.Name,len(logFileBaseName)) = logFileBaseName ) then
		      numLogFilesFound = numLogFilesFound + 1
		      logFileNames.Append logItem.Name
		    end if
		  next
		  
		  LogToFile("LogToFile.DeleteOldLogs: Number of log files found: " + str(UBound(logFileNames)+1) )
		  
		  numLogFilesToDelete = UBound(logFileNames) - numLogFilesToKeep // Keep in mind that the array is zero based...
		  
		  // Delete log files until N are left:
		  for loopVar = 0 to numLogFilesToDelete
		    tempStr = logFileNames(loopVar)
		    LogToFile("LogToFile.DeleteOldLogs: Processing log file: '" + logFileNames(loopVar) + "'")
		    if (not(logFileNames(loopVar) = DebugLogFile.Name)) then // Check the folderitem name doesn't match the name of the active log file before deleting it
		      LogToFile("LogToFile.DeleteOldLogs: The found log item does NOT match the current active log filed named '"+ DebugLogFile.Name + "' and WILL BE DELETED.")
		      if (DebugLogFolder.Child(logFileNames(loopVar)).Exists) then
		        LogToFile("LogToFile.DeleteOldLogs: Log file exists, deleting it ...")
		        DebugLogFolder.Child(logFileNames(loopVar)).Delete
		      else
		        LogToFile("LogToFile.DeleteOldLogs: Log file does NOT exist, nothing to delete.")
		      end if
		    else
		      LogToFile("LogToFile.DeleteOldLogs: The found log item MATCHES the current active log filed named '"+ DebugLogFile.Name + "', will NOT be deleted.")
		    end if
		  next
		  
		  LogToFile("LogToFile.DeleteOldLogs: <----")
		  return true
		End Function
	#tag EndMethod

	#tag Method, Flags = &h1
		Protected Function Initialize(debugFileName as string, appFolder as FolderItem) As Boolean
		  if (debugFileName = "") then
		    return false
		  end if
		  
		  if (appFolder = nil) then
		    return false
		  end if
		  
		  DebugLogFolder = appFolder.child("IdleLogout")
		  
		  if (not(DebugLogFolder.Exists)) then
		    
		    DebugLogFolder.CreateAsFolder
		    DebugLogFolder.Permissions = &o777
		    
		    if ((DebugLogFolder.Exists) and (DebugLogFolder.Directory)) then
		      // beep
		      // MsgBox "Created 'Logs' folder." + EndOfLine.Macintosh + EndOfLine.Macintosh + "In order to save the run log file, I created a 'Logs' folder at the path of '" + Globals.gAppFolderItem.ShellPath + "'."
		    else
		      // beep
		      // msgBox "Failed to create the 'Logs' folder for storing the run log file."
		      return false
		    end if
		    
		  end if
		  
		  DebugLogFile = DebugLogFolder.child(debugFileName)
		  if not(DebugLogFile.IsWriteable) then
		    // beep
		    // MsgBox "Permissions prevent me from writing to the run log file in the 'Logs' folder." + EndOfLine.Macintosh + EndOfLine.Macintosh + "Created run log file in '/tmp' directory as a backup."
		    DebugLogFile = Volume(0).Child("tmp").Child(debugFileName)
		  end if
		  
		  if (not(DebugLogFile.exists)) then
		    fileStream=TextOutputStream.Create(DebugLogFile)
		    fileStream.Close
		    DebugLogFile.Permissions = &o777
		    LogToFile("LogToFile.Initialize: New log file created.")
		  end if
		  
		  return true
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub LogToFile(logMessage as string)
		  
		  // !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
		  // WARNING: DO NOT CALL LogToFile in this method or you will have circular references!
		  // !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
		  
		  Dim theTime as date
		  
		  theTime = new date
		  
		  if (DebugLogFile = NIL) then
		    
		    beep
		    msgBox "LogToFile error: logFile = NIL. Unable to save to log file."
		    return
		    
		  end if
		  
		  if (DebugLogFile.Exists) then
		    fileStream = TextOutputStream.Append(DebugLogFile)
		  else
		    return
		  end if
		  
		  if (fileStream <> NIL) then
		    
		    // Log the message if it does not contain "<DEBUG>", OR if the ENABLE_DEBUG_LOGGING config pref key is "YES" AND the logMessage contains "<DEBUG>":
		    if ( ( (InStr(logMessage,"<DEBUG>")=0)) or  ( (InStr(logMessage,"<DEBUG>")>0) and (Globals.gDebugLoggingEnabled)) ) then
		      
		      #if TargetWin32 then
		        fileStream.Write (theTime.ShortDate + " " + theTime.LongTime + ": " + logMessage + EndOfLine.Windows) // Winders Line Feeds
		      #else
		        fileStream.Write (theTime.ShortDate + " " + theTime.LongTime + ": " + logMessage + EndOfLine.UNIX) // Unix line feeds
		      #endif
		      
		    end if
		    
		    fileStream.Close
		    
		    return
		    
		  else
		    
		    beep
		    msgBox "LogToFile error: fileStream = NIL - can't write to log file." + EndOfLine + EndOfLine + "Is the file possibly busy or open in an editor?"
		    return
		    
		  end if
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h1
		Protected Function openLogFile() As Boolean
		  DebugLogFile.launch(true)
		  
		  return true
		  
		End Function
	#tag EndMethod


	#tag Property, Flags = &h21
		Private DebugLogFile As FolderItem
	#tag EndProperty

	#tag Property, Flags = &h21
		Private DebugLogFolder As FolderItem
	#tag EndProperty

	#tag Property, Flags = &h21
		Private fileStream As TextOutputStream
	#tag EndProperty


	#tag ViewBehavior
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
	#tag EndViewBehavior
End Module
#tag EndModule
\ No newline at end of file

MenuBar1.rbmnu

+#tag Menu
Begin Menu MenuBar1
   Begin MenuItem FileMenu
      SpecialMenu = 0
      Text = "&File"
      Index = -2147483648
      AutoEnable = True
      Begin QuitMenuItem FileQuit
         SpecialMenu = 0
         Text = "#App.kFileQuit"
         Index = -2147483648
         ShortcutKey = "#App.kFileQuitShortcut"
         Shortcut = "#App.kFileQuitShortcut"
         AutoEnable = True
      End
   End
   Begin MenuItem EditMenu
      SpecialMenu = 0
      Text = "&Edit"
      Index = -2147483648
      AutoEnable = True
      Begin MenuItem EditUndo
         SpecialMenu = 0
         Text = "&Undo"
         Index = -2147483648
         ShortcutKey = "Z"
         Shortcut = "Cmd+Z"
         MenuModifier = True
         AutoEnable = True
      End
      Begin MenuItem UntitledMenu1
         SpecialMenu = 0
         Text = "-"
         Index = -2147483648
         AutoEnable = True
      End
      Begin MenuItem EditCut
         SpecialMenu = 0
         Text = "Cu&t"
         Index = -2147483648
         ShortcutKey = "X"
         Shortcut = "Cmd+X"
         MenuModifier = True
         AutoEnable = True
      End
      Begin MenuItem EditCopy
         SpecialMenu = 0
         Text = "&Copy"
         Index = -2147483648
         ShortcutKey = "C"
         Shortcut = "Cmd+C"
         MenuModifier = True
         AutoEnable = True
      End
      Begin MenuItem EditPaste
         SpecialMenu = 0
         Text = "&Paste"
         Index = -2147483648
         ShortcutKey = "V"
         Shortcut = "Cmd+V"
         MenuModifier = True
         AutoEnable = True
      End
      Begin MenuItem EditClear
         SpecialMenu = 0
         Text = "#App.kEditClear"
         Index = -2147483648
         AutoEnable = True
      End
      Begin MenuItem UntitledMenu0
         SpecialMenu = 0
         Text = "-"
         Index = -2147483648
         AutoEnable = True
      End
      Begin MenuItem EditSelectAll
         SpecialMenu = 0
         Text = "Select &All"
         Index = -2147483648
         ShortcutKey = "A"
         Shortcut = "Cmd+A"
         MenuModifier = True
         AutoEnable = True
      End
   End
End
#tag EndMenu
\ No newline at end of file

MiscMethods.rbbas

+#tag Module
Protected Module MiscMethods
	#tag Method, Flags = &h1
		Protected Function CurrentGroup(paramGroupCheck as string) As Boolean
		  // Set up variables for idle time
		  // Shell result
		  Dim mCurrentGroups As String
		  // Shell exit code
		  Dim mErrCode As  Integer
		  // Set up shell
		  Dim s As Shell
		  s=New Shell
		  s.Mode = 0
		  
		  // Check idle time
		  //s.Execute code to check idle time from USB input devices
		  s.Execute "/bin/echo -n `/usr/bin/groups`"
		  // Set results to mIdleResult
		  mCurrentGroups = s.Result
		  // Set error code to mIdleError
		  mErrCode = s.ErrorCode
		  // Log mIdleResult for debugging
		  // System.Log(System.LogLevelError, "Method: " + midleSecs)
		  // LogToFile("mIdleSeconds: " + str(mIdleSecs))
		  
		  if ( InStr(mCurrentGroups, paramGroupCheck) > 0 ) then
		    return true
		  else
		    return false
		  end if
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h1
		Protected Function CurrentUsername(paramUsernameCheck as string) As Boolean
		  // Set up variables for idle time
		  // Shell result
		  Dim mCurrentUsername As String
		  // Shell exit code
		  Dim mErrCode As  Integer
		  // Set up shell
		  Dim s As Shell
		  s=New Shell
		  s.Mode = 0
		  
		  // Check idle time
		  //s.Execute code to check idle time from USB input devices
		  s.Execute "/bin/echo -n `whoami`"
		  // Set results to mIdleResult
		  mCurrentUsername = s.Result
		  // Set error code to mIdleError
		  mErrCode = s.ErrorCode
		  // Log mIdleResult for debugging
		  // System.Log(System.LogLevelError, "Method: " + midleSecs)
		  // LogToFile("mIdleSeconds: " + str(mIdleSecs))
		  
		  if ( InStr(paramUsernameCheck, mCurrentUsername) > 0 ) then
		    return true
		  else
		    return false
		  end if
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h1
		Protected Function PadData(PadChar as string, EndLength as integer, StrToPad as string, paramLogToFile as Boolean) As string
		  
		  dim paddedStr as string
		  dim loopVar as integer
		  dim NumPadChars as integer
		  
		  if (paramLogToFile = Globals.kLogToFileEnable) then
		    
		    LogToFile(CurrentMethodName + ": ---->")
		    
		    LogToFile(CurrentMethodName + ": String received: " + "--->" + StrToPad + "<---")
		    LogToFile(CurrentMethodName + ": PadChar received: " + "--->" + PadChar + "<---")
		    LogToFile(CurrentMethodName + ": EndLength received: " + "--->" + str(EndLength) + "<---")
		    
		  end if
		  
		  if (len(StrToPad) >= EndLength) then
		    
		    if (paramLogToFile = Globals.kLogToFileEnable) then
		      LogToFile(CurrentMethodName + ": No padding necessary. Exiting.")
		      LogToFile(CurrentMethodName + ": <----")
		    end if
		    
		    return StrToPad
		  end if
		  
		  paddedStr = StrToPad
		  
		  NumPadChars = EndLength - len(StrToPad)
		  
		  for loopVar = 1 to NumPadChars
		    paddedStr = PadChar + paddedStr
		  next
		  
		  if (paramLogToFile = Globals.kLogToFileEnable) then
		    LogToFile(CurrentMethodName + ": <----")
		  end if
		  
		  return paddedStr
		  
		End Function
	#tag EndMethod


	#tag ViewBehavior
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
	#tag EndViewBehavior
End Module
#tag EndModule
\ No newline at end of file

PlistHelper.rbbas

+#tag Module
Protected Module PlistHelper
	#tag Method, Flags = &h0
		Function readPlist(paramPathToPlist as String, paramNameofPlist as String, paramPlistKey as String, byRef paramFoundDataString as String) As Boolean
		  dim mXMLtreeToFollow(-1) as string
		  dim mPrefKeyFoundData(-1) as string
		  
		  LogToFile(CurrentMethodName + ": --->")
		  // LogToFile("paramPathToPlist: " + paramPathToPlist)
		  // LogToFile("paramPlistKey: " + paramPlistKey)
		  // Read the default values to start with
		  
		  Globals.gXMLprefsData = new XmlDocument
		  
		  // paramPathToPlist = "/Library/CLMadmin/Config/"
		  Globals.gIdleLogoutPrefsFile = GetFolderItem( paramPathToPlist + paramNameofPlist, FolderItem.PathTypeShell )
		  
		  if ( Globals.gIdleLogoutPrefsFile = nil ) then
		    
		    // The folder path does not exist, so set the bare minimium defaults...
		    
		    LogToFile(CurrentMethodName + ": ERROR! The file variable is NIL.")
		    LogToFile(CurrentMethodName + ": <----")
		    return false
		    
		  elseif ( not ( Globals.gIdleLogoutPrefsFile.IsReadable ) ) then
		    
		    LogToFile(CurrentMethodName + ": ERROR! The file is not readable, or does not exist!")
		    LogToFile(CurrentMethodName + ": <----")
		    return false
		    
		  else
		    
		    // Read the XML data next:
		    
		    LogToFile (CurrentMethodName + ": Found the plist data file. Reading it next...")
		    
		    Globals.gXMLprefsData.LoadXml(Globals.gIdleLogoutPrefsFile)
		    
		    redim mXMLtreeToFollow(-1)
		    mXMLtreeToFollow.Append("<plist>")
		    mXMLtreeToFollow.Append("<dict>")
		    mXMLtreeToFollow.Append("<key>" + paramPlistKey + "</key>")
		    mXMLtreeToFollow.Append("<string>")
		    
		    if ( myXMLTools.getXMLPlistData( Globals.gXMLprefsData.ToString ,mXMLtreeToFollow,mPrefKeyFoundData) ) then
		      
		      if ( UBound (mPrefKeyFoundData) > -1 ) then
		        
		        LogToFile(CurrentMethodName + ": Success! " + paramPlistKey + " = '" + mPrefKeyFoundData(0) + "'")
		        
		        paramFoundDataString = mPrefKeyFoundData(0)
		        
		        LogToFile(CurrentMethodName + ": <----")
		        return true
		        
		      else
		        
		        LogToFile(CurrentMethodName + ": ERROR: Returned data is EMPTY! Returning FALSE.")
		        LogToFile(CurrentMethodName + ": <----")
		        return false
		        
		      end if
		      
		    else
		      
		      LogToFile(CurrentMethodName + ": ERROR! Returning FALSE.")
		      LogToFile(CurrentMethodName + ": <----")
		      return false
		      
		    end if
		    
		  end if
		  
		End Function
	#tag EndMethod


	#tag ViewBehavior
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
	#tag EndViewBehavior
End Module
#tag EndModule
\ No newline at end of file

README.md

 IdleLogout.app
 ==============
 
-Application to log out users after a specified period of time.
\ No newline at end of file
+Description
+------------
+Application to log out users after a specified period of time. The user will see a prompt with a countdown asking them if they wish to log out or continue working ("More Time"). 
+
+Background
+------------
+Idle Logout.app was written in RealStudio 2012 R2. It uses the ioreg command to determine how long USB devices have been idle. Once the idle limit is meet, the computer is forcibly restarted to log out any users.
+
+The terminal command we use to check idle seconds on USB devices is:
+> /bin/echo $((`/usr/sbin/ioreg -c IOHIDSystem | /usr/bin/sed -e '/HIDIdleTime/ !{ d' -e 't' -e '}' -e 's/.* = //g' -e 'q'` / 1000000000))"
+
+Important Notes
+-------------
+Idle Logout.app can be run at login with a LaunchAgent under the users context. **In order for the application to work, the /etc/sudoers file needs to be edited to allow all users to run the "psuRebootNow.pl" script (included in the repo under 'IdleLogout app' folder).** View the "IdleLogoutSudoers.sh" script (included in the repo under 'IdleLogout app' folder) to see what changes are made to the /etc/sudoers file. The script can be used as a postflight script in a package while deploying the app.
+
+Preferences
+-------------
+The Idle Logout.app looks for a preference file in /Library/CLMadmin/Config named "edu.psu.its.clc.IdleLogoutSettings.plist" (included in the repo under 'IdleLogout app' folder). It looks for the following key/string pairs in the plist. If they are missing, it will use the defaults:
+
+* IgnoreUser = Ignore the username, don't force logout.
+* IgnoreGroup = Ignore anyone in this group, don't force logout.
+* ComputerIdleAfterNumSeconds = Number of seconds before considering the computer abandoned.
+* IdleLoopDelaySeconds = Number of seconds to wait between checking the usb idle seconds.
+* WaitForUserPromptSeconds = Number of seconds to wait for user to respond to logout prompt.
+
+Default Values if plist is not installed:
+
+* IgnoreUser = "macadmin"
+* IgnoreGroup = "admin"
+* ComputerIdleAfterNumSeconds = "600"
+* IdleLoopDelaySeconds = "30"
+* WaitForUserPromptSeconds = "90"
\ No newline at end of file

SystemEventsMod.rbbas

+#tag Module
Protected Module SystemEventsMod
	#tag Method, Flags = &h1
		Protected Function ShutdownOrRestartThisMac(paramRestartOrShutdown as string, byRef paramErrMsg as string, byRef paramErrCodeInt as integer) As Boolean
		  dim mShell as Shell
		  dim mShellResult as string
		  dim mShellErrInt as integer
		  
		  LogToFile(CurrentMethodName + ": ---->")
		  
		  mShell = new Shell
		  mShell.Mode = 0
		  
		  if ( paramRestartOrShutdown = "" ) then
		    
		    LogToFile(CurrentMethodName + ": ERROR: Received paramRestartOrShutdown is EMPTY.")
		    LogToFile(CurrentMethodName + ": <----")
		    return false
		    
		  end if
		  
		  // Restart:    /usr/bin/osascript -e "Tell application \"Finder\" to restart"
		  // Shutdown:    /usr/bin/osascript -e "Tell application \"Finder\" to shut down"
		  
		  mShell.Execute("/usr/bin/osascript -e " + Globals.kDoubleQuoteChar _
		  + "Tell application \" + Globals.kDoubleQuoteChar + "Finder\" + Globals.kDoubleQuoteChar + " to " + paramRestartOrShutdown + Globals.kDoubleQuoteChar)
		  
		  mShellResult = mShell.Result
		  mShellErrInt = mShell.ErrorCode
		  
		  paramErrMsg = mShellResult
		  
		  LogToFile(CurrentMethodName + ": Result of shell command to " + paramRestartOrShutdown + ": '" + mShellResult + "'")
		  LogToFile(CurrentMethodName + ": Shell exit error code = " + str(mShellErrInt) )
		  
		  if ( mShellErrInt <> 0 ) then
		    
		    LogToFile(CurrentMethodName + ": ERROR: Shell execute failed!")
		    paramErrCodeInt = Globals.kReturnMsgIsError
		    LogToFile(CurrentMethodName + ": <----")
		    return false
		    
		  end if
		  
		  paramErrCodeInt = Globals.kReturnMsgIsSuccess
		  LogToFile(CurrentMethodName + ": <----")
		  return true
		  
		End Function
	#tag EndMethod


	#tag Constant, Name = kRestart, Type = String, Dynamic = False, Default = \"restart", Scope = Protected
	#tag EndConstant

	#tag Constant, Name = kShutDown, Type = String, Dynamic = False, Default = \"shut down", Scope = Protected
	#tag EndConstant


	#tag ViewBehavior
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
	#tag EndViewBehavior
End Module
#tag EndModule
\ No newline at end of file

psuIdleLogout.rbvcp

+Type=Desktop
RBProjectVersion=2012.02
MinIDEVersion=20070100
Class=IdleLogout;IdleLogout.rbbas;&h3007783E;&h0;false
Window=LogoutWarning;LogoutWarning.rbfrm;&h3A6788BA;&h0;false
MenuBar=MenuBar1;MenuBar1.rbmnu;&h6341CAF0;&h0;false
BuildSteps=Build Automation;Build Automation.rbbas;&h2A7E2380;&h0;false
Module=LogToFile;LogToFile.rbbas;&h236DD59E;&h0;false
Module=Globals;Globals.rbbas;&h7FE3CBE3;&h0;false
Module=MiscMethods;MiscMethods.rbbas;&h445F2753;&h0;false
Module=myXMLTools;myXMLTools.rbbas;&h6DD0A4A2;&h0;false
Module=PlistHelper;PlistHelper.rbbas;&h4AA6652A;&h0;false
AppMenuBar=MenuBar1
MajorVersion=1
MinorVersion=0
SubVersion=1
NonRelease=0
Release=2
InfoVersion=
LongVersion=1.0b1, Penn State University/ITS/CLC
ShortVersion=1.0b1
WinCompanyName=
WinInternalName=
WinProductName=
AutoIncrementVersionInformation=False
BuildFlags=&h4000
BuildLanguage=&h0
DebugLanguage=&h0
Region=
WindowsName=My Application.exe
MacCarbonMachName=Idle Logout
LinuxX86Name=MyApplication
MacCreator=
MDI=0
MDICaption=
DefaultEncoding=&h0
AppIcon=psuIdleLogout.rbres;&h0
OSXBundleID=IdleLogout
DebuggerCommandLine=
UseGDIPlus=True
UseBuildsFolder=True
IsWebProject=False
\ No newline at end of file