-----Original Message-----
From: owner-hecnet at Update.UU.SE
[mailto:owner-hecnet at Update.UU.SE] On Behalf Of Cory Smelosky
Sent: Saturday, February 09, 2013 13:53
To: hecnet at Update.UU.SE
Subject: Re: [HECnet] DFS kit for VAX-VMS 7.3
On 9 Feb 2013, at 13:51, "Steve Davidson" <jeep at scshome.net> wrote:
-----Original Message-----
From: owner-hecnet at Update.UU.SE
[mailto:owner-hecnet at Update.UU.SE] On Behalf Of Cory Smelosky
Sent: Saturday, February 09, 2013 13:49
To: hecnet at Update.UU.SE
Subject: Re: [HECnet] DFS kit for VAX-VMS 7.3
On 9 Feb 2013, at 13:47, "Steve Davidson" <jeep at scshome.net> wrote:
Does anyone have a DFS kit for VAX-VMS 7.3? Thanks!
I think I found it in the layered products disc I was
looking through
-Steve
--
Cory Smelosky
http://gewt.net/ Personal stuff!
http://gimme-sympathy.org/ My permanently-a-work-in-progress pet
project.
If you can copy it to your default DECnet directory I can
pick it up
from there.
-Steve
GEWT::B4$ dir
Directory DUA2:[000000.DECDFS_0231]
DOCUMENTATION.DIR;1 KIT.DIR;1
Total of 2 files.
I'll copy DECDFS_0231.DIR over. It'll be on GEWT::
--
Cory Smelosky
http://gewt.net/ Personal stuff!
http://gimme-sympathy.org/ My permanently-a-work-in-progress
pet project.
FYI -
SG1$$ dir gewt::
%DIRECT-E-OPENIN, error opening GEWT::*.*;* as input
-RMS-E-FND, ACP file or directory lookup failed
-SYSTEM-F-UNREACHABLE, remote node is not currently reachable
SG1$$
On 9 Feb 2013, at 13:51, "Steve Davidson" <jeep at scshome.net> wrote:
-----Original Message-----
From: owner-hecnet at Update.UU.SE
[mailto:owner-hecnet at Update.UU.SE] On Behalf Of Cory Smelosky
Sent: Saturday, February 09, 2013 13:49
To: hecnet at Update.UU.SE
Subject: Re: [HECnet] DFS kit for VAX-VMS 7.3
On 9 Feb 2013, at 13:47, "Steve Davidson" <jeep at scshome.net> wrote:
Does anyone have a DFS kit for VAX-VMS 7.3? Thanks!
I think I found it in the layered products disc I was looking through
-Steve
--
Cory Smelosky
http://gewt.net/ Personal stuff!
http://gimme-sympathy.org/ My permanently-a-work-in-progress
pet project.
If you can copy it to your default DECnet directory I can pick it up
from there.
-Steve
GEWT::B4$ dir
Directory DUA2:[000000.DECDFS_0231]
DOCUMENTATION.DIR;1 KIT.DIR;1
Total of 2 files.
I'll copy DECDFS_0231.DIR over. It'll be on GEWT::
--
Cory Smelosky
http://gewt.net/ Personal stuff!
http://gimme-sympathy.org/ My permanently-a-work-in-progress pet project.
-----Original Message-----
From: owner-hecnet at Update.UU.SE
[mailto:owner-hecnet at Update.UU.SE] On Behalf Of Cory Smelosky
Sent: Saturday, February 09, 2013 13:49
To: hecnet at Update.UU.SE
Subject: Re: [HECnet] DFS kit for VAX-VMS 7.3
On 9 Feb 2013, at 13:47, "Steve Davidson" <jeep at scshome.net> wrote:
Does anyone have a DFS kit for VAX-VMS 7.3? Thanks!
I think I found it in the layered products disc I was looking through
-Steve
--
Cory Smelosky
http://gewt.net/ Personal stuff!
http://gimme-sympathy.org/ My permanently-a-work-in-progress
pet project.
If you can copy it to your default DECnet directory I can pick it up
from there.
-Steve
On 9 Feb 2013, at 13:47, "Steve Davidson" <jeep at scshome.net> wrote:
Does anyone have a DFS kit for VAX-VMS 7.3? Thanks!
I think I found it in the layered products disc I was looking through
-Steve
--
Cory Smelosky
http://gewt.net/ Personal stuff!
http://gimme-sympathy.org/ My permanently-a-work-in-progress pet project.
On 2013-02-09 15:23, G. wrote:
On Sat, 09 Feb 2013 02:21:21 +0100, you wrote:
<fs($(<a href="hecnetinfo.com?q=$;.UAS)$-CQA,.XAI">$GAI</a>$>EX$$
Clear as a spring rain.
Let me know if you want me to explain it... ;-)
Yes please, do! :)
Like I said, clear as spring rain...
Ok, here we go. Written somewhat more "structured":
Anything between exclamation points are comments in TECO (well, technically, they are labels, but what is really the difference between a label and a comment anyway... :-)
< ! Start of loop !
FS($(<a href="hecnetinfo.com?q=$; ! Search for ( and replace it with all that other crap. The trailing ; after the second escape means that if the search and replace fails we'll exit the loop !
.UA ! Save current position in Q-register A !
S)$ ! Search for ) !
-C ! Backup one char !
QA,.XA ! Copy text between position in Q-register A and current position into Q-register A !
I">$ ! Insert the text "> !
GA ! Insert the text from Q-register A !
I</a>$ ! Insert </a> !
> ! End of loop !
EX$$ ! Exit !
Now, the good tricks to know: In TECO you have Q-registers. Think of them as variables that can store a number and a string (at the same time). TECO always have a current position in the buffer. That is denoted by ".". Functions takes arguments.
So, a thing like the search and replace is FSstr1$str2$, which searches for str1, and if found, replaces it with str2. So the first like is just searching for the next opening paren, and inserts a lot of cruft after the paren. Just plain text constant.
At this point, the current position is just before the nodename. So, we store the position where the nodename starts. (.UA). The command is actually nUq, where n is any number. We just use "." as the number, which is the current position. q is what Q-register to store the value in. So, .UA stores the current position in Q-register A.
S)$ should be very obvious. Just search for the closing paren.
-C should also be pretty obvious. nC moves the position that many steps. If no argument is given, it defaults to 1. -C is just short for -1C.
QA,.XA looks much worse than it is. The basic command is actually m,nXq, which stores the text between m and n in Q-register q. The the XA part should be obvious. Store the text in Q-register A. The stuff before the command is QA,. . At this point, you should realize that n in this case is ".", or the current position. QA is the function to read out the value from Q-register A (Qq to say the function in a general way). So we'll copy the text from the start of the nodename (stored in Q-register A) to the current position, which is right before the right paren, to Q-register A. That is, Q-register A will then hold the nodename. Also, at this point, the current point is after the nodename.
So, we now want to finish the <a href= tag, so we insert a little more text: I">$, which does just that. Position is still right before the right paren, but now we have a full <a> tag in the buffer.
GA gets the text from Q-register A, and inserts it into the buffer. That is the nodename again, now for displaying.
I</a>$ then inserts a little more text, finishing the tagged text.
> is the end of the loop.
EX$$ exits.
See. TECO is actually pretty easy. :-)
Johnny
--
Johnny Billquist || "I'm on a bus
|| on a psychedelic trip
email: bqt at softjar.se || Reading murder books
pdp is alive! || tryin' to stay hip" - B. Idol
Thanks for the heads up Steve.
Stay safe and warm til it blows over.
Sent from my iPhone
On Feb 8, 2013, at 9:34 PM, "Steve Davidson" <jeep at scshome.net> wrote:
Hi!
The weather here (New England), is getting a great deal of snow with
high winds. It is being called the Blizzard of 2013. They are
comparing it to the Blizzard of 1978. New Hampshire has declared a
State of Emergency so no travel is allowed unless exempt from the rules.
We may loose power at any moment. While we have backup power I may
decide to shutdown the SG machines. If so, all sites that make use of
Multinet Tunnels and, are connected to SG1::, will be offline until the
SG machines have returned.
-Steve
Sampsa,
You can add MASON:: to the directory now.
thanks to Steve helping find the last gremlin in the connecting to HECNET.
Sent from my iPhone
On Feb 8, 2013, at 9:09 PM, "Sampsa Laine" <sampsa at mac.com> wrote:
Speaking of services running on RHESUS, does anybody else want their node to be included in the phone directory at http://rhesus.sampsa.com/phonedir/hecnetdir.txt
It's polled every 5 minutes I think so it's not a huge use of your bandwidth...
sampsa
On 9 Feb 2013, at 04:05, Sampsa Laine <sampsa at mac.com> wrote:
Yes, good idea, but not tonight, it's 4am in Beirut.
sampsa
On 9 Feb 2013, at 04:02, Ian McLaughlin <ian at platinum.net> wrote:
2 columns so the page isn't so long? :)
Ian
On 2013-02-08, at 5:59 PM, Sampsa Laine <sampsa at mac.com> wrote:
Actually the dozen lines of python is doing it quite nicely now:
http://rhesus.sampsa.com/cgi-bin/hecnetinfo/hecnetinfo.com
sampsa
On 9 Feb 2013, at 03:56, Johnny Billquist <bqt at softjar.se> wrote:
You know, you could just pull the file with all nodes from MIM, instead of generating it yourself. I can even provide it in some format you like, and then it will be generated automatically whenever I update my node database...
Johnny
On 2013-02-09 02:52, Sampsa Laine wrote:
Trying to figure out what's doing that.
I'm probably actually going to make it an html table.....
sampsa
On 9 Feb 2013, at 03:51, Ian McLaughlin <ian at platinum.net> wrote:
Does it have to be double-spaced?
Ian
On 2013-02-08, at 5:34 PM, Sampsa Laine <sampsa at mac.com> wrote:
What do you guys think of the new look:
http://rhesus.sampsa.com/cgi-bin/hecnetinfo/hecnetinfo.com
I'll probably work a bit more on the formatting, am a bit sleep deprived and hung over at the moment though.
sampsa
On 9 Feb 2013, at 03:29, Johnny Billquist <bqt at softjar.se> wrote:
On 2013-02-09 02:26, Sampsa Laine wrote:
That's pretty nifty - but I realised that with a bit of python I can strip out the stuff that isn't really of interest to people such as the interface and next node etc.
Thanks for the help though, TECO still looks like modem line noise to me..:)
Of course, stripping off the noise in the line is just a few additional characters to that TECO program, you know... ;-)
Johnny
sampsa
On 9 Feb 2013, at 03:21, Johnny Billquist <bqt at softjar.se> wrote:
On 2013-02-09 02:06, Sampsa Laine wrote:
Crap, just realised this won't work, I need to duplicate the strings i.e. one for the href, one for the actual text.
I'm just gonna write a little python script to do it..
This is what I was wondering already initially, hence my question about if you didn't want a little more than just the <a> for the tag...
Anyway, TECO to the rescue...
Hold on to your hat. Were we go. A complete TECO program for this. Replace all dollar signs with ESCAPE.
<fs($(<a href="hecnetinfo.com?q=$;.UAS)$-CQA,.XAI">$GAI</a>$>EX$$
Clear as a spring rain.
Let me know if you want me to explain it... ;-)
Johnny
--
Johnny Billquist || "I'm on a bus
|| on a psychedelic trip
email: bqt at softjar.se || Reading murder books
pdp is alive! || tryin' to stay hip" - B. Idol
--
Johnny Billquist || "I'm on a bus
|| on a psychedelic trip
email: bqt at softjar.se || Reading murder books
pdp is alive! || tryin' to stay hip" - B. Idol
---
Filter service subscribers can train this email as spam or not-spam here: http://my.email-as.net/spamham/cgi-bin/learn.pl?messageid=F4D2A6A6725811E28…
--
Johnny Billquist || "I'm on a bus
|| on a psychedelic trip
email: bqt at softjar.se || Reading murder books
pdp is alive! || tryin' to stay hip" - B. Idol
---
Filter service subscribers can train this email as spam or not-spam here: http://my.email-as.net/spamham/cgi-bin/learn.pl?messageid=4EF31A3C725C11E28…
On Sat, 09 Feb 2013 02:21:21 +0100, you wrote:
<fs($(<a href="hecnetinfo.com?q=$;.UAS)$-CQA,.XAI">$GAI</a>$>EX$$
Clear as a spring rain.
Let me know if you want me to explain it... ;-)
Yes please, do! :)
G.
On 9 Feb 2013, at 15:33, "Brian Schenkenberger, VAXman-" <system at TMESIS.COM> wrote:
Sampsa Laine <sampsa at mac.com> writes:
So the full command would look something like:
$MCR NCP SHOW KNOWN NODES TO FOOBAR $EDIT/TECO FOOBAR.LIST
<FS($(<a>$FS)$</a>)$;> [...something to quit TECO goes here...]
How do I exit TECO?
EX$$
Also, if you need to put this into a script to do repeated edits of this
nature, you can put the TECo commands into the logical TEC$INIT. Getting
the ESCAPE into a logical string is left as an exercise for the original
poster. ;)
In the end I went with a Python script that build an HTML table, you can see it at http://rhesus.sampsa.com/cgi-bin/hecnetinfo/hecnetinfo.com
RHESUS is an dual processor Itanic so it runs Python quite snappily :)
sampsa
