-- LispARs.CLEANUP
-- does an Update, and prints infinite summaries of the lisp AR database

-- first, delete old report files
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "delete *summ*
"]


-- now, activate any adobe tools needed
ActivateTool["AdobeUpdate"]
InvokeMCR[AdobeUpdate.cmdsw, "Adobe systems", "LispARs"]
ActivateTool["AdobeQuery"]
InvokeMCR[AdobeQuery.cmdsw, "Adobe systems", "LispARs"]
ActivateTool["AdobeReport"]
InvokeMCR[AdobeReport.cmdsw, "Adobe systems", "LispARs"]
ActivateTool["AdobeSort"]

WindowOnTop[AdobeUpdate]
TOOL ← "AdobeUpdate"
SUBWINDOW ← "cmdsw"
Update

WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
  Number ← "> 3"
  Date ← ""
  Submitter ← ""
  Subject ← ""
  Lisp' Version ← ""
  Edit'-By ← ""
  Edit'-Date ← ""
  Attn ← ""
  Assigned' To ← ""
  In'/By ← ""
  System ← ""
  Subsystem ← ""
  Machine ← ""
  Disk ← ""
  Microcode' Version ← ""
  Memory' Size ← ""
  File' Server ← ""
  Server' Software' Version ← ""
  Difficulty ← ""
  Frequency ← ""
  Impact ← ""
  Priority ← ""
  Status ← ""
  Problem' Type ← ""
  Source' Files ← ""
SUBWINDOW ← "cmdsw"
  Query

-- set up report fields
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
  Reset
SUBWINDOW ← "formSW"
  Number ← TRUE
  Date ← TRUE
  Subject ← TRUE
  Attn ← TRUE
  System ← TRUE
  Subsystem ← TRUE
  Difficulty ← TRUE
  Impact ← TRUE
  Priority ← TRUE
  Status ← TRUE
  Problem' Type ← TRUE
SUBWINDOW ← "sortSW"
  System ← TRUE
  Subsystem ← TRUE
  Priority ← TRUE
  Impact ← TRUE
  Status ← TRUE

-- make main unsorted summary report
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "Summary.txt"
Report
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint Summary.press'/o Summary.txt'/l1
ftp phylum dir lispars del Summary.txt Summary.press
ftp phylum Dir LispARs Store Summary.txt Summary.press
Delete Summary.press
"]

Wait[150]

-- sort by attn
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "Summary.txt"
Output' file ← "SortedSummary.txt"
Key' specs ← "Status/ Priority/ Impact/ System/ Subsystem"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SortedSummary.press'/o SortedSummary.txt'/l1
ftp phylum dir lispars del SortedSummary.txt SortedSummary.press
ftp phylum Dir LispARs Store SortedSummary.txt SortedSummary.press
Delete SortedSummary.press
Delete SortedSummary.txt
"]

Wait[150]

-- sort by system
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "Summary.txt"
Output' file ← "SortedSummary2.txt"
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SortedSummary2.press'/o SortedSummary2.txt'/l1
ftp phylum dir lispars del SortedSummary2.txt SortedSummary2.press
ftp phylum Dir LispARs Store SortedSummary2.txt SortedSummary2.press
Delete SortedSummary2.press
Delete SortedSummary2.txt
"]

