Update modtcl -> adding GetServerName function and network varia… (#1658)

Update modtcl -> adding GetServerName function and network variable with network name value.

Modification to have the variable ::network such as an eggdrop.

Example usage:
<MalaGaM> return $network
<*modtcl> artis
<MalaGaM> return $::network
<*modtcl> artis
<MalaGaM> return [GetServerName]
<*modtcl> artis

modules/modtcl/modtcl.tcl

@@ -34,6 +34,7 @@ set ::botnet-nick ZNC_[GetUsername]
 set ::botnick [GetCurNick]
 set ::server [GetServer]
 set ::server-online [expr [GetServerOnline] / 1000]
+set ::network	[GetNetworkName]
 
 # add some eggdrop style procs
 proc putlog message {PutModule $message}