@@ -104,7 +104,10 @@ function MSync.AdminPanel.InitMySQL( sheet )
104104 mysqldb :SetText (MSync .settings .mysql .database )
105105 mysqluser :SetText (MSync .settings .mysql .username )
106106 else
107- timer .Simple (2 , function ()
107+ timer .Create (" msync.t.checkForSettings" , 1 , 0 , function ()
108+ if not MSync .settings or not MSync .settings .mysql then return end ;
109+
110+ timer .Remove (" msync.t.checkForSettings" )
108111 mysqlip :SetText (MSync .settings .mysql .host )
109112 mysqlport :SetText (MSync .settings .mysql .port )
110113 mysqldb :SetText (MSync .settings .mysql .database )
@@ -130,9 +133,16 @@ function MSync.AdminPanel.InitModules( sheet )
130133 ModuleList :AddColumn ( " Identifier" )
131134 ModuleList :AddColumn ( " Enabled" )
132135
133- for k ,v in pairs (MSync .serverModules ) do
134- ModuleList :AddItem (v [" Name" ], v [" ModuleIdentifier" ], v [" state" ])
135- end
136+ timer .Create (" msync.t.checkForServerModules" , 1 , 0 , function ()
137+
138+ if not MSync .serverModules then return end ;
139+
140+ timer .Remove (" msync.t.checkForServerModules" )
141+
142+ for k ,v in pairs (MSync .serverModules ) do
143+ ModuleList :AddItem (v [" Name" ], v [" ModuleIdentifier" ], v [" state" ])
144+ end
145+ end )
136146
137147 return pnl
138148end
145155function MSync .AdminPanel .InitModuleSettings ( sheet )
146156 local pnl = vgui .Create ( " DColumnSheet" , sheet )
147157
148- for k , v in pairs (file .Find (" msync/client_gui/modules/*.lua" , " LUA" )[1 ]) do
158+ local files , _ = file .Find (" msync/client_gui/modules/*.lua" , " LUA" )
159+
160+ for k , v in pairs (files ) do
149161 local info = include (" msync/client_gui/modules/" .. v )
150- pnl :AddSheet ( info .Name , MSync .modules [info .ModuleIdentifier ].adminPanel (pnl ), " icon16/box.png " )
162+ pnl :AddSheet ( info .Name , MSync .modules [info .ModuleIdentifier ].adminPanel (pnl ))
151163 end
152164
153165 return pnl
0 commit comments