|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
#######
#
# E-scripts on debian on the net: archives, mailing lists, etc
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
# An introduction to eev can be found here:
#
# (find-eev-quick-intro)
# http://angg.twu.net/eev-intros/find-eev-quick-intro.html
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/debian-net.e>
# or at <http://angg.twu.net/e/debian-net.e.html>.
# See also <http://angg.twu.net/emacs.html>,
# <http://angg.twu.net/.emacs[.html]>,
# <http://angg.twu.net/.zshrc[.html]>,
# <http://angg.twu.net/escripts.html>,
# and <http://angg.twu.net/>.
#
#######
# «.ls-lR.i» (to "ls-lR.i")
# «.debian_mirrors» (to "debian_mirrors")
# «.Packages» (to "Packages")
# «.subscribe» (to "subscribe")
# «.unsubscribe» (to "unsubscribe")
#####
#
# update $SDEBIAN/ls-lR.i
# 99dec05
#
#####
# «ls-lR.i» (to ".ls-lR.i")
# (find-fline "~/ICON/lslR2find2.icn")
#*
psne $FDEBIAN/ls-lR.gz
# getS
# unpackS
#*
cd $SDEBIAN
gzip -dv ls-lR.gz
# ~/ICON/lslR2find2 33 41 55 < ls-lR > ls-lR.i
~/ICON/lslR2find2 33 42 56 < ls-lR > ls-lR.i0
(OTHERARCHS='alpha|arm|hppa|hurd|ia64|m68k|mips|mipsel|powerpc|s390|sparc'
cat ls-lR.i0 \
| egrep -v '(binary|disks)-('$OTHERARCHS')' \
| egrep -v '_('$OTHERARCHS')\.deb' \
> ls-lR.i
egrep hurd ls-lR.i0 \
> ls-lR.i.hurd
)
head ls-lR.i
#*
# (find-fline "$SDEBIAN/ls-lR.i")
# (find-fline "$SDEBIAN/ls-lR")
# (find-fline "$SDEBIAN/ls-lR")
# ~/ICON/lslR2find < ls-lR > ls-lR.i
#####
#
# Select a fast Debian mirror using netselect
# 00jan12
#
#####
# «debian_mirrors» (to ".debian_mirrors")
# (find-angg ".zshrc" "netselect")
# (find-sftpfile "ftp.debian.org/debian/README.mirrors.txt")
psne $FDEBIAN/README.CD-manufacture
psne $FDEBIAN/README.mirrors.html
psne $FDEBIAN/README.mirrors.txt
psne $FDEBIAN/README.non-US
#*
getlinks < $SDEBIAN/README.mirrors.html \
| grep ^ftp \
| sort | uniq \
| tee /tmp/debian-mirrors
cat /tmp/debian-mirrors \
| perl -nle 'm%^ftp://(.*?)/% && print $1' \
| sort | uniq \
| tee /tmp/debian-mirrors-
mynetselect $(</tmp/debian-mirrors-)
tac < ~/o2 > /tmp/debian-mirrors-scores
# (eeman "perlfaq5" "<OLD>")
perl -e '
open(A, "< /tmp/debian-mirrors");
while (<A>) {
if (m|^ftp://(.*?)(/.*)\n|) {
$path{$1} = $2;
}
}
open(B, "< /tmp/debian-mirrors-scores");
while (<B>) {
if (m|\[(.....)\](.....) ms (...) hops.* ...% ok \((..)/10\) ([!-~]*)|) {
print "[$1]$2 ms$3 hops $4/10 pkts $5$path{$5}\n"
}
}
' | tee /tmp/debian-mirrors2
head /tmp/debian-mirrors2
#*
cp /tmp/debian-mirrors2 ~/odebian-mirrors
#*
# (find-fline "~/odebian-mirrors")
# (find-fline "/tmp/debian-mirrors-scores")
# (find-fline "/tmp/debian-mirrors2")
# (find-fline "~/o2")
# (find-fline "/tmp/debian-mirrors")
# (find-fline "/tmp/debian-mirrors" "internap")
# (find-fline "/tmp/debian-mirrors" "ssc")
#####
#
# update several "Packages" files
# 2001jan02
#
#####
# «Packages» (to ".Packages")
#*
function psneP () {
psne $*
mv Packages.gz.1 Packages.gz
zcat Packages.gz > Packages
touch -r Packages.gz Packages
}
#*
psneP $FDEBIAN/dists/potato/main/binary-i386/Packages.gz
psneP $FDEBIAN/dists/potato/contrib/binary-i386/Packages.gz
psneP $FDEBIAN/dists/potato/non-free/binary-i386/Packages.gz
#*
psneP $FNUDEBIAN/dists/potato/non-US/main/binary-i386/Packages.gz
psneP $FNUDEBIAN/dists/potato/non-US/contrib/binary-i386/Packages.gz
psneP $FNUDEBIAN/dists/potato/non-US/non-free/binary-i386/Packages.gz
#*
psneP $FDEBIAN/dists/woody/main/binary-i386/Packages.gz
psneP $FDEBIAN/dists/woody/contrib/binary-i386/Packages.gz
psneP $FDEBIAN/dists/woody/non-free/binary-i386/Packages.gz
#*
#####
#
# debian-non-US
# 2000jun20
#
#####
# (find-es "net" "debian_mirrors")
# (find-fline "$SDEBIAN/")
# (find-fline "$SDEBIAN/README.non-US")
# (find-fline "$SNUDEBIAN")
# (find-fline "$SNUDEBIAN/ls-lR")
# (find-fline "$SNUDEBIAN/ls-lR.i0")
# (find-fline "$SNUDEBIAN/ls-lR.i")
psne $FNUDEBIAN/ls-lR.gz
cd $SNUDEBIAN/
mv ls-lR.gz.1 ls-lR.gz
gzip -dv ls-lR.gz
~/ICON/lslR2find2 33 42 56 < ls-lR \
> ls-lR.i0
egrep -v '(binary|disks)-(alpha|arm|hurd|m68k|sparc|powerpc)' ls-lR.i0 \
> ls-lR.i
head -n 10 ls-lR.i0
head -n 10 $SDEBIAN/ls-lR.i
cd $SNUDEBIAN/
grep '/potato/.*/binary-i386/' ls-lR.i \
| grep -v '/woody/' \
| cut -b11- \
| awk '{print $1}' \
| grep '\.deb$' \
| tee ~/o
# (find-fline "~/o")
#####
#
# Subscribing to a debian list
# 2000aug29
#
#####
# «subscribe» (to ".subscribe")
echo 'subscribe [email protected]' | sendemail \
[email protected]
echo '' | sendemail -s 'CONFIRM s082917120225796' \
[email protected]
# «unsubscribe» (to ".unsubscribe")
echo '' | sendemail -s 'unsubscribe' \
[email protected]
echo '' | sendemail -s 'CONFIRM u083010551319140' \
[email protected]
# Older notes:
# All postings must be done as edrx.
mail [email protected] <<'---'
subscribe [email protected]
---
# Then I run fetchmail, run mail,
# read the answer, then run something like this:
mail -s 'CONFIRM s01091124183584' [email protected] <<'---'
subscribe [email protected]
(but an empty body should be ok.)
---
# (setq sentence-end-double-space t)
# (setq sentence-end-double-space nil)
#####
#
# Downloading Contents-i386
# 2000sep15
#
#####
# (find-fline "$SDEBIAN/ls-lR.i" "Contents-i386.gz")
# (find-fline "$SDEBIAN/dists/potato/")
psne $FDEBIAN/dists/potato/Contents-i386.gz
cd $SDEBIAN/dists/potato/
mv -v Contents-i386.gz.1 Contents-i386.gz
zcat Contents-i386.gz > Contents-i386
#####
#
# Sending a debian bug report (old!!!)
#
#####
# (find-node "(sh-utils)su invocation" "`-'")
# (find-node "(bash)The Set Builtin" "errexit")
# (find-node "(bash)The Set Builtin" "verbose")
# (find-node "(bash)The Set Builtin" "xtrace")
# (find-node "(bash)Builtin Index")
# (find-fline "/usr/bin/bug")
# (find-fline "/usr/bin/bug" "Package name goes first")
# (find-fline "/usr/bin/bug" 378)
# (find-vldifile "bug.list")
# (find-fline "/usr/doc/debian/")
# (find-fline "/usr/doc/debian/bug-reporting.txt")
lynx /usr/doc/debian/FAQ/debian-faq.html
bug -d libglib1.1.12-dev "(BoDy LiNe)" <<'---'
(ReSt Of SuBjEcT)
---
bug -d libglib1.1.12-dev \
"/usr/bin/glib-config isn't being packed, but gtk+ needs it." \
<<'---'
/usr/bin/glib-config isn't being packed
---
# Tire o "-d" pra mandar de verdade.
bug -p \
-s 'TAGS file point to files on debian/tmp/usr/share/gforth/0.4.0/' \
gforth
bug -p \
-s 'savesystem uses "#! /usr/bin/gforth-0.4.0" but ...-0.4.0 does not exist' \
gforth
# Local Variables:
# coding: utf-8-unix
# End: