home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / logview.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  10.8 KB  |  297 lines
  1.  
  2. alias logviews.about {
  3.   if ($window(@logviews) == $null) { set %logviews.about run | logviews }
  4.   else {
  5.     clear @logviews
  6.     titlebar @logviews 
  7.     aline @logviews
  8.     aline @logviews $chr(160)
  9.     aline -p @logviews $str($chr(160),1)
  10.     aline @logviews $chr(160)
  11.     aline @logviews --- 
  12.   }
  13. } 
  14.  
  15. alias logviews.help {
  16.   if ($window(@logviews) == $null) { set %logviewshelp run | logviews }
  17.   else {
  18.     clear @logviews
  19.     titlebar @logviews
  20.     aline @logviews 
  21.     aline @logviews $chr(160)
  22.     aline @logviews $chr(160)
  23.     aline -p @logviews Commands:
  24.     aline @logviews $chr(160)
  25.     aline -p @logviews 4View Log: Allows you to view the selected log in either the current window or a new one.
  26.     aline -p @logviews 4Search Log Text: Search the entire selected log for a certain string of text (i.e.,  find anything said by or about  WebDude)
  27.     aline -p @logviews 4Delete Log: Deletes selected log.
  28.     aline -p @logviews 4Copy Log: Copies selected log to clipboard so that is may pasted into a new directory anywhere in Windows.
  29.     aline -p @logviews 4Rename Log: Renames logfile (i.e.,  #chat.log to November_Chat.log) 
  30.     aline -p @logviews 4Open Log in Notepad: Opens selected log in the Notepad.exe text editor. Please note that colors will not be shown in any log opened with Notepad.  Logs opened in Notepad may be edited.
  31.     aline -p @logviews 4Refresh List: Refreshes the Log Database list for new logs that may have been created.
  32.     aline -p @logviews 4Quit Log Reader: Exits the Log Reader program.
  33.     aline @logviews $chr(160)
  34.     aline @logviews $chr(160)
  35.     aline -p @logviews Other:
  36.     aline @logviews $chr(160)
  37.     aline @logviews $chr(160)
  38.     aline @logviews $chr(160)
  39.   }
  40. } 
  41.  
  42. alias logviews {
  43.   :start
  44.   set %logviews.window.h $window(-1).h
  45.   set %logviews.window.w $window(-1).w
  46.   if ($window(@logviews) == $null) {  
  47.     window -l16 @logviews 200 200 630 200 @logviews Arial 12
  48.     window -nls @logviews2 Arial 11
  49.     aline @logviews 4LogReader Loading log database, please wait...
  50.     set %logviews.count 1
  51.     :AddLog
  52.     set %logviews.log $findfile($logdir,*.log,%logviews.count)
  53.     if (%logviews.log == $null) goto end
  54.     else {
  55.       aline -l @logviews2 $nopath(%logviews.log)
  56.       inc %logviews.count 1
  57.       goto addlog
  58.     }
  59.   }
  60.   else { window -c @logviews | goto start }
  61.   :end
  62.   set %logviews.lines $line(@logviews2,0,0)
  63.   set %logviews.count 1
  64.   :lineadd
  65.   if (%logviews.count > %logviews.lines) goto end2
  66.   else {
  67.     aline -l @logviews $line(@logviews2,%logviews.count)
  68.     inc %logviews.count 1
  69.     goto lineadd
  70.   }
  71.   :end2
  72.   if (%logviews.about == run) { logviews.about | set %logviews.about ran | goto end4 }
  73.   :end3
  74.   clear @logviews
  75.   aline @logviews $chr(160)
  76.   aline -p @logviews $str($chr(160),1)
  77.   aline @logviews $chr(160)
  78.   aline @logviews 4IMPORTANT: Please have Arial font installed.
  79.   :end4
  80.   iline -l @logviews 1 01,15Simple Script Log Reader  $chr(160) $str($chr(160),30)
  81.   iline -l @logviews 2 $str($chr(160),2) 12 Log Database  $str($chr(160),175) 
  82.   iline -l @logviews 3 4-------------------------
  83.   window -c @logviews2
  84. }
  85.  
  86. alias logrefresh {
  87.   :start
  88.   if ($window(@logviews) == $null) { logviews }
  89.   else {
  90.     clear -l @logviews
  91.     window -nls @logviews2 Arial 12
  92.     set %logviews.count 1
  93.     :AddLog
  94.     set %logviews.log $findfile($logdir,*.log,%logviews.count)
  95.     if (%logviews.log == $null) goto end
  96.     else {
  97.       aline -l @logviews2 $nopath(%logviews.log)
  98.       inc %logviews.count 1
  99.     goto addlog }
  100.   }
  101.   :end
  102.   set %logviews.lines $line(@logviews2,0,0)
  103.   set %logviews.count 1
  104.   :lineadd
  105.   if (%logviews.count > %logviews.lines) goto end2
  106.   else {
  107.     aline -l @logviews $line(@logviews2,%logviews.count)
  108.     inc %logviews.count 1
  109.     goto lineadd
  110.   }
  111.   :end2
  112.   iline -l @logviews 1 01,15Revolution Software  $chr(160) $str($chr(160),30)
  113.   iline -l @logviews 2 $str($chr(160),2) 12 Log Database  $str($chr(160),175) 
  114.   iline -l @logviews 3 4-------------------------
  115.   window -c @logviews2
  116. }
  117.  
  118. alias Logview {
  119.   if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2) { halt }
  120.   else {
  121.     set %logviews.file $logdir $+ $sline(@logviews,1)
  122.     set %logviews.size $lof(%logviews.file)
  123.     clear @logviews    
  124.     iline @logviews 1 4Revolution LogReader  12Now Viewing: $sline(@logviews,1) ( $+ %logviews.size bytes) $str($chr(160),175)
  125.     titlebar @logviews - $sline(@logviews,1)
  126.     loadbuf -p @logviews $logdir $+ $sline(@logviews,1)
  127.     sline @logviews 15
  128.   }
  129. }
  130.  
  131. alias logview.newwindow {
  132.   set %logviews.window @ [ $+ [ $sline(@logviews,1) ] ]
  133.   set %logviews.file $logdir $+ $sline(@logviews,1)
  134.   set %logviews.size $lof(%logviews.file)
  135.   window %logviews.window @LogView Arial 12
  136.   iline %logviews.window 1 4Revolution LogReader  12Now Viewing: $sline(@logviews,1) ( $+ %logviews.size bytes) $str($chr(160),175)
  137.   loadbuf %logviews.window $logdir $+ $sline(@logviews,1)
  138.   sline %logviews.window 15
  139. }
  140.  
  141. menu @logviews {
  142.   dclick loglist2
  143.   View Log
  144.   .In Window:logview $sline(@logviews,1)
  145.   .In New Window:logview.newwindow $sline(@logviews,1)
  146.   Search Log Text:logsearch
  147.   -
  148.   Delete Log:dellog $sline(@logviews,1)
  149.   Copy Log:copylog
  150.   Rename Log:remlog
  151.   -
  152.   Open Log In Notepad:lognotepad
  153.   -
  154.   Refresh List:logrefresh
  155.   Quit Log Reader:window -c @logviews
  156.   -
  157. }
  158.  
  159. alias LogList2 {
  160.   if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
  161.   else logview $sline(@logviews,1)
  162. }
  163.  
  164. menu @Logview {
  165.   Search Log Text:logsearch.nw
  166.   -
  167.   Delete Log:/dellog $remove($active,@)
  168.   Copy Log:/copylog
  169.   -
  170.   Open Log In Notepad:run notepad.exe $logdir $+ $remove($active,@)
  171.   -
  172.   Quit Log Reader:window -c $active
  173.   -
  174.   About:window -a @logviews | logviews.about
  175. }
  176.  
  177. menu @Confirm.Delete {
  178.   dclick Confirm.Delete
  179. }
  180.  
  181. alias Confirm.Delete {
  182.   if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt }
  183.   if ($sline(@Confirm.Delete,1).ln == 5) { remove $logdir $+ %logviews.log.delete | window -c @Confirm.Delete | dline -l @logviews $sline(@logviews,1).ln | echo 4Log Reader has 04,01DELETED 12 %logviews.log.delete  }
  184.   if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete }
  185. }
  186.  
  187. alias copylog {
  188.   if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
  189.   /copy $logdir $+ $sline(@logviews,1) $sdir="Select A Directory To Copy $sline(@logviews,1) To:" $+ $sline(@logviews,1)
  190. }
  191.  
  192. alias remlog {
  193.   if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
  194.   else {
  195.     rename $logdir $+ $sline(@logviews,1) $logdir $+ $?="Please Enter A New File Name:" | logrefresh
  196.   }
  197. }
  198.  
  199. alias dellog {
  200.   if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt } 
  201.   else {
  202.     set %logviews.log.delete $sline(@logviews,1)
  203.     window -l+bt @Confirm.Delete 20 20 150 111 @Confirm.Delete Arial 14
  204.     aline @Confirm.Delete 12Are you sure you want $str($chr(160),10)
  205.     aline @Confirm.Delete 12to delete: $str($chr(160),50)
  206.     aline @Confirm.Delete 4 $sline(@logviews,1) $+ ? $str($chr(160),100)
  207.     aline @Confirm.Delete 1 ---------------------- $str($chr(160),10)
  208.     aline @Confirm.Delete Click for: 4 YES $str($chr(160),1)
  209.     aline @Confirm.Delete Click for: 4 NO $str($chr(160),1)
  210.   }
  211. }
  212.  
  213. alias dellog2 {
  214.   set %logviews.log.delete $remove($active,@)
  215.   window -l+bt @Confirm.Delete 20 20 150 111 @Confirm.Delete Arial 14
  216.   aline @Confirm.Delete 12Are you sure you want $str($chr(160),10)
  217.   aline @Confirm.Delete 12to delete: $str($chr(160),50)
  218.   aline @Confirm.Delete 4 $sline(@logviews,1) $+ ? $str($chr(160),100)
  219.   aline @Confirm.Delete 1 ---------------------- $str($chr(160),10)
  220.   aline @Confirm.Delete Click for: 4 YES $str($chr(160),1)
  221.   aline @Confirm.Delete Click for: 4 NO $str($chr(160),1)
  222. }
  223.  
  224. menu @Confirm.Delete2 {
  225.   dclick Confirm.Delete2
  226. }
  227.  
  228. alias Confirm.Delete2 {
  229.   if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt }
  230.   if ($sline(@Confirm.Delete,1).ln == 5) { remove $logdir $+ %logviews.log.delete | window -c @Confirm.Delete | logrefresh | echo -a 4Log Reader has 04,01DELETED 12 %logviews.log.delete  }
  231.   if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete }
  232. }
  233.  
  234. alias lognotepad {
  235.   if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
  236.   else run notepad.exe $logdir $+ $sline(@logviews,1)
  237. }
  238.  
  239. alias logsearch {
  240.   if ($window(@logviews).title == - $sline(@logviews,1)) goto next
  241.   else { logview $sline(@logviews,1) | goto next }
  242.   :next
  243.   if ($window(@LogSearch) != $null) /window -c @LogSearch
  244.   window @LogSearch @LogSearch Arial 11
  245.   set %logviews.file $logdir $+ $sline(@logviews,1)
  246.   titlebar @LogSearch - $sline(@logviews,1) 
  247.   set %logviews.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] *
  248.   aline @LogSearch 4Log Reader  $str($chr(160),10) 12Log Query
  249.   aline @LogSearch 12 $str($chr(160),20) In the process of searching for: 4 %logviews.searchstring 
  250.   filter -fwn %logviews.file @LogSearch %logviews.searchstring
  251. }
  252.  
  253. menu @LogSearch {
  254.   dclick logsearch2
  255.   Goto Line:logsearch2
  256.   -
  257.   Close Window:window -c @LogSearch
  258.   About:window -a @logviews | logviews.about
  259. } 
  260.  
  261. alias logsearch2 {
  262.   if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
  263.   else {
  264.     sline @logviews $calc($gettok($sline(@LogSearch,1),1,32) + 10)
  265.     window -a @logviews
  266.   }
  267. }
  268.  
  269. alias logsearch.nw {
  270.   set %logviews.window $remove($active,@)
  271.   if ($window(@LogSearch) != $null) window -c @LogSearch
  272.   window -l @LogSearch @LogSearch.nw Arial 11
  273.   set %logviews.file $logdir $+ %logviews.window
  274.   titlebar @LogSearch - %logviews.window
  275.   set %logviews.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] *
  276.   aline @LogSearch 4LogReader  $str($chr(160),10) 12Log Query
  277.   aline @LogSearch 12 $str($chr(160),20) In the process of searching for: 4 %logviews.searchstring 
  278.   filter -fwn %logviews.file @LogSearch %logviews.searchstring
  279. }
  280.  
  281. menu @LogSearch.nw {
  282.   dclick:logsearchnw
  283.   Goto Line:logsearchnw
  284.   -
  285.   Close Window:window -c @LogSearch
  286.   About:window -a @logviews | logviews.about
  287. } 
  288.  
  289. alias logsearchnw {
  290.   set %logviews.window2 @ $+ %logviews.window
  291.   if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
  292.   else {
  293.     sline %logviews.window2 $calc($gettok($sline(@LogSearch,1),1,32) + 10)
  294.     window -a %logviews.window2
  295.   }
  296. }
  297.