home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com / InfoMagic-WinFilesDotCom-June1998-Disc3of3-DAMAGED_DISC.iso / chat-textadd / C-Script.exe / AddOns / logmastr.mrc < prev    next >
Text File  |  1998-05-14  |  28KB  |  565 lines
  1. ;======================================================
  2. ;   Log Master v3.0 Addon For C-Script and mIRC 5.31+
  3. ;          by Paul <paul@circanet.org> 5/14/98                  
  4. ;======================================================
  5. ;== EVENTS ==
  6. on 1:LOAD:{
  7.   if ($version <= 5.3) echo -a 4,1 You need mIRC 5.31 or higher to use Log Master %logmaster.version $+ !! 
  8.   else halt
  9. }
  10. on 1:CLOSE:@LogMaster:{ window -c @Delete | window -c @LogSearch }
  11. ;== ALIASES ==
  12. alias logmaster.about {
  13.   if ($window(@LogMaster) == $null) { set %logmaster.about run | logmaster }
  14.   else {
  15.     clear @LogMaster
  16.     titlebar @LogMaster - About
  17.     window @LogMaster @LogMaster
  18.     aline @LogMaster 4,1 Log Master %logmaster.version  $str($chr(160),82) 8,1By Paul <paul@circanet.org> $str($chr(160),100)
  19.     aline @LogMaster $chr(160)
  20.     aline -p @LogMaster $str($chr(160),4) Thank you for installing the Log Master addon for C-Script!  Log Master allows you to manage your IRC logs quickly and easily.  You now do not have to open up notepad to view every single log anymore.  With Log Master, you can open each log in full color right in mIRC!  Besides opening logs in mIRC, you may open them in notepad, search a log for certain text, rename logs, delete logs, and copy logs to a different directory.  I haven't had much time to script in the past few months, but LogMaster v3.0 is finally done.  There are alot of new features, including some that 4you asked for!  Enjoy!
  21.     aline @LogMaster $chr(160)
  22.     aline @LogMaster $chr(160) 4Changes In  Version %logmaster.version $+ :
  23.     aline -p @LogMaster $str($chr(160),4) o You can now delete more than one log at a time.
  24.     aline -p @LogMaster $str($chr(160),4) o Added the ability to load sections of a log at a time.
  25.     aline -p @LogMaster $str($chr(160),4) o Added settings for window size.
  26.     aline -p @LogMaster $str($chr(160),4) o Fixed some small bugs.
  27.     aline -p @LogMaster $str($chr(160),4) o Updated help.
  28.     aline @LogMaster $chr(160)
  29.     aline -p @LogMaster $str($chr(160),4) Once Again, thank you for using Log Master %logmaster.version $+ . If you have any comments, suggestions, bug reports, or questions, please e-mail them to: 4paul@circanet.org.
  30.     aline @LogMaster $chr(160)
  31.   }
  32. } 
  33. alias logmaster.help {
  34.   if ($window(@LogMaster) == $null) { halt }
  35.   else {
  36.     clear @LogMaster
  37.     titlebar @LogMaster - Help
  38.     window @LogMaster @LogMaster
  39.     aline @LogMaster 4,1 Log Master %logmaster.version  $str($chr(160),82) 8,1By Paul <paul@circanet.org> $str($chr(160),100)
  40.     aline @LogMaster $chr(160)
  41.     aline -p @LogMaster $str($chr(160),4) This version of Log Master is easier to use than ever!  To view a log, just double click on it in the list that is on the right of your screen.  To do other commands like copying logs, renaming logs, opening logs in notepad, and searching for text in logs, right click on a log in the list on the right.  It's that simple!
  42.     aline @LogMaster $chr(160)
  43.     aline -p @LogMaster $str($chr(160),4) If you experience problems loading a log of a channel that you are currently in, make sure the "Lock log files" is unchecked in the mIRC Options' "Logging" tab.  This should correct that problem.
  44.     aline @LogMaster $chr(160)
  45.   }
  46. } 
  47. alias logmaster {
  48.   :start
  49.   if ($window(@LogMaster) == $null) { goto next }
  50.   else { window -c @LogMaster | goto start }
  51.   :next
  52.   unset %logmaster.view.start
  53.   unset %logmaster.view.end
  54.   if (%logmaster.window.size == max) { window -l16x @LogMaster @LogMaster Arial 11 }
  55.   else { window -l16 +ntx @LogMaster 0 0 $logmaster.window @LogMaster Arial 11 }
  56.   if (%logmaster.sort == sort) {
  57.     window -nls @LogMaster2 Arial 11
  58.     set %logmaster.count 1
  59.     :AddLog
  60.     set %logmaster.log $findfile($logdir,*.log,%logmaster.count)
  61.     if (%logmaster.log == $null) goto end
  62.     else {
  63.       aline -l @LogMaster2 $nopath(%logmaster.log)
  64.       inc %logmaster.count 1
  65.     goto AddLog }
  66.     :end
  67.     set %logmaster.lines $line(@LogMaster2,0,0)
  68.     set %logmaster.count 1
  69.     :lineadd
  70.     if (%logmaster.count > %logmaster.lines) { goto end2 }
  71.     else {
  72.       aline -l @LogMaster $line(@LogMaster2,%logmaster.count)
  73.       inc %logmaster.count 1
  74.       goto lineadd
  75.     }
  76.   }
  77.   else {
  78.     set %logmaster.count 1
  79.     :AddLog2
  80.     set %logmaster.log $findfile($logdir,*.log,%logmaster.count)
  81.     if (%logmaster.log == $null) { goto end2 }
  82.     else {
  83.       aline -l @LogMaster $nopath(%logmaster.log)
  84.       inc %logmaster.count 1
  85.     goto AddLog2 }
  86.   }
  87.   :end2
  88.   if (%logmaster.about == run) { logmaster.about | set %logmaster.about ran | goto end3 }
  89.   aline @LogMaster 4,1 Log Master %logmaster.version  $str($chr(160),82) 8,1By Paul <paul@circanet.org> $str($chr(160),100)
  90.   aline @LogMaster $chr(160)
  91.   aline -p @LogMaster $str($chr(160),4) Welcome To Log Master %logmaster.version $+ !  To view a log, please double click it in the side listbox.  You may also right click on a log in the listbox to access more commands.
  92.   :end3
  93.   iline -l @LogMaster 1 4,1 $chr(160) Log Master %logmaster.version  $str($chr(160),15)
  94.   iline -l @LogMaster 2 8,1 ùùùùùùùùùùùùùùùùù $str($chr(160),175)
  95.   window -c @LogMaster2
  96. }
  97. alias logmaster.window.size {
  98.   window -l16 +ntx @LogMaster 0 0 $logmaster.window @LogMaster Arial 11
  99. }
  100. alias logmaster.refresh {
  101.   :start
  102.   if ($window(@LogMaster) == $null) { logmaster }
  103.   else {
  104.     :next
  105.     clear -l @LogMaster
  106.     if (%logmaster.sort == sort) {
  107.       window -nls @LogMaster2 Arial 11
  108.       set %logmaster.count 1
  109.       :AddLog
  110.       set %logmaster.log $findfile($logdir,*.log,%logmaster.count)
  111.       if (%logmaster.log == $null) goto end
  112.       else {
  113.         aline -l @LogMaster2 $nopath(%logmaster.log)
  114.         inc %logmaster.count 1
  115.       goto AddLog }
  116.       :end
  117.       set %logmaster.lines $line(@LogMaster2,0,0)
  118.       set %logmaster.count 1
  119.       :lineadd
  120.       if (%logmaster.count > %logmaster.lines) { goto end2 }
  121.       else {
  122.         aline -l @LogMaster $line(@LogMaster2,%logmaster.count)
  123.         inc %logmaster.count 1
  124.         goto lineadd
  125.       }
  126.     }
  127.     else {
  128.       set %logmaster.count 1
  129.       :AddLog2
  130.       set %logmaster.log $findfile($logdir,*.log,%logmaster.count)
  131.       if (%logmaster.log == $null) { goto end2 }
  132.       else {
  133.         aline -l @LogMaster $nopath(%logmaster.log)
  134.         inc %logmaster.count 1
  135.       goto AddLog2 }
  136.     }
  137.     :end2
  138.     iline -l @LogMaster 1 4,1 $chr(160) Log Master %logmaster.version  $str($chr(160),15)
  139.     iline -l @LogMaster 2 8,1 ùùùùùùùùùùùùùùùùù $str($chr(160),175)
  140.     window -c @LogMaster2
  141.   }
  142. }
  143. alias logmaster.view {
  144.   if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
  145.   if (%logmaster.view != all) {
  146.     if ($sline(@LogMaster,1) != $nopath(%logmaster.file)) { unset %logmaster.view.start | unset %logmaster.view.end } 
  147.     if ($2 == $null) {
  148.       set %logmaster.file $logdir $+ $sline(@LogMaster,1)
  149.       if ($lines(%logmaster.file) > %logmaster.view.amt) {
  150.         if (%logmaster.view.end == $null) { set %logmaster.view.end %logmaster.view.amt }
  151.         if (%logmaster.view.start == $null) { set %logmaster.view.start 1 }  
  152.         clear @LogMaster
  153.         iline @LogMaster 1 8,1 Log Master %logmaster.version $str($chr(160),15) 4,1 Viewing: $sline(@LogMaster,1) (Size: $round($calc($lof(%logmaster.file) * .001),0) $+ K - Lines: $lines(%logmaster.file) $+ ) $str($chr(160),175)
  154.         titlebar @LogMaster - $sline(@LogMaster,1) - Lines %logmaster.view.start $+ - $+ %logmaster.view.end of $lines(%logmaster.file)
  155.         set %logmaster.load.number %logmaster.view.start $+ [ - [ $+ [ %logmaster.view.end ] ] ]
  156.         loadbuf %logmaster.load.number -p @LogMaster %logmaster.file
  157.         aline @LogMaster 4,1 Successfully Loaded Lines %logmaster.view.start $+ - $+ %logmaster.view.end of $lines(%logmaster.file) lines. $str($chr(160),175)
  158.         sline @LogMaster 15 
  159.         window @LogMaster @LogMaster_Load_Sections
  160.         set %logmaster.view.start %logmaster.view.end
  161.         if ($calc(%logmaster.view.start + %logmaster.view.amt) > $lines(%logmaster.file)) { set %logmaster.view.end $lines(%logmaster.file) }
  162.         else { set %logmaster.view.end $calc(%logmaster.view.start + %logmaster.view.amt) }
  163.         :done
  164.         if (%logmaster.view.start == %logmaster.view.end) { unset %logmaster.view.start | unset %logmaster.view.end | window @LogMaster @LogMaster2 }
  165.       }
  166.       else { logmaster.view.all $sline(@LogMaster,1) }
  167.       else {
  168.         set %logmaster.file $logdir $+ $2
  169.         if ($lines(%logmaster.file) > %logmaster.view.amt) {
  170.           if (%logmaster.view.end == $null) { set %logmaster.view.end %logmaster.view.amt }
  171.           if (%logmaster.view.start == $null) { set %logmaster.view.start 1 }  
  172.           clear @LogMaster
  173.           iline @LogMaster 1 8,1 Log Master %logmaster.version $str($chr(160),15) 4,1 Viewing: $sline(@LogMaster,1) (Size: $round($calc($lof(%logmaster.file) * .001),0) $+ K - Lines: $lines(%logmaster.file) $+ ) $str($chr(160),175)
  174.           titlebar @LogMaster - $2 - Lines %logmaster.view.start $+ - $+ %logmaster.view.end of $lines(%logmaster.file)
  175.           set %logmaster.load.number %logmaster.view.start $+ [ - [ $+ [ %logmaster.view.end ] ] ]
  176.           loadbuf %logmaster.load.number -p @LogMaster %logmaster.file
  177.           aline @LogMaster 4,1 Successfully Loaded Lines %logmaster.view.start $+ - $+ %logmaster.view.end of $lines(%logmaster.file) lines. $str($chr(160),175)
  178.           sline @LogMaster 15 
  179.           window @LogMaster @LogMaster_Load_Sections
  180.           set %logmaster.view.start %logmaster.view.end
  181.           if ($calc(%logmaster.view.start + %logmaster.view.amt) > $lines(%logmaster.file)) { set %logmaster.view.end $lines(%logmaster.file) }
  182.           else { set %logmaster.view.end $calc(%logmaster.view.start + %logmaster.view.amt) }
  183.           :done
  184.           if (%logmaster.view.start == %logmaster.view.end) { unset %logmaster.view.start | unset %logmaster.view.end | window @LogMaster @LogMaster2 }
  185.         }
  186.         else { logmaster.view.all $2 }
  187.       }
  188.     }
  189.   }
  190.   else {
  191.     if ($2 == $null) { logmaster.view.all $sline(@LogMaster,1) }
  192.     else { logmaster.view.all $2 }
  193.   }
  194. }
  195. alias logmaster.view.all {
  196.   set %logmaster.file $logdir $+ $1
  197.   clear @LogMaster
  198.   iline @LogMaster 1 8,1 Log Master %logmaster.version $str($chr(160),15) 4,1 Viewing: $2 (Size: $round($calc($lof(%logmaster.file) * .001),0) $+ K - Lines: $lines(%logmaster.file) $+ ) $str($chr(160),175)
  199.   titlebar @LogMaster - $1
  200.   loadbuf -p @LogMaster %logmaster.file
  201.   aline @LogMaster 4,1 Successfully Loaded $calc($line(@LogMaster,0) - 1) of $lines(%logmaster.file) lines. $str($chr(160),175)
  202.   sline @LogMaster 15 
  203.   window @LogMaster @LogMaster2
  204. }
  205. alias logmaster.view.nw {
  206.   if ($2 == $null) {
  207.     if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
  208.     else {
  209.       set %logmaster.window @ [ $+ [ $sline(@LogMaster,1) ] ]
  210.       set %logmaster.file $logdir $+ $sline(@LogMaster,1)
  211.       if (%logmaster.window.size == max) { window -x %logmaster.window @LogView Arial 11 }
  212.       else { window +ntx %logmaster.window 0 0 $logmaster.window @LogView Arial 11 }
  213.       iline %logmaster.window 1 8,1 Log Master %logmaster.version $str($chr(160),15) 4,1 Viewing: $sline(@LogMaster,1) (Size: $round($calc($lof(%logmaster.file) * .001),0) $+ K - Lines: $lines(%logmaster.file) $+ ) $str($chr(160),175)
  214.       loadbuf -p %logmaster.window $logdir $+ $sline(@LogMaster,1)
  215.       aline %logmaster.window 4,1 Successfully Loaded $calc($line(%logmaster.window,0) - 1) of $lines(%logmaster.file) lines. $str($chr(160),175)
  216.       sline %logmaster.window 15 
  217.     }
  218.   }
  219.   else {
  220.     set %logmaster.window @ [ $+ [ $2 ] ]
  221.     set %logmaster.file $logdir $+ $2
  222.     if (%logmaster.window.size == max) { window -x %logmaster.window @LogView Arial 11 }
  223.     else { window +ntx %logmaster.window 0 0 $logmaster.window @LogView Arial 11 }
  224.     iline %logmaster.window 1 8,1 Log Master %logmaster.version $str($chr(160),15) 4,1 Viewing: $2 (Size: $round($calc($lof(%logmaster.file) * .001),0) $+ K - Lines: $lines(%logmaster.file) $+ ) $str($chr(160),175)
  225.     loadbuf -p %logmaster.window $logdir $+ $2
  226.     aline %logmaster.window 4,1 Successfully Loaded $calc($line(%logmaster.window,0) - 1) of $lines(%logmaster.file) lines. $str($chr(160),175)
  227.     sline %logmaster.window 15 
  228.   }
  229. }
  230. alias logmaster.refresh.log {
  231.   if (($window(@Logmaster).title == - Help) || ($window(@Logmaster).title == - About)) { halt }
  232.   else {
  233.     set %logmaster.title $window(@Logmaster).title
  234.     set %logmaster.title.2 $len(%logmaster.title)
  235.     set %logmaster.title $mid(%logmaster.title,3,%logmaster.title.2)
  236.     logmaster.view %logmaster.title
  237.   }
  238. }
  239. alias logmaster.list.2 {
  240.   if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
  241.   else logmaster.view
  242. }
  243. alias logmaster.notepad {
  244.   if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
  245.   else run notepad.exe $logdir $+ $sline(@LogMaster,1)
  246. }
  247. alias logmaster.delete.log {
  248.   if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt } 
  249.   else {
  250.     if ($sline(@LogMaster,2) == $null) {
  251.       set %logmaster.log.delete $sline(@LogMaster,1)
  252.       if ($window(@Delete) != $null) { echo -s DELETE IS ALREADY IN PROGRESS! | halt }
  253.       else {
  254.         window -l @Delete 20 20 150 111 @Delete Arial 11
  255.         aline @Delete 8,1 Are you sure you want $str($chr(160),10)
  256.         aline @Delete 8,1 to delete $str($chr(160),50)
  257.         aline @Delete 8,1 $sline(@LogMaster,1) $str($chr(160),100)
  258.         aline @Delete 8,1 ------------------------------------ $str($chr(160),10)
  259.         aline @Delete 4,1 YES $str($chr(160),50)
  260.         aline @Delete 4,1 NO $str($chr(160),50)
  261.       }
  262.     }
  263.     else {
  264.       set %logmaster.log.delete $sline(@LogMaster,1) $sline(@LogMaster,2) $sline(@LogMaster,3) $sline(@LogMaster,4) $sline(@LogMaster,5) $sline(@LogMaster,6) $sline(@LogMaster,7) $sline(@LogMaster,8) $sline(@LogMaster,9) $sline(@LogMaster,10) $sline(@LogMaster,11) $sline(@LogMaster,12) $sline(@LogMaster,13) $sline(@LogMaster,14) $sline(@LogMaster,15) $sline(@LogMaster,16) $sline(@LogMaster,17) $sline(@LogMaster,18) $sline(@LogMaster,19) $sline(@LogMaster,20)
  265.       if ($window(@Delete) != $null) { echo -s DELETE IS ALREADY IN PROGRESS! | halt }
  266.       else {
  267.         window -l @Delete 20 20 150 111 @Delete2 Arial 11
  268.         aline @Delete 8,1 Are you sure you want $str($chr(160),10)
  269.         aline @Delete 8,1 to delete the selected $str($chr(160),50)
  270.         aline @Delete 8,1 files? $str($chr(160),100)
  271.         aline @Delete 8,1 ------------------------------------ $str($chr(160),10)
  272.         aline @Delete 4,1 YES $str($chr(160),50)
  273.         aline @Delete 4,1 NO $str($chr(160),50)
  274.       }
  275.     }
  276.   }
  277. }
  278. alias logmaster.delete {
  279.   if ($sline(@Delete,1).ln == 1 || $sline(@Delete,1).ln == 2 || $sline(@Delete,1).ln == 3 || $sline(@Delete,1).ln == 4) { halt }
  280.   if ($sline(@Delete,1).ln == 5) { remove $logdir $+ %logmaster.log.delete | window -c @Delete | dline -l @LogMaster $sline(@LogMaster,1).ln | echo 1,1.8,1Log Master %logmaster.version -4,1 %logmaster.log.delete DELETED!1,1. }
  281.   if ($sline(@Delete,1).ln == 6) { window -c @Delete }
  282. }
  283. alias logmaster.delete.2 {
  284.   if ($sline(@Delete,1).ln == 1 || $sline(@Delete,1).ln == 2 || $sline(@Delete,1).ln == 3 || $sline(@Delete,1).ln == 4) { halt }
  285.   if ($sline(@Delete,1).ln == 5) { 
  286.     set %logmaster.delete.count 1
  287.     :Count
  288.     if ($gettok(%logmaster.log.delete,%logmaster.delete.count,32) != $null) {
  289.       remove $logdir $+ $gettok(%logmaster.log.delete,%logmaster.delete.count,32)
  290.       echo 1,1.8,1Log Master %logmaster.version -4,1 $gettok(%logmaster.log.delete,%logmaster.delete.count,32) DELETED!1,1.
  291.       inc %logmaster.delete.count 1
  292.       goto count
  293.     }
  294.     else {
  295.       window -c @Delete
  296.       logmaster.refresh
  297.     }
  298.   }
  299.   if ($sline(@Delete,1).ln == 6) { window -c @Delete }
  300. }
  301. alias logmaster.delete.log.2 {
  302.   set %logmaster.log.delete $remove($active,@)
  303.   window -l @Delete 20 20 150 111 @Delete.2 Arial 11
  304.   aline @Delete 8,1 Are you sure you want $str($chr(160),10)
  305.   aline @Delete 8,1 to delete: $str($chr(160),50)
  306.   aline @Delete 8,1 %logmaster.log.delete $+ ? $str($chr(160),100)
  307.   aline @Delete 8,1 ------------------------------------ $str($chr(160),10)
  308.   aline @Delete 4,1 YES $str($chr(160),50)
  309.   aline @Delete 4,1 NO $str($chr(160),50)
  310. }
  311. alias Logmaster.log.delete2 {
  312.   if ($sline(@Delete,1).ln == 1 || $sline(@Delete,1).ln == 2 || $sline(@Delete,1).ln == 3 || $sline(@Delete,1).ln == 4) { halt }
  313.   if ($sline(@Delete,1).ln == 5) { remove $logdir $+ %logmaster.log.delete | window -c @Delete | logrefresh | echo 1,1.8,1Log Master %logmaster.version -4,1 %logmaster.log.delete DELETED!1,1. }
  314.   if ($sline(@Delete,1).ln == 6) { window -c @Delete }
  315. }
  316. alias logmaster.logcopy {
  317.   if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
  318.   else {
  319.     set %logmaster.copydir $sdir="Select A Directory To Copy Log To:"
  320.     if (%logmaster.copydir == $null) echo 1,1.8,1Log Master %logmaster.version -4,1 Copy Aborted By User.1,1
  321.     else {
  322.       copy $logdir $+ $sline(@LogMaster,1) %logmaster.copydir $+ $sline(@LogMaster,1)
  323.     }
  324.   }
  325. }
  326. alias logmaster.remlog {
  327.   if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
  328.   else {
  329.     set %logmaster.rename $?="Please Enter A New File Name:"
  330.     if ($! == $null) echo RENAME ABORTED BY USER
  331.     else {
  332.       rename $logdir $+ $sline(@LogMaster,1) $logdir $+ %logmaster.rename | logmaster.refresh
  333.     }
  334.   }
  335. }
  336. alias logmaster.search {
  337.   if ($sline(@LogMaster,1).ln == 1 || $sline(@LogMaster,1).ln == 2 || $sline(@LogMaster,1).ln == $null) { halt }
  338.   if (($sline(@LogMaster,1) isin $window(@Logmaster).title) && (%logmaster.view == all)) { goto next }
  339.   else { logmaster.view.all $sline(@LogMaster,1) | goto next }
  340.   :next
  341.   if ($window(@LogSearch) != $null) /window -c @LogSearch
  342.   if (%logmaster.window.size == max) { window -lx @LogSearch @LogSearch Arial 11 }
  343.   else {
  344.     window -l +ntx @LogSearch 0 0 $logmaster.window @LogSearch Arial 11
  345.   }
  346.   set %logmaster.file $logdir $+ $sline(@LogMaster,1)
  347.   set %logmaster.log $sline(@LogMaster,1)
  348.   titlebar @LogSearch - %logmaster.log
  349.   set %logmaster.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] *
  350.   if ($! == $null) { 
  351.     aline @LogSearch 4,1 Log Master %logmaster.version  $str($chr(160),148) 8,1Log Searcher $str($chr(160),100)
  352.     aline @LogSearch 8,1 $str($chr(160),20) Searching %logmaster.log For:4,1 Nothing (User Pressed Cancel) $str($chr(160),500)
  353.   }
  354.   else {
  355.     aline @LogSearch 4,1 Log Master %logmaster.version  $str($chr(160),148) 8,1Log Searcher $str($chr(160),100)
  356.     aline @LogSearch 8,1 $str($chr(160),20) Searching %logmaster.log For:4,1 %logmaster.searchstring  $str($chr(160),500)
  357.     filter -fwn %logmaster.file @LogSearch %logmaster.searchstring
  358.     aline @LogSearch $chr(160)
  359.     aline @LogSearch 4,1 Found $calc($line(@LogSearch,0) - 3) occurances of %logmaster.searchstring in %logmaster.log $str($chr(160),500) 
  360.   }
  361. }
  362. alias logmaster.search.2 {
  363.   if ($sline(@LogSearch,1).ln == 1 || $sline(@LogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $calc($line(@LogSearch,0) - 1) || $sline(@LogSearch,1).ln == $line(@LogSearch,0) || $sline(@LogSearch,1).ln == $null) { halt }
  364.   ;  if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
  365.   else {
  366.     sline @LogMaster $calc($gettok($sline(@LogSearch,1),1,32) + 10)
  367.     window -a @LogMaster
  368.   }
  369. }
  370. alias logmaster.search.nw {
  371.   set %logmaster.window $remove($active,@)
  372.   if ($window(@LogSearch) != $null) window -c @LogSearch
  373.   if (%logmaster.window.size == max) { window -lx @LogSearch @LogSearch.nw Arial 11 }
  374.   else {
  375.     window -l +ntx @LogSearch 0 0 $logmaster.window @LogSearch.nw Arial 11
  376.   }
  377.   set %logmaster.file $logdir $+ %logmaster.window
  378.   titlebar @LogSearch - %logmaster.window
  379.   set %logmaster.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] *
  380.   if ($! == $null) { 
  381.     aline @LogSearch 4,1 Log Master %logmaster.version  $str($chr(160),148) 8,1Log Searcher $str($chr(160),100)
  382.     aline @LogSearch 8,1 $str($chr(160),20) Searching %logmaster.log For:4,1 Nothing (User Pressed Cancel) $str($chr(160),500)
  383.   }
  384.   else {
  385.     aline @LogSearch 4,1 Log Master %logmaster.version  $str($chr(160),148) 8,1Log Searcher $str($chr(160),100)
  386.     aline @LogSearch 8,1 $str($chr(160),20) Searching %logmaster.log For:4,1 %logmaster.searchstring  $str($chr(160),500)
  387.     filter -fwn %logmaster.file @LogSearch %logmaster.searchstring
  388.     aline @LogSearch $chr(160)
  389.     aline @LogSearch 4,1 Found $calc($line(@LogSearch,0) - 3) occurances of %logmaster.searchstring in %logmaster.log $str($chr(160),500) 
  390.   }
  391. }
  392. alias logmaster.search.nw.2 {
  393.   if ($sline(@LogSearch,1).ln == 1 || $sline(@LogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $calc($line(@LogSearch,0) - 1) || $sline(@LogSearch,1).ln == $line(@LogSearch,0) || $sline(@LogSearch,1).ln == $null) { halt }
  394.   else { set %logmaster.window2 @ $+ $gettok($window(@LogSearch).title,2,32) | sline %logmaster.window2 $calc($gettok($sline(@LogSearch,1),1,32) + 10) | window -a %logmaster.window2 }
  395. }
  396. ;== IDENTIFIERS ==
  397. alias logmaster.window {
  398.   set %logmaster.window.w $window(-1).w
  399.   set %logmaster.window.h $window(-1).h
  400.   set %logmaster.window.h $calc(%logmaster.window.h - 5)
  401.   return %logmaster.window.w %logmaster.window.h
  402. }
  403. alias logmaster.pop.3 {
  404.   if (%logmaster.window.size == max) return Set Window Size To: Screen Width
  405.   else return Set Window Size To: Maximized
  406. }
  407. alias logmaster.pop.2 {
  408.   if (%logmaster.view == all) return Set Loading To: Parts
  409.   else return Set Loading To: All
  410. }
  411. alias logmaster.pop.1 {
  412.   if (%logmaster.sort == sort) return Set Log List To: Unsorted
  413.   else return Set Log List To: Sorted
  414. }
  415. ;=== POPUPS ===
  416. menu Status {
  417.   Log Master %logmaster.version:logmaster
  418. }
  419. menu Channel {
  420.   Log Master %logmaster.version:logmaster
  421. }
  422. menu Menubar {
  423.   Log Master %logmaster.version:logmaster
  424. }
  425. menu @LogMaster {
  426.   dclick logmaster.list.2
  427.   View Log
  428.   .In Window:logmaster.view
  429.   .In New Window:logmaster.view.nw
  430.   .In Notepad:logmaster.notepad
  431.   Search Log:logmaster.search
  432.   -
  433.   Manage Logs
  434.   .Delete Log(s):logmaster.delete.log $sline(@LogMaster,1)
  435.   .Copy Log:logmaster.logcopy
  436.   .Rename Log:logmaster.remlog
  437.   -
  438.   Settings
  439.   .Log List Sorting
  440.   ..$logmaster.pop.1:{ if (%logmaster.sort == sort) /set %logmaster.sort unsorted | else /set %logmaster.sort sort }
  441.   .Log Loading
  442.   ..$logmaster.pop.2:{ if (%logmaster.view == all) /set %logmaster.view parts | else /set %logmaster.view all }
  443.   ..-
  444.   ..Set Number Of Lines To Load At A Time:/set %logmaster.view.amt $?="Please Enter # Of Lines:"
  445.   .Window Size
  446.   ..$logmaster.pop.3:{ if (%logmaster.window.size == max) { /set %logmaster.window.size witdh | window -c @LogMaster | logmaster | window -r @LogMaster } | else { /set %logmaster.window.size max | window -c @LogMaster | logmaster } }
  447.   Refresh List:logmaster.refresh
  448.   Close Window:window -c @LogMaster
  449.   -
  450.   Help:logmaster.help
  451.   About:logmaster.about
  452. }
  453. menu @LogMaster2 {
  454.   dclick logmaster.list.2
  455.   View Log
  456.   .In Window:logmaster.view
  457.   .In New Window:logmaster.view.nw
  458.   .In Notepad:logmaster.notepad
  459.   Search Log:logmaster.search
  460.   Refresh Log:logmaster.refresh.log
  461.   Goto
  462.   .Top of Window:sline @LogMaster 15
  463.   .Bottom of Window:sline @LogMaster $line(@LogMaster,0)
  464.   .-
  465.   .Line In Window:sline @LogMaster $?="Please Enter a Line Number"
  466.   -
  467.   Manage Logs
  468.   .Delete Log(s):logmaster.delete.log $sline(@LogMaster,1)
  469.   .Copy Log:logmaster.logcopy
  470.   .Rename Log:logmaster.remlog
  471.   -
  472.   Settings
  473.   .Log List Sorting
  474.   ..$logmaster.pop.1:{ if (%logmaster.sort == sort) /set %logmaster.sort unsorted | else /set %logmaster.sort sort }
  475.   .Log Loading
  476.   ..$logmaster.pop.2:{ if (%logmaster.view == all) /set %logmaster.view parts | else /set %logmaster.view all }
  477.   ..-
  478.   ..Set Number Of Lines To Load At A Time:/set %logmaster.view.amt $?="Please Enter # Of Lines:"
  479.   .Window Size
  480.   ..$logmaster.pop.3:{ if (%logmaster.window.size == max) { /set %logmaster.window.size witdh | window -c @LogMaster | logmaster | window -r @LogMaster } | else { /set %logmaster.window.size max | window -c @LogMaster | logmaster } }
  481.   Refresh List:logmaster.refresh
  482.   Close Window:window -c @LogMaster
  483.   -
  484.   Help:logmaster.help
  485.   About:logmaster.about
  486. }
  487. menu @LogMaster_Load_Sections {
  488.   dclick logmaster.list.2
  489.   Load Lines
  490.   .Next ( $+ %logmaster.view.start $+ - $+ %logmaster.view.end of $nopath(%logmaster.file) $+ ):logmaster.view $nopath(%logmaster.file)
  491.   .Other (of $nopath(%logmaster.file) $+ ):{ set %logmaster.view.start $?="Enter Starting Line:" | set %logmaster.view.end $?="Enter Ending Line:" | logmaster.view $nopath(%logmaster.file) }
  492.   View Log
  493.   .In Window:logmaster.view
  494.   .In New Window:logmaster.view.nw
  495.   .In Notepad:logmaster.notepad
  496.   Search Log:logmaster.search
  497.   Refresh Log:logmaster.refresh.log
  498.   Goto
  499.   .Top of Window:sline @LogMaster 15
  500.   .Bottom of Window:sline @LogMaster $line(@LogMaster,0)
  501.   .-
  502.   .Line In Window:sline @LogMaster $?="Please Enter a Line Number"
  503.   -
  504.   Manage Logs
  505.   .Delete Log(s):logmaster.delete.log $sline(@LogMaster,1)
  506.   .Copy Log:logmaster.logcopy
  507.   .Rename Log:logmaster.remlog
  508.   -
  509.   Settings
  510.   .Log List Sorting
  511.   ..$logmaster.pop.1:{ if (%logmaster.sort == sort) /set %logmaster.sort unsorted | else /set %logmaster.sort sort }
  512.   .Log Loading
  513.   ..$logmaster.pop.2:{ if (%logmaster.view == all) /set %logmaster.view parts | else /set %logmaster.view all }
  514.   ..-
  515.   ..Set Number Of Lines To Load At A Time:/set %logmaster.view.amt $?="Please Enter # Of Lines:"
  516.   .Window Size
  517.   ..$logmaster.pop.3:{ if (%logmaster.window.size == max) { /set %logmaster.window.size witdh | window -c @LogMaster | logmaster | window -r @LogMaster } | else { /set %logmaster.window.size max | window -c @LogMaster | logmaster } }
  518.   Refresh List:logmaster.refresh
  519.   Close Window:window -c @LogMaster
  520.   -
  521.   Help:logmaster.help
  522.   About:logmaster.about
  523. }
  524. menu @Logview {
  525.   View Log
  526.   .In Notepad:run notepad.exe $logdir $+ $remove($active,@)
  527.   Search Log:logmaster.search.nw
  528.   Refresh Log:set %logmaster.window $active | window -c $active | logmaster.view.nw $remove(%logmaster.window,@)
  529.   Goto
  530.   .Beginning:sline $active 15
  531.   .End:sline $active $line($active,0)
  532.   .Line:sline $active $?="Please Enter a Line Number"
  533.   -
  534.   Close Window:window -c $active
  535.   -
  536.   Help:window -a @LogMaster | logmaster.help
  537.   About:window -a @LogMaster | logmaster.about
  538. }
  539. menu @Delete {
  540.   dclick logmaster.delete
  541. }
  542. menu @Delete2 {
  543.   dclick logmaster.delete.2
  544. }
  545. menu @Delete.2 {
  546.   dclick Delete2
  547. }
  548. menu @LogSearch {
  549.   dclick logmaster.search.2
  550.   Goto Line:logmaster.search.2
  551.   -
  552.   Close Window:window -c @LogSearch
  553.   -
  554.   Help:window -a @LogMaster | logmaster.help
  555.   About:window -a @LogMaster | logmaster.about
  556. } 
  557. menu @LogSearch.nw {
  558.   dclick:logmaster.search.nw.2
  559.   Goto Line:logmaster.search.nw.2
  560.   -
  561.   Close Window:window -c @LogSearch
  562.   Help:window -a @LogMaster | logmaster.help
  563.   About:window -a @LogMaster | logmaster.about
  564. } 
  565.