head 1.2; access; symbols perseant-exfatfs-base-20250801:1.2 perseant-exfatfs-base-20240630:1.2 cjep_sun2x:1.2.0.44 cjep_sun2x-base:1.2 cjep_staticlib_x-base1:1.2 cjep_staticlib_x:1.2.0.42 cjep_staticlib_x-base:1.2 phil-wifi-20200421:1.2 phil-wifi-20200411:1.2 phil-wifi-20200406:1.2 pgoyette-compat-merge-20190127:1.2 pgoyette-compat-20190127:1.2 pgoyette-compat-20190118:1.2 pgoyette-compat-1226:1.2 pgoyette-compat-1126:1.2 pgoyette-compat-1020:1.2 pgoyette-compat-0930:1.2 pgoyette-compat-0906:1.2 pgoyette-compat-0728:1.2 pgoyette-compat-0625:1.2 pgoyette-compat-0521:1.2 pgoyette-compat-0502:1.2 pgoyette-compat-0422:1.2 pgoyette-compat-0415:1.2 pgoyette-compat-0407:1.2 pgoyette-compat-0330:1.2 pgoyette-compat-0322:1.2 pgoyette-compat-0315:1.2 pgoyette-compat:1.2.0.40 pgoyette-compat-base:1.2 perseant-stdc-iso10646:1.2.0.38 perseant-stdc-iso10646-base:1.2 prg-localcount2-base3:1.2 prg-localcount2-base2:1.2 prg-localcount2-base1:1.2 prg-localcount2:1.2.0.36 prg-localcount2-base:1.2 pgoyette-localcount-20170426:1.2 bouyer-socketcan-base1:1.2 pgoyette-localcount-20170320:1.2 bouyer-socketcan:1.2.0.34 bouyer-socketcan-base:1.2 pgoyette-localcount-20170107:1.2 pgoyette-localcount-20161104:1.2 localcount-20160914:1.2 pgoyette-localcount-20160806:1.2 pgoyette-localcount-20160726:1.2 pgoyette-localcount:1.2.0.32 pgoyette-localcount-base:1.2 netbsd-5-2-3-RELEASE:1.2 netbsd-5-1-5-RELEASE:1.2 yamt-pagecache-base9:1.2 yamt-pagecache-tag8:1.2 tls-earlyentropy:1.2.0.28 tls-earlyentropy-base:1.2 riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.2 riastradh-drm2-base3:1.2 netbsd-5-2-2-RELEASE:1.2 netbsd-5-1-4-RELEASE:1.2 netbsd-5-2-1-RELEASE:1.2 netbsd-5-1-3-RELEASE:1.2 agc-symver:1.2.0.30 agc-symver-base:1.2 tls-maxphys-base:1.2 yamt-pagecache-base8:1.2 netbsd-5-2:1.2.0.26 yamt-pagecache-base7:1.2 netbsd-5-2-RELEASE:1.2 netbsd-5-2-RC1:1.2 yamt-pagecache-base6:1.2 yamt-pagecache-base5:1.2 yamt-pagecache-base4:1.2 netbsd-5-1-2-RELEASE:1.2 netbsd-5-1-1-RELEASE:1.2 yamt-pagecache-base3:1.2 yamt-pagecache-base2:1.2 yamt-pagecache:1.2.0.24 yamt-pagecache-base:1.2 bouyer-quota2-nbase:1.2 bouyer-quota2:1.2.0.22 bouyer-quota2-base:1.2 matt-nb5-pq3:1.2.0.20 matt-nb5-pq3-base:1.2 netbsd-5-1:1.2.0.18 netbsd-5-1-RELEASE:1.2 netbsd-5-1-RC4:1.2 netbsd-5-1-RC3:1.2 netbsd-5-1-RC2:1.2 netbsd-5-1-RC1:1.2 netbsd-5-0-2-RELEASE:1.2 netbsd-5-0-1-RELEASE:1.2 jym-xensuspend-nbase:1.2 netbsd-5-0:1.2.0.16 netbsd-5-0-RELEASE:1.2 netbsd-5-0-RC4:1.2 netbsd-5-0-RC3:1.2 netbsd-5-0-RC2:1.2 jym-xensuspend:1.2.0.14 jym-xensuspend-base:1.2 netbsd-5-0-RC1:1.2 netbsd-5:1.2.0.12 netbsd-5-base:1.2 mjf-devfs2:1.2.0.10 mjf-devfs2-base:1.2 yamt-pf42-base4:1.2 yamt-pf42-base3:1.2 hpcarm-cleanup-nbase:1.2 yamt-pf42-base2:1.2 yamt-pf42:1.2.0.8 yamt-pf42-base:1.2 keiichi-mipv6:1.2.0.6 keiichi-mipv6-base:1.2 cube-autoconf:1.2.0.4 cube-autoconf-base:1.2 hpcarm-cleanup:1.2.0.2 hpcarm-cleanup-base:1.2 netbsd-3-1-1-RELEASE:1.1 netbsd-3-0-3-RELEASE:1.1 abandoned-netbsd-4-base:1.1 abandoned-netbsd-4:1.1.0.28 netbsd-3-1:1.1.0.30 netbsd-3-1-RELEASE:1.1 netbsd-3-0-2-RELEASE:1.1 netbsd-3-1-RC4:1.1 netbsd-3-1-RC3:1.1 netbsd-3-1-RC2:1.1 netbsd-3-1-RC1:1.1 netbsd-3-0-1-RELEASE:1.1 netbsd-3-0:1.1.0.26 netbsd-3-0-RELEASE:1.1 netbsd-3-0-RC6:1.1 netbsd-3-0-RC5:1.1 netbsd-3-0-RC4:1.1 netbsd-3-0-RC3:1.1 netbsd-3-0-RC2:1.1 netbsd-3-0-RC1:1.1 netbsd-2-0-3-RELEASE:1.1 netbsd-2-1:1.1.0.24 netbsd-2-1-RELEASE:1.1 netbsd-2-1-RC6:1.1 netbsd-2-1-RC5:1.1 netbsd-2-1-RC4:1.1 netbsd-2-1-RC3:1.1 netbsd-2-1-RC2:1.1 netbsd-2-1-RC1:1.1 netbsd-2-0-2-RELEASE:1.1 netbsd-3:1.1.0.22 netbsd-3-base:1.1 netbsd-2-0-1-RELEASE:1.1 netbsd-2:1.1.0.20 netbsd-2-base:1.1 netbsd-2-0-RELEASE:1.1 netbsd-2-0-RC5:1.1 netbsd-2-0-RC4:1.1 netbsd-2-0-RC3:1.1 netbsd-2-0-RC2:1.1 netbsd-2-0-RC1:1.1 netbsd-2-0:1.1.0.18 netbsd-2-0-base:1.1 netbsd-1-6-PATCH002-RELEASE:1.1 netbsd-1-6-PATCH002:1.1 netbsd-1-6-PATCH002-RC4:1.1 netbsd-1-6-PATCH002-RC3:1.1 netbsd-1-6-PATCH002-RC2:1.1 netbsd-1-6-PATCH002-RC1:1.1 netbsd-1-6-PATCH001:1.1 netbsd-1-6-PATCH001-RELEASE:1.1 netbsd-1-6-PATCH001-RC3:1.1 netbsd-1-6-PATCH001-RC2:1.1 netbsd-1-6-PATCH001-RC1:1.1 fvdl_fs64_base:1.1 netbsd-1-6-RELEASE:1.1 netbsd-1-6-RC3:1.1 netbsd-1-6-RC2:1.1 netbsd-1-6-RC1:1.1 netbsd-1-6:1.1.0.16 netbsd-1-6-base:1.1 netbsd-1-5-PATCH003:1.1 netbsd-1-5-PATCH002:1.1 netbsd-1-5-PATCH001:1.1 netbsd-1-5-RELEASE:1.1 netbsd-1-5-BETA2:1.1 netbsd-1-5-BETA:1.1 netbsd-1-4-PATCH003:1.1 netbsd-1-5-ALPHA2:1.1 netbsd-1-5:1.1.0.14 netbsd-1-5-base:1.1 netbsd-1-4-PATCH002:1.1 wrstuden-devbsize-19991221:1.1 wrstuden-devbsize:1.1.0.12 wrstuden-devbsize-base:1.1 comdex-fall-1999:1.1.0.10 comdex-fall-1999-base:1.1 netbsd-1-4-PATCH001:1.1 netbsd-1-4-RELEASE:1.1 netbsd-1-4:1.1.0.8 netbsd-1-4-base:1.1 netbsd-1-3-PATCH003:1.1 netbsd-1-3-PATCH003-CANDIDATE2:1.1 netbsd-1-3-PATCH003-CANDIDATE1:1.1 netbsd-1-3-PATCH003-CANDIDATE0:1.1 netbsd-1-3-PATCH002:1.1 netbsd-1-3-PATCH001:1.1 netbsd-1-3-RELEASE:1.1 netbsd-1-3-BETA:1.1 netbsd-1-3:1.1.0.4 netbsd-1-3-base:1.1 netbsd-1-2-PATCH001:1.1 netbsd-1-2-RELEASE:1.1 netbsd-1-2-BETA:1.1 netbsd-1-2-base:1.1 netbsd-1-2:1.1.0.6 netbsd-1-1-PATCH001:1.1 netbsd-1-1-RELEASE:1.1 netbsd-1-1:1.1.0.2 netbsd-1-1-base:1.1; locks; strict; comment @# @; 1.2 date 2006.11.12.01.20.00; author christos; state dead; branches; next 1.1; 1.1 date 94.10.24.22.18.01; author jtc; state Exp; branches; next ; desc @@ 1.2 log @goodbye uucp @ text @#!/usr/local/bin/perl eval ' exec /usr/local/bin/perl $0 "$@@" ' if $running_under_some_shell; # From a script by # Newsgroups: comp.sources.misc # Subject: v28i073: uureroute - Reroute HDB queued mail, Part01/01 # Date: 26 Feb 92 02:28:37 GMT # # This is a Honey DanBer specific routine written in perl to reroute all # mail queued up for a specific host. It needs to be run as "root" since # uucp will not allow itself to remove others requests. # # Revision *** 92/21/09: Francois Pinard # 1. adapted for Taylor UUCP # # Revision 1.3 91/10/08 09:01:21 src # 1. Rewritten in perl # 2. Add -v option for debugging. # # Revision 1.2 91/10/07 23:57:42 root # 1. Fix mail program path. # 2. Truncate directory name to 7 characters ($progname = $0) =~ s!.*/!!; # save this very early $USAGE = " # Reroute uucp mail # # Usage: $progname [-v] host [host...] # # Options Argument Description # -v Verbose (doesn't execute /bin/sh) # "; $UUSTAT = "/usr/local/bin/uustat"; $SHELL = "/bin/sh"; $SMAIL = "/bin/smail"; sub usage { die join ("\n", @@_) . "\n$USAGE\n"; } do "getopts.pl"; &usage ("Invalid Option") unless do Getopts ("vV"); $verbose = ($opt_v ? '-v' : ()); $suffix = ($verbose ? '' : $$); &usage ("No system specified") if $#ARGV < 0; if (!$verbose) { open (SHELL, "| $SHELL"); select SHELL; } while ($system = shift) { $sysprefix = substr ($system, 0, 7); $directory = "/usr/spool/uucp/$sysprefix"; open (UUSTAT, "$UUSTAT -s $system -c rmail |"); print "set -ex\n"; while () { ($jobid, ) = split; ($cfile) = substr ($jobid, length ($jobid) - 5); $cfilename = "$directory/C./C.$cfile"; open (CFILE, $cfilename) || die "Cannot open $cfilename\n"; $_ = ; close CFILE; if (/^E D\.(....) [^ ]+ [^ ]+ -CR D\.\1 0666 [^ ]+ 0 rmail (.*)/) { $datafile = "$directory/D./D.$1"; $address = $2; } else { print STDERR; die "Cannot parse previous line from $cfilename\n"; } print "$SMAIL -R $system!$address < $datafile && $UUSTAT -k $jobid\n"; } close UUSTAT; } close SHELL unless $verbose; exit 0; @ 1.1 log @Upgraded to Taylor UUCP 1.05 (Thanks to John Kohl). @ text @@