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 edrx@inx.com.br' | sendemail \
  debian-user-request@lists.debian.org
echo '' | sendemail -s 'CONFIRM s082917120225796' \
  debian-user-request@lists.debian.org

# «unsubscribe»  (to ".unsubscribe")
echo '' | sendemail -s 'unsubscribe' \
  debian-user-request@lists.debian.org
echo '' | sendemail -s 'CONFIRM u083010551319140' \
  debian-user-request@lists.debian.org



# Older notes:
# All postings must be done as edrx.

mail debian-boot-request@lists.debian.org <<'---'
subscribe edrx@inx.com.br
---

# Then I run fetchmail, run mail,
# read the answer, then run something like this:

mail -s 'CONFIRM s01091124183584' debian-boot-request@lists.debian.org <<'---'
subscribe edrx@inx.com.br
(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: