sl_prenet_std.patch

diff --git a/irc.pas b/irc.pas
index d83593a..a34603b 100644
--- a/irc.pas
+++ b/irc.pas
@@ -159,6 +159,7 @@ procedure irc_AddINFO(const msgFormat: String; Args: array of const); overload;
 function CommandAuthorized(const netname, channel, cmd: String): Boolean;
 
 procedure irc_SendAddPre(const msgirc: String);
+procedure irc_SendAddPreStandard(const msgirc: String);
 procedure irc_SendSPEEDSTATS(const msgirc: String);
 procedure irc_SendINDEXER(const msgirc: String);
 procedure irc_SendRANKSTATS(const msgirc: String);
@@ -184,13 +185,13 @@ var
   myIrcThreads: TObjectList = nil;
 
 const
-  irc_chanroleindex = 25;
+  irc_chanroleindex = 26;
 
   irc_chanroles: array[0..irc_chanroleindex] of String = (
     'ADMIN', 'STATS', 'ERROR', 'INFO', 'INDEXER', 'GROUP', 'NUKE', 'IRCEVENT', 'KB',
     'UPDATE', 'SPEEDSTATS', 'RACESTATS', 'RANKSTATS', 'PRECATCHSTATS', 'SKIPLOG',
     'ROUTEINFOS', 'ADDPRE','ADDTVMAZE', 'ADDURL', 'ADDIMDB', 'ADDPREECHO', 'ADDGN',
-    'ADDTVMAZEECHO', 'ADDURLECHO', 'ADDIMDBECHO', 'ADDGNECHO');
+    'ADDTVMAZEECHO', 'ADDURLECHO', 'ADDIMDBECHO', 'ADDGNECHO', 'ADDPREECHOSTANDARD');
 
 implementation
 
@@ -488,6 +489,13 @@ begin
   irc_Addtext_by_key('ADDPREECHO', msgirc);
 end;
 
+procedure irc_SendAddPreStandard(const msgirc: String);
+begin
+  if (msgirc = '') then
+    exit;
+  irc_Addtext_by_key('ADDPREECHOSTANDARD', msgirc);
+end;
+
 procedure irc_SendSPEEDSTATS(const msgirc: String);
 begin
   if (msgirc = '') then
diff --git a/kb.pas b/kb.pas
index 707640c..9050524 100644
--- a/kb.pas
+++ b/kb.pas
@@ -401,9 +401,10 @@ begin
       rc := FindSectionHandler(section);
       if (event = kbePRE) then
       begin
-        // no fakecheck needed, it's a pre from one of our sites
+        // no fakecheck needed, its a pre from one of our sites
         r := rc.Create(rls, section, False, DateTimeToUnix(Now(), False));
         irc_SendAddPre(format('%s %s %s', [addpreechocmd, rls, section]));
+        irc_SendAddPreStandard(format('%s %s %s - -', ['!sitepre', rls, section])); // Fix for prenet standard channels
         if TPretimeLookupMOde(taskpretime_mode) = plmSQLITE then
         begin
           try