mailinglistes
This commit is contained in:
Olivier Sirol
parent
c79419aa77
commit
df360df1ad
|
|
@ -0,0 +1,26 @@
|
|||
This archive server knows the following commands:
|
||||
|
||||
get filename ...
|
||||
ls directory ...
|
||||
egrep case_insensitive_regular_expression filename ...
|
||||
maxfiles nnn
|
||||
version
|
||||
quit
|
||||
|
||||
Aliases for 'get': send, sendme, getme, gimme, retrieve, mail
|
||||
Aliases for 'ls': dir, directory, list, show
|
||||
Aliases for 'egrep': search, grep, fgrep, find
|
||||
Aliases for 'quit': exit
|
||||
|
||||
Lines starting with a '#' are ignored.
|
||||
Multiple commands per mail are allowed.
|
||||
Setting maxfiles to zero will remove the limit (to protect you against
|
||||
yourself no more than maxfiles files will be returned per request).
|
||||
Egrep supports most common flags.
|
||||
If you append a non-standard signature, you should use the quit command
|
||||
to prevent the archive server from interpreting the signature.
|
||||
|
||||
Examples:
|
||||
ls latest
|
||||
get latest/12
|
||||
egrep some.word latest/*
|
||||
|
|
@ -0,0 +1,57 @@
|
|||
General info
|
||||
------------
|
||||
Subcription/unsubscription/info requests should always be sent to the -request
|
||||
address of a mailinglist.
|
||||
If a mailinglist for example is called "thelist@some.domain", then the -request
|
||||
address can be inferred from this to be: "thelist-request@some.domain".
|
||||
|
||||
To subscribe to a mailinglist, simply send a message with the word "subscribe"
|
||||
in the Subject: field to the -request address of that list.
|
||||
|
||||
As in: To: thelist-request@some.domain
|
||||
Subject: subscribe
|
||||
|
||||
To unsubscribe from a mailinglist, simply send a message with the word (you
|
||||
guessed it :-) "unsubscribe" in the Subject: field to the -request address of
|
||||
that list.
|
||||
|
||||
As in: To: thelist-request@some.domain
|
||||
Subject: unsubscribe
|
||||
|
||||
In the event of an address change, it would probably be the wisest to first
|
||||
send an unsubscribe for the old address (this can be done from the new
|
||||
address), and then a new subscribe for the new address (the order is
|
||||
important).
|
||||
|
||||
Most (un)subscription requests are processed automatically without human
|
||||
intervention.
|
||||
|
||||
Do not send multiple (un)subscription or info requests in one mail. Only one
|
||||
will be processed per mail.
|
||||
|
||||
NOTE: The -request server usually does quite a good job in discriminating
|
||||
between (un)subscribe requests and messages intended for the maintainer.
|
||||
If you'd like to make sure a human reads your message, make it look
|
||||
like a reply (i.e. the first word in the Subject: field should be "Re:",
|
||||
without the quotes of course); the -request server does not react to
|
||||
replies.
|
||||
|
||||
|
||||
The archive server
|
||||
------------------
|
||||
Every submission sent to this list is archived. The size of the archive
|
||||
depends on the limits set by the list maintainer (it is very well possible
|
||||
that only, say, the last two mails sent to the list are still archived, the
|
||||
rest might have expired).
|
||||
|
||||
You can look at the header of every mail coming from this list to see
|
||||
under what name it has been archived. The X-Mailing-List: field contains
|
||||
the mailaddress of the list and the file in which this submission was
|
||||
archived.
|
||||
|
||||
If you want to access this archive, you have to send mails to the -request
|
||||
address with the word "archive" as the first word of your Subject:.
|
||||
To get you started try sending a mail to the -request address with
|
||||
the following:
|
||||
Subject: archive help
|
||||
--
|
||||
|
|
@ -0,0 +1,119 @@
|
|||
#
|
||||
# Assign the fully qualified mail address of the maintainer of this list
|
||||
# to "maintainer". If empty, request-mail will not be mailed to any
|
||||
# maintainer and will be stored in the "request" file for this list.
|
||||
#
|
||||
|
||||
maintainer = Olivier.Sirol@lip6.fr
|
||||
|
||||
#LOGABSTRACT=yes # uncomment in case of emergency
|
||||
#VERBOSE=yes # uncomment in case of real emergency
|
||||
|
||||
size_limit = 1524288 # sanity cutoff value for submissions
|
||||
|
||||
idcache_size = 8192 # duplicate-msgid cache size in bytes
|
||||
|
||||
archive_hist = 20 # number of messages left archived
|
||||
#archive_log = $LOGFILE # log file for archive retrievals
|
||||
#subscribe_log = $LOGFILE # log file for administrivia
|
||||
|
||||
maxhist = 32 # bounce history limit
|
||||
minbounce = 4 # no. of bounces before removal
|
||||
cutoff_bounce = 256 # lines to keep in bounce processing
|
||||
|
||||
#match_threshold= 30730 # for close matches to the list
|
||||
#medium_threshold= 28672 # for not so close matches to the list
|
||||
#loose_threshold= 24476 # for loosely finding your name
|
||||
|
||||
#auto_off_threshold= $medium_threshold # for auto-unsubscribing bouncers
|
||||
#off_threshold = $loose_threshold # for unsubscribing
|
||||
#reject_threshold= $match_threshold # for rejecting subscriptions
|
||||
#submit_threshold= $medium_threshold # for permitting submissions
|
||||
|
||||
#unsub_assist
|
||||
##unsub_assist = 8 # uncomment (and change perhaps) this
|
||||
# line to enable unsubscription
|
||||
# assistance; it specifies the no. of
|
||||
# multigram matches an unsuccessful
|
||||
# unsubscriber will receive back
|
||||
#foreign_submit = yes
|
||||
##foreign_submit # uncomment this line if you
|
||||
# want to restrict submitting to
|
||||
# people on the accept list
|
||||
#restrict_archive
|
||||
##restrict_archive= yes # uncomment this line if you
|
||||
# want to restrict archive retrievals
|
||||
# to people on the accept list
|
||||
#force_subscribe
|
||||
##force_subscribe= yes # uncomment to cause people to
|
||||
# be autosubscribed upon first
|
||||
# submission to the list
|
||||
#auto_unsubscribe= yes
|
||||
##auto_unsubscribe # uncomment to disable unattended
|
||||
# unsubscription handling
|
||||
#auto_subscribe = yes
|
||||
##auto_subscribe # uncomment to disable unattended
|
||||
# subscription handling
|
||||
#auto_help
|
||||
##auto_help = yes # uncomment to enable default help
|
||||
# responses to all undecipherable
|
||||
# requests
|
||||
#moderated_flag
|
||||
##moderated_flag= yes # uncomment this to make the list
|
||||
# moderated (you must create a
|
||||
# `moderators' file for this to work)
|
||||
# set moderator_PASSWORD to get
|
||||
# stricter checking
|
||||
#cc_requests
|
||||
##cc_requests = yes # uncomment if you want subscribe
|
||||
# and help requests to be Cc'd to
|
||||
# the maintainer
|
||||
#cc_unsubrequests
|
||||
##cc_unsubrequests= yes # uncomment if you want unsubscribe
|
||||
# requests to be Cc'd to the maintainer
|
||||
#divertcheck = yes
|
||||
##divertcheck # uncomment to disable the check for
|
||||
# misfiled administrative requests
|
||||
#pass_diverts
|
||||
##pass_diverts = yes # uncomment to pass on administrative
|
||||
# requests diverted from the normal
|
||||
# list to the maintainer unprocessed
|
||||
# (instead of trying to handle them)
|
||||
#reply_to
|
||||
##reply_to = "Resent-Reply-To: $listaddr" # uncomment (and perhaps change
|
||||
# it to "Reply-To") to force replies
|
||||
# to go to the list (discouraged)
|
||||
# why discouraged? see:
|
||||
# http://garcon.unicom.com/FAQ/reply-to-harmful.html
|
||||
#digest_flag
|
||||
##digest_flag = yes # uncomment this if you want digests
|
||||
#digest_age = 262144 # maximum age of a digest in seconds
|
||||
#digest_size = 32768 # maximum size of a digest in bytes
|
||||
#undigested_list = $list@$domain # Reply-To: address for digests
|
||||
|
||||
#moderator_PASSWORD = # put the optional password for
|
||||
# moderators here, this definition
|
||||
# can contain regular expression magic
|
||||
# characters (to support multiple
|
||||
# passwords)
|
||||
|
||||
#X_COMMAND = X-Command
|
||||
#X_COMMAND_PASSWORD = alcpass # put the literal password for
|
||||
# X-Command mails here
|
||||
|
||||
#daemon_bias='100^0 ^From:.*daemon@ok' # You could set "daemon_bias" to
|
||||
# positively discriminate some
|
||||
# mail address not to be from a daemon. Either with a regexp as demonstrated
|
||||
# or with more complicated recipes that simply set it to '100^0' or nothing.
|
||||
|
||||
#RC_LOCAL_SUBMIT_00 = rc.local.s00 # Uncomment (and change) these to
|
||||
#RC_LOCAL_SUBMIT_10 = rc.local.s10 # call up customised local scripts
|
||||
#RC_LOCAL_SUBMIT_20 = rc.local.s20 # at predefined points.
|
||||
#RC_LOCAL_REQUEST_00 = rc.local.r00
|
||||
#RC_LOCAL_REQUEST_10 = rc.local.r10
|
||||
#RC_LOCAL_REQUEST_20 = rc.local.r20
|
||||
#RC_LOCAL_REQUEST_30 = rc.local.r30
|
||||
|
||||
RC_CUSTOM # clear this one from the environment
|
||||
# so that we include this file only
|
||||
# once
|
||||
|
|
@ -0,0 +1,255 @@
|
|||
#
|
||||
# IMPORTANT variables to check/change: PATH domain listmaster
|
||||
#
|
||||
|
||||
# BEFORE editing this file or any rc.* file in the .etc directory
|
||||
# you should create the .etc/rc.lock file. As long as this file
|
||||
# exists, mail delivery to any list will stall (flist checks this file).
|
||||
#
|
||||
# Delivery can be temporarily stalled on a per list basis by creating
|
||||
# the file rc.lock in the respective list's subdirectory.
|
||||
|
||||
# ENVIRONMENT:
|
||||
# list contains the submitting address of the list (sans domain)
|
||||
# domain should contain the domain for the list, so that $list@$domain
|
||||
# can be used to submit to the list
|
||||
# maintainer should contain the fully qualified address of the maintainer
|
||||
# of $list; maintainter can be left empty
|
||||
# listmaster should contain the fully qualified address of the supervising
|
||||
# list maintainer; listmaster can be left empty
|
||||
# X_ENVELOPE_TO contains the address that the incoming mail was addressed to
|
||||
|
||||
# FILES:
|
||||
# log optional logfile (uncomment the LOGFILE assignment to enable
|
||||
# it)
|
||||
# dist the subscriber list, one address per line
|
||||
# accept the list of people allowed to submit messages (usually a
|
||||
# link to dist, only checked if $foreign_submit != yes)
|
||||
# accept2 an optional second accept file
|
||||
# reject list of people you definitely do not want to subscribe
|
||||
# subscreen program (e.g. shell script) to screen prospective subscribers
|
||||
# (see in the examples directory for a sample script)
|
||||
# request all the messages to request that could not be handled
|
||||
# automatically (only if maintainer is empty)
|
||||
# help.txt file sent to help & info requests
|
||||
# info.txt optional file sent to help & info requests as well,
|
||||
# it should contain a concise description of what the
|
||||
# list is all about
|
||||
# the various info.txt files are optionally gathered in
|
||||
# order to advertise the availability of the mailinglists
|
||||
# subscribe.txt file sent to new subscribers
|
||||
# subscribe.files file containing an arbitrary number of archive server
|
||||
# commands to be executed on behalf of new subscribers
|
||||
# unsubscribe.txt file sent to unsubscribers
|
||||
# accept.txt file sent to people not on the accept list
|
||||
# archive.txt file sent to people requesting help from the archive server
|
||||
# archive (link to a) directory below which files can be accessed through
|
||||
# the archive server
|
||||
# bounces directory containing the bounce history files
|
||||
# rc.submit rcfile used when distributing submissions
|
||||
# rc.request rcfile used when processing requests
|
||||
# rc.custom rcfile that contains all the customisations per list
|
||||
# rc.local.* optional rcfiles for any local extensions (to be used in
|
||||
# conjunction with the RC_LOCAL_* variables which can be set
|
||||
# in rc.init or rc.custom files)
|
||||
|
||||
#$Id: rc.init,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
|
||||
DELIVERED=yes # we're in control of the mail now, tell sendmail to go away
|
||||
|
||||
PATH=.:$PATH:../.bin:/bin:/usr/bin:/usr/local/bin # setup a decent path
|
||||
SHELL=/bin/sh # to prevent surprises
|
||||
|
||||
defaults=.etc
|
||||
|
||||
LOCKTIMEOUT=3660 # set these values this high (1 hour)
|
||||
TIMEOUT=3600 # to give sendmail the time to
|
||||
# resolve big aliases
|
||||
|
||||
###############################################################################
|
||||
# You have to setup the following two assignments, make sure that the address
|
||||
# mentioned in listmaster is *not* the address this script runs under; if
|
||||
# you would end up doing that, then assign listmaster to ""
|
||||
# The same applies to the maintainer addresses used for every list, if you
|
||||
# would like to alias them back to this script or to the respective -request
|
||||
# addresses, then assign maintainer to "" instead.
|
||||
#
|
||||
# The mail-domain you have to insert below, must be the fully qualified
|
||||
# mail-domain for this list; e.g. if the preferred mail address for this
|
||||
# account would be: list@somemachine.somewhere.universe
|
||||
# Then you should assign the following:
|
||||
# domain=somemachine.somewhere.universe
|
||||
###############################################################################
|
||||
|
||||
domain=asim.lip6.fr # the common domain for all the lists
|
||||
listmaster=Olivier.Sirol@lip6.fr
|
||||
|
||||
#UMASK=077 # group can not touch the files
|
||||
#UMASK=027 # group can read
|
||||
UMASK=007 # group can write as well
|
||||
|
||||
defaults=.etc # the name of the defaults directory
|
||||
LOGFILE=log
|
||||
LOGABSTRACT=no
|
||||
|
||||
#LOGABSTRACT=yes # uncomment in case of emergency
|
||||
#VERBOSE=yes # uncomment in case of real emergency
|
||||
#LOGFILE=../$defaults/log # uncomment if you want centralised
|
||||
# logging
|
||||
|
||||
RC_INIT # clear this one from the environment
|
||||
# so that we include this file only
|
||||
# once
|
||||
|
||||
listaddr=$list@$domain
|
||||
listreq=$list-request@$domain
|
||||
listdist=$list-dist@$domain
|
||||
|
||||
# the following constants determine the
|
||||
# behaviour of choplist, the dist-file
|
||||
# expander (zero means: no limit) which
|
||||
# calls sendmail
|
||||
minnames = 32 # minimum number of names per call
|
||||
mindiffnames = 8 # minimum for maxnames-minnames
|
||||
maxnames = 64 # maximum number of names per call
|
||||
maxsplits = 0 # maximum number of parts to split dist in
|
||||
maxsize = 200000 # maximal disk space to be taken up per mail
|
||||
maxconcur = 4 # maximum number of concurrent sendmail calls
|
||||
|
||||
alt_sendmail="\
|
||||
choplist $minnames $mindiffnames $maxnames $maxsplits $maxsize $maxconcur dist"
|
||||
minnames mindiffnames maxnames maxsplits maxsize maxconcur
|
||||
#alt_sendmail # uncomment if you'd prefer sendmail
|
||||
# to handle the $listdist expansion
|
||||
|
||||
sendmailOPT="-oem -odb -oi -om -f$listreq"
|
||||
sendmailOPTp=-oep
|
||||
sendmailOPTq=-odq
|
||||
sendmailOPTi=-odi
|
||||
sendmailQflush="$SENDMAIL -q"
|
||||
#sendmailQflush # uncomment if you don't want the
|
||||
# queue to be flushed after all archive
|
||||
# retrieval files have been queued
|
||||
########################
|
||||
# sendmail options used:
|
||||
#
|
||||
# -t scan the header of the mail for recipients
|
||||
# -f specify the sender envelope address (requires T entry in sendmail.cf)
|
||||
# -oi do not regard a single dot on an otherwise empty line as EOF
|
||||
# -om include myself in any alias expansions
|
||||
# -odb background deliverymode command returns immediately
|
||||
# -odq queued deliverymode (put messages in the queue only)
|
||||
# -odi interactive deliverymode command, wait until most delivered
|
||||
# -q flush the queue
|
||||
# -oem mail back error messages
|
||||
# -oep print error messages
|
||||
# -onF do not check aliases while expanding them (use it, if available)
|
||||
########################
|
||||
#
|
||||
# If you only have /bin/mail and not some sendmail compatible mailer that
|
||||
# understands the -t option of sendmail, then you have to uncomment the
|
||||
# following two lines:
|
||||
#
|
||||
#sendmailOPT sendmailOPTp sendmailOPTq sendmailOPTi sendmailQflush
|
||||
#SENDMAIL=../.bin/sendmails
|
||||
#
|
||||
########################
|
||||
|
||||
size_limit = 524288 # sanity cutoff value for submissions
|
||||
|
||||
idcache_size = 8192 # duplicate-msgid cache size in bytes
|
||||
|
||||
archive_hist = 2 # number of messages left archived
|
||||
archive_log = $LOGFILE # log file for archive retrievals
|
||||
subscribe_log = $LOGFILE # log file for administrivia
|
||||
|
||||
maxhist = 32 # bounce history limit
|
||||
minbounce = 4 # no. of bounces before removal
|
||||
cutoff_bounce = 256 # lines to keep in bounce processing
|
||||
|
||||
match_threshold = 30730 # for close matches to the list
|
||||
medium_threshold= 28672 # for not so close matches to the list
|
||||
loose_threshold = 24476 # for loosely finding your name
|
||||
|
||||
auto_off_threshold= $medium_threshold # for auto-unsubscribing bouncers
|
||||
off_threshold = $loose_threshold # for unsubscribing
|
||||
reject_threshold= $match_threshold # for rejecting subscriptions
|
||||
submit_threshold= $medium_threshold # for permitting submissions
|
||||
|
||||
unsub_assist
|
||||
#unsub_assist = 8 # uncomment (and change perhaps) this
|
||||
# line to enable unsubscription
|
||||
# assistance; it specifies the no. of
|
||||
# multigram matches an unsuccessful
|
||||
# unsubscriber will receive back
|
||||
foreign_submit = yes
|
||||
#foreign_submit # uncomment this line if you
|
||||
# want to restrict submitting to
|
||||
# people on the accept list
|
||||
restrict_archive
|
||||
#restrict_archive= yes # uncomment this line if you
|
||||
# want to restrict archive retrievals
|
||||
# to people on the accept list
|
||||
force_subscribe
|
||||
#force_subscribe= yes # uncomment to cause people to
|
||||
# be autosubscribed upon first
|
||||
# submission to the list
|
||||
auto_unsubscribe= yes
|
||||
#auto_unsubscribe # uncomment to disable unattended
|
||||
# unsubscription handling
|
||||
auto_subscribe = yes
|
||||
#auto_subscribe # uncomment to disable unattended
|
||||
# subscription handling
|
||||
auto_help
|
||||
#auto_help = yes # uncomment to enable default help
|
||||
# responses to all undecipherable
|
||||
# requests
|
||||
moderated_flag
|
||||
#moderated_flag = yes # uncomment this to make the list
|
||||
# moderated (you must create a
|
||||
# `moderators' file for this to work)
|
||||
cc_requests
|
||||
#cc_requests = yes # uncomment if you want subscribe
|
||||
# and help requests to be Cc'd to
|
||||
# the maintainer
|
||||
cc_unsubrequests
|
||||
#cc_unsubrequests= yes # uncomment if you want unsubscribe
|
||||
# requests to be Cc'd to the maintainer
|
||||
divertcheck = yes
|
||||
#divertcheck # uncomment to disable the check for
|
||||
# misfiled administrative requests
|
||||
pass_diverts
|
||||
#pass_diverts = yes # uncomment to pass on administrative
|
||||
# requests diverted from the normal
|
||||
# list to the maintainer unprocessed
|
||||
# (instead of trying to handle them)
|
||||
reply_to
|
||||
#reply_to = "Resent-Reply-To: $listaddr" # uncomment (and perhaps change
|
||||
# it to "Reply-To") to force replies
|
||||
# to go to the list (discouraged)
|
||||
digest_flag
|
||||
#digest_flag = yes # uncomment this if you want digests
|
||||
digest_age = 262144 # maximum age of a digest in seconds
|
||||
digest_size = 32768 # maximum size of a digest in bytes
|
||||
|
||||
|
||||
X_COMMAND = X-Command
|
||||
X_COMMAND_PASSWORD = password # put the global password for
|
||||
# X-Command mails here
|
||||
# this password can of course be changed/
|
||||
# customised in the per list rc.custom file
|
||||
|
||||
#daemon_bias='100^0 ^From:.*daemon@ok' # You could set "daemon_bias" to
|
||||
# positively discriminate some
|
||||
# mail address not to be from a daemon. Either with a regexp as demonstrated
|
||||
# or with more complicated recipes that simply set it to '100^0' or nothing.
|
||||
|
||||
#RC_LOCAL_SUBMIT_00 = rc.local.s00 # Uncomment (and change) these to
|
||||
#RC_LOCAL_SUBMIT_10 = rc.local.s10 # call up customised local scripts
|
||||
#RC_LOCAL_SUBMIT_20 = rc.local.s20 # at predefined points.
|
||||
#RC_LOCAL_REQUEST_00 = rc.local.r00
|
||||
#RC_LOCAL_REQUEST_10 = rc.local.r10
|
||||
#RC_LOCAL_REQUEST_20 = rc.local.r20
|
||||
#RC_LOCAL_REQUEST_30 = rc.local.r30
|
||||
|
||||
RC_CUSTOM=rc.custom
|
||||
|
|
@ -0,0 +1,348 @@
|
|||
# BEFORE editing this file, you should make sure that it is not linked to
|
||||
# the master version (../.etc/rc.request) anymore (i.e. "delink rc.request"
|
||||
# if you do not want your changes to affect all lists).
|
||||
#
|
||||
# New mails can be temporarily stalled by creating the file rc.lock (either in
|
||||
# ../.etc for all lists or in the current directory for this list only).
|
||||
|
||||
#$Id: rc.request,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
|
||||
INCLUDERC=$RC_INIT
|
||||
INCLUDERC=$RC_CUSTOM
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_00
|
||||
|
||||
LOCKFILE=tmp.lock # for reusing tmp.(request|from)
|
||||
# also makes sure that the load doesn't go sky-high
|
||||
# when a lot of mail arrives concurrently
|
||||
|
||||
:0 Bfw # concatenate header and body
|
||||
* $^^$X_COMMAND:
|
||||
| sed -e '1,/^$/{' -e '/^$/d' -e '}'
|
||||
|
||||
#
|
||||
# We now check:
|
||||
# If the length is roughly within bounds.
|
||||
# That it is not a reply or something.
|
||||
# That we didn't send it ourselves.
|
||||
# That it wasn't sent by a daemon of some kind.
|
||||
#
|
||||
# If everything matches, we extract the sender address into tmp.from
|
||||
#
|
||||
|
||||
:0
|
||||
* B ?? < 4096
|
||||
* $$daemon_bias
|
||||
* $!^(X-(Loop: $\listaddr|Diagnostic:)|$X_COMMAND:)
|
||||
* -100^0 ^FROM_DAEMON
|
||||
* 1^0
|
||||
{
|
||||
|
||||
:0
|
||||
* -100^0 ^Subject:(.*[^a-z])?(Re:|erro|change|problem|((can)?not|.*n't)\>)
|
||||
* 100^0 B ?? ^^([ ]|$)*\
|
||||
((archives?:?($|[ ]+)|\
|
||||
((un)subscribe|(send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
|
||||
list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
|
||||
([ ].*)?$)([ ]|$)*)+\
|
||||
([^ a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^
|
||||
* 100^0 ^Subject:[ ]*archive
|
||||
* 1^0
|
||||
{
|
||||
:0 whc
|
||||
| formail -rtzc -xTo: >tmp.from
|
||||
|
||||
#
|
||||
# Store the whole mail in tmp.request, for later reference.
|
||||
#
|
||||
|
||||
:0 wc
|
||||
| formail -IIn-Reply-To: -ICc: >tmp.request
|
||||
|
||||
#
|
||||
# Check for a missing Subject: line.
|
||||
#
|
||||
|
||||
:0 wfh
|
||||
* !^Subject:
|
||||
| formail -a "Subject: "
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_10
|
||||
|
||||
###############################################################################
|
||||
# Reader beware, the following four regular expressions are not for the faint #
|
||||
# of heart. It'll suffice to say that they accomplish their intended job 98% #
|
||||
# of the time. #
|
||||
###############################################################################
|
||||
|
||||
#
|
||||
# Is it an archive retrieval command?
|
||||
#
|
||||
|
||||
:0 HB w
|
||||
* 9876543210^0 ^^(.+$)*Subject:[ ]*(([(<]no(ne| subject\
|
||||
( (\(file transmission|given))?)[>)])?\
|
||||
$(.+$)*(^[ ]*)+)?(archives?:?([ ]|$)|\
|
||||
((send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|list|show|\
|
||||
search|[fe]?grep|find|maxfiles|version)([ ]+[^ ]*)?$)
|
||||
* 1^0 B ?? ^^([ ]|$)*\
|
||||
((archives?:?($|[ ]+)|\
|
||||
((send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
|
||||
list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
|
||||
([ ].*)?$)([ ]|$)*)+\
|
||||
([^ a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^
|
||||
{
|
||||
:0 W
|
||||
* 9876543210^0 !restrict_archive ?? y
|
||||
* 2^0 ? formail -rt -R To: "From " -X "From " | \
|
||||
multigram -b1 -m -l$submit_threshold -L$domain \
|
||||
-x$listaddr -x$listreq accept accept2
|
||||
| arch_retrieve
|
||||
|
||||
:0 E fhw
|
||||
| formail -A "X-Diagnostic: Not on the accept list"
|
||||
}
|
||||
|
||||
#
|
||||
# Is it an unsubscription request?
|
||||
#
|
||||
|
||||
:0 EHB
|
||||
* 9876543210^0 ^^(.+$)*Subject:[ ]*([(<]no(ne| subject\
|
||||
( (\(file transmission|given))?)[>)])?(\
|
||||
($(.+$)*(^[ ]*)+((.+|$)+[,.:;]([ ]+|$)+)?)?\
|
||||
(Could you )?(please )?\
|
||||
(sign( [^ ]+ |-)?off|cancel|leave|delete|remove|(un|de)-?sub)\>|\
|
||||
($(.+$)*$(.*$)*)?(.*[^a-z])?\
|
||||
((un-?|(un|de)-?sub?)s(cr|c|r)i|\
|
||||
(leave|(delete|remove) .* from|(sign|take|get) .* off) .* [a-z-]*list\>))
|
||||
* 1^0 B ?? ^^([ ]|$)*unsub(scribe)?([ ].*)?([ ]|$)*\
|
||||
[^ a-z]?^^
|
||||
{
|
||||
:0 fw:dist.lock
|
||||
* auto_unsubscribe ?? y
|
||||
| unsubscribe
|
||||
|
||||
:0 Aw ${cc_unsubrequests:+c}
|
||||
| $SENDMAIL $sendmailOPT `cat tmp.from` ;
|
||||
|
||||
:0 Afhw
|
||||
| formail -A "X-Diagnostic: Processed"
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# Is it a subscription request?
|
||||
#
|
||||
|
||||
:0 EHB
|
||||
* 9876543210^0 ^^(.+$)*Subject:[ ]*([(<]no(ne| subject\
|
||||
( (\(file transmission|given))?)[>)])?(\
|
||||
($(.+$)*(^[ ]*)+((.+|$)+[,.:;]([ ]+|$)+)?)?\
|
||||
(Could you )?(please )?\
|
||||
(sign( [^ ]+ |-)?on|add|join|sub)\>|\
|
||||
($(.+$)*$(.*$)*)?(.*[^a-z])?\
|
||||
(sub?s(cr|c|r)i.*|(join|add .* to|(sign|put) .* on) .* [a-z-]*list\>))
|
||||
* 1^0 B ?? ^^([ ]|$)*sub(scribe)?([ ].*)?([ ]|$)*\
|
||||
[^ a-z]?^^
|
||||
{
|
||||
#
|
||||
# Yes, well, then check if the person subscribing isn't on the reject
|
||||
# list.
|
||||
#
|
||||
|
||||
:0 HB wfh
|
||||
* ? multigram -b1 -l$reject_threshold reject
|
||||
| formail -A "X-Diagnostic: Found on the reject list" \
|
||||
-A "X-Diagnostic: `multigram -b1 -l$reject_threshold reject`"
|
||||
|
||||
#
|
||||
# If not, then let's see if he might already be on the
|
||||
# mailinglist.
|
||||
#
|
||||
|
||||
:0 E HB wfh
|
||||
* ? formail -IReceived: -IX-Envelope-To: -IIn-Reply-To: -ICc: | \
|
||||
multigram -b1 -x$listreq -x$listaddr -l$reject_threshold dist
|
||||
| formail -A "X-Diagnostic: Already on the subscriber list" \
|
||||
-A "X-Diagnostic: `multigram -b1 -x$listreq -x$listaddr \
|
||||
-l$reject_threshold dist`"
|
||||
|
||||
#
|
||||
# If not, add him(/her/it?).
|
||||
#
|
||||
|
||||
:0 E
|
||||
* auto_subscribe ?? y
|
||||
{
|
||||
:0 W ${cc_requests:+c}:dist.lock
|
||||
| subscribe
|
||||
|
||||
:0 awfh
|
||||
| formail -A "X-Diagnostic: Added to the subscriber list"
|
||||
|
||||
:0 Ewfh
|
||||
| formail -A "X-Diagnostic: Tried to subscribe"
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# Is it an info or help request? Send back the help.txt and the
|
||||
# optional info.txt file.
|
||||
# We do the same on a complete empty mail (except for perhaps a signature).
|
||||
#
|
||||
|
||||
:0 EHB
|
||||
* 3^0 ^^(.+$)*Subject:[ ]*\
|
||||
(([(<]no(ne| subject( (\(file transmission|given))?)[>)])?$\
|
||||
(.+$)*(^[ ]*)+)?[a-z,. ]*(help|info(rmation)?)\>
|
||||
* 1^0 ^^(.+$)*Subject:[ ]*\
|
||||
([(<]no(ne| subject( (\(file transmission|given))?)[>)])?$
|
||||
* -2^0 ^^(.+$)*(^[ ]*)+[a-z]
|
||||
* 3^0 ^^(.+$)*^([ ]*$)*--
|
||||
{
|
||||
:0 hw ${cc_requests:+c}
|
||||
| (formail -i"From: $listreq" -rtA"X-Loop: $listaddr"; \
|
||||
cat help.txt info.txt 2>/dev/null ) | $SENDMAIL $sendmailOPT -t
|
||||
|
||||
:0 wfh
|
||||
| formail -A "X-Diagnostic: help sent"
|
||||
}
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_20
|
||||
|
||||
LOGABSTRACT=yes
|
||||
|
||||
#
|
||||
# If auto_help is set, anything undecipherable gets back the help.txt and the
|
||||
# optional info.txt file.
|
||||
#
|
||||
|
||||
:0 EB
|
||||
* auto_help ?? y
|
||||
* $!X-Loop: $\listaddr
|
||||
{
|
||||
:0 hw ${cc_requests:+c}
|
||||
| (formail -i"From: $listreq" -rtA"X-Loop: $listaddr"; \
|
||||
cat help.txt info.txt 2>/dev/null ) | $SENDMAIL $sendmailOPT -t
|
||||
|
||||
:0 wfh
|
||||
| formail -A "X-Diagnostic: undecipherable, help sent"
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
LOGABSTRACT=yes
|
||||
|
||||
#
|
||||
# Could it be a bounce message from a daemon? Hand it down to procbounce
|
||||
# which will evaluate it.
|
||||
#
|
||||
|
||||
:0 wic
|
||||
* $!^(Subject:(.*[^a-z])?Re:|\
|
||||
X-(Loop: $\listaddr|Diagnostic:)|$X_COMMAND:)
|
||||
* ^FROM_DAEMON
|
||||
| sed -e $cutoff_bounce' q' >tmp.request
|
||||
|
||||
#
|
||||
# Sink all messages we can recognise to be queue warnings
|
||||
#
|
||||
|
||||
:0 Ah
|
||||
* ^Subject: \
|
||||
(WARNING: message delayed|\
|
||||
(Returned mail: )?warning: c(an|ould )not send m(essage fo|ail afte)r|\
|
||||
Undeliverable (RFC822 )?mail: temporarily unable to deliver|\
|
||||
\*\*\* WARNING - Undelivered mail in mailqueue)
|
||||
/dev/null
|
||||
|
||||
:0 Ah
|
||||
* ^Subject: (Warning from|mail warning| ?Waiting mail)
|
||||
* ^(From|Sender):.*(uucp|mmdf)
|
||||
/dev/null
|
||||
|
||||
:0 AhBD
|
||||
* $^(..?)?X-Loop: $\listaddr \(bounce\)
|
||||
* ^(..?)?Subject: You have been removed from
|
||||
/dev/null
|
||||
|
||||
#
|
||||
# Anything that still survived is most likely to be a bounce message.
|
||||
#
|
||||
|
||||
:0 Ahfw
|
||||
| procbounce
|
||||
|
||||
#
|
||||
# Or is it a remote X-Command from our maintainer?
|
||||
#
|
||||
|
||||
:0 wf:dist.lock
|
||||
* $^$X_COMMAND:.*$\maintainer[ ]*$\X_COMMAND_PASSWORD
|
||||
* $!^X-Loop: $\listaddr
|
||||
| x_command
|
||||
|
||||
LOCKFILE # we don't need the lockfile anymore
|
||||
|
||||
#
|
||||
# Anything not taken care of yet will be served to the maintainer of the list.
|
||||
#
|
||||
# To make it easier on him, we include a small hint about what might be the
|
||||
# problem (by adding X-Diagnostic: fields to the header).
|
||||
#
|
||||
|
||||
:0 wfh
|
||||
* !< $size_limit
|
||||
| formail -A "X-Diagnostic: Submission size exceeds $size_limit bytes"
|
||||
|
||||
:0 wfh
|
||||
* ^FROM_DAEMON
|
||||
| formail -A "X-Diagnostic: Mail coming from a daemon, ignored"
|
||||
|
||||
:0 HB wfh
|
||||
* $^X-Loop: $\listaddr
|
||||
| formail -A "X-Diagnostic: Possible loopback problem"
|
||||
|
||||
:0
|
||||
* !^X-(Diagnostic|Processed):
|
||||
{
|
||||
:0 wfh
|
||||
* $^$X_COMMAND:
|
||||
| formail -A "X-Diagnostic: Suspicious $X_COMMAND format"
|
||||
|
||||
:0 HB wfh
|
||||
* ? formail -IReceived: -IX-Envelope-To: -IIn-Reply-To: -ICc: | \
|
||||
multigram -b1 -x$listreq -x$listaddr -l$reject_threshold dist
|
||||
| formail -A "X-Diagnostic: Already on the subscriber list" \
|
||||
-A "X-Diagnostic: `multigram -b1 -x$listreq -x$listaddr \
|
||||
-l$reject_threshold dist`"
|
||||
}
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_30
|
||||
|
||||
:0 wfh
|
||||
* !^X-(Diagnostic|Processed):
|
||||
| formail -A"X-Diagnostic: Unprocessed"
|
||||
|
||||
:0 wfh
|
||||
| formail -A"X-Envelope-To: $X_ENVELOPE_TO"
|
||||
|
||||
#
|
||||
# If this list does not have a maintainer e-mail address, drop things in
|
||||
# the file request.
|
||||
#
|
||||
|
||||
:0:
|
||||
* !maintainer ?? .
|
||||
request
|
||||
|
||||
:0 w
|
||||
| formail -R"From X-From_:" -iDate: -iReturn-Receipt-To: -iRead-Receipt-To: \
|
||||
-iAcknowledge-To: | $SENDMAIL $sendmailOPT $sendmailOPTp $maintainer
|
||||
|
||||
:0 wfh
|
||||
| formail -A"X-Diagnostic: Maintainer $maintainer could not be reached"
|
||||
|
||||
HOST=continue_with_../.etc/rc.post
|
||||
|
|
@ -0,0 +1,303 @@
|
|||
# BEFORE editing this file, you should make sure that it is not linked to
|
||||
# the master version (../.etc/rc.submit) anymore (i.e. "delink rc.submit"
|
||||
# if you do not want your changes to affect all archive servers).
|
||||
#
|
||||
# New mails can be temporarily stalled by creating the file rc.lock (either in
|
||||
# ../.etc for all lists or in the current directory for this list only).
|
||||
|
||||
#$Id: rc.submit,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
|
||||
INCLUDERC=$RC_INIT
|
||||
INCLUDERC=$RC_CUSTOM
|
||||
|
||||
INCLUDERC=$RC_LOCAL_SUBMIT_00
|
||||
|
||||
#
|
||||
# The following recipe makes sure that:
|
||||
# The mail has a sane size (i.e. it is not inordinately big)
|
||||
# It does not look like an administrative request.
|
||||
# It wasn't sent by this list itself.
|
||||
# It wasn't sent by a daemon (misdirected bounce message perhaps).
|
||||
#
|
||||
|
||||
:0
|
||||
* < $size_limit
|
||||
* !$^($X_COMMAND:|X-Loop: $\listaddr)
|
||||
* ! B ?? $^^$X_COMMAND:
|
||||
* $$daemon_bias
|
||||
* -100^0 ^FROM_MAILER|\
|
||||
^(((Resent-)?(From|Sender)|X-Envelope-From):|>?From )\
|
||||
([^>]*[^(.%@a-z0-9])?(\
|
||||
LIST(SERV|proc)|NETSERV|bounce|autoanswer|echo|mirror\
|
||||
)(([^).!:a-z0-9][-_a-z0-9]*)?[%@> ][^<)]*(\(.*\).*)?)?$([^>]|$)
|
||||
* 1^0
|
||||
{
|
||||
|
||||
:0
|
||||
* B ?? >640
|
||||
* 9876543210^0
|
||||
{ }
|
||||
|
||||
#
|
||||
# Does it look like a regular submission?
|
||||
# Or perhaps more like an administrative request?
|
||||
# Look at the start of the body, and see if this could be an administrative
|
||||
# request, pass it on to rc.request in that case.
|
||||
#
|
||||
|
||||
:0
|
||||
* $$=^0
|
||||
* 9876543210^0 !divertcheck ?? y
|
||||
{ }
|
||||
|
||||
:0
|
||||
* $$=^0
|
||||
* !B ?? ^^(.*$(.*$(.*$(.*$(.*$(.*$(.*$(.*$)?)?)?)?)?)?)?)?[^]>} a-z0-9]
|
||||
* 9876543210^0 B ?? ^^.*$.*$.*$.*$.*$.*$.*$.*$.*$
|
||||
{ }
|
||||
|
||||
:0
|
||||
* $$=^0
|
||||
* $${maintainer:+9876543210^0 ^From[: ](.*\<)?$\maintainer\>}
|
||||
* 9876543210^0 ^(Subject:(.*\<)?(Re:|magazine)\>)|X-(Diagnostic|Mailing-List):
|
||||
* -25^0 ^\
|
||||
Subject:([ ]*(archives?:?([ ]+(\
|
||||
(send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
|
||||
list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
|
||||
([ ]|$)|[ ]*$)|\
|
||||
help|info|join|leave|\
|
||||
(Could you )?(please )?\
|
||||
(cancel(( my)? subscription)?|add|\
|
||||
sign( [^ ]+ |-)?o(n|ff)|(un|de)?-?sub)[ ]*$)|\
|
||||
.*( (join|leave|add .* to|(delete|remove) .* from|\
|
||||
(take|sign|get) .* off|(put|sign) .* on) .* [a-z-]*list|\
|
||||
(un-?|sub?)s(cr|c|r)i(be|ption))\>)
|
||||
* -50^0 ^Subject:[ ]*[(<]no(ne| subject\
|
||||
( (\(file transmission|given))?)[>)]$
|
||||
* 50^0 ^Subject:.*[a-z]
|
||||
* -100^0 B ?? ^^([ ]|$)*\
|
||||
((((archives?:?($|[ ]+)|\
|
||||
((send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
|
||||
list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
|
||||
([ ].*)?$)([ ]|$)*)+\
|
||||
([^ a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^|\
|
||||
(help|info)[ ]*$|\
|
||||
(add|join|leave|sign( [^ ]+ |-)?o(n|ff)|(un|de)?-?sub)\>)|\
|
||||
([^ a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^|\
|
||||
.*( (join|leave|add .* to|(delete|remove) .* from|\
|
||||
(take|sign|get) .* off|(put|sign) .* on) .* [a-z-]*list|\
|
||||
(un-?|sub?)scri(be|ption))\>|\
|
||||
^^)
|
||||
{
|
||||
#
|
||||
# Then check to see if the sender is on the accept list (if foreign_submit
|
||||
# is not set).
|
||||
#
|
||||
|
||||
:0
|
||||
* 9876543210^0 foreign_submit ?? y
|
||||
* 2^0 ? formail -X"From " -xFrom: -xReply-To: -xSender: -xResent-From: \
|
||||
-xResent-Reply-To: -xResent-Sender: -xReturn-Path: | \
|
||||
multigram -b1 -m -l$submit_threshold -L$domain \
|
||||
-x$listaddr -x$listreq accept accept2
|
||||
{
|
||||
|
||||
INCLUDERC=$RC_LOCAL_SUBMIT_10
|
||||
|
||||
:0
|
||||
* moderated_flag ?? y
|
||||
{
|
||||
:0 Bfw # contract header and body
|
||||
* ^^Approved:.*$^
|
||||
| sed -e '1,/^$/{' -e '/^$/d' -e '}'
|
||||
|
||||
:0
|
||||
* !$^Approved:.*$moderator_PASSWORD
|
||||
| formail -R"From X-Envelope-From:" -uDate: -iReturn-Receipt-To: \
|
||||
-iRead-Receipt-To: -iAcknowledge-To: | \
|
||||
$SENDMAIL $sendmailOPT `cat moderators`
|
||||
|
||||
:0 fhw
|
||||
| formail -IApproved:
|
||||
}
|
||||
|
||||
#
|
||||
# Eliminate duplicate submissions by checking the Message-ID: field.
|
||||
#
|
||||
|
||||
:0 Wh :msgid.lock
|
||||
| formail -q- -D $idcache_size msgid.cache
|
||||
|
||||
#
|
||||
# Check if we need to autosubscribe anyone not on the dist list.
|
||||
#
|
||||
|
||||
:0
|
||||
* force_subscribe ?? y
|
||||
* !? if test y = "$moderated_flag" ;\
|
||||
then formail -xFrom: -xSender: -xReply-To: ;\
|
||||
else formail -X"From " -xFrom: -xReply-To: -xSender: -xResent-From: \
|
||||
-xResent-Reply-To: -xResent-Sender: -xReturn-Path: ;\
|
||||
fi | multigram -b1 -m -l$submit_threshold -L$domain \
|
||||
-x$listaddr -x$listreq dist
|
||||
{
|
||||
|
||||
#
|
||||
# Yes, well, then check if the person isn't on the reject list.
|
||||
#
|
||||
|
||||
:0
|
||||
* ? multigram -b1 -l$reject_threshold reject
|
||||
{
|
||||
:0 wfh
|
||||
| formail -A "X-Diagnostic: Found on the reject list" \
|
||||
-A "X-Diagnostic: `multigram -b1 -l$reject_threshold reject`"
|
||||
|
||||
HOST=continue_with_rc.request
|
||||
}
|
||||
|
||||
LOCKFILE=tmp.lock
|
||||
|
||||
:0 whc
|
||||
| formail -rtzc -xTo: >tmp.from
|
||||
|
||||
:0 Wc :dist.lock
|
||||
| sed -e '/^$/,/^-- $/ d' | formail -I "Subject: auto subscribe" \
|
||||
>tmp.request; subscribe <tmp.request && test ! -z "$subscribe_log" \
|
||||
&& echo "rc.submit: auto subscribed" >>$subscribe_log
|
||||
|
||||
LOCKFILE
|
||||
}
|
||||
|
||||
#
|
||||
# Check if this is a digested mailinglist. If yes, processing stops
|
||||
# here and the mail will be added to the digest.
|
||||
#
|
||||
|
||||
:0
|
||||
* digest_flag ?? y
|
||||
{
|
||||
#
|
||||
# Forward the article back to the undigested list, if it hasn't
|
||||
# come from there.
|
||||
#
|
||||
|
||||
:0 c
|
||||
* undigested_list ?? y
|
||||
* $!^X-Loop: $\undigested_list
|
||||
! $sendmailOPT $undigested_list
|
||||
|
||||
#
|
||||
# Finally digest the mail.
|
||||
#
|
||||
|
||||
:0 w :tmp.lock
|
||||
| digest
|
||||
}
|
||||
|
||||
ARCHIVE # Wipe ARCHIVE from the environment
|
||||
|
||||
#
|
||||
# Check if we are the first mailinglist to distribute this message, if so
|
||||
# archive the message.
|
||||
#
|
||||
|
||||
:0
|
||||
* archive_hist ?? [1-9]
|
||||
* !^X-Mailing-List:
|
||||
{
|
||||
|
||||
|
||||
# Czo 98/11/25
|
||||
# archive dans mbox
|
||||
CZOBOX=`echo $listaddr | sed "s/@asim.lip6.fr//"`
|
||||
|
||||
:0 c
|
||||
archive/$CZOBOX.mbox
|
||||
|
||||
:0 c : $CZOBOX.mbox.hyp-lock
|
||||
| /users/largo1/czo/cvslargo/listes-rules/hyp $CZOBOX
|
||||
|
||||
# End Czo
|
||||
|
||||
:0 c
|
||||
archive/latest/.
|
||||
|
||||
ARCHIVE=$LASTFOLDER # Remember where it was archived
|
||||
|
||||
#
|
||||
# Truncate the archive to the correct number of files (and
|
||||
# possibly other housekeeping chores to keep the archive
|
||||
# current).
|
||||
#
|
||||
|
||||
:0 c hi
|
||||
| arch_trunc
|
||||
}
|
||||
|
||||
#
|
||||
# Main header munger for submissions passing through this list.
|
||||
#
|
||||
|
||||
oldshellmetas="$SHELLMETAS" SHELLMETAS # Save a shell, procmail can
|
||||
# do this one by itself.
|
||||
:0 wfh
|
||||
| formail -b -IFrom\ -IReceived: -IReturn-Receipt-To: -IErrors-To: \
|
||||
-IX-Pmrqc: -IX-Confirm-Reading-To: -IX-Ack: -IAcknowledge-To: \
|
||||
-IRead-Receipt-To: -IReturn-Receipt-Requested: -IX-Diagnostic: \
|
||||
-iStatus: -iReturn-Path: -iX-Envelope-To: -iX-Envelope-From: \
|
||||
-I"Precedence: list" -I"Resent-Sender: $listreq" \
|
||||
-uDate: -aMessage-ID: -aResent-Message-ID: \
|
||||
-a"To: $listaddr" -a"Resent-From: $listaddr" -A"X-Loop: $listaddr" \
|
||||
-a"Subject: Unidentified subject!" ${reply_to:+"-a$reply_to"} \
|
||||
-a"X-Mailing-List: <$listaddr> $ARCHIVE"
|
||||
|
||||
SHELLMETAS="$oldshellmetas" oldshellmetas
|
||||
|
||||
INCLUDERC=$RC_LOCAL_SUBMIT_20
|
||||
|
||||
#
|
||||
# The following recipe will distribute the message to the subscribers
|
||||
# using the native $SENDMAIL, but only if you disabled the alternative
|
||||
# sendmail (choplist).
|
||||
#
|
||||
|
||||
:0 w: dist.lock
|
||||
* !alt_sendmail ?? .
|
||||
! $sendmailOPT $listdist
|
||||
|
||||
#
|
||||
# Alternate sendmail call (used by default), does not use the file-
|
||||
# including -dist alias.
|
||||
#
|
||||
|
||||
:0 Ew: dist.lock
|
||||
| $alt_sendmail $SENDMAIL $sendmailOPT $sendmailOPTi
|
||||
|
||||
:0 wfh
|
||||
| formail -A "X-Diagnostic: $SENDMAIL $listdist failed"
|
||||
|
||||
HOST=continue_with_rc.request
|
||||
}
|
||||
|
||||
:0 E wfh
|
||||
| formail -A "X-Diagnostic: Not on the accept list"
|
||||
|
||||
:0 A c
|
||||
* ? test -f accept.txt
|
||||
{
|
||||
:0 fh
|
||||
| formail -i"From: $listreq" -kbrtA"X-Loop: $listaddr" ; cat accept.txt
|
||||
|
||||
:0
|
||||
! $sendmailOPT -t
|
||||
}
|
||||
|
||||
} }
|
||||
|
||||
:0 fhw
|
||||
* pass_diverts ?? y
|
||||
* !^X-Diagnostic:
|
||||
| formail -A "X-Diagnostic: Diverted & unprocessed"
|
||||
|
||||
HOST=continue_with_rc.request
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
This is an automated subscription mechanism. For your verification, a
|
||||
transcript of the original subscription request is included below.
|
||||
|
||||
If the wrong address has been subscribed and you seem to be unable to fix it
|
||||
yourself, reply to this message now (quoting it entirely (for diagnostic
|
||||
purposes), and of course adding any comments you see fit).
|
||||
--
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
If this wasn't your intention or you are having problems getting yourself
|
||||
unsubscribed, reply to this mail now (quoting it entirely (for diagnostic
|
||||
purposes), and of course adding any comments you see fit).
|
||||
|
||||
Transcript of unsubscription request follows:
|
||||
--
|
||||
|
|
@ -0,0 +1,119 @@
|
|||
#
|
||||
# Assign the fully qualified mail address of the maintainer of this list
|
||||
# to "maintainer". If empty, request-mail will not be mailed to any
|
||||
# maintainer and will be stored in the "request" file for this list.
|
||||
#
|
||||
|
||||
maintainer = Olivier.Sirol@lip6.fr
|
||||
|
||||
#LOGABSTRACT=yes # uncomment in case of emergency
|
||||
#VERBOSE=yes # uncomment in case of real emergency
|
||||
|
||||
size_limit = 1524288 # sanity cutoff value for submissions
|
||||
|
||||
idcache_size = 8192 # duplicate-msgid cache size in bytes
|
||||
|
||||
archive_hist = 20 # number of messages left archived
|
||||
#archive_log = $LOGFILE # log file for archive retrievals
|
||||
#subscribe_log = $LOGFILE # log file for administrivia
|
||||
|
||||
#maxhist = 32 # bounce history limit
|
||||
#minbounce = 4 # no. of bounces before removal
|
||||
#cutoff_bounce = 256 # lines to keep in bounce processing
|
||||
|
||||
#match_threshold= 30730 # for close matches to the list
|
||||
#medium_threshold= 28672 # for not so close matches to the list
|
||||
#loose_threshold= 24476 # for loosely finding your name
|
||||
|
||||
#auto_off_threshold= $medium_threshold # for auto-unsubscribing bouncers
|
||||
#off_threshold = $loose_threshold # for unsubscribing
|
||||
#reject_threshold= $match_threshold # for rejecting subscriptions
|
||||
#submit_threshold= $medium_threshold # for permitting submissions
|
||||
|
||||
#unsub_assist
|
||||
unsub_assist = 8 # uncomment (and change perhaps) this
|
||||
# line to enable unsubscription
|
||||
# assistance; it specifies the no. of
|
||||
# multigram matches an unsuccessful
|
||||
# unsubscriber will receive back
|
||||
#foreign_submit = yes
|
||||
##foreign_submit # uncomment this line if you
|
||||
# want to restrict submitting to
|
||||
# people on the accept list
|
||||
#restrict_archive
|
||||
restrict_archive= yes # uncomment this line if you
|
||||
# want to restrict archive retrievals
|
||||
# to people on the accept list
|
||||
#force_subscribe
|
||||
force_subscribe= no # uncomment to cause people to
|
||||
# be autosubscribed upon first
|
||||
# submission to the list
|
||||
auto_unsubscribe= no
|
||||
##auto_unsubscribe # uncomment to disable unattended
|
||||
# unsubscription handling
|
||||
auto_subscribe = no
|
||||
##auto_subscribe # uncomment to disable unattended
|
||||
# subscription handling
|
||||
#auto_help
|
||||
auto_help = no # uncomment to enable default help
|
||||
# responses to all undecipherable
|
||||
# requests
|
||||
#moderated_flag
|
||||
##moderated_flag= yes # uncomment this to make the list
|
||||
# moderated (you must create a
|
||||
# `moderators' file for this to work)
|
||||
# set moderator_PASSWORD to get
|
||||
# stricter checking
|
||||
#cc_requests
|
||||
##cc_requests = yes # uncomment if you want subscribe
|
||||
# and help requests to be Cc'd to
|
||||
# the maintainer
|
||||
#cc_unsubrequests
|
||||
##cc_unsubrequests= yes # uncomment if you want unsubscribe
|
||||
# requests to be Cc'd to the maintainer
|
||||
#divertcheck = yes
|
||||
##divertcheck # uncomment to disable the check for
|
||||
# misfiled administrative requests
|
||||
#pass_diverts
|
||||
##pass_diverts = yes # uncomment to pass on administrative
|
||||
# requests diverted from the normal
|
||||
# list to the maintainer unprocessed
|
||||
# (instead of trying to handle them)
|
||||
#reply_to
|
||||
##reply_to = "Resent-Reply-To: $listaddr" # uncomment (and perhaps change
|
||||
# it to "Reply-To") to force replies
|
||||
# to go to the list (discouraged)
|
||||
# why discouraged? see:
|
||||
# http://garcon.unicom.com/FAQ/reply-to-harmful.html
|
||||
#digest_flag
|
||||
##digest_flag = yes # uncomment this if you want digests
|
||||
#digest_age = 262144 # maximum age of a digest in seconds
|
||||
#digest_size = 32768 # maximum size of a digest in bytes
|
||||
#undigested_list = $list@$domain # Reply-To: address for digests
|
||||
|
||||
#moderator_PASSWORD = # put the optional password for
|
||||
# moderators here, this definition
|
||||
# can contain regular expression magic
|
||||
# characters (to support multiple
|
||||
# passwords)
|
||||
|
||||
X_COMMAND = X-Command
|
||||
X_COMMAND_PASSWORD = alcpass # put the literal password for
|
||||
# X-Command mails here
|
||||
|
||||
#daemon_bias='100^0 ^From:.*daemon@ok' # You could set "daemon_bias" to
|
||||
# positively discriminate some
|
||||
# mail address not to be from a daemon. Either with a regexp as demonstrated
|
||||
# or with more complicated recipes that simply set it to '100^0' or nothing.
|
||||
|
||||
#RC_LOCAL_SUBMIT_00 = rc.local.s00 # Uncomment (and change) these to
|
||||
#RC_LOCAL_SUBMIT_10 = rc.local.s10 # call up customised local scripts
|
||||
#RC_LOCAL_SUBMIT_20 = rc.local.s20 # at predefined points.
|
||||
#RC_LOCAL_REQUEST_00 = rc.local.r00
|
||||
#RC_LOCAL_REQUEST_10 = rc.local.r10
|
||||
#RC_LOCAL_REQUEST_20 = rc.local.r20
|
||||
#RC_LOCAL_REQUEST_30 = rc.local.r30
|
||||
|
||||
RC_CUSTOM # clear this one from the environment
|
||||
# so that we include this file only
|
||||
# once
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
#$Id: .procmailrc,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
|
||||
LOGFILE=/dev/null
|
||||
MAILDIR=.etc # chdir to the defaults directory
|
||||
|
||||
INCLUDERC=rc.init
|
||||
|
||||
:0 wfh
|
||||
| formail -A"X-Diagnostic: Non-existent mailinglist $X_ENVELOPE_TO"
|
||||
|
||||
INCLUDERC=rc.post
|
||||
|
|
@ -0,0 +1,90 @@
|
|||
# BEFORE editing this file, you should make sure that it is not linked to
|
||||
# the master version (../.etc/rc.archive) anymore (i.e. "delink rc.request"
|
||||
# if you do not want your changes to affect all archive servers).
|
||||
#
|
||||
# New mails can be temporarily stalled by creating the file rc.lock (either in
|
||||
# ../.etc for all lists or in the current directory for this list only).
|
||||
|
||||
#$Id: rc.archive,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
|
||||
INCLUDERC=$RC_INIT
|
||||
INCLUDERC=$RC_CUSTOM
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_00
|
||||
|
||||
LOCKFILE=tmp.lock # for reusing tmp.(request|from)
|
||||
# also makes sure that the load doesn't go sky-high
|
||||
# when a lot of mail arrives concurrently
|
||||
|
||||
#
|
||||
# We drop the message in the bitbucket if:
|
||||
# It's too big.
|
||||
# We sent it ourselves.
|
||||
# It was sent by a daemon of some kind.
|
||||
#
|
||||
|
||||
:0 h
|
||||
* > 32768
|
||||
/dev/null
|
||||
|
||||
:0 h
|
||||
* !^X-Loop: $listaddr
|
||||
* $$daemon_bias
|
||||
* -100^0 ^FROM_DAEMON
|
||||
* 1^0
|
||||
{ }
|
||||
|
||||
:0 Eh
|
||||
/dev/null
|
||||
|
||||
#
|
||||
# We now check that it is not a reply or something.
|
||||
# If it isn't, we extract the sender address into tmp.from
|
||||
#
|
||||
|
||||
:0 whc
|
||||
* !^Subject:(.*[^a-z])?(Re:|erro|problem|((can)?not|.*n't)\>)
|
||||
| formail -rtzc -xTo: >tmp.from
|
||||
|
||||
#
|
||||
# Store the whole mail in tmp.request, for later reference.
|
||||
#
|
||||
|
||||
:0 Ac
|
||||
| cat >tmp.request
|
||||
|
||||
#
|
||||
# Feed it to the archive server.
|
||||
#
|
||||
|
||||
:0 Aw
|
||||
| arch_retrieve standalone
|
||||
|
||||
LOCKFILE # we don't need the lockfile anymore
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_30
|
||||
|
||||
#
|
||||
# Anything not taken care of yet will be served to the maintainer of the list.
|
||||
#
|
||||
|
||||
:0 fh
|
||||
| formail -A"X-Envelope-To: $X_ENVELOPE_TO"
|
||||
|
||||
#
|
||||
# If this list does not have a maintainer e-mail address, drop things in
|
||||
# the file request.
|
||||
#
|
||||
|
||||
:0:
|
||||
* !maintainer ?? .
|
||||
request
|
||||
|
||||
:0 w
|
||||
| formail -R"From X-From_:" -iDate: -iReturn-Receipt-To: -iRead-Receipt-To: \
|
||||
-iAcknowledge-To: | $SENDMAIL $sendmailOPT $sendmailOPTp $maintainer
|
||||
|
||||
:0 wfh
|
||||
| formail -A"X-Diagnostic: Maintainer $maintainer could not be reached"
|
||||
|
||||
HOST=continue_with_../.etc/rc.post
|
||||
|
|
@ -0,0 +1,119 @@
|
|||
#
|
||||
# Assign the fully qualified mail address of the maintainer of this list
|
||||
# to "maintainer". If empty, request-mail will not be mailed to any
|
||||
# maintainer and will be stored in the "request" file for this list.
|
||||
#
|
||||
|
||||
maintainer =
|
||||
|
||||
#LOGABSTRACT=yes # uncomment in case of emergency
|
||||
#VERBOSE=yes # uncomment in case of real emergency
|
||||
|
||||
#size_limit = 524288 # sanity cutoff value for submissions
|
||||
|
||||
#idcache_size = 8192 # duplicate-msgid cache size in bytes
|
||||
|
||||
#archive_hist = 2 # number of messages left archived
|
||||
#archive_log = $LOGFILE # log file for archive retrievals
|
||||
#subscribe_log = $LOGFILE # log file for administrivia
|
||||
|
||||
#maxhist = 32 # bounce history limit
|
||||
#minbounce = 4 # no. of bounces before removal
|
||||
#cutoff_bounce = 256 # lines to keep in bounce processing
|
||||
|
||||
#match_threshold= 30730 # for close matches to the list
|
||||
#medium_threshold= 28672 # for not so close matches to the list
|
||||
#loose_threshold= 24476 # for loosely finding your name
|
||||
|
||||
#auto_off_threshold= $medium_threshold # for auto-unsubscribing bouncers
|
||||
#off_threshold = $loose_threshold # for unsubscribing
|
||||
#reject_threshold= $match_threshold # for rejecting subscriptions
|
||||
#submit_threshold= $medium_threshold # for permitting submissions
|
||||
|
||||
#unsub_assist
|
||||
##unsub_assist = 8 # uncomment (and change perhaps) this
|
||||
# line to enable unsubscription
|
||||
# assistance; it specifies the no. of
|
||||
# multigram matches an unsuccessful
|
||||
# unsubscriber will receive back
|
||||
#foreign_submit = yes
|
||||
##foreign_submit # uncomment this line if you
|
||||
# want to restrict submitting to
|
||||
# people on the accept list
|
||||
#restrict_archive
|
||||
##restrict_archive= yes # uncomment this line if you
|
||||
# want to restrict archive retrievals
|
||||
# to people on the accept list
|
||||
#force_subscribe
|
||||
##force_subscribe= yes # uncomment to cause people to
|
||||
# be autosubscribed upon first
|
||||
# submission to the list
|
||||
#auto_unsubscribe= yes
|
||||
##auto_unsubscribe # uncomment to disable unattended
|
||||
# unsubscription handling
|
||||
#auto_subscribe = yes
|
||||
##auto_subscribe # uncomment to disable unattended
|
||||
# subscription handling
|
||||
#auto_help
|
||||
##auto_help = yes # uncomment to enable default help
|
||||
# responses to all undecipherable
|
||||
# requests
|
||||
#moderated_flag
|
||||
##moderated_flag= yes # uncomment this to make the list
|
||||
# moderated (you must create a
|
||||
# `moderators' file for this to work)
|
||||
# set moderator_PASSWORD to get
|
||||
# stricter checking
|
||||
#cc_requests
|
||||
##cc_requests = yes # uncomment if you want subscribe
|
||||
# and help requests to be Cc'd to
|
||||
# the maintainer
|
||||
#cc_unsubrequests
|
||||
##cc_unsubrequests= yes # uncomment if you want unsubscribe
|
||||
# requests to be Cc'd to the maintainer
|
||||
#divertcheck = yes
|
||||
##divertcheck # uncomment to disable the check for
|
||||
# misfiled administrative requests
|
||||
#pass_diverts
|
||||
##pass_diverts = yes # uncomment to pass on administrative
|
||||
# requests diverted from the normal
|
||||
# list to the maintainer unprocessed
|
||||
# (instead of trying to handle them)
|
||||
#reply_to
|
||||
##reply_to = "Resent-Reply-To: $listaddr" # uncomment (and perhaps change
|
||||
# it to "Reply-To") to force replies
|
||||
# to go to the list (discouraged)
|
||||
# why discouraged? see:
|
||||
# http://garcon.unicom.com/FAQ/reply-to-harmful.html
|
||||
#digest_flag
|
||||
##digest_flag = yes # uncomment this if you want digests
|
||||
#digest_age = 262144 # maximum age of a digest in seconds
|
||||
#digest_size = 32768 # maximum size of a digest in bytes
|
||||
#undigested_list = $list@$domain # Reply-To: address for digests
|
||||
|
||||
#moderator_PASSWORD = # put the optional password for
|
||||
# moderators here, this definition
|
||||
# can contain regular expression magic
|
||||
# characters (to support multiple
|
||||
# passwords)
|
||||
|
||||
#X_COMMAND = X-Command
|
||||
#X_COMMAND_PASSWORD = # put the literal password for
|
||||
# X-Command mails here
|
||||
|
||||
#daemon_bias='100^0 ^From:.*daemon@ok' # You could set "daemon_bias" to
|
||||
# positively discriminate some
|
||||
# mail address not to be from a daemon. Either with a regexp as demonstrated
|
||||
# or with more complicated recipes that simply set it to '100^0' or nothing.
|
||||
|
||||
#RC_LOCAL_SUBMIT_00 = rc.local.s00 # Uncomment (and change) these to
|
||||
#RC_LOCAL_SUBMIT_10 = rc.local.s10 # call up customised local scripts
|
||||
#RC_LOCAL_SUBMIT_20 = rc.local.s20 # at predefined points.
|
||||
#RC_LOCAL_REQUEST_00 = rc.local.r00
|
||||
#RC_LOCAL_REQUEST_10 = rc.local.r10
|
||||
#RC_LOCAL_REQUEST_20 = rc.local.r20
|
||||
#RC_LOCAL_REQUEST_30 = rc.local.r30
|
||||
|
||||
RC_CUSTOM # clear this one from the environment
|
||||
# so that we include this file only
|
||||
# once
|
||||
|
|
@ -0,0 +1,255 @@
|
|||
#
|
||||
# IMPORTANT variables to check/change: PATH domain listmaster
|
||||
#
|
||||
|
||||
# BEFORE editing this file or any rc.* file in the .etc directory
|
||||
# you should create the .etc/rc.lock file. As long as this file
|
||||
# exists, mail delivery to any list will stall (flist checks this file).
|
||||
#
|
||||
# Delivery can be temporarily stalled on a per list basis by creating
|
||||
# the file rc.lock in the respective list's subdirectory.
|
||||
|
||||
# ENVIRONMENT:
|
||||
# list contains the submitting address of the list (sans domain)
|
||||
# domain should contain the domain for the list, so that $list@$domain
|
||||
# can be used to submit to the list
|
||||
# maintainer should contain the fully qualified address of the maintainer
|
||||
# of $list; maintainter can be left empty
|
||||
# listmaster should contain the fully qualified address of the supervising
|
||||
# list maintainer; listmaster can be left empty
|
||||
# X_ENVELOPE_TO contains the address that the incoming mail was addressed to
|
||||
|
||||
# FILES:
|
||||
# log optional logfile (uncomment the LOGFILE assignment to enable
|
||||
# it)
|
||||
# dist the subscriber list, one address per line
|
||||
# accept the list of people allowed to submit messages (usually a
|
||||
# link to dist, only checked if $foreign_submit != yes)
|
||||
# accept2 an optional second accept file
|
||||
# reject list of people you definitely do not want to subscribe
|
||||
# subscreen program (e.g. shell script) to screen prospective subscribers
|
||||
# (see in the examples directory for a sample script)
|
||||
# request all the messages to request that could not be handled
|
||||
# automatically (only if maintainer is empty)
|
||||
# help.txt file sent to help & info requests
|
||||
# info.txt optional file sent to help & info requests as well,
|
||||
# it should contain a concise description of what the
|
||||
# list is all about
|
||||
# the various info.txt files are optionally gathered in
|
||||
# order to advertise the availability of the mailinglists
|
||||
# subscribe.txt file sent to new subscribers
|
||||
# subscribe.files file containing an arbitrary number of archive server
|
||||
# commands to be executed on behalf of new subscribers
|
||||
# unsubscribe.txt file sent to unsubscribers
|
||||
# accept.txt file sent to people not on the accept list
|
||||
# archive.txt file sent to people requesting help from the archive server
|
||||
# archive (link to a) directory below which files can be accessed through
|
||||
# the archive server
|
||||
# bounces directory containing the bounce history files
|
||||
# rc.submit rcfile used when distributing submissions
|
||||
# rc.request rcfile used when processing requests
|
||||
# rc.custom rcfile that contains all the customisations per list
|
||||
# rc.local.* optional rcfiles for any local extensions (to be used in
|
||||
# conjunction with the RC_LOCAL_* variables which can be set
|
||||
# in rc.init or rc.custom files)
|
||||
|
||||
#$Id: rc.init,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
|
||||
DELIVERED=yes # we're in control of the mail now, tell sendmail to go away
|
||||
|
||||
PATH=.:$PATH:../.bin:/bin:/usr/bin:/usr/local/bin # setup a decent path
|
||||
SHELL=/bin/sh # to prevent surprises
|
||||
|
||||
defaults=.etc
|
||||
|
||||
LOCKTIMEOUT=3660 # set these values this high (1 hour)
|
||||
TIMEOUT=3600 # to give sendmail the time to
|
||||
# resolve big aliases
|
||||
|
||||
###############################################################################
|
||||
# You have to setup the following two assignments, make sure that the address
|
||||
# mentioned in listmaster is *not* the address this script runs under; if
|
||||
# you would end up doing that, then assign listmaster to ""
|
||||
# The same applies to the maintainer addresses used for every list, if you
|
||||
# would like to alias them back to this script or to the respective -request
|
||||
# addresses, then assign maintainer to "" instead.
|
||||
#
|
||||
# The mail-domain you have to insert below, must be the fully qualified
|
||||
# mail-domain for this list; e.g. if the preferred mail address for this
|
||||
# account would be: list@somemachine.somewhere.universe
|
||||
# Then you should assign the following:
|
||||
# domain=somemachine.somewhere.universe
|
||||
###############################################################################
|
||||
|
||||
domain=INSERT.YOUR.MAIL.DOMAIN.HERE # the common domain for all the lists
|
||||
listmaster=
|
||||
|
||||
#UMASK=077 # group can not touch the files
|
||||
#UMASK=027 # group can read
|
||||
UMASK=007 # group can write as well
|
||||
|
||||
defaults=.etc # the name of the defaults directory
|
||||
LOGFILE=log
|
||||
LOGABSTRACT=no
|
||||
|
||||
#LOGABSTRACT=yes # uncomment in case of emergency
|
||||
#VERBOSE=yes # uncomment in case of real emergency
|
||||
#LOGFILE=../$defaults/log # uncomment if you want centralised
|
||||
# logging
|
||||
|
||||
RC_INIT # clear this one from the environment
|
||||
# so that we include this file only
|
||||
# once
|
||||
|
||||
listaddr=$list@$domain
|
||||
listreq=$list-request@$domain
|
||||
listdist=$list-dist@$domain
|
||||
|
||||
# the following constants determine the
|
||||
# behaviour of choplist, the dist-file
|
||||
# expander (zero means: no limit) which
|
||||
# calls sendmail
|
||||
minnames = 32 # minimum number of names per call
|
||||
mindiffnames = 8 # minimum for maxnames-minnames
|
||||
maxnames = 64 # maximum number of names per call
|
||||
maxsplits = 0 # maximum number of parts to split dist in
|
||||
maxsize = 200000 # maximal disk space to be taken up per mail
|
||||
maxconcur = 4 # maximum number of concurrent sendmail calls
|
||||
|
||||
alt_sendmail="\
|
||||
choplist $minnames $mindiffnames $maxnames $maxsplits $maxsize $maxconcur dist"
|
||||
minnames mindiffnames maxnames maxsplits maxsize maxconcur
|
||||
#alt_sendmail # uncomment if you'd prefer sendmail
|
||||
# to handle the $listdist expansion
|
||||
|
||||
sendmailOPT="-oem -odb -oi -om -f$listreq"
|
||||
sendmailOPTp=-oep
|
||||
sendmailOPTq=-odq
|
||||
sendmailOPTi=-odi
|
||||
sendmailQflush="$SENDMAIL -q"
|
||||
#sendmailQflush # uncomment if you don't want the
|
||||
# queue to be flushed after all archive
|
||||
# retrieval files have been queued
|
||||
########################
|
||||
# sendmail options used:
|
||||
#
|
||||
# -t scan the header of the mail for recipients
|
||||
# -f specify the sender envelope address (requires T entry in sendmail.cf)
|
||||
# -oi do not regard a single dot on an otherwise empty line as EOF
|
||||
# -om include myself in any alias expansions
|
||||
# -odb background deliverymode command returns immediately
|
||||
# -odq queued deliverymode (put messages in the queue only)
|
||||
# -odi interactive deliverymode command, wait until most delivered
|
||||
# -q flush the queue
|
||||
# -oem mail back error messages
|
||||
# -oep print error messages
|
||||
# -onF do not check aliases while expanding them (use it, if available)
|
||||
########################
|
||||
#
|
||||
# If you only have /bin/mail and not some sendmail compatible mailer that
|
||||
# understands the -t option of sendmail, then you have to uncomment the
|
||||
# following two lines:
|
||||
#
|
||||
#sendmailOPT sendmailOPTp sendmailOPTq sendmailOPTi sendmailQflush
|
||||
#SENDMAIL=../SedBinDir/sendmails
|
||||
#
|
||||
########################
|
||||
|
||||
size_limit = 524288 # sanity cutoff value for submissions
|
||||
|
||||
idcache_size = 8192 # duplicate-msgid cache size in bytes
|
||||
|
||||
archive_hist = 2 # number of messages left archived
|
||||
archive_log = $LOGFILE # log file for archive retrievals
|
||||
subscribe_log = $LOGFILE # log file for administrivia
|
||||
|
||||
maxhist = 32 # bounce history limit
|
||||
minbounce = 4 # no. of bounces before removal
|
||||
cutoff_bounce = 256 # lines to keep in bounce processing
|
||||
|
||||
match_threshold = 30730 # for close matches to the list
|
||||
medium_threshold= 28672 # for not so close matches to the list
|
||||
loose_threshold = 24476 # for loosely finding your name
|
||||
|
||||
auto_off_threshold= $medium_threshold # for auto-unsubscribing bouncers
|
||||
off_threshold = $loose_threshold # for unsubscribing
|
||||
reject_threshold= $match_threshold # for rejecting subscriptions
|
||||
submit_threshold= $medium_threshold # for permitting submissions
|
||||
|
||||
unsub_assist
|
||||
#unsub_assist = 8 # uncomment (and change perhaps) this
|
||||
# line to enable unsubscription
|
||||
# assistance; it specifies the no. of
|
||||
# multigram matches an unsuccessful
|
||||
# unsubscriber will receive back
|
||||
foreign_submit = yes
|
||||
#foreign_submit # uncomment this line if you
|
||||
# want to restrict submitting to
|
||||
# people on the accept list
|
||||
restrict_archive
|
||||
#restrict_archive= yes # uncomment this line if you
|
||||
# want to restrict archive retrievals
|
||||
# to people on the accept list
|
||||
force_subscribe
|
||||
#force_subscribe= yes # uncomment to cause people to
|
||||
# be autosubscribed upon first
|
||||
# submission to the list
|
||||
auto_unsubscribe= yes
|
||||
#auto_unsubscribe # uncomment to disable unattended
|
||||
# unsubscription handling
|
||||
auto_subscribe = yes
|
||||
#auto_subscribe # uncomment to disable unattended
|
||||
# subscription handling
|
||||
auto_help
|
||||
#auto_help = yes # uncomment to enable default help
|
||||
# responses to all undecipherable
|
||||
# requests
|
||||
moderated_flag
|
||||
#moderated_flag = yes # uncomment this to make the list
|
||||
# moderated (you must create a
|
||||
# `moderators' file for this to work)
|
||||
cc_requests
|
||||
#cc_requests = yes # uncomment if you want subscribe
|
||||
# and help requests to be Cc'd to
|
||||
# the maintainer
|
||||
cc_unsubrequests
|
||||
#cc_unsubrequests= yes # uncomment if you want unsubscribe
|
||||
# requests to be Cc'd to the maintainer
|
||||
divertcheck = yes
|
||||
#divertcheck # uncomment to disable the check for
|
||||
# misfiled administrative requests
|
||||
pass_diverts
|
||||
#pass_diverts = yes # uncomment to pass on administrative
|
||||
# requests diverted from the normal
|
||||
# list to the maintainer unprocessed
|
||||
# (instead of trying to handle them)
|
||||
reply_to
|
||||
#reply_to = "Resent-Reply-To: $listaddr" # uncomment (and perhaps change
|
||||
# it to "Reply-To") to force replies
|
||||
# to go to the list (discouraged)
|
||||
digest_flag
|
||||
#digest_flag = yes # uncomment this if you want digests
|
||||
digest_age = 262144 # maximum age of a digest in seconds
|
||||
digest_size = 32768 # maximum size of a digest in bytes
|
||||
|
||||
|
||||
X_COMMAND = X-Command
|
||||
X_COMMAND_PASSWORD = password # put the global password for
|
||||
# X-Command mails here
|
||||
# this password can of course be changed/
|
||||
# customised in the per list rc.custom file
|
||||
|
||||
#daemon_bias='100^0 ^From:.*daemon@ok' # You could set "daemon_bias" to
|
||||
# positively discriminate some
|
||||
# mail address not to be from a daemon. Either with a regexp as demonstrated
|
||||
# or with more complicated recipes that simply set it to '100^0' or nothing.
|
||||
|
||||
#RC_LOCAL_SUBMIT_00 = rc.local.s00 # Uncomment (and change) these to
|
||||
#RC_LOCAL_SUBMIT_10 = rc.local.s10 # call up customised local scripts
|
||||
#RC_LOCAL_SUBMIT_20 = rc.local.s20 # at predefined points.
|
||||
#RC_LOCAL_REQUEST_00 = rc.local.r00
|
||||
#RC_LOCAL_REQUEST_10 = rc.local.r10
|
||||
#RC_LOCAL_REQUEST_20 = rc.local.r20
|
||||
#RC_LOCAL_REQUEST_30 = rc.local.r30
|
||||
|
||||
RC_CUSTOM=rc.custom
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
#$Id: rc.main,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
|
||||
LOGFILE=/dev/null
|
||||
MAILDIR=.etc # chdir to the defaults directory
|
||||
|
||||
INCLUDERC=rc.init
|
||||
|
||||
:0 wfh
|
||||
| formail -A"X-Diagnostic: Non-existent mailinglist $X_ENVELOPE_TO"
|
||||
|
||||
INCLUDERC=rc.post
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
#$Id: rc.post,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
MAILDIR=../$defaults # back to the defaults directory
|
||||
LOGFILE=log # enabled by default, because when processing
|
||||
# reaches this point, some unusual circumstance
|
||||
# has occurred.
|
||||
LOGABSTRACT=yes
|
||||
|
||||
:0 :
|
||||
* !listmaster ?? .
|
||||
request
|
||||
|
||||
:0 w
|
||||
| formail -R"From X-From_:" -iDate: -iReturn-Receipt-To: -iRead-Receipt-To: \
|
||||
-iAcknowledge-To: | $SENDMAIL $sendmailOPT $sendmailOPTp $listmaster
|
||||
|
||||
:0:
|
||||
request
|
||||
|
|
@ -0,0 +1,348 @@
|
|||
# BEFORE editing this file, you should make sure that it is not linked to
|
||||
# the master version (../.etc/rc.request) anymore (i.e. "delink rc.request"
|
||||
# if you do not want your changes to affect all lists).
|
||||
#
|
||||
# New mails can be temporarily stalled by creating the file rc.lock (either in
|
||||
# ../.etc for all lists or in the current directory for this list only).
|
||||
|
||||
#$Id: rc.request,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
|
||||
INCLUDERC=$RC_INIT
|
||||
INCLUDERC=$RC_CUSTOM
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_00
|
||||
|
||||
LOCKFILE=tmp.lock # for reusing tmp.(request|from)
|
||||
# also makes sure that the load doesn't go sky-high
|
||||
# when a lot of mail arrives concurrently
|
||||
|
||||
:0 Bfw # concatenate header and body
|
||||
* $^^$X_COMMAND:
|
||||
| sed -e '1,/^$/{' -e '/^$/d' -e '}'
|
||||
|
||||
#
|
||||
# We now check:
|
||||
# If the length is roughly within bounds.
|
||||
# That it is not a reply or something.
|
||||
# That we didn't send it ourselves.
|
||||
# That it wasn't sent by a daemon of some kind.
|
||||
#
|
||||
# If everything matches, we extract the sender address into tmp.from
|
||||
#
|
||||
|
||||
:0
|
||||
* B ?? < 4096
|
||||
* $$daemon_bias
|
||||
* $!^(X-(Loop: $\listaddr|Diagnostic:)|$X_COMMAND:)
|
||||
* -100^0 ^FROM_DAEMON
|
||||
* 1^0
|
||||
{
|
||||
|
||||
:0
|
||||
* -100^0 ^Subject:(.*[^a-z])?(Re:|erro|change|problem|((can)?not|.*n't)\>)
|
||||
* 100^0 B ?? ^^([ ]|$)*\
|
||||
((archives?:?($|[ ]+)|\
|
||||
((un)subscribe|(send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
|
||||
list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
|
||||
([ ].*)?$)([ ]|$)*)+\
|
||||
([^ a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^
|
||||
* 100^0 ^Subject:[ ]*archive
|
||||
* 1^0
|
||||
{
|
||||
:0 whc
|
||||
| formail -rtzc -xTo: >tmp.from
|
||||
|
||||
#
|
||||
# Store the whole mail in tmp.request, for later reference.
|
||||
#
|
||||
|
||||
:0 wc
|
||||
| formail -IIn-Reply-To: -ICc: >tmp.request
|
||||
|
||||
#
|
||||
# Check for a missing Subject: line.
|
||||
#
|
||||
|
||||
:0 wfh
|
||||
* !^Subject:
|
||||
| formail -a "Subject: "
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_10
|
||||
|
||||
###############################################################################
|
||||
# Reader beware, the following four regular expressions are not for the faint #
|
||||
# of heart. It'll suffice to say that they accomplish their intended job 98% #
|
||||
# of the time. #
|
||||
###############################################################################
|
||||
|
||||
#
|
||||
# Is it an archive retrieval command?
|
||||
#
|
||||
|
||||
:0 HB w
|
||||
* 9876543210^0 ^^(.+$)*Subject:[ ]*(([(<]no(ne| subject\
|
||||
( (\(file transmission|given))?)[>)])?\
|
||||
$(.+$)*(^[ ]*)+)?(archives?:?([ ]|$)|\
|
||||
((send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|list|show|\
|
||||
search|[fe]?grep|find|maxfiles|version)([ ]+[^ ]*)?$)
|
||||
* 1^0 B ?? ^^([ ]|$)*\
|
||||
((archives?:?($|[ ]+)|\
|
||||
((send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
|
||||
list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
|
||||
([ ].*)?$)([ ]|$)*)+\
|
||||
([^ a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^
|
||||
{
|
||||
:0 W
|
||||
* 9876543210^0 !restrict_archive ?? y
|
||||
* 2^0 ? formail -rt -R To: "From " -X "From " | \
|
||||
multigram -b1 -m -l$submit_threshold -L$domain \
|
||||
-x$listaddr -x$listreq accept accept2
|
||||
| arch_retrieve
|
||||
|
||||
:0 E fhw
|
||||
| formail -A "X-Diagnostic: Not on the accept list"
|
||||
}
|
||||
|
||||
#
|
||||
# Is it an unsubscription request?
|
||||
#
|
||||
|
||||
:0 EHB
|
||||
* 9876543210^0 ^^(.+$)*Subject:[ ]*([(<]no(ne| subject\
|
||||
( (\(file transmission|given))?)[>)])?(\
|
||||
($(.+$)*(^[ ]*)+((.+|$)+[,.:;]([ ]+|$)+)?)?\
|
||||
(Could you )?(please )?\
|
||||
(sign( [^ ]+ |-)?off|cancel|leave|delete|remove|(un|de)-?sub)\>|\
|
||||
($(.+$)*$(.*$)*)?(.*[^a-z])?\
|
||||
((un-?|(un|de)-?sub?)s(cr|c|r)i|\
|
||||
(leave|(delete|remove) .* from|(sign|take|get) .* off) .* [a-z-]*list\>))
|
||||
* 1^0 B ?? ^^([ ]|$)*unsub(scribe)?([ ].*)?([ ]|$)*\
|
||||
[^ a-z]?^^
|
||||
{
|
||||
:0 fw:dist.lock
|
||||
* auto_unsubscribe ?? y
|
||||
| unsubscribe
|
||||
|
||||
:0 Aw ${cc_unsubrequests:+c}
|
||||
| $SENDMAIL $sendmailOPT `cat tmp.from` ;
|
||||
|
||||
:0 Afhw
|
||||
| formail -A "X-Diagnostic: Processed"
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# Is it a subscription request?
|
||||
#
|
||||
|
||||
:0 EHB
|
||||
* 9876543210^0 ^^(.+$)*Subject:[ ]*([(<]no(ne| subject\
|
||||
( (\(file transmission|given))?)[>)])?(\
|
||||
($(.+$)*(^[ ]*)+((.+|$)+[,.:;]([ ]+|$)+)?)?\
|
||||
(Could you )?(please )?\
|
||||
(sign( [^ ]+ |-)?on|add|join|sub)\>|\
|
||||
($(.+$)*$(.*$)*)?(.*[^a-z])?\
|
||||
(sub?s(cr|c|r)i.*|(join|add .* to|(sign|put) .* on) .* [a-z-]*list\>))
|
||||
* 1^0 B ?? ^^([ ]|$)*sub(scribe)?([ ].*)?([ ]|$)*\
|
||||
[^ a-z]?^^
|
||||
{
|
||||
#
|
||||
# Yes, well, then check if the person subscribing isn't on the reject
|
||||
# list.
|
||||
#
|
||||
|
||||
:0 HB wfh
|
||||
* ? multigram -b1 -l$reject_threshold reject
|
||||
| formail -A "X-Diagnostic: Found on the reject list" \
|
||||
-A "X-Diagnostic: `multigram -b1 -l$reject_threshold reject`"
|
||||
|
||||
#
|
||||
# If not, then let's see if he might already be on the
|
||||
# mailinglist.
|
||||
#
|
||||
|
||||
:0 E HB wfh
|
||||
* ? formail -IReceived: -IX-Envelope-To: -IIn-Reply-To: -ICc: | \
|
||||
multigram -b1 -x$listreq -x$listaddr -l$reject_threshold dist
|
||||
| formail -A "X-Diagnostic: Already on the subscriber list" \
|
||||
-A "X-Diagnostic: `multigram -b1 -x$listreq -x$listaddr \
|
||||
-l$reject_threshold dist`"
|
||||
|
||||
#
|
||||
# If not, add him(/her/it?).
|
||||
#
|
||||
|
||||
:0 E
|
||||
* auto_subscribe ?? y
|
||||
{
|
||||
:0 W ${cc_requests:+c}:dist.lock
|
||||
| subscribe
|
||||
|
||||
:0 awfh
|
||||
| formail -A "X-Diagnostic: Added to the subscriber list"
|
||||
|
||||
:0 Ewfh
|
||||
| formail -A "X-Diagnostic: Tried to subscribe"
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# Is it an info or help request? Send back the help.txt and the
|
||||
# optional info.txt file.
|
||||
# We do the same on a complete empty mail (except for perhaps a signature).
|
||||
#
|
||||
|
||||
:0 EHB
|
||||
* 3^0 ^^(.+$)*Subject:[ ]*\
|
||||
(([(<]no(ne| subject( (\(file transmission|given))?)[>)])?$\
|
||||
(.+$)*(^[ ]*)+)?[a-z,. ]*(help|info(rmation)?)\>
|
||||
* 1^0 ^^(.+$)*Subject:[ ]*\
|
||||
([(<]no(ne| subject( (\(file transmission|given))?)[>)])?$
|
||||
* -2^0 ^^(.+$)*(^[ ]*)+[a-z]
|
||||
* 3^0 ^^(.+$)*^([ ]*$)*--
|
||||
{
|
||||
:0 hw ${cc_requests:+c}
|
||||
| (formail -i"From: $listreq" -rtA"X-Loop: $listaddr"; \
|
||||
cat help.txt info.txt 2>/dev/null ) | $SENDMAIL $sendmailOPT -t
|
||||
|
||||
:0 wfh
|
||||
| formail -A "X-Diagnostic: help sent"
|
||||
}
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_20
|
||||
|
||||
LOGABSTRACT=yes
|
||||
|
||||
#
|
||||
# If auto_help is set, anything undecipherable gets back the help.txt and the
|
||||
# optional info.txt file.
|
||||
#
|
||||
|
||||
:0 EB
|
||||
* auto_help ?? y
|
||||
* $!X-Loop: $\listaddr
|
||||
{
|
||||
:0 hw ${cc_requests:+c}
|
||||
| (formail -i"From: $listreq" -rtA"X-Loop: $listaddr"; \
|
||||
cat help.txt info.txt 2>/dev/null ) | $SENDMAIL $sendmailOPT -t
|
||||
|
||||
:0 wfh
|
||||
| formail -A "X-Diagnostic: undecipherable, help sent"
|
||||
}
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
LOGABSTRACT=yes
|
||||
|
||||
#
|
||||
# Could it be a bounce message from a daemon? Hand it down to procbounce
|
||||
# which will evaluate it.
|
||||
#
|
||||
|
||||
:0 wic
|
||||
* $!^(Subject:(.*[^a-z])?Re:|\
|
||||
X-(Loop: $\listaddr|Diagnostic:)|$X_COMMAND:)
|
||||
* ^FROM_DAEMON
|
||||
| sed -e $cutoff_bounce' q' >tmp.request
|
||||
|
||||
#
|
||||
# Sink all messages we can recognise to be queue warnings
|
||||
#
|
||||
|
||||
:0 Ah
|
||||
* ^Subject: \
|
||||
(WARNING: message delayed|\
|
||||
(Returned mail: )?warning: c(an|ould )not send m(essage fo|ail afte)r|\
|
||||
Undeliverable (RFC822 )?mail: temporarily unable to deliver|\
|
||||
\*\*\* WARNING - Undelivered mail in mailqueue)
|
||||
/dev/null
|
||||
|
||||
:0 Ah
|
||||
* ^Subject: (Warning from|mail warning| ?Waiting mail)
|
||||
* ^(From|Sender):.*(uucp|mmdf)
|
||||
/dev/null
|
||||
|
||||
:0 AhBD
|
||||
* $^(..?)?X-Loop: $\listaddr \(bounce\)
|
||||
* ^(..?)?Subject: You have been removed from
|
||||
/dev/null
|
||||
|
||||
#
|
||||
# Anything that still survived is most likely to be a bounce message.
|
||||
#
|
||||
|
||||
:0 Ahfw
|
||||
| procbounce
|
||||
|
||||
#
|
||||
# Or is it a remote X-Command from our maintainer?
|
||||
#
|
||||
|
||||
:0 wf:dist.lock
|
||||
* $^$X_COMMAND:.*$\maintainer[ ]*$\X_COMMAND_PASSWORD
|
||||
* $!^X-Loop: $\listaddr
|
||||
| x_command
|
||||
|
||||
LOCKFILE # we don't need the lockfile anymore
|
||||
|
||||
#
|
||||
# Anything not taken care of yet will be served to the maintainer of the list.
|
||||
#
|
||||
# To make it easier on him, we include a small hint about what might be the
|
||||
# problem (by adding X-Diagnostic: fields to the header).
|
||||
#
|
||||
|
||||
:0 wfh
|
||||
* !< $size_limit
|
||||
| formail -A "X-Diagnostic: Submission size exceeds $size_limit bytes"
|
||||
|
||||
:0 wfh
|
||||
* ^FROM_DAEMON
|
||||
| formail -A "X-Diagnostic: Mail coming from a daemon, ignored"
|
||||
|
||||
:0 HB wfh
|
||||
* $^X-Loop: $\listaddr
|
||||
| formail -A "X-Diagnostic: Possible loopback problem"
|
||||
|
||||
:0
|
||||
* !^X-(Diagnostic|Processed):
|
||||
{
|
||||
:0 wfh
|
||||
* $^$X_COMMAND:
|
||||
| formail -A "X-Diagnostic: Suspicious $X_COMMAND format"
|
||||
|
||||
:0 HB wfh
|
||||
* ? formail -IReceived: -IX-Envelope-To: -IIn-Reply-To: -ICc: | \
|
||||
multigram -b1 -x$listreq -x$listaddr -l$reject_threshold dist
|
||||
| formail -A "X-Diagnostic: Already on the subscriber list" \
|
||||
-A "X-Diagnostic: `multigram -b1 -x$listreq -x$listaddr \
|
||||
-l$reject_threshold dist`"
|
||||
}
|
||||
|
||||
INCLUDERC=$RC_LOCAL_REQUEST_30
|
||||
|
||||
:0 wfh
|
||||
* !^X-(Diagnostic|Processed):
|
||||
| formail -A"X-Diagnostic: Unprocessed"
|
||||
|
||||
:0 wfh
|
||||
| formail -A"X-Envelope-To: $X_ENVELOPE_TO"
|
||||
|
||||
#
|
||||
# If this list does not have a maintainer e-mail address, drop things in
|
||||
# the file request.
|
||||
#
|
||||
|
||||
:0:
|
||||
* !maintainer ?? .
|
||||
request
|
||||
|
||||
:0 w
|
||||
| formail -R"From X-From_:" -iDate: -iReturn-Receipt-To: -iRead-Receipt-To: \
|
||||
-iAcknowledge-To: | $SENDMAIL $sendmailOPT $sendmailOPTp $maintainer
|
||||
|
||||
:0 wfh
|
||||
| formail -A"X-Diagnostic: Maintainer $maintainer could not be reached"
|
||||
|
||||
HOST=continue_with_../.etc/rc.post
|
||||
|
|
@ -0,0 +1,289 @@
|
|||
# BEFORE editing this file, you should make sure that it is not linked to
|
||||
# the master version (../.etc/rc.submit) anymore (i.e. "delink rc.submit"
|
||||
# if you do not want your changes to affect all archive servers).
|
||||
#
|
||||
# New mails can be temporarily stalled by creating the file rc.lock (either in
|
||||
# ../.etc for all lists or in the current directory for this list only).
|
||||
|
||||
#$Id: rc.submit,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
|
||||
INCLUDERC=$RC_INIT
|
||||
INCLUDERC=$RC_CUSTOM
|
||||
|
||||
INCLUDERC=$RC_LOCAL_SUBMIT_00
|
||||
|
||||
#
|
||||
# The following recipe makes sure that:
|
||||
# The mail has a sane size (i.e. it is not inordinately big)
|
||||
# It does not look like an administrative request.
|
||||
# It wasn't sent by this list itself.
|
||||
# It wasn't sent by a daemon (misdirected bounce message perhaps).
|
||||
#
|
||||
|
||||
:0
|
||||
* < $size_limit
|
||||
* !$^($X_COMMAND:|X-Loop: $\listaddr)
|
||||
* ! B ?? $^^$X_COMMAND:
|
||||
* $$daemon_bias
|
||||
* -100^0 ^FROM_MAILER|\
|
||||
^(((Resent-)?(From|Sender)|X-Envelope-From):|>?From )\
|
||||
([^>]*[^(.%@a-z0-9])?(\
|
||||
LIST(SERV|proc)|NETSERV|bounce|autoanswer|echo|mirror\
|
||||
)(([^).!:a-z0-9][-_a-z0-9]*)?[%@> ][^<)]*(\(.*\).*)?)?$([^>]|$)
|
||||
* 1^0
|
||||
{
|
||||
|
||||
:0
|
||||
* B ?? >640
|
||||
* 9876543210^0
|
||||
{ }
|
||||
|
||||
#
|
||||
# Does it look like a regular submission?
|
||||
# Or perhaps more like an administrative request?
|
||||
# Look at the start of the body, and see if this could be an administrative
|
||||
# request, pass it on to rc.request in that case.
|
||||
#
|
||||
|
||||
:0
|
||||
* $$=^0
|
||||
* 9876543210^0 !divertcheck ?? y
|
||||
{ }
|
||||
|
||||
:0
|
||||
* $$=^0
|
||||
* !B ?? ^^(.*$(.*$(.*$(.*$(.*$(.*$(.*$(.*$)?)?)?)?)?)?)?)?[^]>} a-z0-9]
|
||||
* 9876543210^0 B ?? ^^.*$.*$.*$.*$.*$.*$.*$.*$.*$
|
||||
{ }
|
||||
|
||||
:0
|
||||
* $$=^0
|
||||
* $${maintainer:+9876543210^0 ^From[: ](.*\<)?$\maintainer\>}
|
||||
* 9876543210^0 ^(Subject:(.*\<)?(Re:|magazine)\>)|X-(Diagnostic|Mailing-List):
|
||||
* -25^0 ^\
|
||||
Subject:([ ]*(archives?:?([ ]+(\
|
||||
(send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
|
||||
list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
|
||||
([ ]|$)|[ ]*$)|\
|
||||
help|info|join|leave|\
|
||||
(Could you )?(please )?\
|
||||
(cancel(( my)? subscription)?|add|\
|
||||
sign( [^ ]+ |-)?o(n|ff)|(un|de)?-?sub)[ ]*$)|\
|
||||
.*( (join|leave|add .* to|(delete|remove) .* from|\
|
||||
(take|sign|get) .* off|(put|sign) .* on) .* [a-z-]*list|\
|
||||
(un-?|sub?)s(cr|c|r)i(be|ption))\>)
|
||||
* -50^0 ^Subject:[ ]*[(<]no(ne| subject\
|
||||
( (\(file transmission|given))?)[>)]$
|
||||
* 50^0 ^Subject:.*[a-z]
|
||||
* -100^0 B ?? ^^([ ]|$)*\
|
||||
((((archives?:?($|[ ]+)|\
|
||||
((send|get)(me)?|gimme|retrieve|mail|ls|dir(ectory)?|\
|
||||
list|show|search|[fe]?grep|find|maxfiles|version|help|info)\
|
||||
([ ].*)?$)([ ]|$)*)+\
|
||||
([^ a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^|\
|
||||
(help|info)[ ]*$|\
|
||||
(add|join|leave|sign( [^ ]+ |-)?o(n|ff)|(un|de)?-?sub)\>)|\
|
||||
([^ a-z].*$(.*$(.*$(.*$(.*$)?)?)?)?)?^^|\
|
||||
.*( (join|leave|add .* to|(delete|remove) .* from|\
|
||||
(take|sign|get) .* off|(put|sign) .* on) .* [a-z-]*list|\
|
||||
(un-?|sub?)scri(be|ption))\>|\
|
||||
^^)
|
||||
{
|
||||
#
|
||||
# Then check to see if the sender is on the accept list (if foreign_submit
|
||||
# is not set).
|
||||
#
|
||||
|
||||
:0
|
||||
* 9876543210^0 foreign_submit ?? y
|
||||
* 2^0 ? formail -X"From " -xFrom: -xReply-To: -xSender: -xResent-From: \
|
||||
-xResent-Reply-To: -xResent-Sender: -xReturn-Path: | \
|
||||
multigram -b1 -m -l$submit_threshold -L$domain \
|
||||
-x$listaddr -x$listreq accept accept2
|
||||
{
|
||||
|
||||
INCLUDERC=$RC_LOCAL_SUBMIT_10
|
||||
|
||||
:0
|
||||
* moderated_flag ?? y
|
||||
{
|
||||
:0 Bfw # contract header and body
|
||||
* ^^Approved:.*$^
|
||||
| sed -e '1,/^$/{' -e '/^$/d' -e '}'
|
||||
|
||||
:0
|
||||
* !$^Approved:.*$moderator_PASSWORD
|
||||
| formail -R"From X-Envelope-From:" -uDate: -iReturn-Receipt-To: \
|
||||
-iRead-Receipt-To: -iAcknowledge-To: | \
|
||||
$SENDMAIL $sendmailOPT `cat moderators`
|
||||
|
||||
:0 fhw
|
||||
| formail -IApproved:
|
||||
}
|
||||
|
||||
#
|
||||
# Eliminate duplicate submissions by checking the Message-ID: field.
|
||||
#
|
||||
|
||||
:0 Wh :msgid.lock
|
||||
| formail -q- -D $idcache_size msgid.cache
|
||||
|
||||
#
|
||||
# Check if we need to autosubscribe anyone not on the dist list.
|
||||
#
|
||||
|
||||
:0
|
||||
* force_subscribe ?? y
|
||||
* !? if test y = "$moderated_flag" ;\
|
||||
then formail -xFrom: -xSender: -xReply-To: ;\
|
||||
else formail -X"From " -xFrom: -xReply-To: -xSender: -xResent-From: \
|
||||
-xResent-Reply-To: -xResent-Sender: -xReturn-Path: ;\
|
||||
fi | multigram -b1 -m -l$submit_threshold -L$domain \
|
||||
-x$listaddr -x$listreq dist
|
||||
{
|
||||
|
||||
#
|
||||
# Yes, well, then check if the person isn't on the reject list.
|
||||
#
|
||||
|
||||
:0
|
||||
* ? multigram -b1 -l$reject_threshold reject
|
||||
{
|
||||
:0 wfh
|
||||
| formail -A "X-Diagnostic: Found on the reject list" \
|
||||
-A "X-Diagnostic: `multigram -b1 -l$reject_threshold reject`"
|
||||
|
||||
HOST=continue_with_rc.request
|
||||
}
|
||||
|
||||
LOCKFILE=tmp.lock
|
||||
|
||||
:0 whc
|
||||
| formail -rtzc -xTo: >tmp.from
|
||||
|
||||
:0 Wc :dist.lock
|
||||
| sed -e '/^$/,/^-- $/ d' | formail -I "Subject: auto subscribe" \
|
||||
>tmp.request; subscribe <tmp.request && test ! -z "$subscribe_log" \
|
||||
&& echo "rc.submit: auto subscribed" >>$subscribe_log
|
||||
|
||||
LOCKFILE
|
||||
}
|
||||
|
||||
#
|
||||
# Check if this is a digested mailinglist. If yes, processing stops
|
||||
# here and the mail will be added to the digest.
|
||||
#
|
||||
|
||||
:0
|
||||
* digest_flag ?? y
|
||||
{
|
||||
#
|
||||
# Forward the article back to the undigested list, if it hasn't
|
||||
# come from there.
|
||||
#
|
||||
|
||||
:0 c
|
||||
* undigested_list ?? y
|
||||
* $!^X-Loop: $\undigested_list
|
||||
! $sendmailOPT $undigested_list
|
||||
|
||||
#
|
||||
# Finally digest the mail.
|
||||
#
|
||||
|
||||
:0 w :tmp.lock
|
||||
| digest
|
||||
}
|
||||
|
||||
ARCHIVE # Wipe ARCHIVE from the environment
|
||||
|
||||
#
|
||||
# Check if we are the first mailinglist to distribute this message, if so
|
||||
# archive the message.
|
||||
#
|
||||
|
||||
:0
|
||||
* archive_hist ?? [1-9]
|
||||
* !^X-Mailing-List:
|
||||
{
|
||||
:0 c
|
||||
archive/latest/.
|
||||
|
||||
ARCHIVE=$LASTFOLDER # Remember where it was archived
|
||||
|
||||
#
|
||||
# Truncate the archive to the correct number of files (and
|
||||
# possibly other housekeeping chores to keep the archive
|
||||
# current).
|
||||
#
|
||||
|
||||
:0 c hi
|
||||
| arch_trunc
|
||||
}
|
||||
|
||||
#
|
||||
# Main header munger for submissions passing through this list.
|
||||
#
|
||||
|
||||
oldshellmetas="$SHELLMETAS" SHELLMETAS # Save a shell, procmail can
|
||||
# do this one by itself.
|
||||
:0 wfh
|
||||
| formail -b -IFrom\ -IReceived: -IReturn-Receipt-To: -IErrors-To: \
|
||||
-IX-Pmrqc: -IX-Confirm-Reading-To: -IX-Ack: -IAcknowledge-To: \
|
||||
-IRead-Receipt-To: -IReturn-Receipt-Requested: -IX-Diagnostic: \
|
||||
-iStatus: -iReturn-Path: -iX-Envelope-To: -iX-Envelope-From: \
|
||||
-I"Precedence: list" -I"Resent-Sender: $listreq" \
|
||||
-uDate: -aMessage-ID: -aResent-Message-ID: \
|
||||
-a"To: $listaddr" -a"Resent-From: $listaddr" -A"X-Loop: $listaddr" \
|
||||
-a"Subject: Unidentified subject!" ${reply_to:+"-a$reply_to"} \
|
||||
-a"X-Mailing-List: <$listaddr> $ARCHIVE"
|
||||
|
||||
SHELLMETAS="$oldshellmetas" oldshellmetas
|
||||
|
||||
INCLUDERC=$RC_LOCAL_SUBMIT_20
|
||||
|
||||
#
|
||||
# The following recipe will distribute the message to the subscribers
|
||||
# using the native $SENDMAIL, but only if you disabled the alternative
|
||||
# sendmail (choplist).
|
||||
#
|
||||
|
||||
:0 w: dist.lock
|
||||
* !alt_sendmail ?? .
|
||||
! $sendmailOPT $listdist
|
||||
|
||||
#
|
||||
# Alternate sendmail call (used by default), does not use the file-
|
||||
# including -dist alias.
|
||||
#
|
||||
|
||||
:0 Ew: dist.lock
|
||||
| $alt_sendmail $SENDMAIL $sendmailOPT $sendmailOPTi
|
||||
|
||||
:0 wfh
|
||||
| formail -A "X-Diagnostic: $SENDMAIL $listdist failed"
|
||||
|
||||
HOST=continue_with_rc.request
|
||||
}
|
||||
|
||||
:0 E wfh
|
||||
| formail -A "X-Diagnostic: Not on the accept list"
|
||||
|
||||
:0 A c
|
||||
* ? test -f accept.txt
|
||||
{
|
||||
:0 fh
|
||||
| formail -i"From: $listreq" -kbrtA"X-Loop: $listaddr" ; cat accept.txt
|
||||
|
||||
:0
|
||||
! $sendmailOPT -t
|
||||
}
|
||||
|
||||
} }
|
||||
|
||||
:0 fhw
|
||||
* pass_diverts ?? y
|
||||
* !^X-Diagnostic:
|
||||
| formail -A "X-Diagnostic: Diverted & unprocessed"
|
||||
|
||||
HOST=continue_with_rc.request
|
||||
|
|
@ -0,0 +1,119 @@
|
|||
#
|
||||
# Assign the fully qualified mail address of the maintainer of this list
|
||||
# to "maintainer". If empty, request-mail will not be mailed to any
|
||||
# maintainer and will be stored in the "request" file for this list.
|
||||
#
|
||||
|
||||
maintainer = Olivier.Sirol@lip6.fr
|
||||
|
||||
#LOGABSTRACT=yes # uncomment in case of emergency
|
||||
#VERBOSE=yes # uncomment in case of real emergency
|
||||
|
||||
size_limit = 1524288 # sanity cutoff value for submissions
|
||||
|
||||
idcache_size = 8192 # duplicate-msgid cache size in bytes
|
||||
|
||||
archive_hist = 20 # number of messages left archived
|
||||
#archive_log = $LOGFILE # log file for archive retrievals
|
||||
#subscribe_log = $LOGFILE # log file for administrivia
|
||||
|
||||
#maxhist = 32 # bounce history limit
|
||||
#minbounce = 4 # no. of bounces before removal
|
||||
#cutoff_bounce = 256 # lines to keep in bounce processing
|
||||
|
||||
#match_threshold= 30730 # for close matches to the list
|
||||
#medium_threshold= 28672 # for not so close matches to the list
|
||||
#loose_threshold= 24476 # for loosely finding your name
|
||||
|
||||
#auto_off_threshold= $medium_threshold # for auto-unsubscribing bouncers
|
||||
#off_threshold = $loose_threshold # for unsubscribing
|
||||
#reject_threshold= $match_threshold # for rejecting subscriptions
|
||||
#submit_threshold= $medium_threshold # for permitting submissions
|
||||
|
||||
#unsub_assist
|
||||
unsub_assist = 8 # uncomment (and change perhaps) this
|
||||
# line to enable unsubscription
|
||||
# assistance; it specifies the no. of
|
||||
# multigram matches an unsuccessful
|
||||
# unsubscriber will receive back
|
||||
#foreign_submit = yes
|
||||
##foreign_submit # uncomment this line if you
|
||||
# want to restrict submitting to
|
||||
# people on the accept list
|
||||
#restrict_archive
|
||||
##restrict_archive= yes # uncomment this line if you
|
||||
# want to restrict archive retrievals
|
||||
# to people on the accept list
|
||||
#force_subscribe
|
||||
force_subscribe= yes # uncomment to cause people to
|
||||
# be autosubscribed upon first
|
||||
# submission to the list
|
||||
#auto_unsubscribe= yes
|
||||
##auto_unsubscribe # uncomment to disable unattended
|
||||
# unsubscription handling
|
||||
#auto_subscribe = yes
|
||||
##auto_subscribe # uncomment to disable unattended
|
||||
# subscription handling
|
||||
#auto_help
|
||||
auto_help = yes # uncomment to enable default help
|
||||
# responses to all undecipherable
|
||||
# requests
|
||||
#moderated_flag
|
||||
##moderated_flag= yes # uncomment this to make the list
|
||||
# moderated (you must create a
|
||||
# `moderators' file for this to work)
|
||||
# set moderator_PASSWORD to get
|
||||
# stricter checking
|
||||
#cc_requests
|
||||
##cc_requests = yes # uncomment if you want subscribe
|
||||
# and help requests to be Cc'd to
|
||||
# the maintainer
|
||||
#cc_unsubrequests
|
||||
##cc_unsubrequests= yes # uncomment if you want unsubscribe
|
||||
# requests to be Cc'd to the maintainer
|
||||
#divertcheck = yes
|
||||
##divertcheck # uncomment to disable the check for
|
||||
# misfiled administrative requests
|
||||
#pass_diverts
|
||||
##pass_diverts = yes # uncomment to pass on administrative
|
||||
# requests diverted from the normal
|
||||
# list to the maintainer unprocessed
|
||||
# (instead of trying to handle them)
|
||||
#reply_to
|
||||
##reply_to = "Resent-Reply-To: $listaddr" # uncomment (and perhaps change
|
||||
# it to "Reply-To") to force replies
|
||||
# to go to the list (discouraged)
|
||||
# why discouraged? see:
|
||||
# http://garcon.unicom.com/FAQ/reply-to-harmful.html
|
||||
#digest_flag
|
||||
##digest_flag = yes # uncomment this if you want digests
|
||||
#digest_age = 262144 # maximum age of a digest in seconds
|
||||
#digest_size = 32768 # maximum size of a digest in bytes
|
||||
#undigested_list = $list@$domain # Reply-To: address for digests
|
||||
|
||||
#moderator_PASSWORD = # put the optional password for
|
||||
# moderators here, this definition
|
||||
# can contain regular expression magic
|
||||
# characters (to support multiple
|
||||
# passwords)
|
||||
|
||||
X_COMMAND = X-Command
|
||||
X_COMMAND_PASSWORD = alcpass # put the literal password for
|
||||
# X-Command mails here
|
||||
|
||||
#daemon_bias='100^0 ^From:.*daemon@ok' # You could set "daemon_bias" to
|
||||
# positively discriminate some
|
||||
# mail address not to be from a daemon. Either with a regexp as demonstrated
|
||||
# or with more complicated recipes that simply set it to '100^0' or nothing.
|
||||
|
||||
#RC_LOCAL_SUBMIT_00 = rc.local.s00 # Uncomment (and change) these to
|
||||
#RC_LOCAL_SUBMIT_10 = rc.local.s10 # call up customised local scripts
|
||||
#RC_LOCAL_SUBMIT_20 = rc.local.s20 # at predefined points.
|
||||
#RC_LOCAL_REQUEST_00 = rc.local.r00
|
||||
#RC_LOCAL_REQUEST_10 = rc.local.r10
|
||||
#RC_LOCAL_REQUEST_20 = rc.local.r20
|
||||
#RC_LOCAL_REQUEST_30 = rc.local.r30
|
||||
|
||||
RC_CUSTOM # clear this one from the environment
|
||||
# so that we include this file only
|
||||
# once
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
#! /bin/sh
|
||||
|
||||
YEAR_YY=`date +%y`
|
||||
YEAR_YYYY=`date +%Y`
|
||||
MAILL=$1
|
||||
|
||||
cd /users/largo2/webmastr/wwwroot/mailing-lists
|
||||
|
||||
/usr/local/bin/hypermail -c /users/largo1/czo/cvslargo/listes-rules/hypermail/.hmrc -p -i -u -x -l "${MAILL} '${YEAR_YY}" -d "${MAILL}/${YEAR_YYYY}"
|
||||
|
||||
|
|
@ -0,0 +1,323 @@
|
|||
#
|
||||
# hmrc.example:
|
||||
#
|
||||
# This is a sample Hypermail configuration file. If you wish
|
||||
# to use it, copy it to a new filename and edit as appropriate
|
||||
# for you list needs.
|
||||
#
|
||||
|
||||
# hm_mbox = [ filename | NONE ]
|
||||
#
|
||||
# This is the default mailbox to read messages in from. Set this
|
||||
# with a value of NONE to read from standard input as the default.
|
||||
|
||||
hm_mbox = NONE
|
||||
|
||||
# hm_label = [ Title | NONE ]
|
||||
#
|
||||
# This is the default title you want to call your archives.
|
||||
# Set this to NONE to use the name of the input mailbox.
|
||||
|
||||
hm_label = NONE
|
||||
|
||||
# hm_archives = [ URL | NONE ]
|
||||
#
|
||||
# This creates a link in the archived index pages labeled
|
||||
# "Other mail archives". Set this to NONE to omit such a link.
|
||||
|
||||
hm_archives = NONE
|
||||
|
||||
# hm_about = [ URL | NONE ]
|
||||
#
|
||||
# This creates a link in the archived index pages labeled
|
||||
# "About this archive". Set this to NONE to omit such a link.
|
||||
|
||||
hm_about = NONE
|
||||
|
||||
# hm_dir = [ directory path | NONE ]
|
||||
#
|
||||
# This is the default directory that Hypermail uses when creating
|
||||
# and updating archives. If set to NONE, the directory will have the
|
||||
# same name as the input mailbox.
|
||||
|
||||
hm_dir = NONE
|
||||
|
||||
# hm_defaultindex = [ thread | date | subject | author ]
|
||||
#
|
||||
# This indicates the default type of main index hypermail will generate.
|
||||
# Users see this type of index when the archive is first accessed.
|
||||
|
||||
hm_defaultindex = thread
|
||||
|
||||
# hm_reverse = [ 0 | 1 ]
|
||||
#
|
||||
# Setting this variable to 1 will reverse-sort the article
|
||||
# entries in the date and thread index files by the date they
|
||||
# were received. That is, the most recent messages will appear
|
||||
# at the top of the index rather than the other way around.
|
||||
# Set to 0 if you want latest message on the bottom for date and
|
||||
# thread indexes.
|
||||
|
||||
hm_reverse = 1
|
||||
|
||||
# hm_usetable = [ 0 | 1 ]
|
||||
#
|
||||
# Setting this variable to 1 will tell Hypermail to generate an
|
||||
# index menu at the top and bottom of each page in a table format.
|
||||
# Set to 0 if you want the standard Hypermail page look and feel.
|
||||
|
||||
hm_usetable = 0
|
||||
|
||||
# hm_showprogress = [ 0 | 1 ]
|
||||
#
|
||||
# Set to 1 to show progress as Hypermail works. Set to 0 for silent
|
||||
# operation. Output goes to standard output.
|
||||
|
||||
hm_showprogress = 1
|
||||
|
||||
# hm_show_msg_links = [ 0 | 1 ]
|
||||
#
|
||||
# Set this to 1 if you want links to Next, Prev, Next thread, Reply to,
|
||||
# etc, displayed on the article pages. Setting this to 0 disables these
|
||||
# links from appearing on the generated pages.
|
||||
|
||||
hm_show_msg_links = 1
|
||||
|
||||
# hm_showheaders = [ 0 | 1 ]
|
||||
#
|
||||
# Set this to 1 to show the RFC 822 message headers To:,
|
||||
# From:, and Subject: information found in the email messages.
|
||||
# Set to 0 if you want to hide mail headers in articles.
|
||||
|
||||
hm_showheaders = 0
|
||||
|
||||
# hm_showreplies = [ 0 | 1 ]
|
||||
#
|
||||
# Set to 1 to show all replies to a message as links in article files.
|
||||
# If this is set to 0 no reply links are generated.
|
||||
|
||||
hm_showreplies = 1
|
||||
|
||||
# hm_showhtml = [ 0 | 1 ]
|
||||
#
|
||||
# Set this to 1 to show the articles in a proportionally-spaced
|
||||
# font rather than a fixed-width (monospace) font. Setting this
|
||||
# option to 1 also tells Hypermail to attempt to italicize quoted
|
||||
# passages in articles.
|
||||
|
||||
hm_showhtml = 0
|
||||
|
||||
# hm_showbr = [ 0 | 1 ]
|
||||
#
|
||||
# Set this to 1 if you want article lines to end with the <br> tag.
|
||||
# Else set to 0 to have non-quoted lines word-wrap. Only takes effect
|
||||
# if hm_showhtml is set to 1.
|
||||
|
||||
hm_showbr = 1
|
||||
|
||||
# hm_iquotes = [ 0 | 1 ]
|
||||
#
|
||||
# Set this to 1 if you want quoted lines to be shown in italics. Only
|
||||
# take effect if hm_showhtml is set to 1.
|
||||
|
||||
hm_iquotes = 1
|
||||
|
||||
# hm_showhr = [ 0 | 1 ]
|
||||
#
|
||||
# Set to 1 if you want horizontal rules <HR> before and after
|
||||
# the articles. Set to 0 if you don't.
|
||||
|
||||
hm_showhr = 1
|
||||
|
||||
# hm_overwrite = [ 0 | 1 ]
|
||||
#
|
||||
# Set to 1 to make Hypermail overwrite existing archives by default.
|
||||
|
||||
hm_overwrite = 0
|
||||
|
||||
# hm_increment = [ 0 | 1 ]
|
||||
#
|
||||
# Define as 1 to read in one article only and update existing archives.
|
||||
# Define as 0 for it to read and process entire mailboxes.
|
||||
|
||||
hm_increment = 1
|
||||
|
||||
# hm_thrdlevels = number
|
||||
#
|
||||
# This specifies the number of thread levels to outline in the thread
|
||||
# index. For instance, if hm_thrdlevels is 2, replies to messages will
|
||||
# be indented once in the index, but replies to replies, etc., will only
|
||||
# be indented once as well. The normal value is 2.
|
||||
|
||||
hm_thrdlevels = 2
|
||||
|
||||
# hm_eurodate = [ 0 | 1 ]
|
||||
#
|
||||
# Set this to reflect how you want dates displayed in the index files.
|
||||
# Set as 1 to to use European date format "DD MM YYYY".
|
||||
# Define as 0 to to use American date format "MM DD YYYY".
|
||||
|
||||
hm_eurodate = 1
|
||||
|
||||
# hm_dirmode = octal number
|
||||
#
|
||||
# This is an octal number representing the rwx modes that new directories
|
||||
# are set to when they are created. If the archives will be made publically
|
||||
# available, it's a good idea to define this as 0755. This must be an octal
|
||||
# number.
|
||||
|
||||
hm_dirmode = 0755
|
||||
|
||||
# hm_filemode = octal number
|
||||
#
|
||||
# This is an octal number representing the permission modes that new files
|
||||
# are set to when they are created. If the archives will be made publically
|
||||
# available, it's a good idea to define this as 0644. This must be an octal
|
||||
# number.
|
||||
|
||||
hm_filemode = 0644
|
||||
|
||||
# hm_mailcommand = [ direct mailto | cgi-bin script path | NONE ]
|
||||
#
|
||||
# This is the mail command that email links go to, for instance
|
||||
# "mailto:$TO" or "/cgi-bin/mail?to=$TO&replyto=$ID&subject=$SUBJECT"
|
||||
#
|
||||
# In constructing this command, you can specify variables:
|
||||
#
|
||||
# $TO : the email address of the person you're sending mail to.
|
||||
# $ID : the ID of the message you're replying to.
|
||||
# $SUBJECT: the subject you're replying to.
|
||||
#
|
||||
# NONE disables mailcommand usage.
|
||||
|
||||
hm_mailcommand = mailto:$TO?subject=$SUBJECT
|
||||
|
||||
# hm_mailto = [ email-address | NONE ]
|
||||
#
|
||||
# The address of the contact point that is put in the HTML header line
|
||||
# <LINK REV=made HREF=mailto:hm_mailto>
|
||||
#
|
||||
# The <LINK...> header can be disabled by default by setting
|
||||
# mailto to NONE.
|
||||
|
||||
hm_mailto = czo@asim.lip6.fr
|
||||
|
||||
# hm_domainaddr = [ domainname | NONE ]
|
||||
#
|
||||
# Domain-ize Addresses -- addresses appearing in the RFC822 field
|
||||
# which lack hostname can't be made into proper HREFs. Because the
|
||||
# MTA resides on the same host as the list, it is often not required
|
||||
# to domain-ize these addresses for delivery. In such cases, hypermail
|
||||
# will add the DOMAINADDR to the email address.
|
||||
|
||||
hm_domainaddr = asim.lip6.fr
|
||||
|
||||
# hm_body = [ HTML <BODY> statement | NONE ]
|
||||
#
|
||||
# Set this to the <BODY> line to use when generating the HTML pages.
|
||||
# Set to "NONE" to use the builtin <BODY> line by default.
|
||||
|
||||
#hm_body = <BODY BGCOLOR="#FFFFFF" TEXT="#000000">
|
||||
hm_body = NONE
|
||||
|
||||
# hm_hmail = [ Mailing List Submission Address | NONE ]
|
||||
#
|
||||
# Set this to the list's submission address. When enabled, this can be
|
||||
# used to submit a new message to the list served by the hypermail archive.
|
||||
# "NONE" means don't use it.
|
||||
|
||||
hm_hmail = hypermail@landfield.com
|
||||
|
||||
# hm_ihtmlheader = [ path to index header template file | NONE ]
|
||||
#
|
||||
# Set this to the path to the Index header template file. The template
|
||||
# file contains HTML directives and substitution cookies for runtime
|
||||
# expansion.
|
||||
|
||||
hm_ihtmlheaderfile = "/users/largo1/czo/cvslargo/listes-rules/hypermail/hypermail-index.hyp"
|
||||
|
||||
|
||||
# hm_ihtmlfooter = [ path to index footer template file | NONE ]
|
||||
#
|
||||
# Set this to the path to the Index footer template file. The template
|
||||
# file contains HTML directives and substitution cookies for runtime
|
||||
# expansion.
|
||||
|
||||
hm_ihtmlfooterfile = "/users/largo1/czo/cvslargo/listes-rules/hypermail/hypermail-footer.hyp"
|
||||
|
||||
# hm_mhtmlheader = [ path to message header template file | NONE ]
|
||||
#
|
||||
# Set this to the path to the Message header template file. The template
|
||||
# file contains HTML directives and substitution cookies for runtime
|
||||
# expansion.
|
||||
|
||||
hm_mhtmlheaderfile = "/users/largo1/czo/cvslargo/listes-rules/hypermail/hypermail-msg.hyp"
|
||||
|
||||
# hm_mhtmlfooter = [ path to message footer template file | NONE ]
|
||||
#
|
||||
# Set this to the path to the Message footer template file. The template
|
||||
# file contains HTML directives and substitution cookies for runtime
|
||||
# expansion.
|
||||
|
||||
hm_mhtmlfooterfile = "/users/largo1/czo/cvslargo/listes-rules/hypermail/hypermail-footer.hyp"
|
||||
|
||||
######################
|
||||
# Multiline variables
|
||||
######################
|
||||
|
||||
# hm_show_headers = list of RFC 822 Headers to display if hm_showheaders
|
||||
# is set to 1 (TRUE)
|
||||
#
|
||||
# This is the list of headers to be displayed. They can be listed
|
||||
# comma or space separated all on a single line such as
|
||||
# hm_show_headers = From,Subject,Date,Message-ID
|
||||
# or they can be listed individually or any combination of.
|
||||
# hm_show_headers = From
|
||||
# hm_show_headers = Subject
|
||||
# hm_show_headers = Date
|
||||
# hm_show_headers = Message-ID
|
||||
|
||||
hm_show_headers = From,Subject,Date,Message-ID
|
||||
|
||||
# hm_inline_types = indicate which types of data should be inlined
|
||||
#
|
||||
# This is the list of MIME types that you want inlined as opposed to
|
||||
# simply linked into the message. They can be listed individually on
|
||||
# multiple lines or comma or space separated on a single line.
|
||||
# hm_inline_types = image/gif image/jpeg
|
||||
# or
|
||||
# hm_inline_types = image/gif
|
||||
# hm_inline_types = image/jpeg
|
||||
|
||||
hm_inline_types = image/gif image/jpeg
|
||||
|
||||
# hm_ignore_types = indicate which types of attachments to ignore and
|
||||
# not process.
|
||||
#
|
||||
# This is the list of MIME attachment types that you do not want to
|
||||
# do anything with. They are quietly ignored. They can be listed
|
||||
# individually on multiple lines or comma or space separated on a
|
||||
# single line.
|
||||
# hm_ignore_types = text/x-vcard application/x-msdownload
|
||||
# or
|
||||
# hm_ignore_types = text/x-vcard
|
||||
# hm_ignore_types = application/x-msdownload
|
||||
|
||||
hm_ignore_types = text/x-vcard
|
||||
hm_ignore_types = application/x-msdownload
|
||||
|
||||
# hm_prefered_types = indicate which of the alternative types to use
|
||||
#
|
||||
# This is the list of alternative MIME types that you want used when
|
||||
# displaying the data. This can be listed individually on multiple
|
||||
# lines or comma or space separated on a single line.
|
||||
# hm_prefered_types = text/plain text/html
|
||||
# or
|
||||
# hm_prefered_types = text/plain
|
||||
# hm_prefered_types = text/html
|
||||
# Order is important.
|
||||
#
|
||||
# NOTE: This option is not fully implemented at present.
|
||||
|
||||
hm_prefered_types = text/plain text/html
|
||||
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
</BLOCKQUOTE>
|
||||
<P ALIGN=CENTER><IMG SRC="/ssi/bar.gif" ALT="---------"></P>
|
||||
|
||||
<SMALL><SMALL>\n<EM>This archive was generated by
|
||||
%u.
|
||||
</EM></SMALL></SMALL>
|
||||
<!--#include virtual="/ssi/asim.footer/" -->
|
||||
</BODY>
|
||||
</HTML>
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<META NAME="description" content="Hypermail Development List Archives">
|
||||
<META NAME="keywords" content="hypermail Archives, hypermail, email, mail2html, Email Archives">
|
||||
<TITLE>%l: %s</TITLE>
|
||||
<LINK REV="made" HREF="mailto:%m">
|
||||
</HEAD>
|
||||
|
||||
<!--#include virtual="/ssi/asim.header/" -->
|
||||
|
||||
<BODY>
|
||||
|
||||
<H1 ALIGN=CENTER>%l<BR>%s</H1>
|
||||
<P ALIGN=CENTER><IMG SRC="/ssi/bar.gif" ALT="---------"></P>
|
||||
<BLOCKQUOTE>
|
||||
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<META NAME="description" content="Hypermail Development List Archives">
|
||||
<META NAME="keywords" content="hypermail Archives, hypermail, email, mail2html, Email Archives">
|
||||
%A
|
||||
%S
|
||||
<TITLE>%l: %s</TITLE>
|
||||
<LINK REV="made" HREF="mailto:%m">
|
||||
</HEAD>
|
||||
<!--#include virtual="/ssi/asim.header/" -->
|
||||
|
||||
<BODY>
|
||||
|
||||
<H1 ALIGN=CENTER>%s</H1>
|
||||
<P ALIGN=CENTER><IMG SRC="/ssi/bar.gif" ALT="---------"></P>
|
||||
<BLOCKQUOTE>
|
||||
</FONT>
|
||||
|
|
@ -0,0 +1,57 @@
|
|||
#! /bin/sh
|
||||
#
|
||||
# Author : Olivier.Sirol@lip6.fr
|
||||
# Date : fev 1999
|
||||
# Description :
|
||||
#
|
||||
# (C) Czo 1998,99
|
||||
# This code is released under GPL
|
||||
#
|
||||
# $Id: hypreset,v 1.1 2000/04/05 15:09:45 czo Exp $
|
||||
#
|
||||
|
||||
PATH=/asim/gnu/bin:/usr/ucb:/usr/etc:/bin:/usr/local/bin:${PATH}
|
||||
TMPWORKDIR=/tmp/hypczo
|
||||
WML=/users/largo2/webmastr/wwwroot/mailing-lists
|
||||
LOCK=/usr/local/listes/.etc/rc.lock
|
||||
HMRC=/users/largo1/czo/cvslargo/listes-rules/hypermail/.hmrc
|
||||
|
||||
#lock
|
||||
touch $LOCK
|
||||
|
||||
rm -fr "$TMPWORKDIR"
|
||||
cd $WML
|
||||
|
||||
echo "--> Sleep 5 sec and check..."
|
||||
sleep 5
|
||||
RES=`ps auxww | grep "hypermail" | grep -v grep`
|
||||
if [ "$?" -eq 0 ]
|
||||
then
|
||||
echo "ERROR: hypermail running"
|
||||
else
|
||||
echo "--> generating..."
|
||||
|
||||
for MBOX in alliance-programmers alliance-support alliance-users archi help
|
||||
#for MBOX in alliance-programmers
|
||||
do
|
||||
echo "--> $MBOX..."
|
||||
mkdir -p "$TMPWORKDIR"
|
||||
cd "$WML/$MBOX"
|
||||
find . -type d -maxdepth 1 -mindepth 1 | xargs rm -fr dummy
|
||||
|
||||
cat "$WML/$MBOX/$MBOX.mbox" | formail -s $WML/splitmailbyyear
|
||||
|
||||
echo %%%%%%%%%%%%%%%%%%%
|
||||
for YEARBOX in `find /tmp/hypczo -type f -printf "%P\n"`
|
||||
do
|
||||
echo $YEARBOX
|
||||
/usr/local/bin/hypermail -c $HMRC -p -x -l "$MBOX '$YEARBOX" -d "$WML/$MBOX/$YEARBOX" -m "/tmp/hypczo/$YEARBOX"
|
||||
done
|
||||
rm -fr "$TMPWORKDIR"
|
||||
|
||||
done
|
||||
fi
|
||||
|
||||
rm -f $LOCK
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
#! /bin/sh
|
||||
|
||||
gawk '
|
||||
BEGIN {FIRST=1;}
|
||||
{
|
||||
if (FIRST)
|
||||
{
|
||||
FIRST=0;
|
||||
# ca cest du bug...
|
||||
if ( $0 ~ /no email/ )
|
||||
gsub(/\(no email\)/,"NOMAIL");
|
||||
|
||||
YEAR=$7
|
||||
}
|
||||
|
||||
print $0 >> "/tmp/hypczo/"YEAR ;
|
||||
}'
|
||||
|
|
@ -0,0 +1,147 @@
|
|||
#!/usr/local/bin/perl
|
||||
#######################################################################
|
||||
# Audric's Counter v1.0 FREEWARE
|
||||
# Full copyright and legal speak at:
|
||||
# http://www.aimsweb.com/goodies/counter2.htm
|
||||
#
|
||||
# Inspired on Matt's Wright Counter program
|
||||
# Matt's Script Archive http://www.worldwidemart.com/scripts/
|
||||
#######################################################################
|
||||
|
||||
# Define Variables
|
||||
|
||||
### FILE AND DIRECTORY LOCATIONS, REFERERS ###
|
||||
$count_file = "/users/cao7/czo/public_html/cgi-bin/count.txt"; # must be chmod 777
|
||||
$digit_dir = "/ssi/";
|
||||
$access_log = "/users/cao7/czo/public_html/cgi-bin/access_log"; # must be chmod 777
|
||||
$error_log = "/users/cao7/czo/public_html/cgi-bin/error_log"; # must be chmod 777
|
||||
|
||||
# If someone wants to use your counter from theri pages and their domain
|
||||
# is not contained into @refers show them this gif.
|
||||
$bad_referer_img = "http://www.aimsweb.com/images/bad_referer.gif";
|
||||
|
||||
# Domains you want to allow to use this script
|
||||
@referers=(
|
||||
"lip6.fr",
|
||||
"127.0.0.1"
|
||||
);
|
||||
|
||||
### IMAGE SETTINGS ###
|
||||
# If you change the 0-9.gif set make sure you chage those accordingly
|
||||
$width = "9";
|
||||
$height = "20";
|
||||
|
||||
### OPTIONS ###
|
||||
$uselog = "1"; # 1 = YES; 0 = NO
|
||||
|
||||
# Done - You shouldn't need to change anything below this line..
|
||||
#######################################################################
|
||||
|
||||
#################
|
||||
# Get the Date For Logging Purposes
|
||||
if ($uselog == 1) {
|
||||
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
||||
$mon++; # fixes Matt's Counter bug
|
||||
if ($sec < 10) { $sec = "0$sec"; }
|
||||
if ($min < 10) { $min = "0$min"; }
|
||||
if ($hour < 10) { $hour = "0$hour"; }
|
||||
if ($mday < 10) { $mday = "0$mday"; }
|
||||
if ($mon < 10) { $monc = "0$mon"; }
|
||||
$date = "$hour\:$min\:$sec $mon/$mday/$year";
|
||||
}
|
||||
|
||||
#################
|
||||
# Make Sure People Aren't Messing With the Counter From Other Web Pages
|
||||
#&check_referer;
|
||||
|
||||
#################
|
||||
# Get the Counter Number And Write New One to File
|
||||
&get_num;
|
||||
|
||||
#################
|
||||
# Determine Length of Counter Number
|
||||
# Set Individual Counter Numbers Into Associative Array
|
||||
$savedcount=$count;
|
||||
$num = $length = length($count);
|
||||
while ($num > 0) {
|
||||
$CHAR{$num} = chop($count);
|
||||
$num--;
|
||||
}
|
||||
|
||||
#################
|
||||
# Generates HTML to use pre-generated GIFs
|
||||
$j = 1;
|
||||
$myNumber="";
|
||||
while ($j <= $length) {
|
||||
$myNumber .= "<img src=\"$digit_dir$CHAR{$j}\.gif\" border=0 width=$width height=$height>";
|
||||
$j++;
|
||||
}
|
||||
|
||||
#################
|
||||
# Write the generated HTML to STDOUT
|
||||
print "Content-Type: text/html\n\n";
|
||||
print "<table border=0 cellspacing=0 cellpadding=0><tr><td>$myNumber</td></tr></table>\n";
|
||||
|
||||
|
||||
#################
|
||||
# Log the Counter Access
|
||||
if ($uselog == 1) {
|
||||
&log_access;
|
||||
}
|
||||
|
||||
exit;
|
||||
|
||||
|
||||
######################################################
|
||||
# SUBROUTINES
|
||||
######################################################
|
||||
|
||||
|
||||
#################
|
||||
sub check_referer {
|
||||
if (@referers && $ENV{'HTTP_REFERER'}) {
|
||||
foreach $referer (@referers) {
|
||||
if ($ENV{'HTTP_REFERER'} =~ /$referer/) {
|
||||
$ref = 1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
$ref = 1;
|
||||
}
|
||||
|
||||
if ($ref != 1) {
|
||||
print "Content-Type: text/html\n\n $bad_referer_img\n\n";
|
||||
|
||||
if ($uselog == 1) {
|
||||
open(LOG,">>$error_log") || die "Can't Open User Error Log: $!\n";
|
||||
print LOG "$error: $ENV{'REMOTE_HOST'} [$date] $ENV{'HTTP_REFERER'} - $ENV{'HTTP_USER_AGENT'}\n";
|
||||
close(LOG);
|
||||
}
|
||||
exit;
|
||||
}
|
||||
}
|
||||
|
||||
#################
|
||||
sub get_num {
|
||||
open(COUNT,"$count_file") || die "Can't Open Count Data File: $!\n";
|
||||
$count = <COUNT>;
|
||||
close(COUNT);
|
||||
if ($count =~ /\n$/) {
|
||||
chop($count);
|
||||
}
|
||||
|
||||
$count++;
|
||||
|
||||
open(COUNT,">$count_file") || die "Can't Open Count Data File For Writing: $!\n";
|
||||
print COUNT "$count";
|
||||
close(COUNT);
|
||||
}
|
||||
|
||||
#################
|
||||
sub log_access {
|
||||
open(LOG,">>$access_log") || die "Can't Open User Access Log: $!\n";
|
||||
print LOG "[$date] $ENV{'HTTP_REFERER'} - $ENV{'REMOTE_HOST'} - $ENV{'HTTP_USER_AGENT'}\n";
|
||||
close(LOG);
|
||||
}
|
||||
|
|
@ -0,0 +1,70 @@
|
|||
#!/usr/local/bin/perl -w
|
||||
use CGI;
|
||||
|
||||
#start_multipart_form();
|
||||
$query = new CGI;
|
||||
|
||||
|
||||
$TMP="/tmp/ExecAsimut.$$" ;
|
||||
|
||||
mkdir ($TMP , 0777) ;
|
||||
|
||||
print "Content-type: text/html\n\n";
|
||||
#while (($key, $val) = each %ENV) {
|
||||
# print "$key = $val<BR>\n";
|
||||
#}
|
||||
|
||||
print "<HTML>\n";
|
||||
print "<head>\n";
|
||||
print "<Title> Simulation Asimut</Title>\n";
|
||||
print "</head>\n";
|
||||
print "<body>\n";
|
||||
print "<PRE>\n";
|
||||
|
||||
# Read a text file and print it out
|
||||
# while (<$filename>) {
|
||||
# print "$_<BR>\n\n";
|
||||
# }
|
||||
|
||||
# $type = $query->uploadInfo($filename)->{'Content-Type'};
|
||||
# unless ($type eq 'text/html') {
|
||||
# die "HTML FILES ONLY!";
|
||||
# }
|
||||
|
||||
$filename = $query->param('vbe');
|
||||
#print "<BR><BR>$filename<BR>\n\n";
|
||||
|
||||
# Copy a binary file to somewhere safe
|
||||
open (OUTFILE,">>$TMP/description.vbe");
|
||||
while ($bytesread=read($filename,$buffer,1024)) {
|
||||
print OUTFILE $buffer;
|
||||
}
|
||||
close (OUTFILE);
|
||||
|
||||
$filename = $query->param('pat');
|
||||
|
||||
open (OUTFILE,">>$TMP/unproc_patterns.pat");
|
||||
while ($bytesread=read($filename,$buffer,1024)) {
|
||||
print OUTFILE $buffer;
|
||||
}
|
||||
close (OUTFILE);
|
||||
|
||||
|
||||
|
||||
#exec ( "( sleep 50 ; /asim/gnu/bin/rm -fr $TMP ) & " ) ;
|
||||
#print "<BR>Exec done...\n<BR>";
|
||||
|
||||
open ( RESULT, "( cd $TMP ; . /users/soft5/newlabo/alliance/share/etc/alc_env.sh ; asimut -b description unproc_patterns res_patterns ) 2>&1 |" );
|
||||
|
||||
while (<RESULT>) {
|
||||
print ;
|
||||
}
|
||||
close RESULT ;
|
||||
print "<BR>done...\n<BR>";
|
||||
print "<BR>Vous pouvez recuper le fichier de pat simulé <a href=$TMP/res_patterns.pat>ici</a>\n<BR>";
|
||||
print "</PRE>\n";
|
||||
|
||||
|
||||
print "</body>\n";
|
||||
print "</HTML>\n";
|
||||
|
||||
|
|
@ -0,0 +1,46 @@
|
|||
#!/usr/local/bin/bash
|
||||
|
||||
# disable filename globbing
|
||||
set -f
|
||||
|
||||
echo Content-type: text/plain
|
||||
echo
|
||||
|
||||
# echo "argc is '"$#"' argv is '"$*"'"
|
||||
# pwd
|
||||
|
||||
# echo $REQUEST_URI
|
||||
|
||||
URI="${DOCUMENT_ROOT}${REQUEST_URI}"
|
||||
|
||||
res=`echo $URI | grep \/$`
|
||||
if [ X"$res"Y != XY ]
|
||||
then
|
||||
URI=${URI}index.html
|
||||
fi
|
||||
|
||||
URI_ROOT=`echo $URI | sed 's,\/[^\/]*$,/,'`
|
||||
URI_DOC=`echo $URI | sed 's,^.*\/,,' | sed 's,\.gb\.html$,,' | sed 's,\.fr\.html$,,' | sed 's,\.html$,,'`
|
||||
|
||||
#echo $URI_ROOT
|
||||
#echo $URI_DOC
|
||||
|
||||
FILE0="${URI_ROOT}${URI_DOC}.html"
|
||||
FILE1="${URI_ROOT}${URI_DOC}.fr.html"
|
||||
FILE2="${URI_ROOT}${URI_DOC}.gb.html"
|
||||
|
||||
|
||||
if [ -f "$FILE0" -a -f "$FILE1" -a -f "$FILE2" ]
|
||||
then
|
||||
|
||||
cat << EOF
|
||||
|
||||
<Center>
|
||||
<A href=${URI_DOC}.fr.html><img src="http://www-asim.lip6.fr/ssi/flag_fr.gif" alt="[FRENCH]" width="34" height="27" border=0 ></A> <A href=${URI_DOC}.gb.html><img src="http://www-asim.lip6.fr/ssi/flag_gb.gif" alt="[ENGLISH]" width="34" height="27" border=0></A>
|
||||
<br clear=all>
|
||||
</Center>
|
||||
|
||||
EOF
|
||||
|
||||
fi
|
||||
|
||||
|
|
@ -0,0 +1,34 @@
|
|||
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<meta http-equiv="Content-Type"
|
||||
content="text/html; charset=iso-8859-1">
|
||||
<title></title>
|
||||
|
||||
</head>
|
||||
<!--#include virtual="/ssi/asim.header/" -->
|
||||
|
||||
|
||||
<body bgcolor="#FFFFFF">
|
||||
|
||||
<p><font color="#FF0000" size="7" face="verdana,arial,helvetica,helv"><strong>ERROR :</strong></font></p>
|
||||
|
||||
<p align="center"> </p>
|
||||
|
||||
<p align="center"><font face="verdana,arial,helvetica,helv"><strong>This page does not
|
||||
exist. </strong></font></p>
|
||||
|
||||
<p align="center"><font face="verdana,arial,helvetica,helv"><strong>Please notify its
|
||||
maintainer. </strong></font></p>
|
||||
|
||||
<p align="center"><font face="verdana,arial,helvetica,helv"><strong>( You can use the
|
||||
link on the lower left corner of this page to mail its
|
||||
maintainer. )</strong></font></p>
|
||||
|
||||
|
||||
|
||||
<!--#include virtual="/ssi/asim.footer/" -->
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
#!/usr/local/bin/perl -w
|
||||
|
||||
use Fcntl ':flock'; # import LOCK_* constants
|
||||
|
||||
$res=flock("/tmp/my.lock", LOCK_EX);
|
||||
print $res;
|
||||
system ("ls -alrt /tmp");
|
||||
sleep 10;
|
||||
|
||||
exit 0
|
||||
__END__
|
||||
|
||||
|
||||
|
||||
|
||||
sub lock {
|
||||
flock(MBOX,LOCK_EX);
|
||||
# and, in case someone appended
|
||||
# while we were waiting...
|
||||
seek(MBOX, 0, 2);
|
||||
}
|
||||
|
||||
|
||||
sub unlock {
|
||||
flock(MBOX,LOCK_UN);
|
||||
}
|
||||
|
||||
open(MBOX, ">>/usr/spool/mail/$ENV{'USER'}")
|
||||
or die "Can't open mailbox: $!";
|
||||
|
||||
lock();
|
||||
print MBOX $msg,"\n\n";
|
||||
unlock();
|
||||
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
#!/usr/local/bin/bash
|
||||
|
||||
# disable filename globbing
|
||||
set -f
|
||||
|
||||
echo Content-type: text/plain
|
||||
echo
|
||||
|
||||
# echo "argc is '"$#"' argv is '"$*"'"
|
||||
|
||||
if [ X"$USER_NAME"Y = XY ]
|
||||
then
|
||||
USER_NAME=czo
|
||||
fi
|
||||
|
||||
if [ X"$USER_NAME"Y = XistesY ]
|
||||
then
|
||||
USER_NAME=czo
|
||||
fi
|
||||
|
||||
FINGER=` finger -m $USER_NAME | head -1 | cut -d ":" -f3 | sed 's/-/ /g' `
|
||||
|
||||
echo '<A HREF="mailto:'$USER_NAME'@asim.lip6.fr">'$FINGER'</A>'
|
||||
|
||||
|
|
@ -0,0 +1,199 @@
|
|||
#!/usr/local/bin/perl -w
|
||||
|
||||
#============================================================================
|
||||
# Copyright 1999 Mikodocs Guide to HTML, http://www.mikodocs.com/
|
||||
# You may distribute this program freely, but keep
|
||||
# this notice in place.
|
||||
#============================================================================
|
||||
|
||||
|
||||
#============================================================================
|
||||
# modules
|
||||
#
|
||||
use strict;
|
||||
use CGI;
|
||||
use CGI::Carp 'fatalsToBrowser', 'croak';
|
||||
$CGI::POST_MAX = 10240; # set maximum size of post
|
||||
#
|
||||
# modules
|
||||
#============================================================================
|
||||
|
||||
|
||||
#============================================================================
|
||||
# variables
|
||||
#
|
||||
my (
|
||||
$query, # CGI query object
|
||||
$maxFields, # maximum number of fields to accept
|
||||
$rand, # random number for banners
|
||||
$paramKey, # a single parameter name
|
||||
$inputdata, # filehandle for uploaded files
|
||||
@inputVals, # values for a field (they can send more than one)
|
||||
$inputVal, # a single values for a field
|
||||
$modval, # modified value of
|
||||
$fileinfo, # uploaded file information
|
||||
@params, # array of all fields sent
|
||||
$key,$val, # key an value for $fileinfo hash
|
||||
);
|
||||
$query=CGI->new; # get CGI object
|
||||
$maxFields=30; # maximum number of fields to accept
|
||||
$rand = int(rand(100000)); # random number for ad banner
|
||||
#
|
||||
# variables
|
||||
#============================================================================
|
||||
|
||||
|
||||
#============================================================================
|
||||
# top of page
|
||||
#
|
||||
print $query->header;
|
||||
print <<"(TOPOFPAGE)";
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>Mikodocs Guide to HTML: My CGI</TITLE>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
|
||||
<H1>Env</H1>
|
||||
|
||||
(TOPOFPAGE)
|
||||
#
|
||||
# top of page
|
||||
#============================================================================
|
||||
|
||||
|
||||
#============================================================================
|
||||
# list
|
||||
#
|
||||
|
||||
# get list of fields
|
||||
@params = $query->param;
|
||||
if (@params > $maxFields)
|
||||
{croak "No more than $maxFields fields please"}
|
||||
|
||||
# open table if necessary
|
||||
print "<HR><P><TABLE BORDER CELLPADDING=4>\n" if @params;
|
||||
|
||||
foreach $paramKey (@params)
|
||||
{
|
||||
print "<TR VALIGN=TOP>";
|
||||
|
||||
#----------------------------------------------------------------
|
||||
# value
|
||||
#
|
||||
$inputdata=$query->param($paramKey);
|
||||
$fileinfo=$query->uploadInfo($inputdata);
|
||||
|
||||
# if it's an uploaded file
|
||||
if (defined($fileinfo))
|
||||
{
|
||||
print "<TH>", tablesc($paramKey), "</TH>"; # name of field
|
||||
print "<TD><TABLE BORDER BGCOLOR=\"#FFFFCC\" CELLPADDING=4>\n";
|
||||
while (($key,$val) = each %{$fileinfo})
|
||||
{
|
||||
# content-disposition gives several pieces of
|
||||
# information about the file, so let's parse it up
|
||||
if (lc($key) eq "content-disposition")
|
||||
{
|
||||
my ($dis,@dispieces);
|
||||
foreach $dis (split(m|\s*;\s*|,$val))
|
||||
{
|
||||
@dispieces=split("\s*=\s*",$dis,2);
|
||||
next unless defined $dispieces[1];
|
||||
next if $dispieces[0] =~ m|^name$|i;
|
||||
print
|
||||
"<TR><TD>",
|
||||
tablesc($dispieces[0]),
|
||||
"</TD><TD><CODE>",
|
||||
tablesc($dispieces[1]),
|
||||
"</CODE></TD></TR>\n";
|
||||
}
|
||||
}
|
||||
|
||||
# else just print the field
|
||||
else
|
||||
{
|
||||
print
|
||||
"<TR><TD>",
|
||||
tablesc($key),
|
||||
"</TD><TD><CODE>",
|
||||
tablesc($val),
|
||||
"</CODE></TD></TR>\n";
|
||||
}
|
||||
}
|
||||
|
||||
# output the file size
|
||||
seek($inputdata,0,2); # go to end of file handle
|
||||
print "<TR><TD>size</TD><TD>",
|
||||
tell($inputdata),
|
||||
"</TD></TR>\n";
|
||||
print "</TD></TABLE>"; #
|
||||
}
|
||||
|
||||
# else it's not an uploaded file
|
||||
else
|
||||
{
|
||||
# get array of input values
|
||||
@inputVals=$query->param($paramKey);
|
||||
@inputVals=grep(tablesc($_),@inputVals);
|
||||
|
||||
# name of field
|
||||
print "<TH ROWSPAN=",
|
||||
scalar(@inputVals) ,">",
|
||||
tablesc($paramKey), "</TH><TD><PRE>";
|
||||
|
||||
#out put value(s) for field
|
||||
foreach $inputVal (@inputVals)
|
||||
{$inputVal = tablesc($inputVal)}
|
||||
print join("</PRE></TD></TR>\n<TR><TD><PRE>",@inputVals),
|
||||
"</PRE></TD>";
|
||||
}
|
||||
#
|
||||
# value
|
||||
#----------------------------------------------------------------
|
||||
|
||||
print "</TR>\n";
|
||||
}
|
||||
|
||||
# close table if necessary
|
||||
print "</TABLE><P>\n" if @params;
|
||||
|
||||
#
|
||||
# list
|
||||
#============================================================================
|
||||
|
||||
|
||||
#============================================================================
|
||||
# bottom of document
|
||||
#
|
||||
|
||||
# ************************************************************************
|
||||
# *** IF YOU COPY My CGI, ABSOLUTELY PLEASE DO NOT CHANGE THIS SECTION ***
|
||||
# ************************************************************************
|
||||
|
||||
print <<"(END BOTTOM OF PAGE)";
|
||||
<HR><P>
|
||||
</BODY>
|
||||
</HTML>
|
||||
(END BOTTOM OF PAGE)
|
||||
#
|
||||
# bottom of document
|
||||
#============================================================================
|
||||
|
||||
|
||||
#============================================================================
|
||||
# tablesc
|
||||
# return undefined or for space-only/empty string,
|
||||
# otherwise change < > and & to character entities
|
||||
#
|
||||
sub tablesc
|
||||
{
|
||||
return " " if (! defined $_[0]) || ($_[0] !~ m|\S|);
|
||||
$_[0] =~ s|&|&|gso;
|
||||
$_[0] =~ s|<|<|gso;
|
||||
$_[0] =~ s|>|>|gso;
|
||||
$_[0];
|
||||
}
|
||||
#
|
||||
# tablesc
|
||||
#============================================================================
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
#!/usr/local/bin/perl
|
||||
$TMP=">/tmp/toto.123" ;
|
||||
open sotie, $TMP ;
|
||||
print "Content-type: text/html\n\n";
|
||||
while (($key, $val) = each %ENV) {
|
||||
print "$key = $val<BR>\n";
|
||||
}
|
||||
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
AuthName "Confidentiel ASIM (intranet)"
|
||||
AuthType Basic
|
||||
AuthUserFile /users/largo2/webmastr/ASIM-AuthUserFile
|
||||
require user asim
|
||||
|
|
@ -0,0 +1,82 @@
|
|||
#!/asim/gnu/bin/perl
|
||||
# (C) Copyright 1997,98 Czo <mailto:Olivier.Sirol@asim.lip6.fr>
|
||||
# Parts (C) A.Fenyo
|
||||
use CGI;
|
||||
|
||||
$ASIM_HEADER=`/bin/cat /users/soft5/webmastr/wwwroot/ssi/asim.header/index.gb.html`;
|
||||
$ASIM_FOOTER=`/bin/cat /users/soft5/webmastr/wwwroot/ssi/asim.footer/index.gb.html`;
|
||||
$SEARCH_HEADER=`/bin/cat /users/soft5/webmastr/wwwroot/ssi/search.header-intranet/index.gb.html`;
|
||||
$SEARCH_MIDDLE=`/bin/cat /users/soft5/webmastr/wwwroot/ssi/search.middle-intranet/index.gb.html`;
|
||||
$SEARCH_FOOTER=`/bin/cat /users/soft5/webmastr/wwwroot/ssi/search.footer/index.gb.html`;
|
||||
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
$query = new CGI;
|
||||
|
||||
$str = $query->param('searchstring');
|
||||
|
||||
# Czo 990607 : autorise . et _
|
||||
|
||||
$str =~ s/[^a-zA-Z0-9-_ \*\.]//g;
|
||||
$str =~ s/ -/ /g;
|
||||
$str =~ s/^-/ /;
|
||||
|
||||
print "$ASIM_HEADER\n$SEARCH_HEADER\n";
|
||||
print '<INPUT NAME=searchstring size=40 maxlength=800 name="searchstring" value="'.$str.'" > ';
|
||||
print "$SEARCH_MIDDLE\n";
|
||||
|
||||
|
||||
|
||||
|
||||
#system (date);
|
||||
#print system ( "/usr/local/home/czo/local/FreeBSD/bin/swish-e -f /usr/local/home/czo/public_html/cgi-bin/index.swish-e -w $str" );
|
||||
#$RET = `/usr/local/home/czo/local/FreeBSD/bin/swish-e -c /usr/local/home/czo/public_html/cgi-bin/index.swish-e -w $str`;
|
||||
#print "<PRE>";
|
||||
open RESULT, "/asim/gnu/bin/swish-e -m 40 -f /users/soft5/webmastr/wwwroot/cgi-bin/intranet.dat -w $str |";
|
||||
|
||||
|
||||
$cpt = 0;
|
||||
while (<RESULT>) {
|
||||
# chop;
|
||||
#print ;
|
||||
|
||||
m/err: no results/ && do
|
||||
{
|
||||
print '<font face="verdana,arial,helvetica" size=2><b>No</b> match found. </font>';
|
||||
print '<font face="verdana,arial,helvetica" size=-1>';
|
||||
};
|
||||
|
||||
m/^# Number of hits: (.*)/ && do
|
||||
{
|
||||
print '<font face="verdana,arial,helvetica" size=-1><b>'.$1.'</b> matches were found. </font>';
|
||||
print '<font face="verdana,arial,helvetica" size=-1>';
|
||||
};
|
||||
|
||||
m/^#/ && next;
|
||||
|
||||
|
||||
m/^(.*) (.*) "(.*)" (.*)/ && (($res1, $res2, $res3, $res4) = ($1, $2, $3, $4)) && do
|
||||
{
|
||||
$cpt++;
|
||||
$tmp1 = $res1/10; $tmp1 =~ s/^(.*)\..*/\1/;
|
||||
$tmp = $res4/1024; $tmp =~ s/^(.*\..).*/\1/;
|
||||
|
||||
print '<P><b>'.$cpt.'. </b><font color="#0000FF"> ['.$tmp1.'%] </font> <a href="'.$res2.'"><b>'.$res3.'</b></a><br>
|
||||
<font face="arial,helvetica" size=-2>[<b>URL:</b> '.$res2.']</font><br>
|
||||
<font face="verdana,arial,helvetica" size=-2>Page size '.$tmp.' Kb</font><P>' ;
|
||||
#Last modified 7-Oct-97 -
|
||||
|
||||
# $RR =`/asim/gnu/bin/lynxx -dump $res2 | /asim/gnu/bin/grep -1 $str | /asim/gnu/bin/sed -e 's/\\($str\\)/\\<B\\>\\1\\<\\/B\\>/g'`;
|
||||
# print "<TD><SMALL><PRE>Containing : \n$RR\n</PRE></SMALL></TD>\n" ;
|
||||
};
|
||||
# print '<TR><TD align=right>'.$cpt.'- </TD><TD> <A HREF="http://mpc.lip6.fr'.$file.'">http://mpc.lip6.fr'.$file.'</A><BR></TR>';
|
||||
#
|
||||
}
|
||||
#
|
||||
close(RESULT);
|
||||
|
||||
|
||||
print "$SEARCH_FOOTER\n$ASIM_FOOTER\n";
|
||||
exit 0
|
||||
__END__
|
||||
|
||||
|
|
@ -0,0 +1,356 @@
|
|||
1999/10/29 10:28:51 132.227.103.10 "Whole Asim Site" "czo" 774
|
||||
1999/10/29 10:29:26 132.227.103.10 "Whole Asim Site" "jacomme" 102
|
||||
1999/10/29 10:29:38 132.227.103.10 "Whole Asim Site" "ludo or jacomme " 113
|
||||
1999/10/29 10:29:47 132.227.103.10 "Whole Asim Site" "sirol" 221
|
||||
1999/10/29 10:30:02 132.227.103.10 "Whole Asim Site" "olivier" 271
|
||||
1999/10/29 11:45:22 193.25.30.87 "Whole Asim Site" "DLX" 41
|
||||
1999/10/29 12:30:20 193.25.30.87 "Whole Asim Site" "dlxm" 21
|
||||
1999/10/29 15:41:29 193.149.100.107 "Whole Asim Site" "asimut" 127
|
||||
1999/10/31 03:39:14 129.127.236.253 "Alliance" "DP_RGF2CC" 0
|
||||
1999/10/31 03:39:32 129.127.236.253 "Whole Asim Site" "dp_rgf*" 2
|
||||
1999/10/31 03:40:32 129.127.236.253 "Whole Asim Site" "DP_RGF2CC" 0
|
||||
1999/10/31 03:40:47 129.127.236.253 "Whole Asim Site" "dp_rfg2cc" 2
|
||||
1999/10/31 04:59:10 129.127.236.253 "Whole Asim Site" "DP_IMPORT" 4
|
||||
1999/10/31 09:55:48 195.116.87.46 "Alliance" ""
|
||||
1999/10/31 09:56:26 195.116.87.46 "Alliance" "vlsi" 116
|
||||
1999/11/01 02:55:05 129.127.236.253 "Whole Asim Site" "ms_y" 6
|
||||
1999/11/01 07:42:04 131.228.4.225 "Whole Asim Site" "alliance download" 62
|
||||
1999/11/01 09:53:23 194.243.148.18 "Whole Asim Site" "pezuol" 2
|
||||
1999/11/01 22:47:35 15.255.216.3 "Whole Asim Site" "place and route" 33
|
||||
1999/11/02 00:22:08 129.127.236.253 "Alliance" "padlib" 37
|
||||
1999/11/02 00:22:48 129.127.236.253 "Whole Asim Site" "pali_sp" 0
|
||||
1999/11/02 00:23:07 129.127.236.253 "Whole Asim Site" "pad*" 99
|
||||
1999/11/02 00:23:16 129.127.236.253 "Whole Asim Site" "sclib" 89
|
||||
1999/11/02 00:24:03 129.127.236.253 "Whole Asim Site" "no2_y" 4
|
||||
1999/11/02 05:33:26 129.127.236.253 "Whole Asim Site" "Error code 20" 15
|
||||
1999/11/02 05:34:20 129.127.236.253 "Whole Asim Site" "Error code 20" 15
|
||||
1999/11/02 06:02:46 129.127.236.253 "Whole Asim Site" "Distance between connector " 1
|
||||
1999/11/02 06:43:15 129.127.236.253 "Whole Asim Site" "padlib" 37
|
||||
1999/11/02 12:50:02 193.140.221.62 "Whole Asim Site" "package" 86
|
||||
1999/11/02 14:54:28 195.221.228.2 "Whole Asim Site" "RISC" 14
|
||||
1999/11/02 15:03:21 195.221.228.2 "Whole Asim Site" "FRISC" 1
|
||||
1999/11/02 15:46:33 141.35.14.26 "Alliance" "fpga" 39
|
||||
1999/11/02 16:07:32 141.35.14.26 "Whole Asim Site" "alligator" 8
|
||||
1999/11/02 19:38:30 195.152.254.179 "Multimedia" "viewlogic" 0
|
||||
1999/11/02 19:38:41 195.152.254.181 "Whole Asim Site" "viewlogic" 0
|
||||
1999/11/03 10:28:31 unknown "Whole Asim Site" "greiner" 57
|
||||
1999/11/03 16:31:30 193.25.29.70 "Whole Asim Site" "32 bit" 24
|
||||
1999/11/03 23:30:52 213.36.8.251 "Whole Asim Site" "rasic" 0
|
||||
1999/11/03 23:31:15 213.36.8.251 "Personal pages" "rasic" 0
|
||||
1999/11/04 01:55:43 195.238.129.98 "Whole Asim Site" "graal runtime" 0
|
||||
1999/11/04 01:55:53 195.238.129.98 "Alliance" "graal runtime" 0
|
||||
1999/11/04 01:56:06 195.238.129.98 "Alliance Mailling Lists" "graal runtime" 0
|
||||
1999/11/04 05:41:27 129.127.236.253 "Whole Asim Site" "Distance between connector vdd and connector vdd of the core isnt big enough." 0
|
||||
1999/11/04 05:41:47 129.127.236.253 "Whole Asim Site" "ring" 44
|
||||
1999/11/04 12:59:22 146.64.248.113 "Whole Asim Site" "schematic" 15
|
||||
1999/11/04 16:29:46 193.25.29.70 "Whole Asim Site" "FPGA" 55
|
||||
1999/11/05 04:04:35 202.230.194.2 "Whole Asim Site" "process" 102
|
||||
1999/11/05 04:08:33 202.230.194.2 "Whole Asim Site" "process statement" 8
|
||||
1999/11/05 08:29:57 129.127.236.11 "Alliance" "chip.c" 5
|
||||
1999/11/05 14:26:41 unknown, unknown "Whole Asim Site" "BIST RAM" 0
|
||||
1999/11/05 16:02:32 195.101.38.197 "Whole Asim Site" "beowulf" 0
|
||||
1999/11/05 16:02:46 195.101.38.197 "Publications" "beowulf" 0
|
||||
1999/11/05 16:34:06 132.227.103.10 "Personal pages" "sex*" 2
|
||||
1999/11/06 11:09:29 195.53.170.189 "Alliance Mailling Lists" "Problems linux" 72
|
||||
1999/11/06 11:12:48 195.53.170.189 "Whole Asim Site" "Problems linux motif" 6
|
||||
1999/11/06 11:23:14 195.53.170.189 "Whole Asim Site" "linux motif lesstif" 6
|
||||
1999/11/07 21:29:50 202.188.70.177 "Whole Asim Site" "fir filter design architecture" 0
|
||||
1999/11/07 21:32:41 202.188.70.177 "Personal pages" "fir filter design architecture" 0
|
||||
1999/11/08 11:18:04 193.25.29.70 "Whole Asim Site" "ROM" 42
|
||||
1999/11/08 13:27:01 192.94.38.34 "Whole Asim Site" "vcd" 0
|
||||
1999/11/08 13:32:48 158.49.97.162 "Alliance Mailling Lists" "dreal lesstif" 2
|
||||
1999/11/08 13:35:43 158.49.97.162 "Whole Asim Site" "dreal" 119
|
||||
1999/11/08 13:38:18 158.49.97.162 "Whole Asim Site" "dreal linux" 23
|
||||
1999/11/08 13:38:19 158.49.97.162 "Whole Asim Site" "dreal linux" 23
|
||||
1999/11/08 15:14:28 193.25.29.72 "" ""
|
||||
1999/11/08 16:12:00 193.25.29.70 "Whole Asim Site" "testbench" 0
|
||||
1999/11/08 20:19:39 205.147.9.166 "Whole Asim Site" "vhdl" 321
|
||||
1999/11/09 10:08:51 199.203.189.147 "Whole Asim Site" "vhdlcompiler" 0
|
||||
1999/11/09 10:24:46 129.254.187.12 "Whole Asim Site" "codesign" 0
|
||||
1999/11/09 10:25:18 129.254.187.12 "Whole Asim Site" "conception" 89
|
||||
1999/11/09 11:34:38 193.25.29.72 "Whole Asim Site" "am2910" 0
|
||||
1999/11/09 11:34:55 193.25.29.72 "Whole Asim Site" "am2900" 0
|
||||
1999/11/09 11:35:04 193.25.29.72 "Whole Asim Site" "am2901" 4
|
||||
1999/11/09 13:57:39 132.227.67.9 "Whole Asim Site" "bug" 1140
|
||||
1999/11/09 14:26:53 193.25.29.70 "Whole Asim Site" "dlxm" 21
|
||||
1999/11/09 14:58:03 202.56.248.244 "Whole Asim Site" "vlsi projects" 8
|
||||
1999/11/09 16:38:56 193.25.29.70 "Whole Asim Site" "dlxm" 21
|
||||
1999/11/09 17:03:54 139.62.208.15 "Whole Asim Site" "computer in brazil" 0
|
||||
1999/11/09 23:14:43 205.226.11.91 "Whole Asim Site" "1355" 8
|
||||
1999/11/10 00:48:25 208.32.26.78 "Whole Asim Site" "xilinx" 24
|
||||
1999/11/10 00:51:19 208.32.26.78 "Whole Asim Site" "FPGA" 58
|
||||
1999/11/10 10:36:05 134.214.104.111 "Whole Asim Site" "metepr" 0
|
||||
1999/11/10 10:36:12 134.214.104.111 "Whole Asim Site" "meteor" 0
|
||||
1999/11/10 10:40:13 134.214.104.111 "Personal pages" "derieux" 9
|
||||
1999/11/10 10:43:11 134.214.104.111 "Whole Asim Site" "derieux" 32
|
||||
1999/11/10 12:33:13 193.25.29.70 "Whole Asim Site" "bibliothek" 0
|
||||
1999/11/10 12:34:18 193.25.29.70 "Whole Asim Site" "standard bibliotheque" 0
|
||||
1999/11/10 12:39:16 193.25.29.72 "Whole Asim Site" "dlxm" 21
|
||||
1999/11/10 13:28:51 193.25.29.70 "Whole Asim Site" "dlxm" 21
|
||||
1999/11/10 14:29:46 193.25.29.70 "Whole Asim Site" "dlxm" 21
|
||||
1999/11/10 15:12:47 193.25.29.70 "Whole Asim Site" "dlxm" 21
|
||||
1999/11/10 16:23:20 130.226.137.66 "Whole Asim Site" "GDSII" 12
|
||||
1999/11/11 02:55:44 204.71.192.35 "Alliance Mailling Lists" "bugs" 30
|
||||
1999/11/11 02:57:14 204.71.192.35 "Whole Asim Site" "bugs" 34
|
||||
1999/11/11 04:15:05 155.69.164.203 "Whole Asim Site" "os2" 2
|
||||
1999/11/11 09:21:50 209.214.105.213 "Alliance" ""
|
||||
1999/11/11 18:34:11 203.80.88.121 "Whole Asim Site" "graal" 191
|
||||
1999/11/11 18:44:20 203.80.103.31 "Whole Asim Site" "xpat" 43
|
||||
1999/11/11 18:50:28 203.80.103.31 "Alliance Mailling Lists" "graal" 177
|
||||
1999/11/11 19:25:43 203.80.88.121 "Whole Asim Site" "linuxELF" 0
|
||||
1999/11/11 19:25:52 203.80.88.121 "Whole Asim Site" "linux" 252
|
||||
1999/11/12 16:41:14 132.227.63.108 "Whole Asim Site" "chaker" 8
|
||||
1999/11/12 17:12:32 203.80.66.201 "Whole Asim Site" "xpat" 43
|
||||
1999/11/13 03:01:23 208.219.99.60 "Whole Asim Site" "sdram" 0
|
||||
1999/11/15 10:14:37 195.178.164.65 "Whole Asim Site" "technology" 157
|
||||
1999/11/15 10:21:00 195.178.164.65 "Whole Asim Site" "technology mosis" 6
|
||||
1999/11/15 10:33:27 193.25.29.70 "Whole Asim Site" "dlxm " 24
|
||||
1999/11/15 11:15:19 144.16.68.86 "Whole Asim Site" "FPGA" 58
|
||||
1999/11/15 13:57:45 195.178.164.65 "Whole Asim Site" "xpat" 43
|
||||
1999/11/15 14:24:20 192.117.186.146 "Whole Asim Site" "DETECTOR" 0
|
||||
1999/11/15 14:24:35 192.117.186.146 "Whole Asim Site" "SENSOR" 0
|
||||
1999/11/15 18:08:34 140.105.19.177 "Whole Asim Site" "Tutorials" 69
|
||||
1999/11/15 21:48:22 140.105.19.177 "Whole Asim Site" "addaccu.vbe" 15
|
||||
1999/11/16 10:50:31 192.168.1.26 "Whole Asim Site" "hspice" 1
|
||||
1999/11/16 16:33:09 140.105.19.201 "Whole Asim Site" "Technology Files" 69
|
||||
1999/11/16 16:57:58 193.25.29.70 "Whole Asim Site" "dlxm" 24
|
||||
1999/11/17 11:18:34 210.64.153.187 "Whole Asim Site" "Yagle" 65
|
||||
1999/11/17 15:38:28 194.214.169.248 "Whole Asim Site" "recognition" 18
|
||||
1999/11/17 16:46:08 132.227.63.110 "Whole Asim Site" "noe" 3
|
||||
1999/11/17 19:42:10 195.115.162.75 "Whole Asim Site" "xml" 0
|
||||
1999/11/17 19:42:28 195.115.162.75 "Personal pages" "joly" 2
|
||||
1999/11/17 19:43:41 195.115.162.75 "Personal pages" "joly" 2
|
||||
1999/11/17 19:45:18 195.115.162.75 "Personal pages" "philipe" 0
|
||||
1999/11/17 19:45:33 195.115.162.75 "Whole Asim Site" "rosa" 8
|
||||
1999/11/17 19:47:40 195.115.162.75 "Whole Asim Site" "gwan" 0
|
||||
1999/11/17 19:50:47 195.115.162.75 "Personal pages" "gwan" 0
|
||||
1999/11/17 19:56:26 195.115.162.75 "Personal pages" "gwe" 3
|
||||
1999/11/17 19:58:47 195.115.162.75 "Whole Asim Site" "phi" 0
|
||||
1999/11/17 19:58:56 195.115.162.75 "Personal pages" "phi" 1
|
||||
1999/11/18 18:52:03 147.234.2.4 "Mpc" "routers" 0
|
||||
1999/11/18 18:52:16 147.234.2.4 "Whole Asim Site" "1533" 0
|
||||
1999/11/18 18:52:27 147.234.2.4 "Whole Asim Site" "1355" 8
|
||||
1999/11/18 18:57:03 147.234.2.4 "Whole Asim Site" "rcube" 27
|
||||
1999/11/18 21:11:39 128.2.216.64 "Whole Asim Site" "bechmark circuits" 0
|
||||
1999/11/18 22:13:01 62.161.74.80 "Whole Asim Site" "sxlib" 49
|
||||
1999/11/18 22:16:25 62.161.74.80 "Whole Asim Site" "sxlib AND download" 0
|
||||
1999/11/18 22:16:40 62.161.74.80 "Whole Asim Site" "sxlib download" 0
|
||||
1999/11/19 01:33:57 210.64.153.187 "Whole Asim Site" "source code" 67
|
||||
1999/11/19 01:34:03 210.64.153.187 "Whole Asim Site" "source code" 67
|
||||
1999/11/19 18:31:58 192.168.11.50 "Whole Asim Site" "dff" 2
|
||||
1999/11/20 14:01:48 212.123.147.107 "Whole Asim Site" "compiling" 80
|
||||
1999/11/21 22:06:35 193.250.82.100 "Whole Asim Site" "chemin critique" 1
|
||||
1999/11/22 12:50:31 193.25.29.70 "Whole Asim Site" "alliance-support" 746
|
||||
1999/11/22 16:59:14 212.198.117.9 "Whole Asim Site" "Emmanuel Coulon" 3
|
||||
1999/11/22 17:09:16 132.227.63.108 "Whole Asim Site" "fpgen" 89
|
||||
1999/11/22 17:09:43 132.227.63.108 "Whole Asim Site" "fpgen" 89
|
||||
1999/11/23 00:40:17 192.76.27.151 "Alliance" "alliance 4.0" 4
|
||||
1999/11/23 10:17:50 193.25.29.70 "Whole Asim Site" "fpgen" 89
|
||||
1999/11/23 10:21:23 193.49.124.107 "Whole Asim Site" "dsp" 5
|
||||
1999/11/23 10:33:21 193.25.29.70 "Whole Asim Site" "fpgen" 89
|
||||
1999/11/23 14:59:06 140.105.19.188 "Whole Asim Site" "ASIC" 23
|
||||
1999/11/23 14:59:56 140.105.19.188 "Whole Asim Site" "fpga designA" 0
|
||||
1999/11/23 15:00:16 140.105.19.188 "Whole Asim Site" "fpga design" 26
|
||||
1999/11/23 15:00:49 10.13.84.9 "Whole Asim Site" "th" 93
|
||||
1999/11/23 21:49:31 194.247.44.173 "Whole Asim Site" "downloads" 0
|
||||
1999/11/23 21:49:42 194.247.44.173 "Whole Asim Site" "cadence" 35
|
||||
1999/11/23 21:54:19 194.247.44.173 "Whole Asim Site" "design frame work" 0
|
||||
1999/11/23 21:54:41 194.247.44.173 "Whole Asim Site" "design frame " 2
|
||||
1999/11/23 23:42:58 194.247.44.173 "Whole Asim Site" "source.readme" 0
|
||||
1999/11/23 23:43:12 194.247.44.173 "Whole Asim Site" "sourcecode" 0
|
||||
1999/11/23 23:43:28 194.247.44.173 "Alliance" "sourcecode" 0
|
||||
1999/11/23 23:57:44 140.105.19.154 "Alliance" "bbr" 17
|
||||
1999/11/24 10:34:25 195.178.164.65 "" ""
|
||||
1999/11/24 13:45:17 200.249.140.69 "Alliance Mailling Lists" ""
|
||||
1999/11/24 13:48:46 200.249.140.69 "Whole Asim Site" "syf" 334
|
||||
1999/11/24 14:19:51 195.239.69.14 "Whole Asim Site" "general management" 3
|
||||
1999/11/24 16:42:40 132.227.103.10 "Whole Asim Site" "Alliance Mailling Lists" 23
|
||||
1999/11/24 18:54:18 unknown "Whole Asim Site" "MIPS" 57
|
||||
1999/11/24 18:55:34 unknown "Whole Asim Site" "MIPS" 57
|
||||
1999/11/25 01:53:40 unknown "Whole Asim Site" "verilog" 11
|
||||
1999/11/25 15:34:49 134.157.116.130 "Whole Asim Site" "mips compiler" 1
|
||||
1999/11/25 16:17:18 193.25.29.70 "Whole Asim Site" "dlxm" 27
|
||||
1999/11/25 16:54:38 62.161.74.80 "Alliance" "sxlib" 51
|
||||
1999/11/25 16:56:04 62.161.74.80 "Alliance Mailling Lists" "sxlib" 51
|
||||
1999/11/25 16:56:16 62.161.74.80 "Personal pages" "sxlib" 0
|
||||
1999/11/25 16:56:21 62.161.74.80 "Mpc" "sxlib" 0
|
||||
1999/11/25 17:02:58 193.25.29.70 "Whole Asim Site" "8bit " 4
|
||||
1999/11/25 17:07:24 193.25.29.70 "Whole Asim Site" "fpgen" 89
|
||||
1999/11/25 17:21:16 193.25.29.70 "Whole Asim Site" "fpgen" 89
|
||||
1999/11/25 17:37:23 193.25.29.70 "Whole Asim Site" "dea 8190" 0
|
||||
1999/11/25 17:37:32 193.25.29.70 "Whole Asim Site" "dea8190" 0
|
||||
1999/11/25 17:37:44 193.25.29.70 "Whole Asim Site" "dea" 62
|
||||
1999/11/25 17:42:29 193.25.29.70 "Whole Asim Site" "8190" 0
|
||||
1999/11/25 17:42:52 193.25.29.70 "Whole Asim Site" "hasard" 0
|
||||
1999/11/25 17:43:11 193.25.29.70 "Whole Asim Site" "control" 31
|
||||
1999/11/25 19:44:34 132.227.63.52 "Whole Asim Site" "czo" 1024
|
||||
1999/11/26 04:57:03 129.127.236.253 "Whole Asim Site" "connectors vss and vdd are on the same equi" 0
|
||||
1999/11/26 04:57:18 129.127.236.253 "Whole Asim Site" "on the same equi" 1
|
||||
1999/11/26 04:58:24 129.127.236.253 "Whole Asim Site" "vdd and vss" 167
|
||||
1999/11/26 05:03:17 129.127.236.253 "Whole Asim Site" "DP_KEEP" 1
|
||||
1999/11/26 05:06:07 129.127.236.253 "Alliance Mailling Lists" "dpr" 46
|
||||
1999/11/26 05:08:21 129.127.236.253 "Whole Asim Site" "equi" 2
|
||||
1999/11/26 05:20:16 129.127.236.253 "Alliance" "same equi" 1
|
||||
1999/11/26 05:49:29 129.127.236.253 "Alliance" "power vdd vss" 14
|
||||
1999/11/26 05:50:26 129.127.236.253 "Whole Asim Site" "power vdd vss dpr" 2
|
||||
1999/11/26 06:44:21 209.239.213.246 "Whole Asim Site" "free vhdl software" 11
|
||||
1999/11/26 08:50:08 130.231.60.44 "Whole Asim Site" "download" 67
|
||||
1999/11/26 08:50:25 130.231.60.44 "Alliance" "download" 67
|
||||
1999/11/26 10:29:35 192.58.194.4 "Whole Asim Site" "download" 67
|
||||
1999/11/26 11:07:09 193.25.29.70 "Whole Asim Site" "dlxm" 28
|
||||
1999/11/26 11:18:11 193.50.5.156 "Whole Asim Site" "lestrade" 0
|
||||
1999/11/26 11:25:39 193.25.29.70 "Whole Asim Site" "dlxm" 28
|
||||
1999/11/26 14:11:06 193.25.29.70 "Whole Asim Site" "linux redHat6" 0
|
||||
1999/11/26 14:11:24 193.25.29.70 "Whole Asim Site" "Red" 7
|
||||
1999/11/26 14:26:08 164.129.1.38 "Whole Asim Site" "fpmap" 58
|
||||
1999/11/26 14:36:21 193.25.29.70 "Whole Asim Site" "REd Haat" 0
|
||||
1999/11/26 14:36:32 193.25.29.70 "Whole Asim Site" "REd Hat" 3
|
||||
1999/11/26 14:47:50 193.25.29.70 "Whole Asim Site" "Red Hat" 3
|
||||
1999/11/26 14:59:52 202.54.61.147 "Whole Asim Site" "free " 125
|
||||
1999/11/26 15:01:13 202.54.61.147 "Whole Asim Site" "free compilers" 0
|
||||
1999/11/26 15:16:37 134.206.22.37 "Whole Asim Site" "TRANSISTOR" 56
|
||||
1999/11/26 21:09:29 194.247.44.211 "Whole Asim Site" "compling alliance" 0
|
||||
1999/11/26 21:09:58 194.247.44.211 "Alliance" "compiling alliance" 79
|
||||
1999/11/27 18:32:34 193.95.115.33 "Whole Asim Site" "transistor" 56
|
||||
1999/11/27 19:12:14 213.228.24.30 "Whole Asim Site" "multimedia" 29
|
||||
1999/11/27 19:29:32 193.95.114.137 "" ""
|
||||
1999/11/27 19:29:56 193.95.114.137 "" ""
|
||||
1999/11/28 01:18:53 206.132.186.131 "" ""
|
||||
1999/11/28 16:52:44 194.38.166.88 "Whole Asim Site" ""
|
||||
1999/11/28 16:52:57 194.38.166.88 "Whole Asim Site" "torture" 0
|
||||
1999/11/28 19:03:52 171.211.231.70 "Whole Asim Site" "synthesis" 61
|
||||
1999/11/29 07:40:30 192.168.2.150 "Whole Asim Site" "FPGA" 58
|
||||
1999/11/29 07:44:27 192.168.2.150 "Whole Asim Site" "Altera" 4
|
||||
1999/11/29 10:59:45 193.25.29.70 "Whole Asim Site" "dlxm" 29
|
||||
1999/11/29 12:52:14 134.157.116.130 "Whole Asim Site" "mips" 57
|
||||
1999/11/30 10:59:42 213.228.23.44 "Whole Asim Site" "mips r 3000" 0
|
||||
1999/11/30 10:59:50 213.228.23.44 "Whole Asim Site" "mips exe" 0
|
||||
1999/11/30 10:59:56 213.228.23.44 "Whole Asim Site" "mips" 57
|
||||
1999/11/30 12:05:29 140.105.19.201 "Whole Asim Site" "technology file" 67
|
||||
1999/11/30 12:13:50 140.105.19.201 "Whole Asim Site" "founderiestfile" 0
|
||||
1999/11/30 12:13:59 140.105.19.201 "Whole Asim Site" "founderies" 0
|
||||
1999/11/30 12:14:16 140.105.19.201 "Whole Asim Site" "foundry" 9
|
||||
1999/11/30 12:14:55 140.105.19.201 "Whole Asim Site" "alcatel" 4
|
||||
1999/11/30 14:35:19 193.49.185.149 "Whole Asim Site" "DMA copy" 0
|
||||
1999/11/30 14:35:32 193.49.185.149 "Mpc" "DMA copy" 0
|
||||
1999/11/30 14:49:35 149.225.36.12 "Whole Asim Site" "libSM" 0
|
||||
1999/11/30 14:50:07 149.225.36.12 "Alliance" "libSM*" 33
|
||||
1999/11/30 15:00:30 149.225.36.12 "Alliance Mailling Lists" "libSM.so.6.0.0" 0
|
||||
1999/11/30 15:00:45 149.225.36.12 "Alliance" "libSM.so.6.0.0" 0
|
||||
1999/11/30 15:00:59 149.225.36.12 "Whole Asim Site" "libSM.so.6.0" 29
|
||||
1999/11/30 17:21:59 128.2.250.207 "Personal pages" "baillard" 0
|
||||
1999/11/30 21:38:19 156.26.30.226 "Alliance Mailling Lists" "genlib" 123
|
||||
1999/12/01 02:24:54 156.26.30.226 "Alliance" "genlib" 309
|
||||
1999/12/01 13:39:28 194.199.136.75 "Whole Asim Site" "saraiva" 17
|
||||
1999/12/01 13:39:46 194.58.207.147 "Whole Asim Site" "FPMAP" 58
|
||||
1999/12/01 13:59:34 194.58.207.147 "Whole Asim Site" "CMP AND EuroPractice" 1
|
||||
1999/12/01 16:44:25 131.254.50.57 "Whole Asim Site" "briot jean-pierre" 0
|
||||
1999/12/01 16:44:31 131.254.50.57 "Whole Asim Site" "briot" 0
|
||||
1999/12/01 16:44:38 131.254.50.57 "Mpc" "briot" 0
|
||||
1999/12/01 16:44:41 131.254.50.57 "Multimedia" "briot" 0
|
||||
1999/12/01 16:44:45 131.254.50.57 "Alliance" "briot" 0
|
||||
1999/12/01 16:44:49 131.254.50.57 "Alliance Mailling Lists" "briot" 0
|
||||
1999/12/01 16:44:52 131.254.50.57 "Education" "briot" 0
|
||||
1999/12/01 16:44:55 131.254.50.57 "Publications" "briot" 0
|
||||
1999/12/01 16:44:59 131.254.50.57 "Personal pages" "briot" 2
|
||||
1999/12/01 17:03:42 141.35.14.89 "Whole Asim Site" "DLX" 56
|
||||
1999/12/01 17:19:10 141.35.14.89 "Whole Asim Site" "dlx" 56
|
||||
1999/12/01 17:24:51 141.35.14.89 "Whole Asim Site" "dlx" 56
|
||||
1999/12/01 17:34:01 141.35.14.89 "Whole Asim Site" "amd" 8
|
||||
1999/12/01 19:12:53 193.136.138.186 "Whole Asim Site" "synopsys" 649
|
||||
1999/12/01 19:13:47 193.136.138.186 "Alliance" "synopsys tools" 11
|
||||
1999/12/01 20:32:42 209.232.84.2 "Whole Asim Site" "a 1.2ghz cmos" 0
|
||||
1999/12/01 20:32:53 209.232.84.2 "Whole Asim Site" "bendak" 0
|
||||
1999/12/01 20:49:09 139.133.204.82 "Whole Asim Site" "ppc" 0
|
||||
1999/12/01 20:49:15 139.133.204.82 "Whole Asim Site" "linux" 258
|
||||
1999/12/01 23:37:30 156.26.38.46 "Whole Asim Site" "cif errors" 11
|
||||
1999/12/01 23:48:59 156.26.38.46 "Alliance" "dreal" 129
|
||||
1999/12/01 23:50:08 156.26.38.46 "Whole Asim Site" "dreal" 129
|
||||
1999/12/02 00:04:48 156.26.38.46 "Whole Asim Site" "problems with dreal" 23
|
||||
1999/12/02 17:28:57 194.204.222.100 "Whole Asim Site" "programmation of bitmaps files" 0
|
||||
1999/12/02 17:30:07 194.204.222.100 "Publications" "bitmap" 0
|
||||
1999/12/02 22:10:30 212.53.97.7 "Whole Asim Site" "freebsd" 19
|
||||
1999/12/03 11:39:58 132.227.103.10 "Whole Asim Site" "asim" 1360
|
||||
1999/12/03 13:53:36 202.54.89.82 "Whole Asim Site" "test benches" 1
|
||||
1999/12/03 15:53:05 195.232.71.243 "Alliance" "microprocesseur x86" 0
|
||||
1999/12/03 15:53:34 195.232.71.243 "Whole Asim Site" "microprocesseur and x86" 0
|
||||
1999/12/03 15:54:58 195.232.71.243 "Whole Asim Site" "x86" 16
|
||||
1999/12/03 15:56:01 195.232.71.243 "Whole Asim Site" "modle" 0
|
||||
1999/12/03 15:56:19 195.232.71.243 "Whole Asim Site" "microprocesseur " 17
|
||||
1999/12/03 15:56:31 195.232.71.243 "Whole Asim Site" "models" 26
|
||||
1999/12/04 07:36:14 202.230.44.207 "Whole Asim Site" "FPGA" 58
|
||||
1999/12/04 11:29:00 212.35.11.133 "Whole Asim Site" "8086" 3
|
||||
1999/12/05 00:33:21 195.68.47.244 "Whole Asim Site" "collet" 0
|
||||
1999/12/05 00:33:29 195.68.47.244 "Personal pages" "collet" 0
|
||||
1999/12/05 22:43:31 212.67.134.149 "Whole Asim Site" "conditional signal assignment" 2
|
||||
1999/12/05 22:44:34 212.67.134.149 "Whole Asim Site" "concurrent statements" 7
|
||||
1999/12/06 11:13:48 193.76.202.246 "Whole Asim Site" "wawecom" 1
|
||||
1999/12/06 13:46:00 193.25.29.70 "Whole Asim Site" "16 bit" 13
|
||||
1999/12/06 13:50:56 193.25.29.70 "Whole Asim Site" "8bit " 4
|
||||
1999/12/06 14:05:56 193.25.29.70 "Whole Asim Site" "8bit processor" 0
|
||||
1999/12/06 14:06:17 193.25.29.70 "Whole Asim Site" "microprocessor" 22
|
||||
1999/12/06 14:24:08 193.25.29.70 "Whole Asim Site" "8 bit microprocessor" 0
|
||||
1999/12/06 14:24:18 193.25.29.70 "Whole Asim Site" "8bit microprocessor" 0
|
||||
1999/12/06 14:24:42 193.25.29.70 "Whole Asim Site" "16bit microprocessor" 0
|
||||
1999/12/06 14:25:25 193.25.29.70 "Whole Asim Site" "microprocessor" 22
|
||||
1999/12/06 14:26:04 193.25.29.70 "Whole Asim Site" "processor" 29
|
||||
1999/12/06 14:36:19 193.25.29.70 "Whole Asim Site" "8bit processor" 0
|
||||
1999/12/06 14:37:07 193.25.29.70 "Whole Asim Site" "16 bit processor" 0
|
||||
1999/12/06 14:37:17 193.25.29.70 "Whole Asim Site" "16bit processor" 0
|
||||
1999/12/06 14:37:46 193.25.29.70 "Whole Asim Site" "16 BIT " 13
|
||||
1999/12/06 14:42:44 193.25.29.70 "Whole Asim Site" "mips" 57
|
||||
1999/12/06 15:07:44 193.25.29.70 "Whole Asim Site" "vliew" 0
|
||||
1999/12/06 15:08:11 193.25.29.70 "Whole Asim Site" "vl" 2
|
||||
1999/12/06 15:09:23 193.25.29.70 "Whole Asim Site" "VLview" 0
|
||||
1999/12/06 15:09:37 193.25.29.70 "Whole Asim Site" "VL" 2
|
||||
1999/12/06 15:10:21 193.25.29.70 "Whole Asim Site" "DEA" 62
|
||||
1999/12/06 15:16:43 193.25.29.70 "Whole Asim Site" "vlview" 0
|
||||
1999/12/06 15:17:14 193.25.29.70 "Whole Asim Site" "1994" 24
|
||||
1999/12/06 16:30:38 194.136.176.162 "Whole Asim Site" "alliance4.0" 0
|
||||
1999/12/06 16:40:52 164.138.13.82 "Whole Asim Site" "bus pci" 16
|
||||
1999/12/07 00:38:15 24.12.96.149 "Whole Asim Site" "PowerPC" 2
|
||||
1999/12/07 00:39:14 24.12.96.149 "Whole Asim Site" "PowerMacintosh" 0
|
||||
1999/12/07 14:20:59 193.25.29.70 "Whole Asim Site" "amd" 8
|
||||
1999/12/07 14:24:13 193.25.29.70 "Whole Asim Site" "amd" 8
|
||||
1999/12/07 22:09:43 193.95.32.185 "Whole Asim Site" "fabrication" 12
|
||||
1999/12/07 23:39:27 207.135.216.203 "Whole Asim Site" "IRIX" 4
|
||||
1999/12/08 10:28:45 132.227.63.8 "Personal pages" "VTS" 3
|
||||
1999/12/08 10:29:16 132.227.63.8 "Whole Asim Site" "Habilitation" 2
|
||||
1999/12/08 10:29:26 132.227.63.8 "Personal pages" "Habilitation" 1
|
||||
1999/12/08 10:29:47 132.227.63.8 "Whole Asim Site" "IRIS" 7
|
||||
1999/12/08 10:29:57 132.227.63.8 "Personal pages" "IRIS" 10
|
||||
1999/12/08 13:58:36 212.67.136.254 "Whole Asim Site" "Hamming Code generator" 0
|
||||
1999/12/08 13:58:47 212.67.136.254 "Whole Asim Site" "FIFO" 0
|
||||
1999/12/08 13:58:55 212.67.136.254 "Whole Asim Site" "example" 698
|
||||
1999/12/08 13:59:35 212.67.136.254 "Whole Asim Site" "counter" 11
|
||||
1999/12/08 13:59:37 212.67.136.254 "Whole Asim Site" "counter" 11
|
||||
1999/12/08 16:47:15 193.25.29.72 "" ""
|
||||
1999/12/08 17:04:24 195.207.143.129 "Whole Asim Site" "lul" 0
|
||||
1999/12/08 18:48:34 193.49.146.252 "Whole Asim Site" "Antivirus Mac" 0
|
||||
1999/12/08 18:48:42 193.49.146.252 "Whole Asim Site" "Antivirus " 0
|
||||
1999/12/08 18:49:39 193.49.146.252 "Whole Asim Site" "virus" 0
|
||||
1999/12/09 07:06:20 163.32.251.110 "Whole Asim Site" "technology file" 67
|
||||
1999/12/09 07:14:22 163.32.251.110 "Whole Asim Site" "techmology file" 0
|
||||
1999/12/09 07:15:11 163.32.251.110 "Whole Asim Site" "technology file" 67
|
||||
1999/12/09 13:26:15 171.209.184.27 "Whole Asim Site" "MPEG" 2
|
||||
1999/12/09 13:56:35 193.25.29.70 "Whole Asim Site" "control" 33
|
||||
1999/12/09 19:12:02 194.141.68.219 "Whole Asim Site" "simips" 3
|
||||
1999/12/09 22:47:04 139.133.204.100 "Whole Asim Site" "source" 213
|
||||
1999/12/09 22:54:17 139.133.204.100 "Whole Asim Site" "linux" 258
|
||||
1999/12/10 10:18:01 139.133.204.82 "Whole Asim Site" "mac" 13
|
||||
1999/12/10 10:24:51 139.133.204.82 "Whole Asim Site" "linux PPC" 0
|
||||
1999/12/10 10:25:01 139.133.204.82 "Whole Asim Site" "linux " 258
|
||||
1999/12/10 12:03:11 192.100.101.17 "Alliance Mailling Lists" "list"
|
||||
1999/12/10 13:23:17 132.227.103.10 "Whole Asim Site" ""
|
||||
1999/12/10 14:16:18 132.227.103.10 "Whole Asim Site" "hjgc" 0
|
||||
1999/12/10 14:54:22 132.227.63.117 "Whole Asim Site" "projets dea " 5
|
||||
1999/12/10 14:55:30 132.227.63.117 "Whole Asim Site" "propositon AND stage" 0
|
||||
1999/12/10 14:55:43 132.227.63.117 "Whole Asim Site" "proposition AND stage" 33
|
||||
1999/12/10 15:16:58 unknown, unknown "Whole Asim Site" "desbarbieux" 12
|
||||
1999/12/10 15:20:26 132.227.103.10 "Whole Asim Site" "mkisofs" 0
|
||||
1999/12/10 15:57:48 132.227.67.64 "Whole Asim Site" "window-area" 0
|
||||
1999/12/10 15:58:02 132.227.67.64 "Whole Asim Site" "window_area" 0
|
||||
1999/12/10 15:58:14 132.227.67.64 "Whole Asim Site" "window" 29
|
||||
1999/12/10 15:59:53 132.227.67.64 "Whole Asim Site" "dpr" 54
|
||||
1999/12/12 19:32:55 212.216.138.4 "Whole Asim Site" "Nti" 0
|
||||
1999/12/12 19:32:59 212.216.138.4 "Whole Asim Site" "Ntie" 12
|
||||
|
|
@ -0,0 +1,195 @@
|
|||
#!/usr/local/bin/perl
|
||||
# (C) Copyright 1997,98 Czo <mailto:Olivier.Sirol@asim.lip6.fr>
|
||||
# Parts (C) A.Fenyo
|
||||
use CGI;
|
||||
use POSIX;
|
||||
|
||||
# SCRIPT_NAME = /cgi-bin/test.cgi
|
||||
# SCRIPT_FILENAME = /users/largo2/webmastr/wwwroot/cgi-bin/printenv.cgi
|
||||
|
||||
|
||||
$ASIM_HEADER=`/bin/cat /users/largo2/webmastr/wwwroot/ssi/asim.header/index.gb.html`;
|
||||
$ASIM_FOOTER=`/bin/cat /users/largo2/webmastr/wwwroot/ssi/asim.footer/index.gb.html`;
|
||||
$SEARCH_HEADER=`/bin/cat /users/largo2/webmastr/wwwroot/ssi/search.header/index.gb.html`;
|
||||
$SEARCH_MIDDLE=`/bin/cat /users/largo2/webmastr/wwwroot/ssi/search.middle/index.gb.html`;
|
||||
$SEARCH_FOOTER=`/bin/cat /users/largo2/webmastr/wwwroot/ssi/search.footer/index.gb.html`;
|
||||
|
||||
$lock = "/tmp/search.lock";
|
||||
$log = "/users/largo2/webmastr/wwwroot/cgi-bin/private/search.log";
|
||||
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
$query = new CGI;
|
||||
|
||||
$str = $query->param('searchstring');
|
||||
|
||||
# Czo 990607 : autorise . et _
|
||||
|
||||
$str =~ s/[^a-zA-Z0-9-_ \*\.]//g;
|
||||
$str =~ s/ -/ /g;
|
||||
$str =~ s/^-/ /;
|
||||
|
||||
$grepstr=$str;
|
||||
|
||||
$grepstr =~ tr/A-Z/a-z/;
|
||||
@words = split / +/, $grepstr;
|
||||
foreach $word (@words) {
|
||||
$word =~ s/ *//;
|
||||
next if (!$word);
|
||||
next if (($word eq 'or') || ($word eq 'and'));
|
||||
@allwords = (@allwords, $word);
|
||||
};
|
||||
|
||||
|
||||
|
||||
$scope = $query->param('ComboSearchList');
|
||||
|
||||
if ( $scope eq "Alliance Mailling Lists" ) {
|
||||
$scopefile = "/users/largo2/webmastr/wwwroot/cgi-bin/alml.dat";
|
||||
} elsif ( $scope eq "Alliance" ) {
|
||||
$scopefile = "/users/largo2/webmastr/wwwroot/cgi-bin/alliance.dat";
|
||||
} elsif ( $scope eq "Education" ) {
|
||||
$scopefile = "/users/largo2/webmastr/wwwroot/cgi-bin/education.dat";
|
||||
} elsif ( $scope eq "Mpc" ) {
|
||||
$scopefile = "/users/largo2/webmastr/wwwroot/cgi-bin/mpc.dat";
|
||||
} elsif ( $scope eq "Multimedia" ) {
|
||||
$scopefile = "/users/largo2/webmastr/wwwroot/cgi-bin/multimedia.dat";
|
||||
} elsif ( $scope eq "Publications" ) {
|
||||
$scopefile = "/users/largo2/webmastr/wwwroot/cgi-bin/publications.dat";
|
||||
} elsif ( $scope eq "Personal pages" ) {
|
||||
$scopefile = "/users/largo2/webmastr/wwwroot/cgi-bin/users.dat";
|
||||
} else { $scopefile = "/users/largo2/webmastr/wwwroot/cgi-bin/allsite.dat";
|
||||
}
|
||||
|
||||
|
||||
if (-e $lock) {
|
||||
print "$ASIM_HEADER\n$SEARCH_HEADER\n";
|
||||
print '<INPUT NAME=searchstring size=40 maxlength=800 name="searchstring" value="'.$str.'" > ';
|
||||
print "$SEARCH_MIDDLE\n";
|
||||
print '<font face="verdana,arial,helvetica" size=2><b>Sorry</b>, server was busy, please try again.</font>';
|
||||
print "<SCRIPT>Server is busy, please try again.</SCRIPT>\n";
|
||||
print "$SEARCH_FOOTER\n$ASIM_FOOTER\n";
|
||||
}
|
||||
else {
|
||||
|
||||
print "$ASIM_HEADER\n$SEARCH_HEADER\n";
|
||||
print '<INPUT NAME=searchstring size=40 maxlength=800 name="searchstring" value="'.$str.'" > ';
|
||||
print "$SEARCH_MIDDLE\n";
|
||||
|
||||
#system (date);
|
||||
#print system ( "/usr/local/home/czo/local/FreeBSD/bin/swish-e -f /usr/local/home/czo/public_html/cgi-bin/index.swish-e -w $str" );
|
||||
#$RET = `/usr/local/home/czo/local/FreeBSD/bin/swish-e -c /usr/local/home/czo/public_html/cgi-bin/index.swish-e -w $str`;
|
||||
#print "<PRE>";
|
||||
|
||||
open RESULT, "/usr/local/bin/swish-e -m 40 -f $scopefile -w $str |";
|
||||
|
||||
$cpt = 0;
|
||||
while (<RESULT>) {
|
||||
# chop;
|
||||
#print ;
|
||||
|
||||
m/err: no results/ && do
|
||||
{
|
||||
$nmatch=0;
|
||||
print '<font face="verdana,arial,helvetica" size=2><b>No</b> match found in "'.$scope.'". </font>';
|
||||
print '<font face="verdana,arial,helvetica" size=-1>';
|
||||
};
|
||||
|
||||
m/^# Number of hits: (.*)/ && do
|
||||
{
|
||||
$nmatch=$1;
|
||||
print '<font face="verdana,arial,helvetica" size=-1><b>'.$1.'</b> matches were found in "'.$scope.'". </font>';
|
||||
print '<font face="verdana,arial,helvetica" size=-1>';
|
||||
};
|
||||
|
||||
m/^#/ && next;
|
||||
|
||||
|
||||
m/^(.*) (.*) "(.*)" (.*)/ && (($res1, $res2, $res3, $res4) = ($1, $2, $3, $4)) && do
|
||||
{
|
||||
$cpt++;
|
||||
$tmp1 = $res1/10; $tmp1 =~ s/^(.*)\..*/\1/;
|
||||
$tmp = $res4/1024; $tmp =~ s/^(.*\..).*/\1/;
|
||||
|
||||
print '<P><b>'.$cpt.'. </b><font color="#0000FF"> ['.$tmp1.'%] </font> <a href="'.$res2.'"><b>'.$res3.'</b></a><br>
|
||||
<font face="arial,helvetica" size=-2>[<b>URL:</b> '.$res2.']</font><br>
|
||||
<font face="verdana,arial,helvetica" size=-2>Page size '.$tmp.' Kb</font><P>' ;
|
||||
#Last modified 7-Oct-97 -
|
||||
|
||||
# $file=$res2;
|
||||
# $file =~ s%http://www-asim.lip6.fr/%/users/largo2/webmastr/wwwroot/%;
|
||||
#
|
||||
# # print "<P>$file\n<P>";
|
||||
#
|
||||
# #$FILE = `/asim/gnu/bin/lynxx -dump -reload -nolist $file`;
|
||||
# $FILE = `cat $file`;
|
||||
#
|
||||
# $FILE =~ s/<BR>/ - /sg;
|
||||
# $FILE =~ s/<HR>/ - /sg;
|
||||
# $FILE =~ s/<LI>/ - /sg;
|
||||
# $FILE =~ s/<DT>/ - /sg;
|
||||
# $FILE =~ s/<DD>/ - /sg;
|
||||
# $FILE =~ s/<P>/ - /sg;
|
||||
# $FILE =~ s/-( -)*/-/sg;
|
||||
#
|
||||
# $FILE =~ s/<.*?>/ /sg;
|
||||
#
|
||||
# foreach $word (@allwords) {
|
||||
# $FILEinsensitive = $FILE;
|
||||
# $FILEinsensitive =~ tr/A-Z/a-z/;
|
||||
# $wordinsensitive = $word;
|
||||
# $wordinsensitive =~ tr/A-Z/a-z/;
|
||||
# $fileindex = index $FILEinsensitive, $wordinsensitive;
|
||||
# next if ($fileindex == -1);
|
||||
#
|
||||
# $fileindex = 160 if ($fileindex < 160);
|
||||
# $grep = substr $FILE, $fileindex - 160, 320;
|
||||
# $grep =~ s/^[^ ]* //s;
|
||||
# $grep =~ s/ [^ ]*$//s;
|
||||
#
|
||||
# foreach $w (@allwords) {
|
||||
# $grep =~ s%($w)%<B>\1</B>%si;
|
||||
# };
|
||||
#
|
||||
# print "<SMALL>... $grep ...</SMALL><P>\n";
|
||||
#
|
||||
# last;
|
||||
# };
|
||||
#
|
||||
#
|
||||
#
|
||||
#
|
||||
};
|
||||
|
||||
} ;
|
||||
|
||||
close(RESULT);
|
||||
|
||||
#print "$scopefile\n";
|
||||
print "$SEARCH_FOOTER\n$ASIM_FOOTER\n";
|
||||
|
||||
|
||||
# REMOTE_ADDR = 132.227.103.10
|
||||
# HTTP_X_FORWARDED_FOR = 132.227.103.10
|
||||
|
||||
$CLIENT = $ENV{"HTTP_X_FORWARDED_FOR"};
|
||||
|
||||
if ( $CLIENT eq "" ) {
|
||||
$CLIENT = $ENV{"REMOTE_ADDR"};
|
||||
}
|
||||
|
||||
|
||||
$TIME=strftime("%Y/%m/%d %H:%M:%S",localtime());
|
||||
open(LOCK,">$lock") || die "Can't open lock : $!";
|
||||
close (LOCK);
|
||||
open(SORTIE, ">>$log") || die "Can't open log : $!";
|
||||
print SORTIE "$TIME $CLIENT \"$scope\" \"$str\" $nmatch\n";;
|
||||
close (SORTIE);
|
||||
unlink("$lock") || die "Can't delete lock : $!";
|
||||
|
||||
}
|
||||
|
||||
exit 0
|
||||
__END__
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,166 @@
|
|||
#!/usr/local/bin/perl
|
||||
|
||||
#- Configurable Variables ---------------------------------------------------#
|
||||
|
||||
#Path to SWISH-E executable
|
||||
$swish = "/usr/local/bin/swish-e";
|
||||
|
||||
#Path to this CGI script
|
||||
$swishcgi = "/cgi-bin/searchres.cgi";
|
||||
|
||||
#Path to the SWISH-E index
|
||||
$index = "/local/largo2/wwwpages/cgi-bin/index.swish-e";
|
||||
|
||||
#Path to the SWISH-E configuration file
|
||||
$config = "/opt/swish/swish-e/ConfigFiles/SwishTest.conf";
|
||||
|
||||
#- Main Program -------------------------------------------------------------#
|
||||
|
||||
#Parse the form data
|
||||
&parse_form_data (*FORM);
|
||||
|
||||
#Construct a simple query
|
||||
$query = $FORM{'query'};
|
||||
|
||||
$results = $FORM{'results'};
|
||||
|
||||
if ($query) {
|
||||
&search_parse;
|
||||
}else{
|
||||
&search_error("You must enter a keyword or phrase in one or more of the text boxes");
|
||||
}
|
||||
|
||||
#- Subroutines ---------------------------------------------------------------#
|
||||
|
||||
#Subroutine for checking and parsing the incoming form data.
|
||||
|
||||
sub parse_form_data {
|
||||
|
||||
local (*FORM_DATA) = @_;
|
||||
local ($request_method, $query_string, @key_value_pairs, $key_value, $key, $value);
|
||||
|
||||
$request_method = $ENV{'REQUEST_METHOD'};
|
||||
|
||||
if ($request_method eq "GET") {
|
||||
$query_string = $ENV{'QUERY_STRING'};
|
||||
} elsif ($request_method eq "POST") {
|
||||
read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
|
||||
} else {
|
||||
&search_error ("Forms must use either GET or POST.");
|
||||
}
|
||||
|
||||
@key_value_pairs = split (/&/, $query_string);
|
||||
|
||||
foreach $key_value (@key_value_pairs) {
|
||||
($key, $value) = split (/=/, $key_value);
|
||||
$value =~ tr/+/ /;
|
||||
$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
|
||||
if (defined ($FORM_DATA{$key})) {
|
||||
$FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
|
||||
} else {
|
||||
$FORM_DATA{$key} = $value;
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
#Subroutine for constructing the Swish-E search request and formating the results.
|
||||
|
||||
sub search_parse {
|
||||
|
||||
#Create your SWISH-E query command
|
||||
|
||||
$count=0;
|
||||
|
||||
open(SWISH, "$swish -w $query -m $results -f $index|");
|
||||
|
||||
#Check for errors
|
||||
|
||||
while (<SWISH>) {
|
||||
chop;
|
||||
|
||||
if ($_ eq "err: no results")
|
||||
{&search_error("There were no items that matched your search request");}
|
||||
|
||||
if ($_ eq "err: could not open index file")
|
||||
{&search_error("Could not open SWISH Index File $index");}
|
||||
|
||||
if ($_ eq "err: no search words specified")
|
||||
{&search_error("Please Enter at least one Search Word");}
|
||||
|
||||
if ($_ eq "err: a word is too common")
|
||||
{&search_error("One of your search terms is too common, please try again");}
|
||||
|
||||
next if /^\D/;
|
||||
$count++;
|
||||
push(@results, $_);
|
||||
|
||||
}
|
||||
|
||||
#Print the results page
|
||||
|
||||
&html_header("Search Results");
|
||||
|
||||
print <<Search_Results;
|
||||
<P ALIGN=CENTER>
|
||||
Swish found the following items, listed in order of computed relevance<BR>
|
||||
Your Search for <strong>$query</strong>, returned $count Items
|
||||
</P>
|
||||
<HR>
|
||||
<UL>
|
||||
Search_Results
|
||||
|
||||
foreach (@results) {
|
||||
select(STDOUT);
|
||||
($stringone, $title, $filesize) = split(/\"/, $_);
|
||||
($rank, $url) = split(/ /, $stringone);
|
||||
print "<LI><A HREF=\"$url\">$title</A><BR>\n";
|
||||
}
|
||||
|
||||
print "</UL>\n";
|
||||
&html_trailer;
|
||||
|
||||
}
|
||||
|
||||
#Subroutine for printing a generic HTML header.
|
||||
|
||||
sub html_header {
|
||||
|
||||
$document_title = $_[0];
|
||||
|
||||
print <<HTML_Header;
|
||||
Content-type: text/html
|
||||
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>$document_title</TITLE>
|
||||
</HEAD>
|
||||
<BODY BGCOLOR="#ffffff">
|
||||
<H1 ALIGN=CENTER>$document_title</H1>
|
||||
HTML_Header
|
||||
}
|
||||
|
||||
#Subroutine for printing a generic HTML trailer.
|
||||
|
||||
sub html_trailer {
|
||||
|
||||
print <<HTML_Trailer;
|
||||
<HR>
|
||||
</BODY>
|
||||
</HTML>
|
||||
HTML_Trailer
|
||||
|
||||
exit;
|
||||
|
||||
}
|
||||
|
||||
#Subroutine for printing error messages.
|
||||
|
||||
sub search_error {
|
||||
|
||||
&html_header("Search Error");
|
||||
$error_message = $_[0];
|
||||
print "<P ALIGN=CENTER>\n$error_message</P>\n";
|
||||
&html_trailer;
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,52 @@
|
|||
#!/usr/local/bin/perl
|
||||
use CGI;
|
||||
|
||||
$WAISDIR="/usr/local/home/alex/cvs/alex/MPC-OS/docs/www/waissrc";
|
||||
$HEADER=`/bin/cat /usr/local/home/alex/cvs/alex/MPC-OS/docs/www/header.html`;
|
||||
$FOOTER=`/bin/cat /usr/local/home/alex/cvs/alex/MPC-OS/docs/www/footer.html`;
|
||||
$START=`/bin/cat /usr/local/home/alex/cvs/alex/MPC-OS/docs/www/start.html`;
|
||||
$STOP=`/bin/cat /usr/local/home/alex/cvs/alex/MPC-OS/docs/www/stop.html`;
|
||||
|
||||
print "Content-type: text/html\n\n";
|
||||
|
||||
$query = new CGI;
|
||||
|
||||
$str = $query->param('searchstring');
|
||||
|
||||
$str =~ s/[^a-zA-Z0-9- ]//g;
|
||||
$str =~ s/ -/ /g;
|
||||
$str =~ s/^-/ /;
|
||||
|
||||
print "$START\n$HEADER\n";
|
||||
|
||||
print '<H2><FONT COLOR="#660000">Search result for query "'.$str.'"</FONT></H2><P> <FONT FACE="ARIAL,HELVETICA">';
|
||||
|
||||
open RESULT, "/usr/local/bin/waisq -f - -g -s $WAISDIR -S mpc.src -g $str | grep :headline |";
|
||||
|
||||
print '<TABLE BORDER="0">';
|
||||
|
||||
print "<PRE>";
|
||||
$cpt = 0;
|
||||
while (<RESULT>) {
|
||||
chop;
|
||||
m/^#/ && next;
|
||||
m/:headline "(.*) (.*)"/ && do { $file = $2.$1; };
|
||||
$file =~ s%.*cvs/alex/MPC-OS/docs/www%%;
|
||||
$cpt++;
|
||||
print '<TR><TD align=right>'.$cpt.'- </TD><TD> <A HREF="http://mpc.lip6.fr'.$file.'">http://mpc.lip6.fr'.$file.'</A><BR></TR>';
|
||||
|
||||
}
|
||||
|
||||
close(RESULT);
|
||||
|
||||
print '</TABLE></FONT></P>
|
||||
<form method="POST" action="/cgi-bin/search.cgi">
|
||||
<CENTER><STRONG>Search:</STRONG> <input type=text name="searchstring" value="" size=50>
|
||||
<!-- <input src="images/search.gif" type=submit value=" Search "> -->
|
||||
</CENTER>
|
||||
</form>
|
||||
';
|
||||
print "$FOOTER\n$STOP\n";
|
||||
|
||||
__END__
|
||||
|
||||
|
|
@ -0,0 +1,110 @@
|
|||
#!/usr/local/bin/perl
|
||||
|
||||
use CGI;
|
||||
|
||||
$query = new CGI;
|
||||
$CGI::POST_MAX = 102400; # set maximum size of post
|
||||
|
||||
print $query->header;
|
||||
print $query->start_html("Example CGI.pm Form");
|
||||
print "<H1> Example CGI.pm Form</H1>\n";
|
||||
&print_prompt($query);
|
||||
&do_work($query);
|
||||
&print_tail;
|
||||
print $query->end_html;
|
||||
|
||||
sub print_prompt {
|
||||
my($query) = @_;
|
||||
|
||||
print $query->startform;
|
||||
print "<EM>What's your name?</EM><BR>";
|
||||
print $query->textfield('name');
|
||||
print $query->checkbox('Not my real name');
|
||||
|
||||
print $query->filefield('uploaded_file','starting value',50,80);
|
||||
# ACCEPT="filetype/*"
|
||||
print "<P><EM>Where can you find English Sparrows?</EM><BR>";
|
||||
print $query->checkbox_group(
|
||||
-name=>'Sparrow locations',
|
||||
-values=>[England,France,Spain,Asia,Hoboken],
|
||||
-linebreak=>'yes',
|
||||
-defaults=>[England,Asia]);
|
||||
|
||||
print "<P><EM>How far can they fly?</EM><BR>",
|
||||
$query->radio_group(
|
||||
-name=>'how far',
|
||||
-values=>['10 ft','1 mile','10 miles','real far'],
|
||||
-default=>'1 mile');
|
||||
|
||||
print "<P><EM>What's your favorite color?</EM> ";
|
||||
print $query->popup_menu(-name=>'Color',
|
||||
-values=>['black','brown','red','yellow'],
|
||||
-default=>'red');
|
||||
|
||||
print $query->hidden('Reference','Monty Python and the Holy Grail');
|
||||
|
||||
print "<P><EM>What have you got there?</EM><BR>";
|
||||
print $query->scrolling_list(
|
||||
-name=>'possessions',
|
||||
-values=>['A Coconut','A Grail','An Icon',
|
||||
'A Sword','A Ticket'],
|
||||
-size=>5,
|
||||
-multiple=>'true');
|
||||
|
||||
print "<P><EM>Any parting comments?</EM><BR>";
|
||||
print $query->textarea(-name=>'Comments',
|
||||
-rows=>10,
|
||||
-columns=>50);
|
||||
|
||||
print "<P>",$query->reset;
|
||||
print $query->submit('Action','Shout');
|
||||
print $query->submit('Action','Scream');
|
||||
print $query->endform;
|
||||
print "<HR>\n";
|
||||
}
|
||||
|
||||
sub do_work {
|
||||
my($query) = @_;
|
||||
my(@values,$key);
|
||||
|
||||
print "<H2>Here are the current settings in this form</H2>";
|
||||
|
||||
foreach $key ($query->param) {
|
||||
print "<STRONG>$key</STRONG> -> ";
|
||||
@values = $query->param($key);
|
||||
print join(", ",@values),"<BR>\n";
|
||||
}
|
||||
}
|
||||
|
||||
sub print_tail {
|
||||
$filename = $query->param('uploaded_file');
|
||||
|
||||
print "<BR><BR>$filename<BR>\n\n";
|
||||
|
||||
# Read a text file and print it out
|
||||
# while (<$filename>) {
|
||||
# print;
|
||||
# }
|
||||
|
||||
$type = $query->uploadInfo($filename)->{'Content-Type'};
|
||||
print "<BR><BR>$type<BR>\n\n";
|
||||
# unless ($type eq 'text/html') {
|
||||
# die "HTML FILES ONLY!";
|
||||
# }
|
||||
|
||||
print "<BR><BR>fini<BR>\n\n";
|
||||
|
||||
# Copy a binary file to somewhere safe
|
||||
open (OUTFILE,">/tmp.vbe");
|
||||
while ($bytesread=read($filename,$buffer,1024)) {
|
||||
print OUTFILE $buffer;
|
||||
}
|
||||
|
||||
print "<BR><BR>fini<BR>\n\n";
|
||||
print <<END;
|
||||
|
||||
<HR>
|
||||
<ADDRESS>Lincoln D. Stein</ADDRESS><BR>
|
||||
<A HREF="/">Home Page</A>
|
||||
END
|
||||
}
|
||||
|
|
@ -0,0 +1,44 @@
|
|||
#!/bin/sh
|
||||
|
||||
# disable filename globbing
|
||||
set -f
|
||||
|
||||
echo Content-type: text/plain
|
||||
echo
|
||||
|
||||
echo CGI/1.0 test script report:
|
||||
echo
|
||||
|
||||
echo argc is $#. argv is "$*".
|
||||
echo
|
||||
|
||||
id
|
||||
echo
|
||||
|
||||
touch /tmp/toto.234
|
||||
|
||||
pwd
|
||||
echo
|
||||
|
||||
echo SERVER_SOFTWARE = $SERVER_SOFTWARE
|
||||
echo SERVER_NAME = $SERVER_NAME
|
||||
echo GATEWAY_INTERFACE = $GATEWAY_INTERFACE
|
||||
echo SERVER_PROTOCOL = $SERVER_PROTOCOL
|
||||
echo SERVER_PORT = $SERVER_PORT
|
||||
echo REQUEST_METHOD = $REQUEST_METHOD
|
||||
echo HTTP_ACCEPT = "$HTTP_ACCEPT"
|
||||
echo PATH_INFO = "$PATH_INFO"
|
||||
echo PATH_TRANSLATED = "$PATH_TRANSLATED"
|
||||
echo SCRIPT_NAME = "$SCRIPT_NAME"
|
||||
echo QUERY_STRING = "$QUERY_STRING"
|
||||
echo REMOTE_HOST = $REMOTE_HOST
|
||||
echo REMOTE_ADDR = $REMOTE_ADDR
|
||||
echo REMOTE_USER = $REMOTE_USER
|
||||
echo AUTH_TYPE = $AUTH_TYPE
|
||||
echo CONTENT_TYPE = $CONTENT_TYPE
|
||||
echo CONTENT_LENGTH = $CONTENT_LENGTH
|
||||
|
||||
id
|
||||
|
||||
ls -al /
|
||||
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
#!/usr/local/bin/perl -w
|
||||
use POSIX;
|
||||
$TIME=strftime(" %Y/%m/%d %H:%M:%S",localtime());
|
||||
#$TIME=localtime();
|
||||
print $TIME ;
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
#!/usr/local/bin/perl
|
||||
|
||||
if (!open (COUNT,">>/users/largo2/webmastr/wwwroot/cgi-bin/log.db")) {
|
||||
exit 1;
|
||||
}
|
||||
while (($key, $val) = each %ENV) {
|
||||
print COUNT "$key = $val; ";
|
||||
}
|
||||
print COUNT "\n";
|
||||
close COUNT;
|
||||
|
||||
Loading…
Reference in New Issue