IRC Cow Script voor PerProxy !

[mees]

Als aanvulling op mijn RC5/OGR Cow script voor IRC, heb ik op verzoek ook zo'n soort script gemaakt voor je PerProxy.

Ook deze is simpel te bedienen.
de handelingen tot installatie:
1. Kopiëer de onderstaande codes naar de aliases/remote van mIRC.
2. Zet hetvolgende in je proxyper.ini:

code:

[console]
logfileconsole=naamvandelogfile
logfileconsolerotation=daily

3. Doe rechtermuisknop in een kanaal, en selecteer het menu PerProxy Status. In dit menu kies je "Set PerProxy INI". Hier selecteer je je proxyper.ini
4. Wederom rechtermuisknop in het kanaal, en selecteer het menu PerProxy Status. Hier kun je de commando's (net als het vorige script) vinden voor dhet perproxy-status-script.

Hier de code voor je Aliases (alt-a) in mIRC:

code:

/pp.set.ini {
  %pp.inifile = $file="Select your PerProxy INI file" c:\
  %pp.dir = $remove(%pp.inifile,proxyper.ini)
  //echo $timestamp [PerProxyStatus] 3PerProxy directory was set to: %pp.dir
  //echo $timestamp [PerProxyStatus] 3PerProxy INI-file was set to: %pp.inifile
  //pp.set.log
}
/pp.set.log {
  %pp.inifile.lines = $lines(%pp.inifile)
  %current.inifile.line = 1
  :loop.readini
  %current.inifile.line.read = $read -l $+ %current.inifile.line $shortfn(%pp.inifile)
  if (logfileconsole isin %current.inifile.line.read) {
    %pp.logfile.basic = $remove(%current.inifile.line.read,logfileconsole) 
    %pp.logfile = $remove(%pp.logfile.basic,$chr(61)) 
  if ($time(hh) == 12 && $time(tt) == am) {
    %pp.logfile.last = %pp.dir $+ %pp.logfile $+ $date(yyyymm) $+ $calc($date(dd) - 1) $+ .log
  }
  else {
    %pp.logfile.last = %pp.dir $+ %pp.logfile $+ $date(yyyymmdd) $+ .log
  }
    //echo $timestamp [PerProxyStatus] 3PerProxy logfile name was set to: %pp.logfile
    //echo $timestamp [PerProxyStatus] 3Setting last logfile to: %pp.logfile.last
    goto ok.readini
  } 
  else {
    if (%current.inifile.line != %pp.inifile.lines) { 
      inc %current.inifile.line 1
      goto loop.readini
    }
    else {
      //echo $timestamp [PerProxyStatus] 4No logfile information found in %pp.inifile
      halt
    }
    :ok.readini
    halt
  }
}