AppendCommand[SimpleExec.execTTY, "Delete Summary.txt
Delete Summary.SortKeys
"]


-- make report for Burton
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS burt"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "BurtonSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "BurtonSumm.txt"            -- change for each person
Output' file ← "BurtonSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint BurtonSummary.press'/o BurtonSummary.txt'/l1
"]                                            -- change for each person



-- make report for Charnley
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS char"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "CharnleySumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "CharnleySumm.txt"            -- change for each person
Output' file ← "CharnleySummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint CharnleySummary.press'/o CharnleySummary.txt'/l1
"]                                            -- change for each person


-- make report for Jellinek
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS Jell"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "JellinekSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "JellinekSumm.txt"            -- change for each person
Output' file ← "JellinekSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint JellinekSummary.press'/o JellinekSummary.txt'/l1
"]                                            -- change for each person




-- make report for JFung
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS jfung"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "JFungSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "JFungSumm.txt"            -- change for each person
Output' file ← "JFungSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint JFungSummary.press'/o JFungSummary.txt'/l1
"]                                            -- change for each person




-- make report for Jonl
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS jonl"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "JonLSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "JonLSumm.txt"            -- change for each person
Output' file ← "JonLSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint JonLSummary.press'/o JonLSummary.txt'/l1
"]                                            -- change for each person




-- make report for Kaplan
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS kapl"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "KaplanSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "KaplanSumm.txt"            -- change for each person
Output' file ← "KaplanSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint KaplanSummary.press'/o KaplanSummary.txt'/l1
"]                                            -- change for each person


-- make report for lichtenberg
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS lich"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "LichtenbergSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "LichtenbergSumm.txt"            -- change for each person
Output' file ← "LichtenbergSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint LichtenbergSummary.press'/o LichtenbergSummary.txt'/l1
"]                                            -- change for each person



-- make report for Masinter
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS masi"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "MasinterSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "MasinterSumm.txt"            -- change for each person
Output' file ← "MasinterSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint MasinterSummary.press'/o MasinterSummary.txt'/l1
"]                                            -- change for each person




-- make report for Nuyens
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS nuye"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "NuyensSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "NuyensSumm.txt"            -- change for each person
Output' file ← "NuyensSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint NuyensSummary.press'/o NuyensSummary.txt'/l1
"]                                            -- change for each person




-- make report for Purcell
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS purc"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "PurcellSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "PurcellSumm.txt"            -- change for each person
Output' file ← "PurcellSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint PurcellSummary.press'/o PurcellSummary.txt'/l1
"]                                            -- change for each person




-- make report for Raim
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS raim"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "RaimSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "RaimSumm.txt"            -- change for each person
Output' file ← "RaimSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint RaimSummary.press'/o RaimSummary.txt'/l1
"]                                            -- change for each person




-- make report for Roach
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS roac"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "RoachSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "RoachSumm.txt"            -- change for each person
Output' file ← "RoachSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint RoachSummary.press'/o RoachSummary.txt'/l1
"]                                            -- change for each person



-- make report for Sannella
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS sann"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "SannellaSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "SannellaSumm.txt"            -- change for each person
Output' file ← "SannellaSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SannellaSummary.press'/o SannellaSummary.txt'/l1
"]                                            -- change for each person




-- make report for Sheil
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS shei"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "SheilSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "SheilSumm.txt"            -- change for each person
Output' file ← "SheilSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SheilSummary.press'/o SheilSummary.txt'/l1
"]                                            -- change for each person




-- make report for Stansbury
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS stan"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "StansburySumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "StansburySumm.txt"            -- change for each person
Output' file ← "StansburySummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint StansburySummary.press'/o StansburySummary.txt'/l1
"]                                            -- change for each person




-- make report for Sybalsky
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS syba"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "SybalskySumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "SybalskySumm.txt"            -- change for each person
Output' file ← "SybalskySummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint SybalskySummary.press'/o SybalskySummary.txt'/l1
"]                                            -- change for each person




-- make report for vanMelle
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS vanm"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "vanMelleSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "vanMelleSumm.txt"            -- change for each person
Output' file ← "vanMelleSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint vanMelleSummary.press'/o vanMelleSummary.txt'/l1
"]                                            -- change for each person





-- make report for LispCore↑
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← "HAS lisp"   -- change for each person
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "LispSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "LispSumm.txt"            -- change for each person
Output' file ← "LispSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint LispSummary.press'/o LispSummary.txt'/l1
"]                                            -- change for each person


-- make report for Release
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← ""   -- change for each person
Status ← "Fixed"
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "ReleaseSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "ReleaseSumm.txt"            -- change for each person
Output' file ← "ReleaseSummary.txt"     -- change for each person
Key' specs ← "System/ Subsystem/ Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint ReleaseSummary.press'/o ReleaseSummary.txt'/l1
"]                                            -- change for each person


-- make Action Item report
WindowOnTop[AdobeQuery]
TOOL ← "AdobeQuery"
SUBWINDOW ← "formSW"
Number ← "> 0"
Attn ← ""   -- change for each person
Status ← "Open OR Fixed"
Priority ← "Absolutely OR Hopefully"
Impact ← "Fatal OR Serious"
cmdsw.Query
WindowOnTop[AdobeReport]
TOOL ← "AdobeReport"
SUBWINDOW ← "cmdsw"
Output' format ← "columns"
Output' file ← "ActionItemSumm.txt"           -- change for each person
Report
WindowOnTop[AdobeSort]
TOOL ← "AdobeSort"
SUBWINDOW ← "formSW"
Input' file ← "ActionItemSumm.txt"            -- change for each person
Output' file ← "ActionItemSummary.txt"     -- change for each person
Key' specs ← "Status/ Priority/ Impact"
Sort
WindowOnTop[SimpleExec]
AppendCommand[SimpleExec.execTTY, "oldprint ActionItemSummary.press'/o ActionItemSummary.txt'/l1
"]                                            -- change for each person


Wait[150]


AppendCommand[SimpleExec.execTTY, "ftp phylum Directory LispARs Store *Summary*
Delete *Summ*
"]