diff -ur --new-file --recursive c:\ircN708/system/bckgrnd.als c:\ircN709/system/bckgrnd.als

--- c:\ircN708/system/bckgrnd.als Fri Aug  6 23:34:26 1999

+++ $mircdirbckgrnd.als Tue Sep  7 15:23:30 1999

@@ -475,9 +475,9 @@

)  }

)}

)verset {

-  set %iver ircN 7.08

+  set %iver ircN 7.09

)  if (%iver !isin %ver) {

-    if ((ircN isin %ver) && (%ver != %iver)) set %ver %iver + $remove(%ver,ircN,7.08)

+    if ((ircN isin %ver) && (%ver != %iver)) set %ver %iver + $remove(%ver,ircN,7.09)

)    else set %ver %iver + %ver

)  }

)  set %irc2.ver irc2 v3.0

diff -ur --new-file --recursive c:\ircN708/system/client.als c:\ircN709/system/client.als

--- c:\ircN708/system/client.als Fri Aug  6 23:19:44 1999

+++ $mircdirclient.als Sat Aug 14 21:08:18 1999

@@ -656,7 +656,7 @@

)  dialog -m ircN.smtp ircN.smtp

)}

)server {

-  if ($left($1,1) == +) irc2 $getleft($1) $2-

+  if ($left($1,1) == +) irc2 $getright($1) $2-

)  else server $1-

)}

)servers dialog -m ircN.servers ircN.servers

diff -ur --new-file --recursive c:\ircN708/system/ctcps.mrc c:\ircN709/system/ctcps.mrc

--- c:\ircN708/system/ctcps.mrc Mon Aug  9 21:31:30 1999

+++ $mircdirctcps.mrc Sun Sep  5 12:26:26 1999

@@ -102,7 +102,8 @@

)  else qnotice $nick Syntax: /CTCP $me PASS <password> [newpass]

)}

)CTCP 40:PARTYLINE:? {

-  if (($chkflag($usrh($fulladdress),$null,p)) || ($chkflag($usrh($fulladdress),$null,r))) qctcp $nick DCC CHAT chat $longip($ip) %telnetport

+  if ((($chkflag($usrh($fulladdress),$null,p)) || ($chkflag($usrh($fulladdress),$null,r))) && ($sock(telnet))) qctcp $nick DCC CHAT chat $longip($ip) %telnetport

+  elseif ((($chkflag($usrh($fulladdress),$null,p)) || ($chkflag($usrh($fulladdress),$null,r))) && ($sock(telnet)) == $null) qnotice $nick Telnet daemon currently disabled.

)  else qnotice $nick Access denied.

)}

)CTCP +1:IDENT:? {

diff -ur --new-file --recursive c:\ircN708/system/events.mrc c:\ircN709/system/events.mrc

--- c:\ircN708/system/events.mrc Thu Apr 29 15:20:38 1999

+++ $mircdirevents.mrc Tue Aug 31 16:33:12 1999

@@ -366,8 +366,8 @@

)    set %lsnick $nick

)    if ($chan != $active) {

)      set %tmp $1-

-      if (%shownick == on) set %tmp $replace(%tmp,$me,$hc($me))

-      if (%showword == on) set %tmp $replace(%tmp,%shortnick,$hc(%shortnick))

+      if (%shownick == on) set %tmp $replace(%tmp,$me,$addtok($hc($me),,0))

+      if (%showword == on) set %tmp $replace(%tmp,%shortnick,$addtok($hc(%shortnick),,0))

)      if (%tmp == $1-) return

)      else iiecho < $+ $nick $+ : $+ $sc($chan) $+ > %tmp

)    }

diff -ur --new-file --recursive c:\ircN708/system/events2.mrc c:\ircN709/system/events2.mrc

--- c:\ircN708/system/events2.mrc Mon Mar 29 19:48:50 1999

+++ $mircdirevents2.mrc Sun Sep  5 11:42:02 1999

@@ -5,22 +5,26 @@

)  }

)}

)on 1:SERVERMODE:# {

-  if ($form(other,splitrejoin)) iecho $readini %formats other splitrejoin

-  else iecho Netsplit rejoin detected on $hc($nick) at $hc($atime) $+ .

+  if (%netsplit == on) {

+    if ($form(other,splitrejoin)) iecho $readini %formats other splitrejoin

+    else iecho Netsplit rejoin detected on $hc($nick) at $hc($atime) $+ .

+  }

)}

)on 1:SERVEROP:# {

-  if (%splitin != $nick) {

-    set %splitin $nick

-    if (%netjoin == on) {

-      if ($form(other,splitrejoin)) iecho $readini %formats other splitrejoin

-      else iecho Netsplit rejoin detected on $hc($nick) at $hc($atime) $+ .

-      write -c $tp(wholeft.txt)

-      set %netjoin off

-      .timer 1 10 set %netjoin on

+  if (%netsplit == on) {

+    if (%splitin != $nick) {

+      set %splitin $nick

+      if (%netjoin == on) {

+        if ($form(other,splitrejoin)) iecho $readini %formats other splitrejoin

+        else iecho Netsplit rejoin detected on $hc($nick) at $hc($atime) $+ .

+        write -c $tp(wholeft.txt)

+        set %netjoin off

+        .timer 1 10 set %netjoin on

+      }

)    }

+    unset %split*

+    tsound rejoin

)  }

