Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!cs.utexas.edu!wuarchive!kuhub.cc.ukans.edu!anu-news!list From: root@NSFNET-RELAY.AC.UK Newsgroups: news.software.anu-news Subject: Mail Delivery Failure to uk.ac.king - Rejected Message-ID: Date: 2 Jan 90 07:20:50 GMT Sender: ANU-NEWS Discussion Reply-To: root@NSFNET-RELAY.AC.UK Lines: 137 Via: 000040010180.FTP.MAIL; 2 JAN 90 7:25:31 GMT The NIFTP process was unable to deliver your mail to host uk.ac.king over janet. The reason given by the remote host was: Invalid value in command: invalid attribute - filename "FTP$NETWELL:MAILTMP.TMP". File open failure reason - device full (insufficient space for allocation). Secondary reason - device full - allocation failure. Username ignored. VAX/VMS FTP (80) Version 5.0. Your message was not delivered to the following addresses: GPKING@uk.ac.kingston Your message begins as follows: Received: from vax.nsfnet-relay.ac.uk by sun.NSFnet-Relay.AC.UK Via Ethernet with SMTP id ab00267; 2 Jan 90 7:17 GMT Received: from sun.nsfnet-relay.ac.uk by vax.NSFnet-Relay.AC.UK via Janet with NIFTP id aa00377; 2 Jan 90 7:09 GMT Received: from UKACRL by UK.AC.RL.IB (Mailer X1.25) with BSMTP id 3750; Tue, 02 Jan 90 07:00:56 GM Received: from NDSUVM1.BITNET by UKACRL.BITNET (Mailer X1.25) with BSMTP id 0104; Tue, 02 Jan 90 07:00:55 G Received: from NDSUVM1.BITNET by NDSUVM1.BITNET (Mailer R2.03B) with BSMTP id 5235; Tue, 02 Jan 90 00:57:19 C Date: Tue, 2 Jan 90 06:28:41 GMT Reply-To: root@uk.ac.nsfnet-relay Original-Sender: ANU-NEWS Discussion From: root@uk.ac.nsfnet-relay Subject: Mail Delivery Failure to uk.ac.king - Rejected To: Multiple recipients of list ANU-NEWS Sender: ANU-NEWS%earn.ndsuvm1@uk.ac.earn-relay The NIFTP process was unable to deliver your mail to host uk.ac.king over janet. The reason given by the remote host was: Invalid value in command: invalid attribute - filename "FTP$NETWELL:MAILTMP.TMP". File open failure reason - device full (insufficient space for allocation). Secondary reason - device full - allocation failure. Username ignored. VAX/VMS FTP (80) Version 5.0. Your message was not delivered to the following addresses: GPKING@uk.ac.kingston Your message begins as follows: Received: from vax.nsfnet-relay.ac.uk by sun.NSFnet-Relay.AC.UK Via Ethernet with SMTP id aa10706; 31 Dec 89 4:55 GMT Received: from sun.nsfnet-relay.ac.uk by vax.NSFnet-Relay.AC.UK via Janet with NIFTP id aa07284; 31 Dec 89 4:44 GMT Received: from UKACRL by UK.AC.RL.IB (Mailer X1.25) with BSMTP id 4504; Sun, 31 Dec 89 04:49:29 GM Received: from NDSUVM1.BITNET by UKACRL.BITNET (Mailer X1.25) with BSMTP id 1864; Sun, 31 Dec 89 04:49:29 G Received: from NDSUVM1.BITNET by NDSUVM1.BITNET (Mailer R2.03B) with BSMTP id 4058; Sat, 30 Dec 89 22:49:03 C Date: Sat, 30 Dec 89 15:54:21 GMT Reply-To: jeh@com.simpact Original-Sender: ANU-NEWS Discussion From: jeh@com.simpact Subject: Re: Arbitron To: Multiple recipients of list ANU-NEWS Sender: ANU-NEWS%earn.ndsuvm1@uk.ac.earn-relay Nice job, Lenny! I've put the following in my NEWSSKIM.COM to automatically run ARBITRON near the end of the month. Location is not critical (I have it just after the SKIM operation). Note that it is not necessary to run this code once per day, ie it need not be "under" the first-run-of-new-day test, but it won't hurt if it is, either. I didn't know if decwrl needed some precise format for the mail subject line, so I just fudged something. $ ! --------------------- $ ! If it's close to the end of the month, run the arbitron program and $ ! mail the results to decwrl. $ $ test_mo = f$element(1, "-", f$cvtime("''f$time()'+2-0:0:0", "ABSOLUTE")) $ $ ! In the preceding line, the "2-0:0:0" means that this code will trigger $ ! if it's 2 days (ie 48 hours -- or closer) to the end of the last day of $ ! the month. Modify this (ie make it bigger) if you are far away from $ ! decwrl (in terms of number of days for delivery). To be included in the $ ! monthly arbitron stats, the mail message should get there before 00:00 $ ! preceding the first of the new month (or 23:59.59.99 ending the last $ ! day of the current month, if you prefer). $ $ this_mo = f$element(1, "-", f$time()) ! note: we use this_mo later. $ day_of_month_ok = this_mo .nes. test_mo $ $ ! Have we done it this month already? $ $ if (f$search("news_log:arbitron.out").eqs."") $ then $ ! ok if haven't done it before, at all. $ month_ok = 1 $ else $ ! ok if last month run is different from current month. $ last_arb = f$file("news_log:arbitron.out","CDT") $ month_ok = f$element(1, "-", last_arb) .nes. this_mo $ endif $ $ if (day_of_month_ok .and. month_ok) $ then $ write sys$output "Arbitron Beginning at ''f$time()'" $ run uucp_bin:arbitron $ rename arbitron.out news_log: $ purge news_log:arbitron.out $ host = f$logi("uucp_host_name") $ mmm_yyyy = f$elem(0, " ", f$time()) - f$elem(0, "-", f$time()) - "-" $ mail news_log:arbitron.out - /subj="Arbitron stats from uucp host ''host' for ''mmm_yyyy'" - uucp%"""netsurvey@decwrl.dec.com""",usenet $ write sys$output "Arbitron Completed at ''f$time()'" $ endif $ --- Jamie Hanrahan, Simpact Associates, San Diego CA Chair, VMSnet [DECUS uucp] and Internals Working Groups, DECUS VAX Systems SIG Internet: jeh@simpact.com, or if that fails, jeh@crash.cts.com Uucp: ...Ecrash,scubed,decwrlL!simpact!jeh