Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

95 lines
2.2 KiB

  1. set errors=N
  2. set bldErrors=
  3. if "%1" == "" goto end
  4. if not exist %1 goto end
  5. if exist err.out del err.out
  6. :chkError
  7. %myGrep% -y " error " %1
  8. if errorlevel 1 goto chkFatal
  9. %myGrep% -y "object module" %1 > nul
  10. if errorlevel 1 goto gotErr
  11. goto chkFatal
  12. :chkFatal
  13. %myGrep% -y " fatal " %1
  14. if errorlevel 1 goto chkLib
  15. goto gotErr
  16. :chkLib
  17. %myGrep% -y " cannot find " %1
  18. if errorlevel 1 goto chkLineBeg
  19. goto gotErr
  20. :chkLineBeg
  21. %myGrep% -y "^error: " %1
  22. if errorlevel 1 goto chkSsync
  23. goto gotErr
  24. :chkSsync
  25. %myGrep% -y " is not enlisted " %1
  26. if errorlevel 1 goto end
  27. goto gotErr
  28. :gotErr
  29. set errors=Y
  30. REM bell 50 420 350 300 840 700 600
  31. %bldComponentErrSound%
  32. if not "%tgtFullname%" == "" goto tgt
  33. if not "%tgtDesc%" == "" goto tgt
  34. goto tgtX
  35. :tgt
  36. echo %tgtFullname% (%tgtDesc%) >> err.out
  37. :tgtX
  38. echo. >> err.out
  39. echo ----------------- >> err.out
  40. echo Summary of errors >> err.out
  41. echo ----------------- >> err.out
  42. %myGrep% -y "^error: " %1 >> err.out
  43. %myGrep% -y " error " %1 >> err.out
  44. %myGrep% -y " fatal " %1 >> err.out
  45. %myGrep% -y " cannot find " %1 >> err.out
  46. %myGrep% -y "^error: " %1 >> err.out
  47. %myGrep% -y " is not enlisted " %1 >> err.out
  48. echo. >> err.out
  49. echo ---------------- >> err.out
  50. echo Detail of errors >> err.out
  51. echo ---------------- >> err.out
  52. cat %1 >> err.out
  53. if "%bldMailBuilder%" == "Y" goto builder
  54. if "%bldMailBuilder%" == "y" goto builder
  55. goto builderx
  56. :builder
  57. set name=anthonyr
  58. if not "%bldBuilder%" == "" set name=%bldBuilder%
  59. set subject=%bldTgtEnv% errors: %tgtComponent% (%tgtOwner%)
  60. set file=err.out
  61. call email.bat
  62. :builderx
  63. if "%bldMailOwner%" == "Y" goto owner
  64. if "%bldMailOwner%" == "y" goto owner
  65. goto ownerx
  66. :owner
  67. if "%tgtOwner%" == "" goto ownerx
  68. set name=%tgtOwner%
  69. set subject=%bldTgtEnv% errors: %tgtComponent% (%tgtOwner%)
  70. set file=err.out
  71. call email.bat
  72. :ownerx
  73. if "%errors%" == "Y" goto end
  74. if exist err.out del err.out
  75. :end
  76. set file=