home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / logview.mrc2 < prev    next >
Text File  |  2003-04-14  |  5KB  |  92 lines
  1.  
  2. alias logview { if ($dialog(lv)) { dialog -ve lv } | else { dialog -mnd lv lv } }
  3.  
  4. ;-----------------
  5. ;------------------
  6. ;  Log Viewer by KiX
  7. ;   mdx.dll by Dragonzap
  8. ;------------------------
  9. ;-------------------------
  10.  
  11. On *:load:{ 
  12.   if ($version != 6.03) { echo 4 -a ::Sorry!! You need m8I9R12C4 version 6.03 to use this script | .unload $+(",$script,") | halt } 
  13.   else { echo 9 -a ::Log Viewer by .::KiX::. | echo 9 -a ::Usage: Right click the main, status, or nicklist and go to logviewer }
  14. }
  15. On *:unload:{ if (logview.mrc isin $script) { unset %lg.file } }
  16. menu channel,nicklist,status {
  17.   -
  18.   Log Viewer
  19.   .Open:{ if ($dialog(lv)) { dialog -ve lv } | else { dialog -mnd lv lv } }
  20.   .-
  21.   .Help:{ run $+(",$scriptdirreadme.txt,") }
  22. }
  23. menu @lv {
  24.   -
  25.   Clear:Clear @lv
  26. }
  27. Alias -l mdxlog_fullpath { return $+(",$scriptdirmdx.dll,") }
  28. Alias -l mdxlog { dll $mdxlog_fullpath $1- }
  29. Alias -l mdxloginit { dll $mdxlog_fullpath SetMircVersion $version | dll $mdxlog_fullpath MarkDialog $dname }
  30. Alias -l read.log { if ($isfile($1-) == $true) { clear @lv | loadbuf $+(1,-,$lines($1-)) -pi @lv $1- } }
  31. Alias logs { did -ra lv 1 0 3 %lg.file | did -i lv 1 1 headertext 0 - $+ $findfile(%lg.file,*.*,0,did -a lv 1 0 2 $nopath($1-)) $+ - Log Files } 
  32. Alias lg.seek { did -ra lv 1 0 3 %lg.file | did -i lv 1 1 headertext 0 - $+ $findfile(%lg.file,$+(*,$did($dname,7).text,*),0,did -a lv 1 0 2 $nopath($1-)) $+ - File(s) Found }
  33. dialog lv {
  34.   title "Log Viewer"
  35.   size -1 -1 387 263
  36.   option dbu
  37.   icon lvicos.icl, 0
  38.   list 1, 284 3 100 229, size
  39.   button "Button", 2, 0 1 283 261
  40.   button "View", 3, 285 235 25 8
  41.   button "Clear", 11, 310 235 25 8
  42.   button "Edit", 4, 335 235 25 8
  43.   button "Send", 5, 361 243 24 8
  44.   button "Delete", 6, 360 235 25 8
  45.   edit "Find LoG", 7, 285 252 76 9, return autohs center
  46.   button "Search", 8, 361 251 24 9
  47.   edit "Send To", 12, 285 243 76 9, return autohs center
  48.   button "x", 1000, 1000 1000 0 0
  49.   menu "Directory", 9
  50.   item "Change", 10, 9
  51.   menu "Refresh", 16
  52.   item "Log List", 17, 16
  53.   menu "Exit", 14
  54.   item "Yes", 15, 14, ok
  55. }
  56.  
  57. On *:dialog:lv:init:0:{
  58. mdxloginit | mdxlog SetControlMDX $dname 2 Window > $scriptdirdialog.mdx | mdxlog SetControlMDX $dname 1 ListView report rowselect single grid > $scriptdirviews.mdx
  59. window -ehk[0] +d @lv | did -a $dname 2 grab $window(@lv).hwnd @lv
  60. if (!%lg.file) { set %lg.file $+(",$mircdirlogs\,") }
  61. did -i $dname 1 1 headerdims 400
  62. did -i $dname 1 1 headertext 3 Logs
  63. did -i $dname 1 1 iconsize normal small
  64. did -i $dname 1 1 seticon normal 0, $+ $scriptdirlvicos.icl
  65. did -i $dname 1 1 seticon normal 1, $+ $scriptdirlvicos.icl
  66. did -i $dname 1 1 seticon normal 2, $+ $scriptdirlvicos.icl
  67. logs | editbox @lv $chr(9) Enter text to find, and hit the enter key on your keyboard.
  68. }
  69. On *:dialog:lv:sclick:1:{ 
  70. if ($isfile($+(",$remove(%lg.file,") $+ $gettok($did($dname,1).seltext,6-,32),")) == $true) {
  71.   dialog -t $dname Log Viewer - $gettok($did($dname,1).seltext,6-,32) - $round($calc($file($+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),")).size / 975),0) $+ kb - | halt 
  72. }
  73. if ($isdir($+(",$gettok($did($dname,1).seltext,6-,32),")) == $true) { dialog -t lv Log Viewer Directory $gettok($did($dname,1).seltext,6-,32) | halt }
  74. else { dialog -t $dname Log Viewer }
  75. }
  76. On *:dialog:lv:dclick:1:{ read.log $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),") }
  77. On *:dialog:lv:sclick:3:{ read.log $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),") }
  78. On *:dialog:lv:sclick:4:{ var %log = $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),"),%l = 1 | if ($isfile(%log) == $true) { echo 4 @lv ::Editing15 $nopath(%log) | run %log } }
  79. On *:dialog:lv:sclick:5:{ var %log = $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),"),%l = 1 | if ($isfile(%log) == $true) { echo 4 @lv ::Sending15 $nopath(%log) to $did($dname,12).text | dcc send -c $did($dname,12).text %log } }
  80. On *:dialog:lv:sclick:6:{ var %log = $+(",$remove(%lg.file,"),$gettok($did($dname,1).seltext,6-,32),"),%l = 1 | if ($isfile(%log) == $true) { echo 4 @lv ::Removing15 $nopath(%log) to Recycle Bin | .remove -b %log | logs | did -cf $dname 1 3 } }
  81. On *:dialog:lv:sclick:8:{ lg.seek }
  82. On *:dialog:lv:sclick:11:{ clear @lv }
  83. On *:dialog:lv:menu:10:{ set %lg.file $+(",$sdir($mircdir),") | logs }
  84. On *:dialog:lv:menu:17:{ logs }
  85. On *:input:@lv:{ var %f = $1- | findtext %f | editbox @lv %f }
  86.  
  87. ;----------
  88. ;-----------
  89. ; end of file
  90. ;-------------
  91. ;--------------
  92.