add directory mail-archive
This commit is contained in:
19
mail-archive/linux-activists/get_header.txt
Normal file
19
mail-archive/linux-activists/get_header.txt
Normal file
@@ -0,0 +1,19 @@
|
||||
#!/usr/athena/bin/perl
|
||||
#
|
||||
# This is something which strips out the table of contents from a digest.
|
||||
#
|
||||
|
||||
while (<>) {
|
||||
if (/^Linux-Activists Digest/) {
|
||||
print;
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
while (<>) {
|
||||
if (/^-------------------------------------------------------/) {
|
||||
print;
|
||||
last;
|
||||
}
|
||||
print;
|
||||
}
|
||||
Reference in New Issue
Block a user