API tools faq
paste
Advertisement
Ford

TwitFeed Updated 7/8/2013

Ford
Aug 9th, 2011
1,208
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 16.37 KB | None | 0 0
raw download clone embed print report
  1. ;TwitFeed Twitter RSS Script By Ford_Lawnmower irc.Geekshed.net #Script-Help
  2. alias -l TwitFeed {
  3.   var %sockname $+(TwitFeed,$1,$ticks), %site $gettok($2,2,47)
  4.   sockopen %sockname %site 80
  5.   sockmark %sockname $remove($2,%site,http://) 0 $1 %site 0
  6. }
  7. On *:Sockopen:TwitFeed*: {
  8.   if (!$sockerr) { sockwrite -nt $sockname GET $gettok($sock($sockname).mark,1,32) HTTP/1.0 }
  9.   if (!$sockerr) sockwrite -n $sockname User-Agent: Opera 9.6
  10.   if (!$sockerr) { sockwrite -n $sockname Host: $gettok($sock($sockname).mark,4,32) }
  11.   if (!$sockerr) sockwrite -n $sockname Connection: close
  12.   if (!$sockerr) { sockwrite -n $sockname $crlf }
  13. }
  14. On *:Sockread:TwitFeed*: {
  15.   if ($sockerr) { echo -at >Sock error TwitFeed< }
  16.   else {
  17.     sockread -f &twitfeed
  18.     var %TwitFeed $bvar(&twitfeed,1-).text
  19.     %TwitFeed = $replace(%TwitFeed,$chr(36),$+(,$chr(36),))
  20.     if (<item isin %TwitFeed) || (<id> isin %TwitFeed) { sockmark $sockname $puttok($sock($sockname).mark,$calc($gettok($sock($sockname).mark,2,32) + 1),2,32) }
  21.     if ($gettok($sock($sockname).mark,2,32) >= 5) {
  22.       TwitResults $regsubex($gettok($sock($sockname).mark,3,32)],/<!\[CDATA\[(.+)\s?\]\]>/g,\t)
  23.       sockmark $sockname $puttok($sock($sockname).mark,0,5,32)
  24.       sockclose $sockname
  25.       return
  26.     }
  27.     if ($gettok($sock($sockname).mark,2,32)) {
  28.       var %xx $calc($gettok($sock($sockname).mark,2,32) + 2)
  29.       while (($between(%TwitFeed,<title>,</title>,%xx))) {
  30.         hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $ifmatch
  31.         if ($between(%TwitFeed,<pubdate>,</pubdate>,%xx)) || ($between(%TwitFeed,<published>,</published>,%xx)) || ($between(%TwitFeed,<pubdate>,+,%xx)) || ($between(%TwitFeed,<pubdate>,-,%xx)) {
  32.           hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $&
  33.             $hget(TwitFeed,$+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32))) $httpstrip($ifmatch)
  34.         }
  35.         if ($between(%TwitFeed,<link>,</link>,%xx) || $between(%TwitFeed,<link><![CDATA[,]]></link>,%xx)) {
  36.           hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $&
  37.             $hget(TwitFeed,$+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32))) $+(,$fixspace($ifmatch),)
  38.         }
  39.         inc %xx
  40.         sockmark $sockname $puttok($sock($sockname).mark,$calc($gettok($sock($sockname).mark,2,32) + 1),2,32)
  41.         if (%xx >= 7) {
  42.           TwitResults $regsubex($gettok($sock($sockname).mark,3,32)],/<!\[CDATA\[(.+)\s?\]\]>/g,\t)
  43.           sockmark $sockname $puttok($sock($sockname).mark,0,5,32)
  44.           sockclose $sockname
  45.           return        
  46.         }      
  47.       }
  48.       if (<title isin %TwitFeed) {
  49.         if ($between(%TwitFeed,<title><![CDATA[,]]></title>,1)) || ($between(%TwitFeed,<title>,</title>,1)) || ($between(%TwitFeed,<title type='text'>,</title>,1)) {
  50.           hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $httpstrip($ifmatch)
  51.         }
  52.         else { hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $httpstrip($right(%twitFeed,400)) }
  53.       }
  54.       if ($between(%TwitFeed,<pubdate>,</pubdate>,1)) || ($between(%TwitFeed,<pubdate>,+,1)) || ($between(%TwitFeed,<pubdate>,-,1)) || ($between(%TwitFeed,<updated>,</updated>,1)) {
  55.         hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $&
  56.           $hget(TwitFeed,$+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32))) $ifmatch
  57.       }
  58.       if (<link isin %TwitFeed) || (</link> isin %TwitFeed) {
  59.         if (($between(%TwitFeed,<link><![CDATA[,]]></link>,1)) || ($between(%TwitFeed,<link>,</link>,1))) {
  60.           hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $&
  61.             $hget(TwitFeed,$+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32))) $+(,$fixspace($ifmatch),)
  62.         }
  63.         elseif ($between(%TwitFeed,<link rel="alternate" type="text/html" href="," title=",1)) {
  64.           hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $&
  65.             $hget(TwitFeed,$+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32))) $+(,$v1,)      
  66.         }        
  67.         elseif ($regex(%TwitFeed,/<link rel="alternate".*href="(.*)"/)) {
  68.           hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $&
  69.             $hget(TwitFeed,$+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32))) $+(,$regml(1),)      
  70.         }
  71.         elseif ($regex(%TwitFeed,/<link rel='alternate'.*href='(.*)'\/><link/)) {
  72.           hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $&
  73.             $hget(TwitFeed,$+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32))) $+(,$regml(1),)      
  74.         }
  75.         elseif ($between(%TwitFeed,<link rel="alternate" type="text/html" href="," />,1)) {
  76.           hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $&
  77.             $hget(TwitFeed,$+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32))) $+(,$v1,)      
  78.         }        
  79.         else {
  80.           hadd -m TwitFeed $+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32)) $&
  81.             $hget(TwitFeed,$+($gettok($sock($sockname).mark,3,32),$gettok($sock($sockname).mark,2,32))) $+(,$httpstrip($right(%TwitFeed,400)),)        
  82.         }
  83.       }
  84.       if (</rss> isin %TwitFeed) { TwitResults $regsubex($gettok($sock($sockname).mark,3,32)],/<!\[CDATA\[(.+)\s?\]\]>/g,\t) | sockclose $sockname | return }
  85.     }
  86.   }
  87. }
  88. On *;Sockclose:TwitFeed*: {
  89.   TwitResults $regsubex($gettok($sock($sockname).mark,3,32)],/<!\[CDATA\[(.+)\s?\]\]>/g,\t)
  90.   sockclose $sockname
  91.   return
  92. }
  93. dialog -l TwitFeed {
  94.   title "TwitFeed"
  95.   size -1 -1 104 120
  96.   option dbu
  97.   text "Network:", 1, 8 6 25 8
  98.   text "Channel:", 2, 8 18 25 8
  99.   text "", 3, 36 6 65 8
  100.   text "", 4, 36 18 65 8
  101.   text "FEEDS", 5, 8 28 89 8
  102.   list 6, 8 37 89 60, size vsbar
  103.   button "Add", 7, 5 106 29 12
  104.   button "Delete", 8, 38 106 29 12
  105.   button "Edit", 9, 71 106 29 12
  106.   text "", 10, 0 97 105 8
  107. }
  108. On *:Dialog:TwitFeed*:init:*: {
  109.   did -a $dname 3 $network
  110.   did -a $dname 4 $active
  111.   var %count $hfind(TwitFeedLIST,$+($network,,$active,*),0,w).item
  112.   while (%count) {
  113.     did -a $dname 6 $gettok($hfind(TwitFeedLIST,$+($network,,$active,*),%count,w).item,3,7)
  114.     dec %count
  115.   }
  116. }
  117. On *:Dialog:TwitFeed*:Sclick:7-9: {
  118.   if ($did == 7) { dialogopen $+(TwitEdit,,$did($dname,3).text,,$did($dname,4).text) TwitEdit | if ($dialog($dname)) { dialog -x $dname } }
  119.   elseif ($did == 8) && ($did($dname,6).seltext) {
  120.     var %removeme $+($did($dname,3).text,,$did($dname,4).text,,$did($dname,6).seltext)
  121.     .timer $+ %removeme off
  122.     hdel TwitFeedLIST %removeme
  123.     did -df $dname 6 $did($dname,6).sel
  124.   }
  125.   elseif ($did == 9) && ($did($dname,6).seltext) {
  126.     dialogopen $+(TwitEdit,,$did($dname,3).text,,$did($dname,4).text,,$did($dname,6).seltext) TwitEdit
  127.     if ($dialog($dname)) { dialog -x $dname }
  128.   }
  129. }
  130. dialog -l TwitEdit {
  131.   title "TwitFeed Add/Edit"
  132.   size -1 -1 104 112
  133.   option dbu
  134.   text "Network:", 1, 8 6 25 8
  135.   text "Channel:", 2, 8 18 25 8
  136.   text "", 3, 36 6 65 8
  137.   text "", 4, 36 18 65 8
  138.   text "FEED NAME", 5, 8 28 89 8
  139.   text "", 10, 0 86 105 8, center
  140.   text "FEED LINK", 6, 8 52 89 8
  141.   edit "", 7, 7 38 90 10, autohs
  142.   edit "", 8, 7 62 90 10, autohs
  143.   button "Cancel", 9, 66 96 29 12
  144.   button "Accept", 11, 8 96 29 12
  145.   text "Delay in Seconds:", 12, 8 77 43 8
  146.   edit "", 13, 54 76 43 10
  147. }
  148. On *:dialog:TwitEdit*:Sclick:9,11: {
  149.   if ($did == 11) {
  150.     if ($did($dname,7).text) && ($did($dname,8).text) && ($did($dname,13).text) {
  151.       if (http:// !isin $did($dname,8).text) {
  152.         did -a $dname 10 Link missing prefix http://
  153.         did -f $dname 8
  154.         .timer 1 4 if ($!dialog($dname)) { did -a $dname 10 }
  155.         return
  156.       }
  157.       if ($did($dname,13).text !isnum) {
  158.         did -a $dname 10 Delay should be a NUMBER
  159.         did -f $dname 13
  160.         .timer 1 4 if ($!dialog($dname)) { did -a $dname 10 }
  161.         return
  162.       }
  163.       var %addit $+($did($dname,3).text,,$did($dname,4).text,,$spunder($did($dname,7).text)), %del $did($dname,13).text, %flink $strip($did($dname,8).text)
  164.       var %netcount $scon(0)
  165.       while %netcount {
  166.         if ($scon(%netcount).network == $did($dname,3).text) { var %netid %netcount }
  167.         dec %netcount
  168.       }
  169.       $iif(%netid,scon %netid) TwitTimer %addit %flink %del
  170.       hadd -m TwitfeedLIST %addit %addit %flink %del
  171.       var %diagname $+(TwitFeed,,$did($dname,3).text,,$did($dname,4).text)
  172.       if ($dialog(%diagname)) { did -a %diagname 6 $spunder($did($dname,7).text) }
  173.       dialogopen %diagname TwitFeed
  174.       if ($dialog($dname)) { dialog -x $dname }
  175.     }
  176.     else {
  177.       did -a $dname 10 Please fill in all of the boxes
  178.       .timer 1 4 if ($!dialog($dname)) { did -a $dname 10 }
  179.     }
  180.   }
  181.   if ($did == 9) {
  182.     var %diagname $+(TwitFeed,,$did($dname,3).text,,$did($dname,4).text)
  183.     dialogopen %diagname TwitFeed
  184.     if ($dialog($dname)) { dialog -x $dname }
  185.   }
  186. }
  187. On *:dialog:TwitEdit*:init:*: {
  188.   tokenize 7 $dname
  189.   did -a $dname 3 $2
  190.   did -a $dname 4 $3
  191.   if ($4) {
  192.     did -am $dname 7 $4
  193.     did -af $dname 8 $gettok($hget(TwitFeedLIST,$remove($dname,TwitEdit)),2,32)
  194.     did -a $dname 13 $gettok($hget(TwitFeedLIST,$remove($dname,TwitEdit)),3,32)
  195.   }
  196. }
  197. On *:Start: { set -z %TwitFeedStartUp 300 }
  198. On *:Connect: {
  199.   if (!$hget(TwitFeedLIST)) {
  200.     hmake TwitFeedLIST 5
  201.     if ($exists(TwitFeedLIST.hsh)) { hload TwitFeedLIST TwitFeedLIST.hsh }
  202.     var %records $hget(TwitFeedLIST,0).item
  203.     while (%records) {
  204.       .timer -o 1 $calc(%records * 20) TwitTimer $hget(TwitFeedLIST,%records).data
  205.       dec %records
  206.     }
  207.   }
  208. }
  209. On *:Disconnect: {
  210.   if ($hget(TwitFeedLIST)) {
  211.     hsave TwitFeedLIST TwitFeedLIST.hsh
  212.   }
  213. }
  214. On *:Exit: { hfree TwitFeedLIST }
  215. On *:Unload: { hfree TwitFeedLIST }
  216. menu channel {
  217.   TwitFeed:dialogopen $+(Twitfeed,,$network,,$chan) twitfeed
  218. }
  219. alias -l TwitResults {
  220.   var %count 4
  221.   while (%count) {
  222.     if (!$hfind($+(twitfeedDONE,$1),$+(*,$right($hget(TwitFeed,$+($1,%count)),15),*),1,w).data) {
  223.       if ($me ison $gettok($1,2,7)) && ($repchars($hget(TwitFeed,$+($1,%count)))) {
  224.         var %Results $fix&#($v1)
  225.         if (!%TwitFeedStartUp) {
  226.           ShrinkLinks Put .msg $gettok($1,2,7) $TwitFeedLogo $gettok($1,3,7) %Results
  227.         }
  228.       }
  229.     }
  230.     dec %count
  231.   }
  232.   while (%count <= 3) {
  233.     inc %count
  234.     if (!$hfind($+(TwitFeedDONE,$1),$hget(TwitFeed,$+($1,%count))).data) {
  235.       hadd -m $+(TwitFeedDONE,$1) $+($1,$calc(%count + $hget($+(TwitFeedDONE,$1),0).item) - 1) $hget(TwitFeed,$+($1,%count))
  236.     }
  237.   }
  238. }
  239. alias TwitFeedLogo return $+($chr(2),$chr(3),04RSS,$chr(15))
  240. alias -l repchars {
  241.   return $regsubex($replacex($1-,&amp;gt;,>,&quot;,",&amp;,&,&apos;,',&gt;,>,$chr(124),$chr(166)),/<\!\[CDATA\[(.+)\s?\]\]>/g,\t)
  242. }
  243. ;Syntax TwitTimer NetworkChannelFeedName http://full/link/to/feedpage/4325677 delayinseconds
  244. alias -l TwitTimer {
  245.   var %netcount $scon(0)
  246.   while %netcount {
  247.     if ($scon(%netcount).network == $gettok($1,1,7)) { var %netid %netcount }
  248.     dec %netcount
  249.   }
  250.   if (%netid) { scon %netid TwitFeed $1 $2 }
  251.   $iif(%netid,scon %netid) .timer $+ $1 -o 1 $iif($3 > 60,$3,60) $iif(%netid,scon %netid) TwitTimer $1-
  252. }
  253. alias -l fixspace { return $replace($1-,$chr(32),% $+ 20) }
  254. alias -l DialogOpen { dialog $iif($dialog($1),-v,-m) $1- }
  255. alias -l spunder { return $replace($1-,$chr(32),_) }
  256. alias -l httpstrip { var %s $replace($1-,&lt;,<,&gt;,>,&nsbsp,$chr(32)), %x, %i = $regsub(%s,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x) | return %x }
  257. alias -l fix&# {
  258.   return $regsubex($charMap($1-),/\&\#([0-9]{1,4});/g,$h2u(\t))
  259. }
  260. alias charMap {
  261.   var %map $remove(&euro;|&nota;|&sbquo;|&fnof;|&bdquo;|&hellip;|&dagger;|&Dagger;|&circ;|&permil;|&Scaron;|&lsaquo;|&OElig;|&nota;|&nota;|&nota;|&nota;|$&
  262.     &lsquo;|&rsquo;|&ldquo;|&rdquo;|&bull;|&ndash;|&mdash;|&tilde;|&trade;|&scaron;|&rsaquo;|&oelig;|&nota;|&nota;|&Yuml;|&nbsp;|&iexcl;|&cent;|&pound;|$&
  263.     &curren;|&yen;|&brvbar;|&sect;|&uml;|&copy;|&ordf;|&laquo;|&not;|&shy;|&reg;|&macr;|&deg;|&plusmn;|&sup2;|&sup3;|&acute;|&micro;|&para;|&middot;|$&
  264.     &cedil;|&sup1;|&ordm;|&raquo;|&frac14;|&frac12;|&frac34;|&iquest;|&Agrave;|&Aacute;|&Acirc;|&Atilde;|&Auml;|&Aring;|&AElig;|&Ccedil;|&Egrave;|$&
  265.     &Eacute;|&Ecirc;|&Euml;|&Igrave;|&Iacute;|&Icirc;|&Iuml;|&ETH;|&Ntilde;|&Ograve;|&Oacute;|&Ocirc;|&Otilde;|&Ouml;|&times;|&Oslash;|&Ugrave;|$&
  266.     &Uacute;|&Ucirc;|&Uuml;|&Yacute;|&THORN;|&szlig;|&agrave;|&aacute;|&acirc;|&atilde;|&auml;|&aring;|&aelig;|&ccedil;|&egrave;|&eacute;|&ecirc;|&euml;|$&
  267.     &igrave;|&iacute;|&icirc;|&iuml;|&eth;|&ntilde;|&ograve;|&oacute;|&ocirc;|&otilde;|&ouml;|&divide;|&oslash;|&ugrave;|&uacute;|&ucirc;|&uuml;|&yacute;|$&
  268.     &thorn;|&yuml;|,$chr(32))
  269.   var %char $regsubex($str(.,128),/(.)/g,$+($chr($calc(\n + 127)),|))
  270.   return $regsubex($1-,/( $+ %map $+ )/g,$gettok(%char,$findtokcs(%map,\t,124),124))
  271. }
  272. alias -l between { noop $regex($1,/\Q $+ $2 $+ \E(.*?)\Q $+ $3 $+ \E/gi) | return $regml($4) }
  273. alias -l UTF8 {
  274.   if ($1 < 255) { return $chr($1) }
  275.   if ($1 >= 256) && ($1 < 2048) { return $+($chr($calc(192 + $div($1,64))),$chr($calc(128 + $mod($1,64)))) }
  276.   if ($1 >= 2048) && ($1 < 65536) { return $+($chr($calc(224 + $div($1,4096))),$chr($calc(128 + $mod($div($1,64),64))),$chr($calc(128 + $mod($1,64)))) }
  277.   if ($1 >= 65536) && ($1 < 2097152) {
  278.     return $+($chr($calc(240 + $div($1,262144))),$chr($calc(128 + $mod($div($1,4096),64))),$chr($calc(128 + $mod($div($1,64),64))),$&
  279.       $chr($calc(128 + $mod($1,64))))
  280.   }
  281. }
  282. alias -l div { return $int($calc($1 / $2)) }
  283. alias -l mod {
  284.   var %int $int($calc($1 / $2))
  285.   return $calc($1 - (%int * $2))
  286. }
  287. alias -l H2U { return $utf8($base($1,16,10)) }
  288. alias -l Put {
  289.   if (!$regex($1,/(\.|^)(msg|notice|echo)$/Si)) || (!$3) { echo -st **Put error** Syntax /Put msg #channel text - or - /Put notice nickname text  | return }
  290.   tokenize 32 $regsubex($1-,/([$\|%\[\]][^\s]*)/g,$+($chr(2),$chr(2),\t))
  291.   var %tokens $0, %Tstart 3, %Dtimer 1500
  292.   if ($timer($+(Put,$2,$network)).secs) { %Dtimer = $calc($v1 * 1000) }  
  293.   while ($len($($+($,%Tstart,-,%tokens),2)) > 430) {
  294.     dec %tokens
  295.     if ($len($($+($,%Tstart,-,%tokens),2)) <= 430) {
  296.       .timer -m 1 %Dtimer $1-2 $($+($,%Tstart,-,%tokens),2))
  297.       inc %Dtimer 1500
  298.       %Tstart = $calc(%tokens + 1)
  299.       %tokens = $0
  300.     }
  301.   }
  302.   .timer -m 1 %Dtimer $1-2 $($+($,%Tstart,-,%tokens),2))
  303.   .timer $+ $+(Put,$2,$network) -m 1 $calc(%Dtimer + 1500) noop
  304. }
  305. alias -l shrinklinks {
  306.   if ($wildtok($strip($4-),http://*.*,0,32) == $wildtok($strip($4-),http://tinyurl.com*,0,32)) {
  307.     $eval($1-,1)
  308.     return
  309.   }
  310.   var %count $wildtok($strip($4-),http://*.*,0,32), %text $strip($4-)
  311.   while %count {
  312.     if ($left($wildtok(%text,http://*.*,%count,32),18) != http://tinyurl.com) {
  313.       tiny $1-3 $wildtok(%text,http://*.*,%count,32) $4-
  314.       %count = 0
  315.       return
  316.     }
  317.     dec %count
  318.   }
  319. }
  320. alias -l Tiny {
  321.   var %sockname $+(Tiny,$network,$ticks,$r(1,$ticks))
  322.   sockopen %sockname tinyurl.com 80
  323.   sockmark %sockname $1-3 $+(/create.php?url=,$urlencode($4)) $4 $5-
  324. }
  325. On *:sockopen:Tiny*: {
  326.   if (!$sockerr) {
  327.     sockwrite -nt $sockname GET $gettok($sock($sockname).mark,4,32) HTTP/1.0
  328.     sockwrite -n $sockname Host: tinyurl.com
  329.     sockwrite -n $sockname $crlf
  330.   }
  331.   else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  332. }
  333. On *:sockread:Tiny*: {
  334.   if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  335.   else {
  336.     var %Tiny | sockread %Tiny
  337.     if ($regex(%Tiny,/<blockquote><b>(.*)<\/b><br><small>/i)) {
  338.       tokenize 32 $sock($sockname).mark
  339.       shrinklinks $1-3 $replace($6-,$5,$remove($regml(1),preview.))
  340.       sockclose $sockname
  341.       return
  342.     }
  343.   }
  344. }
  345. alias -l urlencode return $regsubex($1-,/([^a-z0-9])/ig,% $+ $base($asc(\t),10,16,2))
  346. alias -l Network {
  347.   if ($Network) { return $v1 }
  348.   else { return Unknown }
  349. }
  350. alias -l net {
  351.   var %netcount $scon(0)
  352.   while %netcount {
  353.     if ($scon(%netcount).network == $1) { var %netid %netcount }
  354.     dec %netcount
  355.   }
  356.   return %netid
  357. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!