//pp.read.log {
  if ($time(hh) == 12 && $time(tt) == am) {
    %pp.logfile.last = %pp.dir $+ %pp.logfile $+ $date(yyyymm) $+ $calc($date(dd) - 1) $+ .log
  }
  else {
    %pp.logfile.last = %pp.dir $+ %pp.logfile $+ $date(yyyymmdd) $+ .log
  }
  %pp.logfile.lines = $lines(%pp.logfile.last)
  %current.logfile.line = %pp.logfile.lines
  :loop.read.log
  %current.logfile.line.read = $read -l $+ %current.logfile.line $shortfn(%pp.logfile.last)
  if ($1 == rc5) %searchfor = rc564 r=
  else if ($1 == ogr) %searchfor = ogr r=
  else { goto nosearch }
  if (%searchfor isin %current.logfile.line.read) {
    //pp.output $1 $2 %current.logfile.line.read
    goto ok.read.log
  } 
  else {
    if (%current.logfile.line != 1) { 
      dec %current.logfile.line 1
      goto loop.read.log
    }
    else {
      //echo $timestamp [PerProxyStatus] 4No status information found in %pp.logfile.last
      halt
    }
    :ok.read.log
    halt
  }
}
/pp.output {
  if ($1 == rc5 && $2 == echo) {
    %pp.rc5.buffin = $remove($replace($5,$chr(47),3 stats units. Max: ),r=,$chr(44))
    //echo $timestamp [PerProxyStatus] 3RC5: 4Buff-in3: Current: %pp.rc5.buffin 3stats units.
    %pp.rc5.buffout = $remove($replace($6,$chr(47),3 stats units. Max: ),d=,$chr(44))
    //echo $timestamp [PerProxyStatus] 3RC5: 4Buff-out3: Current: %pp.rc5.buffout 3stats units.
    %pp.rc5.gemiddeld = $7 $remove($8,$chr(44))
    //echo $timestamp [PerProxyStatus] 3RC5: Gemiddelde 4snelheid3 sinds proxy startup: %pp.rc5.gemiddeld $+ 3.
    %pp.rc5.totaal = $remove($9,tot=)
    //echo $timestamp [PerProxyStatus] 3RC5: 4Totaal geflusht3 sinds proxy startup: %pp.rc5.totaal $+ 3 stats units.
  }
  if ($1 == rc5 && $2 == say) {
    %pp.rc5.buffin = $remove($replace($5,$chr(47),3 stats units. Max: ),r=,$chr(44))
    //say [PerProxyStatus] 3RC5: 4Buff-in3: Current: %pp.rc5.buffin 3stats units.
    %pp.rc5.buffout = $remove($replace($6,$chr(47),3 stats units. Max: ),d=,$chr(44))
    //say [PerProxyStatus] 3RC5: 4Buff-out3: Current: %pp.rc5.buffout 3stats units.
    %pp.rc5.gemiddeld = $7 $remove($8,$chr(44))
    //say [PerProxyStatus] 3RC5: Gemiddelde 4snelheid3 sinds proxy startup: %pp.rc5.gemiddeld $+ 3.
    %pp.rc5.totaal = $remove($9,tot=)
    //say [PerProxyStatus] 3RC5: 4Totaal geflusht3 sinds proxy startup: %pp.rc5.totaal $+ 3 stats units.
  }
  if ($1 == ogr && $2 == echo) {
    %pp.ogr.buffin = $remove($replace($5,$chr(47),3 stats units. Max: ),r=,$chr(44))
    //echo $timestamp [PerProxyStatus] 3OGR: 4Buff-in3: Current: %pp.ogr.buffin 3stats units.
    %pp.ogr.buffout = $remove($replace($6,$chr(47),3 stats units. Max: ),d=,$chr(44))
    //echo $timestamp [PerProxyStatus] 3OGR: 4Buff-out3: Current: %pp.ogr.buffout 3stats units.
    %pp.ogr.gemiddeld = $7 $remove($8,$chr(44))
    //echo $timestamp [PerProxyStatus] 3OGR: Gemiddelde 4snelheid3 sinds proxy startup: %pp.ogr.gemiddeld $+ 3.
    %pp.ogr.totaal = $remove($9,tot=)
    //echo $timestamp [PerProxyStatus] 3OGR: 4Totaal geflusht3 sinds proxy startup: %pp.ogr.totaal $+ 3 stats units.
  }
  if ($1 == ogr && $2 == say) {
    %pp.ogr.buffin = $remove($replace($5,$chr(47),3 stats units. Max: ),r=,$chr(44))
    //say [PerProxyStatus] 3OGR: 4Buff-in3: Current: %pp.ogr.buffin 3stats units.
    %pp.ogr.buffout = $remove($replace($6,$chr(47),3 stats units. Max: ),d=,$chr(44))
    //say [PerProxyStatus] 3OGR: 4Buff-out3: Current: %pp.ogr.buffout 3stats units.
    %pp.ogr.gemiddeld = $7 $remove($8,$chr(44))
    //say [PerProxyStatus] 3OGR: Gemiddelde 4snelheid3 sinds proxy startup: %pp.ogr.gemiddeld $+ 3.
    %pp.ogr.totaal = $remove($9,tot=)
    //say [PerProxyStatus] 3OGR: 4Totaal geflusht3 sinds proxy startup: %pp.ogr.totaal $+ 3 stats units.
  }
}

Hier dan de code voor in je remote (alt-r) in mIRC:

code:

menu channel {
  PerProxy Status
  .Set PerProxy ini: /pp.set.ini
  .-
  .Say RC5: /pp.read.log rc5 say
  .Echo RC5: /pp.read.log rc5 echo
  .-
  .Say OGR: /pp.read.log ogr say
  .Echo OGR: /pp.read.log ogr echo
}

vragen, suggesties, opmerkingen, scheldwoorden, bedankjes, je kunt ze hier kwijt

[Verwijderd]

GRRR ik d8 dat dat alleen voor ons was?

[mees]

Op vrijdag 26 januari 2001 18:49 schreef DaMaster het volgende:
GRRR ik d8 dat dat alleen voor ons was?

Hoezo alleen voor 'ons' ? (ons = DRK ?)

en why ? lekker belangrijk dat anderen hem ook hebben ?

[Verwijderd]

als in ensow..
Natuurlijk vindt ik het niet erg.. dat weet je toch?
Anders was ik toch ook nooit begonnen met dat 1e script te posten?

[Witlof]

[mees]

hmm....eerste bug al gevonden....

tussen 0:00 en 1:00 doet het script het niet, vanwege het tijdsverschil....hier is het eerder de volgende dag als bij dnet, en dus ook eerder als bij je pproxy....

ga ik wel weer wat op verzinnen

[Roel]

En da's dan alleen in de winter, in de zomer zit je weer met 2 uur (toch)

[DSmarty]

Heel goed

In de winter: GMT+1
In de zomer: GMT+2


GMT (Greenwich Mean Time)

[Ace]

Erg cool script, dankuwel !

[mees]

Thnks 2 Ace....2e bug report....
je moet eigenlijk elke dag opnieuw je ini selecteren...
anders blijft ie in je oude logfile zoeken...

de oplossing heb ik er al tussen gezet in de 1e post.....

dat is dus:

if ($time(hh) == 12 && $time(tt) == am) {
%pp.logfile.last = %pp.dir $+ %pp.logfile $+ $date(yyyymm) $+ $calc($date(dd) - 1) $+ .log
}
else {
%pp.logfile.last = %pp.dir $+ %pp.logfile $+ $date(yyyymmdd) $+ .log
}

toevoegen onder de regel:

//pp.read.log {

[Verwijderd]

Way 2 go macy:P