description
Good for you. You've made some more room for yourself by archiving some stuff. But wait! It hasn't been deleted yet --- the archive system doesn't do that. DeleteArchived does. It implements a command-tool command named "DeleteFromAck", which takes as its one and only argument the name of a viewer containing the message that the archivist sent you telling you that the archive was actually done. DeleteFromAck parses this message, and executes sub-commands to delete the files mentioned in the message.
To make life easy for you, DeleteArchived.Load and DeleteFromAck.Load both add a button (named "DFA") to your command tool. This button should be clicked after making a text selection anywhere in the acknowledgement message. The DFA button takes the name of the viewer containing the selection, stuffs it between quotes, and issues the DeleteFromAck command with the quoted viewer name as its argument.
description
Sometimes you need to use Chat to delete files. The MakeChatStuffFromAck command prints commands that you can stuff into a Chat window. This command takes as its first argument the directory to assume is current for the chat session (i.e., the prefix that is not needed on file names). The second is again a viewer name containing an acknowledgement message from the archivist.
installation
bringover the public part of DeleteArchived.DF into ///Commands/
% DeleteArchived.Load
<if you want a button for MakeChatStuffFromAck there is a commented-out line that does this in DeleteArchived.Load>
examples
Using walnut, examine the message that the archivist sent you about having done the archive. Such a message should look like this:
Date: 19 Jul 84 09:05:04 PDT
From: Archivist.pa
Subject: Re: Archive request
In-reply-to: "Spreitzer's message of 25 Jun 84 12:50:50 PDT"
To: Spreitzer
Cc: Archivist, Diebert, RWeaver
Archived: [Indigo]<Rosemary>Release>Rosemary.df!3 of November 28, 1983 2:43:06 pm PST on T10002P or T10002B
Archived: [Indigo]<Rosemary>Release>Rosemary1>4er.expand!1 of March 12, 1983 6:03:13 pm PST on T10002P or T10002B
Archived: [Indigo]<Rosemary>Release>Rosemary1>4top.expand!1 of March 12, 1983 2:55:12 pm PST on T10002P or T10002B
Make a selection in that message. Click the DFA that was created by DeleteArchived.Load. It should produce a command like:
% DeleteFromAck "Archivist.pa 19 Jul 84 Re: Archive request"
This command will in turn invoke a sub-command for each file, like:
% Delete [Indigo]<Rosemary>Release>Rosemary.df!3
deleting /Indigo/Rosemary/Release/Rosemary.DF
% Delete [Indigo]<Rosemary>Release>Rosemary1>4er.expand!1
deleting /Indigo/Rosemary/Release/Rosemary1/4er.expand!1
% Delete [Indigo]<Rosemary>Release>Rosemary1>4top.expand!1
deleting /Indigo/Rosemary/Release/Rosemary1/4top.expand!1
Sometimes you will fail to delete those files, getting responses like:
% Delete [Indigo]<Rosemary>Release>Rosemary.df!3
deleting /Indigo/Rosemary/Release/Rosemary.df!3 ... FS.Error[Server for "[Indigo]<Rosemary>Release>Rosemary.df!3" denied permission to access the file.]
% Delete [Indigo]<Rosemary>Release>Rosemary1>4er.expand!1
deleting /Indigo/Rosemary/Release/Rosemary1/4er.expand!1 ... FS.Error[Server for "[Indigo]<Rosemary>Release>Rosemary1>4er.expand!1" denied permission to access the file.]
% Delete [Indigo]<Rosemary>Release>Rosemary1>4top.expand!1
deleting /Indigo/Rosemary/Release/Rosemary1/4top.expand!1 ... FS.Error[Server for "[Indigo]<Rosemary>Release>Rosemary1>4top.expand!1" denied permission to access the file.]
However, if you were to Chat to an IFS, and use a more complicated authentication protocol than FTP can use, you might be able to delete those files. If you could, your Chat log might look something like this:
Viewers Chat of March 12, 1984 1:17:50 pm PST.
Log file: Chat0.log
Opening connection to Indigo ... open.
Indigo 1.38.1L, Executive of February 14, 1984; 2 users out of 9.
@Login (user) Spreitzer.pa (password) (account)
@connect (to directory) Rosemary
This is when you use MakeChatStuffFromAck. There is a line in DeleteArchived.Load that makes a button for using MakeChatStuffFromAck; it should look something like this:
EnsureButton CFA MakeChatStuffFromAck $CurrentSelection$ "$SelectedViewerName$"
To use this button, carefully select (in the archivist's message) the name of the default directory currently in force in your chat session to the file server. In the example above, it would be "[Indigo]<Rosemary>". Then click the CFA button. It will print out in your command tool a bunch of commands to delete the files. Your command tool log should get something like this appended to it:
% MakeChatStuffFromAck [Indigo]<Rosemary> "Archivist.pa 19 Jul 84 Re: Archive request"
Delete Release>Rosemary.df!3
Delete Release>Rosemary1>4er.expand!1
Delete Release>Rosemary1>4top.expand!1
After this has been printed in your command tool, select the delete commands and stuff them into the Chat tool. Its typescript should get something like this appended to it:
@Delete (files) Release>Rosemary.df!3
<Rosemary>Release>
Rosemary.df!3 [Confirm] yes.
@Delete (files) Release>Rosemary1>4er.expand!1
<Rosemary>Release>Rosemary1>
4er.expand!1 [Confirm] yes.
@Delete (files) Release>Rosemary1>4top.expand!1
<Rosemary>Release>Rosemary1>
4top.expand!1 [Confirm] yes.