-  unset %split*

-  tsound rejoin

)}

)on 1:DNS {

)  if (%dnsevent == off) { unset %dnsevent | return }

diff -ur --new-file --recursive c:\ircN708/system/identfrs.als c:\ircN709/system/identfrs.als

--- c:\ircN708/system/identfrs.als Fri Aug  6 23:23:22 1999

+++ $mircdiridentfrs.als Thu Aug 12 18:13:44 1999

@@ -476,7 +476,7 @@

)scr.author return $readini -n $tp(temp.txt) $1 author

)scr.email return $readini -n $tp(temp.txt) $1 email

)scr.url return $readini -n $tp(temp.txt) $1 url

-sd if ($isvalidchan($banchans($ulist($address($1,0),20,1)),$2)) return $true

+sd if ($isvalidchan($banchans($ulist($address($1,5),20,1)),$2)) return $true

)sqr {

)  if ($1 isnum) return $calc($1 ^ 0.5)

)  elseif ($1 == $null) return

@@ -556,7 +556,7 @@

)  elseif (($3 == 20) && ($sd($1,$2))) return %cn1

)  else return $colour(Listbox Text)

)}

-usr return $readini -n users.ini Users $ulist($address($1,0),40,1)

+usr return $readini -n users.ini Users $ulist($address($1,5),40,1)

)usrh return $readini -n users.ini Users $ulist($1,40,1)

)usrl {

)  if ($usr($1)) return $usr($1)

diff -ur --new-file --recursive c:\ircN708/system/query.als c:\ircN709/system/query.als

--- c:\ircN708/system/query.als Fri Apr  9 01:18:00 1999

+++ $mircdirquery.als Sun Sep  5 12:40:12 1999

@@ -255,9 +255,9 @@

)  .quote time %lagtmp

)}

)send dcc send $nc($$1) $2-

-svinfo msg $iif($1,$1,$active) %iver has been used %uses times for $b($rsc2($duration($mpy(%pong,60)))) online. Currently on $b(%irc.network) - Up for $duration($div($ticks,1000)) $+ . Currently $full-date $+ .

-uptime msg $iif($1,$1,$active) Time is $atime $+ , computer has been up for $rsc2($duration($rrpt($ticks)))

-usage msg $iif($1,$1,$active) I have used my copy of %iver online for a total of $rsc2($duration($mpy(%pong,60)))

+svinfo $iif($1,msg,say) $1 %iver has been used %uses times for $b($rsc2($duration($mpy(%pong,60)))) online. Currently on $b(%irc.network) - Up for $duration($div($ticks,1000)) $+ . Currently $full-date $+ .

+uptime $iif($1,msg,say) $1 Time is $atime $+ , computer has been up for $rsc2($duration($rrpt($ticks)))

+usage $iif($1,msg,say) $1 I have used my copy of %iver online for a total of $rsc2($duration($mpy(%pong,60)))

)w whois $1-

)who {

)  if ($1 != $null) {

diff -ur --new-file --recursive c:\ircN708/system/userlist.als c:\ircN709/system/userlist.als

--- c:\ircN708/system/userlist.als Fri Aug  6 23:21:38 1999

+++ $mircdiruserlist.als Thu Aug 12 18:11:58 1999

@@ -142,7 +142,7 @@

)      if ($mid($2,%i.chattr,1) == +) set %j.chattr +

)      elseif ($mid($2,%i.chattr,1) == -) set %j.chattr -

)      else {

-        if (%j.chattr == +) set %tmp.chattr - $removecs(%tmp.chattr,$mid($2,%i.chattr,1),%tmp.chattr,-) $+ $mid($2,%i.chattr,1)

+        if (%j.chattr == +) set %tmp.chattr - $+ $removecs(%tmp.chattr,$mid($2,%i.chattr,1),-) $+ $mid($2,%i.chattr,1)

)        elseif (%j.chattr == -) set %tmp.chattr - $+ $removecs(%tmp.chattr,$mid($2,%i.chattr,1),-)

)      }

)      goto start

diff -ur --new-file --recursive c:\ircN708/system/ircN709.pch c:\ircN709/system/ircN709.pch

--- c:\ircN708/system/ircN709.pch Thu Jan  1 00:00:00 1970

+++ $mircdirircN709.pch Tue Sep  7 15:23:06 1999

@@ -0,0 +1,8 @@

+iecho (1) Updating version spec...

+set %reldate (1999/09/07 17.00)

+set %iver ircN 7.09

+set %ver ircN 7.09 + 7.0

+iecho (2) Deleting patch files...

+.timer 1 1 .remove ircN709.dif

+.timer 1 1 .remove ircN709.pch

+iecho Upgrade to ircN 7.09 was successful!