("xslide" . "xemacs-packages")
("xslt-process" . "xemacs-packages")
("xwem" . "xemacs-packages")
- ("zenirc" . "xemacs-packages")
;; mule-packages
("edict" . "mule-packages")
("egg-its" . "mule-packages")
(list (expand-file-name "lisp" (file-name-as-directory dir))))
((equal package "mew")
(list (expand-file-name "mew" (file-name-as-directory dir))))
- ((equal package "zenirc")
- (list (expand-file-name "src" (file-name-as-directory dir))))
((equal package "semantic")
(list dir
(expand-file-name "bovine" (file-name-as-directory dir))
sieve slider sml-mode sounds-au sounds-wav strokes \
supercite textools time tm tpu tramp \
vc vhdl view-process viper vm w3 x-symbol \
- xslide xslt-process xwem zenirc
+ xslide xslt-process xwem
else
PACKAGES := $(NONMULE_PACKAGES)
endif
+++ /dev/null
-ZenIRC BUGS list -- Last updated 1996-04-25
-
-* The server parsing code does strange things when it gets lots of
- action at the same time.
-
- Noah Friedman's comments to this 'bug';
-
- No, it's probably because the process filter isn't reentrant, and it
- wasn't intended to be. (It uses a global vector to reduce memory
- consumption). I've never observed that behavior, and I don't know
- how it can happen---the only time the server parser can be called
- recursively is if you are in the debugger or you send back a
- response through a process that has a pty. But that's only
- significant it is gets run from a server hook, since only those get
- called from within the process filter.
-
- You could fix that at the expense of considerably greater consing.
-
-* ISON is limited to 512 characters, make sure ZenIRC groks that.
-
-* ZenIRC doesn't parse the following numerics at all, some of them aren't
- used by either 2.8 nor 2.9. Some other ugly servers use other numerics
- for other stuff as well.
-
- 416 ERR_TOOMANYMATCHES, "%s %s :Output too long (try locally)",
- 434 ERR_SERVICENAMEINUSE, (char *)NULL,
- 435 ERR_SERVICECONFUSED, (char *)NULL,
- 438 ERR_QUOTAEXCEEDED, "%s :Quota exceeded, try again later.",
- 466 ERR_YOUWILLBEBANNED, (char *)NULL,
- 476 ERR_BADCHANMASK, "%s :Bad Channel Mask",
- 484 ERR_RESTRICTED, ":Your connection is restricted!",
- 492 ERR_NOSERVICEHOST, (char *)NULL,
- 304 RPL_TEXT, (char *)NULL,
- 316 RPL_WHOISCHANOP, (char *)NULL,
- 361 RPL_KILLDONE, (char *)NULL,
- 362 RPL_CLOSING, "%s :Closed. Status = %d",
- 363 RPL_CLOSEEND, "%d: Connections Closed",
- 373 RPL_INFOSTART, ":Server INFO",
- 383 RPL_YOURESERVICE, (char *)NULL,
- 384 RPL_MYPORTIS, "%d :Port to local server is\r\n",
- 385 RPL_NOTOPERANYMORE, (char *)NULL,
- 207 RPL_TRACESERVICE, "Service %d %s",
- 231 RPL_SERVICEINFO, (char *)NULL,
- 232 RPL_ENDOFSERVICES, (char *)NULL,
- 233 RPL_SERVICE, (char *)NULL,
- 234 RPL_SERVLIST, "%s %s %s %d %d :%s",
- 235 RPL_SERVLISTEND, "%s %d :End of service listing",
- 245 RPL_STATSSLINE, "%c %s * %s %d %d",
- 246 RPL_STATSPING, "%s %d %d %d %d",
+++ /dev/null
- GNU GENERAL PUBLIC LICENSE
- Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
- 675 Mass Ave, Cambridge, MA 02139, USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- Preamble
-
- The licenses for most software are designed to take away your
-freedom to share and change it. By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users. This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it. (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.) You can apply it to
-your programs, too.
-
- When we speak of free software, we are referring to freedom, not
-price. Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
- To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
- For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have. You must make sure that they, too, receive or can get the
-source code. And you must show them these terms so they know their
-rights.
-
- We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
- Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software. If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
- Finally, any free program is threatened constantly by software
-patents. We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary. To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
- The precise terms and conditions for copying, distribution and
-modification follow.
-\f
- GNU GENERAL PUBLIC LICENSE
- TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
- 0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License. The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language. (Hereinafter, translation is included without limitation in
-the term "modification".) Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope. The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
- 1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
- 2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
- a) You must cause the modified files to carry prominent notices
- stating that you changed the files and the date of any change.
-
- b) You must cause any work that you distribute or publish, that in
- whole or in part contains or is derived from the Program or any
- part thereof, to be licensed as a whole at no charge to all third
- parties under the terms of this License.
-
- c) If the modified program normally reads commands interactively
- when run, you must cause it, when started running for such
- interactive use in the most ordinary way, to print or display an
- announcement including an appropriate copyright notice and a
- notice that there is no warranty (or else, saying that you provide
- a warranty) and that users may redistribute the program under
- these conditions, and telling the user how to view a copy of this
- License. (Exception: if the Program itself is interactive but
- does not normally print such an announcement, your work based on
- the Program is not required to print an announcement.)
-\f
-These requirements apply to the modified work as a whole. If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works. But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
- 3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
- a) Accompany it with the complete corresponding machine-readable
- source code, which must be distributed under the terms of Sections
- 1 and 2 above on a medium customarily used for software interchange; or,
-
- b) Accompany it with a written offer, valid for at least three
- years, to give any third party, for a charge no more than your
- cost of physically performing source distribution, a complete
- machine-readable copy of the corresponding source code, to be
- distributed under the terms of Sections 1 and 2 above on a medium
- customarily used for software interchange; or,
-
- c) Accompany it with the information you received as to the offer
- to distribute corresponding source code. (This alternative is
- allowed only for noncommercial distribution and only if you
- received the program in object code or executable form with such
- an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it. For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable. However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-\f
- 4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License. Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
- 5. You are not required to accept this License, since you have not
-signed it. However, nothing else grants you permission to modify or
-distribute the Program or its derivative works. These actions are
-prohibited by law if you do not accept this License. Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
- 6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions. You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
- 7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all. For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices. Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-\f
- 8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded. In such case, this License incorporates
-the limitation as if written in the body of this License.
-
- 9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number. If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation. If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
- 10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission. For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this. Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
- NO WARRANTY
-
- 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
- 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
- END OF TERMS AND CONDITIONS
-\f
- How to Apply These Terms to Your New Programs
-
- If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
- To do so, attach the following notices to the program. It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
- <one line to give the program's name and a brief idea of what it does.>
- Copyright (C) 19yy <name of author>
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
- Gnomovision version 69, Copyright (C) 19yy name of author
- Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
- This is free software, and you are welcome to redistribute it
- under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License. Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary. Here is a sample; alter the names:
-
- Yoyodyne, Inc., hereby disclaims all copyright interest in the program
- `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
- <signature of Ty Coon>, 1 April 1989
- Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs. If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library. If this is what you want to do, use the GNU Library General
-Public License instead of this License.
+++ /dev/null
-2014-05-15 Norbert Koch <viteno@xemacs.org>
-
- * Makefile (VERSION): XEmacs package 1.18 released.
-
-2014-05-15 Norbert Koch <viteno@xemacs.org>
-
- * Makefile (VERSION): XEmacs package 1.17 released.
-
-2014-05-13 Jerry James <james@xemacs.org>
-
- * .cvsignore: Remove.
- * doc/.cvsignore: Remove.
- * src/.cvsignore: Remove.
- * .hgignore: New file.
- * src/zenirc-klingon.el: Restore CVS keyword expansions.
- * src/zenirc-yow-filter.el: Ditto.
- * configure.in: Ditto.
- * doc/zenirc.texi: Update for texinfo 5.x.
-
-2005-05-10 Norbert Koch <viteno@xemacs.org>
-
- * Makefile (VERSION): XEmacs package 1.16 released.
-
-2004-01-20 Norbert Koch <viteno@xemacs.org>
-
- * Makefile (VERSION): XEmacs package 1.15 released.
-
-2004-01-15 Jerry James <james@xemacs.org>
-
- * Makefile (PRELOADS): Define x-color-defined-p to something harmless.
-
-2003-10-31 Norbert Koch <viteno@xemacs.org>
-
- * Makefile (VERSION): XEmacs package 1.14 released.
-
-2003-03-30 Steve Youngs <youngs@xemacs.org>
-
- * Makefile (EARLY_GENERATED_LISP): Revert previous change.
-
-2003-03-22 Steve Youngs <youngs@xemacs.org>
-
- * Makefile (EARLY_GENERATED_LISP): Explicitly set so we don't try
- to build custom-loads, this package doesn't have any.
-
-2003-03-09 Ben Wing <ben@xemacs.org>
-
- * Makefile (GENERATED): Removed.
- Delete explicit compile:: and binkit: rules.
- Use EXPLICIT_DOCS instead of explicitly giving the targets
- and dependencies.
- Move the include of XEmacs.rules to the end of the file.
- Remove MAKEINFO_FLAGS for directory, not needed.
-
-2002-11-29 Ben Wing <ben@xemacs.org>
-
- * .cvsignore: Remove files now handled automatically by CVS.
- * Makefile: Use `compile' instead of hard-coded `all'.
-
-2002-10-15 Ville Skyttä <scop@xemacs.org>
-
- * Makefile (srckit): Remove.
-
-2002-10-14 Ville Skyttä <scop@xemacs.org>
-
- * Makefile (MANUAL): Removed (unused).
-
-2002-07-15 Adrian Aichner <adrian@xemacs.org>
-
- * doc/zenirc.ascii: It's XEmacs, not Xemacs.
-
-2002-01-07 Adrian Aichner <adrian@xemacs.org>
-
- * Makefile (HTML_FILES): New.
- * Makefile (HTML_DEP): New.
-
-2002-01-02 Steve Youngs <youngs@xemacs.org>
-
- * package-info.in (provides): Update to include all provides.
-
-2001-12-30 Adrian Aichner <adrian@xemacs.org>
-
- * doc/zenirc.texi: Add missing direntry.
-
-2001-06-16 Simon Josefsson <jas@extundo.com>
-
- * zenirc.el (zenirc-font-lock-keywords): Some font-lock defaults.
- (toplevel): Put font-lock-defaults on mode.
- (zenirc-mode): Allow font-lock initialization.
-
-2000-10-05 Martin Buchholz <martin@xemacs.org>
-
- * *: Mega typo fix.
-
-2000-08-22 Steve Youngs <youngs@xemacs.org>
-
- * Makefile: Remove target 'clean' because it's covered in XEmacs.rules.
-
-1998-08-15 SL Baur <steve@altair.xemacs.org>
-
- * Initial integration with XEmacs 21.
- * Makefile: New file.
-
+++ /dev/null
-1) Run `./configure' in the same directory as this file.
-
-2) Check Makefile in the same directory as this file to make sure it
- says what you want.
-
-3) Run `make install' in the same directory as this file.
-
-4) If you don't install ZenIRC in the system directories you need to add
- an entry to your "load-path", preferably in your ~/.emacs file;
-
- (setq load-path (cons
- (expand-file-name "/full/path/to/zenirc/directory")
- load-path))
-
-5) Read src/zenirc-example.el for instructions on how to set up ZenIRC
- for daily abuse.
-
-To try it out--run `emacs', M-x load-library zenirc, M-x zenirc, Waste Time.
-If this doesn't work, e-mail your problems to `zenirc-bug@splode.com'.
-
-Per Persson <pp@sno.pp.se> 1996-04-26.
\ No newline at end of file
+++ /dev/null
-# Makefile for zenirc lisp code
-
-# This file is part of XEmacs.
-
-# XEmacs is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License as published by the
-# Free Software Foundation; either version 2, or (at your option) any
-# later version.
-
-# XEmacs is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
-# for more details.
-
-# You should have received a copy of the GNU General Public License
-# along with XEmacs; see the file COPYING. If not, write to
-# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-# Boston, MA 02111-1307, USA.
-
-VERSION = 1.18
-AUTHOR_VERSION = 2.112
-MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
-PACKAGE = zenirc
-PKG_TYPE = regular
-REQUIRES = zenirc
-CATEGORY = standard
-
-ELCS = src/zenirc-18.elc src/zenirc-8ball.elc src/zenirc-away.elc \
- src/zenirc-bork.elc src/zenirc-color.elc src/zenirc-command-queue.elc \
- src/zenirc-complete.elc src/zenirc-ctcp-flood.elc src/zenirc-dcc.elc \
- src/zenirc-doto.elc src/zenirc-eval.elc src/zenirc-example.elc \
- src/zenirc-fill.elc src/zenirc-finnish.elc src/zenirc-format.elc \
- src/zenirc-fortran.elc src/zenirc-french.elc src/zenirc-history.elc \
- src/zenirc-ignore.elc src/zenirc-iwantop.elc src/zenirc-klingon.elc \
- src/zenirc-latin.elc src/zenirc-make.elc src/zenirc-meditate.elc \
- src/zenirc-netsplit.elc src/zenirc-notify.elc src/zenirc-oink.elc \
- src/zenirc-ojnk.elc src/zenirc-pjg.elc src/zenirc-popup.elc \
- src/zenirc-prime-p.elc src/zenirc-random-away.elc \
- src/zenirc-random-nick.elc src/zenirc-signal.elc src/zenirc-stamp.elc \
- src/zenirc-swedish.elc src/zenirc-trigger.elc \
- src/zenirc-yow-filter.elc src/zenirc-yow.elc src/zenirc.elc
-
-EXTRA_SOURCES = BUGS INSTALL NEWS README TODO
-
-EXPLICIT_DOCS = doc/$(PACKAGE).texi
-
-DATA_FILES = $(wildcard doc/[6FRcistu]*)
-DATA_DEST = $(PACKAGE)
-
-PRELOADS = -eval "(defalias 'x-color-defined-p 'ignore)"
-
-AUTOLOAD_PATH = src
-
-include ../../XEmacs.rules
+++ /dev/null
-# Makefile.in for ZenIRC. -*- makefile -*-
-
-# Copyright (C) 1994, 1995 Noah S. Friedman
-# Copyright (C) 1994, 1995, 1996 Per Persson
-
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
-#### Start of system configuration section. ####
-
-srcdir = @srcdir@
-VPATH = $(srcdir)
-
-INSTALL = @INSTALL@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_DATA = @INSTALL_DATA@
-
-prefix = @prefix@
-exec_prefix = @exec_prefix@
-
-# The directory for object files and libraries of object code. Do
-# not install executables here; they belong in `libexecdir' instead.
-libdir = $(exec_prefix)/lib
-
-# The directory for installing the Info files for this package.
-infodir = $(prefix)/info
-
-elispdir = $(libdir)/emacs/site-lisp
-
-AUTOCONF = autoconf
-EMACS = emacs
-ETAGS = etags
-MAKEINFO = makeinfo
-MAKEINFOFLAGS = --no-split -I. -I$(srcdir)
-BATCHFLAGS = -batch -q -no-site-file
-MV = mv
-RM = rm -f
-CP = cp
-TAR = tar
-TEXI2DVI = texi2dvi
-TEXI2DVIFLAGS = #-I. -I$(srcdir)
-
-#### End of system configuration section. ####
-
-SHELL = /bin/sh
-
-DISTFILES = BUGS TODO COPYING NEWS INSTALL README \
- Makefile.in configure configure.in install-sh mkinstalldirs
-
-DOCFILES = FAQ RFC1459 irc-operators tao-of-irc zenirc.ascii \
- README-OLD ctcp.doc server-list tour.of.irc zenirc.info \
- zenirc.texi undernet 666.conspiracy
-
-SRCFILES = $(ELFILES) ChangeLog zenirc-make.el
-
-ELFILES = zenirc-18.el zenirc-away.el zenirc-bork.el zenirc-command-queue.el \
- zenirc-complete.el zenirc-ctcp-flood.el zenirc-dcc.el \
- zenirc-doto.el zenirc-example.el zenirc-fill.el zenirc-finnish.el \
- zenirc-format.el zenirc-fortran.el zenirc-french.el \
- zenirc-ignore.el zenirc-iwantop.el zenirc-klingon.el \
- zenirc-latin.el zenirc-meditate.el zenirc-netsplit.el \
- zenirc-notify.el zenirc-oink.el zenirc-ojnk.el zenirc-pjg.el \
- zenirc-popup.el zenirc-random-away.el zenirc-random-nick.el \
- zenirc-signal.el zenirc-stamp.el zenirc-swedish.el zenirc-yow.el \
- zenirc-history.el zenirc-color.el zenirc-8ball.el zenirc-trigger.el \
- zenirc-yow-filter.el zenirc.el zenirc-prime-p.el zenirc-eval.el
-
-MFLAGS = ELFILES='$(ELFILES)' \
- AUTOCONF='$(AUTOCONF)' EMACS='$(EMACS)' ETAGS='$(ETAGS)' \
- MAKEINFO='$(MAKEINFO)' MAKEINFOFLAGS='$(MAKEINFOFLAGS)' \
- MV='$(MV)' RM='$(RM)' CP='$(CP)' TAR='$(TAR)' \
- TEXI2DVI='$(TEXI2DVI)' TEXI2DVIFLAGS='$(TEXI2DVIFLAGS)' \
- INSTALL='$(INSTALL)' INSTALL_DATA='$(INSTALL_DATA)' \
- INSTALL_PROGRAM='$(INSTALL_PROGRAM)' SHELL='$(SHELL)' \
- elispdir='$(elispdir)' exec_prefix='$(exec_prefix)' \
- infodir='$(infodir)' libdir='$(libdir)' prefix='$(prefix)'
-
-.SUFFIXES: .texi .info
-.texi.info:
- $(MAKEINFO) $(MAKEINFOFLAGS) $<
-
-.SUFFIXES: .texi .dvi
-.texi.dvi:
- $(TEXI2DVI) $(TEXI2DVIFLAGS) $<
-
-all: all-zenirc
-all-info: info
-
-### targets required by GNU Coding standards ###
-
-Makefile: Makefile.in config.status
- $(SHELL) ./config.status
-
-config.status: configure
- $(SHELL) ./config.status --recheck
-
-configure: configure.in
- cd $(srcdir) && $(AUTOCONF)
-
-TAGS:
- cd $(srcdir)/src && $(ETAGS) *.el
-
-.PHONY: clean mostlyclean distclean
-clean:
- $(RM) src/*.elc
-
-mostlyclean: clean
-
-distclean: clean
- $(RM) Makefile config.status config.log config.cache src/TAGS src/*~ *~
-
-.PHONY: maintainer-clean maintclean-warning
-maintainer-clean: maintclean-warning distclean
-
-# Used by maintainer-clean to print a warning before any rm commands are run.
-maintclean-warning:
- @echo "This command is intended for maintainers to use;"
- @echo "it deletes files that may require special tools to rebuild."
-
-realclean: distclean
- $(RM) src/TAGS
-
-.PHONY: dist
-dist:
- echo zenirc-`sed -e '/^(defconst zenirc-version/!d' \
- -e 's/[^0-9.]*\([0-9.]*\).*/\1/' \
- -e q src/zenirc.el` > .fname
- $(RM) -r `cat .fname`
- dst=`cat .fname`; umask 000 && mkdir $$dst $$dst/doc $$dst/src
- dst=`cat .fname`; for f in $(DISTFILES); do \
- ln $$f $$dst/$$f \
- || { echo copying $$f; cp -p $$f $$dst/$$f ; } \
- done
- dst=`cat .fname`/doc; for f in $(DOCFILES); do \
- ln doc/$$f $$dst/$$f \
- || { echo copying doc/$$f; cp -p doc/$$f $$dst/$$f ; } \
- done
- dst=`cat .fname`/src; for f in $(SRCFILES); do \
- ln src/$$f $$dst/$$f \
- || { echo copying src/$$f; cp -p src/$$f $$dst/$$f ; } \
- done
- $(TAR) --gzip -chvf `cat .fname`.tar.gz `cat .fname`
- $(RM) -r `cat .fname` .fname
-
-# Tar up the development sources
-.PHONY: devtar
-devtar:
- echo zenirc-dev-`sed -e '/^(defconst zenirc-version/!d' \
- -e 's/[^0-9.]*\([0-9.]*\).*/\1/' \
- -e q src/zenirc.el` > .fname
- $(RM) -r ../`cat .fname`
- umask 000 && mkdir ../`cat .fname`
- @echo Copying tree to ../`cat .fname`
- $(TAR) -cf - . | (cd ../`cat .fname` && $(TAR) xpvf -)
- @echo Making tar file `cat .fname`
- dst=`cat .fname`; cd .. && $(TAR) --gzip -chvf $$dst.tar.gz $$dst
- dst=`cat .fname`; cd .. && $(RM) -r $$dst
- mv ../`cat .fname`.tar.gz .
-
-.PHONY: installdirs uninstall
-install: all installdirs
- -cd ./src && $(CP) *.elc $(elispdir)
- # -cd ./doc && $(CP) zenirc.info* $(infodir)
-
-installdirs: force
- -$(SHELL) $(srcdir)/mkinstalldirs $(elispdir) #$(infodir)
-
-uninstall: force
- -cd $(elispdir) && { $(RM) $(ELFILES);
- for f in $(ELFILES); do $(RM) $${f}c; done; }
- -cd $(infodir) && $(RM) zenirc.info*
-
-.PHONY: check installcheck force
-check:
- @echo 'Nothing to be done for "check"'
-
-installcheck:
- @echo 'Nothing to be done for "installcheck"'
-
-force:
-
-### program-specific building targets ###
-
-all-zenirc: elisp #info
-elisp:
- -cd ./src && $(EMACS) $(BATCHFLAGS) -l zenirc-make.el \
- -f batch-byte-compile $(ELFILES)
-
-info: zenirc.info
-zenirc.info: zenirc.texi
-
-dvi: zenirc.dvi
-zenirc.dvi: zenirc.texi
-
-# Prevent GNU make v3 from overflowing arg limit on SysV.
-.NOEXPORT:
-
-# Makefile.in ends here
+++ /dev/null
-User-visible changes in ZenIRC-2.112:
-
-* Removed new-lines from all the different language catalouge
- entries. zenirc-messages adds this if appropriate.
-
-* zenirc-prime.el, new script. Calculates prime numbers.
-
-* zenirc-eval.el, new script. Evaluate special commands being sent to
- you from other people on IRC. USE WITH CAUTION!
-
-* zenirc-history.el now binds M-p and M-n to previous- and next-line.
-
-* zenirc-yow-filter.el, new script. Filter out all the annoying
- automated yows.
-
-* zenirc-color.el, new script; colorize your ZenIRC. Should work with
- Emacs-19, Emacs-20 and XEmacs.
-
-* zenirc-8ball.el, new script. Ask 8-ball easy yes/no questions.
-
-* zenirc-trigger.el, new script. Easy creation of triggers to incoming
- messages.
-
-* zenirc-ignore.el is more vocal to the user, also added
- zenirc-ignore-last-privmsg on C-c C-i to ignore the user@host of the
- last seen PRIVMSG.
-
- It's also much brighter when it comes to regexp handling.
-
-* zenirc-notify.el, better handling of upper and lower case
- nicknames. Much better command parser when adding and removing
- victims in real time.
-
-* zenirc-random-nick.el, added code do automatically change nickname
- every x number of seconds.
-
-* zenirc-fill.el, rerwritten to look more like the 2.100
- version. Two new ways of filling are added:
- zenirc-wrap-region-dynamic and -wrap-region-static. Added functions
- to fill outgoing messages as well as incoming ones. The filling
- functions now also uses the correct width of the *right* buffer.
-
-* zenirc-example.el, a lot of new examples.
-
-* All special modes can now be turned on and off with zenirc-*-mode.
-
-* zenirc-signal functions are smarter; doesn't beep when it shouldn't
- anymore.
-
-* zenirc-select uses zenirc-server-alist in a much smarter way.
-
-* zenirc-format-privmsg-or-notice now reckons PRIVMSG's to user@server
- in a better way.
-
-* Better handling of nick!user@host table in zenirc-format.el.
-
-* zenirc-bug, new function.
-
-* zenirc-update-modeline, a function which updates the modeline
- depending on which version of Emacs you are using. Relevant functions
- in ZenIRC now uses this.
-
-* zenirc-channel-list, a list of currently joined channels. If you
- leave your zenirc-current-victim it gets set to the previous channel.
- C-c C-t toggles between all the channels with zenirc-toggle-channel.
-
-* Added a couple of ircII lookalikes:
-
- zenirc-always-show-channelname, new variable. If set to nil, strip
- out the channelnames from incoming PRIVMSGs and NOTICEs if the
- channelname is the same as the current-victim.
-
- zenirc-delete-preceding-whitespaces, newvariable. If set to t, strip
- off leading whitespaces on outgoing messages.
-
- zenirc-whowas-on-401, new variable. If set to t, ZenIRC will issue a
- WHOWAS command if no information is gained by a WHOIS command.
-
-* More additions to conform with ircd2.9 news.
-
-As of 1996-04-24, Per has taken over primary maintenance of ZenIRC.
-
-User-visible changes in ZenIRC 2.101:
-
-* New function, gnus-bug. Initialize mail to make it easier for user
- to report a newly found bug.
-
-* Comments on how to do automatic things while initializing a server
- connection in zenirc-example.el.
-
-* Takes care of more new irc2.9 NUMERICS.
-
-* Responds to CTCP ECHO queries.
-
-As of 1995-06-28, Per started adding patches to ZenIRC alpha versions.
-
-* All the notify code is stripped out of zenirc.el into a -notify.el
- script. The notify code is able to check user@host info on
- notificated persons. Most of the code is also totally rewritten,
- some of the features are much better sanity checking.
-
-* /server, a new command using zenirc-select, lets you connect to
- servers in an easy way. /server irc-2.mit.edu 6667 ben
- The command uses zenirc-server-alist, it also defaults to just about
- every setting you can think of.
-
-* zenirc-ignore.el gives you ircII like /ignore and /unignore, an easier
- way to maintain your zenirc-ignore-list in real time. If you use the
- commands with regexps, it doesn't do it the ircII way.
-
-* /resize command in zenirc-fill.el lets you resize the fill values if
- you change the size of your emacsen.
-
- There also a new way of filling things, based on the first word of the
- string.
-
-* The variable zenirc-command-char lets you decide which char you want
- to use as a command char. "/" is default and you can change it with
- /commandchar.
-
-* zenirc-klingon.el and zenirc-bork.el are two new sets of language
- catalogs.
-
-* /topic is now able to SHOW the topic as well as set it.
-
-* The Makefile is now able to make and install ZenIRC, it uses
- zenirc-make.el to do so. Needs some improvment though.
-
-* zenirc-iwantop.el has better documentation for new users.
-
-* ZenIRC is able to display confirmation messages in the echo area
- instead of in the process buffer, at least better than it did before.
-
-* ZenIRC shows idletime in hours:minutes:seconds instead of plain
- seconds.
-
-* zenirc-history.el gives you shell-like C-p and C-n on C-cC-p and
- C-cC-n.
-
-* ZenIRC groks most of the 2.9 news, as well as some ugly additions to
- 2.8 by digital and comstud. FOLLOW THE RFC OR DIE.
-
-* There's code in zenirc.el to let you timestamp PRIVMSG/NOTICE, the
- code makes it really easy to add timestamps for other thingies.
-
-* Some of the numeric replies parsing are changed to show relevant
- information. 2.9 changes some of the replies so ZenIRC has to do
- more sanity checking (this is not totally perfect yet).
-
-* New funny files in the doc directory.
-
-\f
-As of 1994-10-02, Noah has taken over primary maintenance of zenirc.
-
-User-visible changes in ZenIRC 2.100:
-
-* ZenIRC now configures and installs using an Autoconf-generated configure
- script. [Makefile is only 4/5 finished 1995-03-27]
-
-* The version number no longer directly corresponds with the RCS revision
- number of zenirc.el. A separate version number is used, which will only
- change in each release. As a result, releases won't have arbitrarily
- incremented version numbers.
-
-* The new file zenirc-fill.el provides a minor mode which formats privmsgs,
- notices, and whatever kinds of messages you specify, so that they don't
- exceed the width of your window. Selective control is provided since
- some tables produced by the server will look terrible if anything
- attempts to fold them.
-
-* It is now possible to load multiple language catalogs and switch between
- them using "/language" or `M-x zenirc-lang-set-current-language'.
-
-* The DCC interface has been largely rewritten.
- It uses the message catalogs and has more hooks.
- Another notable change is the fact that subsequent DCC chat requests from
- the same user are stored and previous requests are discarded.
- This is in case the port number or IP address have changed in the new
- request.
-
-* All the external message catalogs have been renamed by removing the
- `-mode' in their name. For example, zenirc-latin-mode.el is now
- zenirc-latin.el. They are updated to use the new catalog mechanism.
-
-* Almost all tables are now implemented as hash tables instead of
- linear lists. This should speed up searches.
-
-* Line input has been completely reimplemented. It's now safe to send very
- long lines in private messages and notices; if necessary they are broken
- into multiple chunks and sent separately.
-
- Also, it's easier to send text line-at-a-time by yanking text into the
- buffer, moving point to the beginning of the new input, and hitting
- return successively. No excess newlines are inserted any more, and point
- is automatically positioned on the next line of unsent input.
-
- You can have confirmation of sending go in the echo area instead of
- inserting lines in the buffer.
-
-* /kick, /kill, /notice, /privmsg, and /squit commands are now sent to the
- server in the proper format.
-
-* zenirc-popup is now a minor mode that can be enabled or disabled with the
- `zenirc-popup-mode' command. It should also work in emacs 18 now.
-
-* The method of display for matching completions can be controlled by the
- user via the variable `zenirc-complete-display-function'. The default is
- to display completions in the echo area if they will fit. Otherwise, use
- a portion of the zenirc window.
-
- The variable `zenirc-complete-add-final-space-p' controls whether a
- trailing space is added to unique completions. The default is to do so
- since this is consistent with completion in emacs and other GNU programs.
-
-* You can now use `;' and `:' to send a private message to the last person
- you sent a private message to, or who sent you a private message. These
- keys only have this special meaning if they are the first character of
- your input.
-
- The other commands which do this used to be bound on `C-c s' and `C-c r'.
- They are now on `C-c C-s' and `C-c C-r', since the former keys are
- reserved for the user's private use. These commands always insert the
- recipient's name at the beginning of your input, rather than wherever
- point happens to be.
-
-* The mechanism for specifying how to connect to servers is completely
- revamped. The variable `zenirc-server-alist' is used to specify a list
- of servers (with optional port/password/nick info). Each one is tried in
- turn until a successful connection is made. It is initialized from your
- IRCSERVER environment variable, which can have the same format as parsed
- by ircII.
-
- You can set the variables `zenirc-server-default', `zenirc-nick-default',
- `zenirc-port-default', etc. Or if these are unset, the appropriate
- environment variables are used.
-
-* By default, any message with more than 4 CTCP queries is ignored.
- This is to avoid being disconnected for flooding.
- To disable this check, remove the appropriate regexp from
- zenirc-ignorance-list.
-
-* A new hook, zenirc-message-hook, is called each time a message is
- inserted in the buffer. The hook zenirc-send-line-hook is called each
- time you send a line of text.
-
-* If a command hook is nil, the command is just sent directly to the server,
- like /quote. To keep a command from going to the server at all, put the
- `ignore' function on the appropriate hook.
-
-* The new script zenirc-iwantop.el allows you to accept ctcp queries from
- users and give them channel operator privileges automatically.
-
-* zenirc-fancy-away.el has been renamed to zenirc-away.el.
- zenirc-fancy-format.el has been renamed to zenirc-format.el.
- zenirc-fancy-signal.el has been renamed to zenirc-signal.el.
-
-* Too many bug fixes and other minor improvments to mention here.
- See the ChangeLog for details.
-
-\f
-Changes to ZenIRC in version 2.16:
-
-* Added /oper command.
-
-\f
-Changes to ZenIRC in version 2.15:
-
-* New scripts: zenirc-popup.el, zenirc-fancy-away.el, and zenirc-yow.el
- The first pops up a window when signals occur and there is presently no
- window displaying that buffer.
- The second insures that you see a user's away message only once, until
- they change it again.
- The last implements the command /yow, and also allows you to
- autoreply to victims with zippy quotes.
-
-* zenirc-complete.el has been completely rewritten.
- The new version is better at insidiously caching data, doesn't tamper
- with the kill-ring, and has fewer bugs.
-
-* Made most files, including zenirc.el, "provide" themselves.
- Also made any scripts which refer to symbols declared in zenirc.el
- require it.
-
- This means that in emacs 19, you can use M-x unload-feature to easily
- undo most of the effects of loading a package, except for top-level
- forms.
-
-* zenirc has a new hook, zenirc-mode-hook, that is called at the end of
- zenirc-mode.
-
-* Many bugs fixes in process filters to keep point and window display from
- being munged incorrectly, to keep signal hooks from running when not
- appropriate (and also so that other hooks can permanently modify the
- state of buffers if desired).
-
-* Made signal hooks run last, after buffer update has already occured.
-
-* Removed recursion from some basic regexp matching routines.
-
-* Fixed bug in DCC chat code that was occasionally dropping bits of
- incoming lines.
-
-* New script, zenirc-random-nick.el, can be used to randomly choose
- nicknames for IRC if you are feeling deconstructionist.
+++ /dev/null
-ZenIRC-2.1 - Wed Apr 24 20:41:48 MET DST 1996 - Per Persson <pp@sno.pp.se>
-
-KNOWN BUGS:
-
-See the BUGS file.
-For missing features, look in the TODO file.
-
-
-KNOWN FEATURES AND INSTRUCTIONS:
-
-See the INSTALL file for help on how to compile and install ZenIRC.
-
-Look at zenirc-example.el for help on how to set up ZenIRC for daily
-usage. If you want more information about ZenIRC internals, read
-doc/README (beware, this file is out of date). In time ZenIRC will
-come with a texinfo manual.
-
-Found a new bug? Report it with "zenirc-bug" and we'll fix it!
-
-
-FURTHER INSTRUCTIONS:
-
-The most current versions of ZenIRC can always be found at;
-
- ftp://ftp.splode.com:/pub/zenirc
-
-There are three email addresses for ZenIRC you might be interested in;
-
- zenirc@splode.com (List for annoucments and important mails.)
- send mail to zenirc-request@splode.com to subscribe.
- zenirc-dev@splode.com (List for ZenIRC developers.)
- send mail to zenirc-dev-request@splode.com to subscribe.
- zenirc-bug@splode.com (List for bug reports.)
- this list is not interesting for you, unless you find a bug.
+++ /dev/null
-ZenIRC TODO list -- Last updated 1998-05-07
-
-* zenirc.el
-
- Strip ^F, ^P, ^U, ^B and ^_ from receieved PRIVMSG, NOTICE and
- TOPIC. Possibly add functions for this in zenirc.color.el at a later
- stage.
-
-* zenirc-fill.el
-
- Add optional function to strip off whitespaces at the end of messages.
-
-* Show Y-class when using /trace command.
-
-* Define current-time for emacs 18.
- Define current-time-string in 18 so that it can format arbitrary time values.
-
-* /ping
-
- Instead of trying to send to hack current-time-string, or represent big
- integers and such, just send the printed representation of a call to
- current-time. Then when the reply comes back, read the result and
- compare the conses. The way to compute the difference of these times is
-
- (defsubst time-difference (a b)
- (+ (lsh (- (car b) (car a)) 16)
- (- (car (cdr b)) (car (cdr a)))))
-
- This returns the number of seconds elapsed.
-
- I would like to remove the kiwi-derived routines anyway.
-
-* zenirc-notify.el
-
- Make it not trigger if you see the person leave or join a channel.
-
-* zenirc-complete.el
-
- Make it add nicks seen based on zenirc-complete-add-list, would be
- nice to add things on /trace and /userhost.
-
-* Allow messages from specific users, or different types of messages, to go
- into different buffers.
-
- If a general mechanism is implemented for this, zenirc-dcc.el should use
- it.
-
- It is likely that zenirc-message will have take a new arg, indicating
- into which buffer the message should go.
-
- [1995-03-16 Noah is working on this as part of a general purpose library
- for emacs.]
-
- [1996-07-22 Jason (and Per) is working on another solution to this.]
-
-* Implement "filters", to distinguish semantics from hooks.
-
- Some things, like the zenirc-format-nickuserhost-hook, don't really want
- to run all the functions; it wants to terminate as soon as a desirable
- formatting is completed.
-
- There are other instances where two hooks do not necessarily want to be
- run independently. For instance, zenirc-away.el only wants to display an
- away message if the current away message for a user is not in its cache
- already.
-
- But in general, hooks want to be run independently of each other since
- they may perform some completely orthogonal action, so if some other hook
- wants to abort running the rest of the hook list, the user is screwed.
-
- I propose a "filter" mechanism which provides a way to specify ordering,
- i.e. they should be able to say "I need to be run before foo but after
- bar" (and this requirement also assumes that bar must necessarily be run
- after foo). Packages which use this new mechamism may have to know some
- details about other packages for this to work, but that's a given. These
- filters would be of a different nature from the hooks now being used.
-
- I do not have a specific interface in mind yet, but I suspect that
- filters will generally be run via the hook mechanism, i.e. one will
- generally do
-
- (zenirc-add-hook 'zenirc-foo-hook
- (function
- (lambda (&rest args)
- (apply 'zenirc-run-filter 'zenirc-foo-filter args))))
-
-* Update non-english message catalogs with new strings added to the client
- since it they were first created.
-
-* Write a texinfo manual.
-
-* Make 'undo' only apply to unsent text.
-
-* Make recieved text 'read-only'.
-
-\f
-Low priority:
-
-* /list with regexp's.
-
-* Finish zenirc-eval.el.
-
- This should operate as a CTCP message that reads a sexp and evaluates it.
- In addition to regular eval, there should be an eval-print or some other
- macro that takes the result and sends it in the CTCP reply. Since irc
- messages are limited to 255 chars or so, the syntactic sugar would be
- helpful.
-
- For the sake of security weenies, it should have an access list, probably
- a list of regexps of user@host addresses which are allowed to send
- messages.
-
- Perhaps there should also be a "novice" flag which displays the form to
- be evaluated in the minibuffer (or a display buffer) and query for
- confirmation before doing anything.
-
-* Write zenirc-alias.el
-
- ircII like alias but not as smart.
-
-* Write zenirc-save.el
- This should save some default values to a special zenirc.rc file
- which ZenIRC loads during startup.
-
-* Write zenirc-eliza.el
-
- This should implement an eliza bot via doctor.el.
-
-* Write zenirc-swedish-chef.el
-
- This should be a process filter that converts everything people say into
- swedish-chef speak, and it should have an abbrev table that dynamically
- converts user input as well.
-
-* Write zenirc-face.el
-
- This should be code for Emacs 19 and XEmacs to support highlighting
- for ^Vregions^V and the like.
-
-* Write zenirc-mcelwane.el
-
- Upcase words RANDOMLY on INPUT!
-
-* zenirc supporting bold controls
-
- From: Andrew J Cosgriff <ajc@bing.wattle.id.au>
- any chance of zenirc supporting bold controls and stuff (^B et al.) ?
-
+++ /dev/null
-#!/bin/sh
-
-# Guess values for system-dependent variables and create Makefiles.
-# Generated automatically using autoconf version 2.1
-# Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
-#
-# This configure script is free software; the Free Software Foundation
-# gives unlimited permission to copy, distribute and modify it.
-
-# Defaults:
-ac_help=
-ac_default_prefix=/usr/local
-# Any additions from configure.in:
-
-# Initialize some variables set by options.
-# The variables have the same names as the options, with
-# dashes changed to underlines.
-build=NONE
-cache_file=./config.cache
-exec_prefix=NONE
-host=NONE
-no_create=
-nonopt=NONE
-no_recursion=
-prefix=NONE
-program_prefix=NONE
-program_suffix=NONE
-program_transform_name=s,x,x,
-silent=
-site=
-srcdir=
-target=NONE
-verbose=
-x_includes=NONE
-x_libraries=NONE
-
-# Initialize some other variables.
-subdirs=
-
-ac_prev=
-for ac_option
-do
-
- # If the previous option needs an argument, assign it.
- if test -n "$ac_prev"; then
- eval "$ac_prev=\$ac_option"
- ac_prev=
- continue
- fi
-
- case "$ac_option" in
- -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
- *) ac_optarg= ;;
- esac
-
- # Accept the important Cygnus configure options, so we can diagnose typos.
-
- case "$ac_option" in
-
- -build | --build | --buil | --bui | --bu | --b)
- ac_prev=build ;;
- -build=* | --build=* | --buil=* | --bui=* | --bu=* | --b=*)
- build="$ac_optarg" ;;
-
- -cache-file | --cache-file | --cache-fil | --cache-fi \
- | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
- ac_prev=cache_file ;;
- -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
- | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
- cache_file="$ac_optarg" ;;
-
- -disable-* | --disable-*)
- ac_feature=`echo $ac_option|sed -e 's/-*disable-//'`
- # Reject names that are not valid shell variable names.
- if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then
- { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
- fi
- ac_feature=`echo $ac_feature| sed 's/-/_/g'`
- eval "enable_${ac_feature}=no" ;;
-
- -enable-* | --enable-*)
- ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'`
- # Reject names that are not valid shell variable names.
- if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then
- { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
- fi
- ac_feature=`echo $ac_feature| sed 's/-/_/g'`
- case "$ac_option" in
- *=*) ;;
- *) ac_optarg=yes ;;
- esac
- eval "enable_${ac_feature}='$ac_optarg'" ;;
-
- -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
- | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
- | --exec | --exe | --ex)
- ac_prev=exec_prefix ;;
- -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
- | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
- | --exec=* | --exe=* | --ex=*)
- exec_prefix="$ac_optarg" ;;
-
- -gas | --gas | --ga | --g)
- # Obsolete; use --with-gas.
- with_gas=yes ;;
-
- -help | --help | --hel | --he)
- # Omit some internal or obsolete options to make the list less imposing.
- # This message is too long to be a string in the A/UX 3.1 sh.
- cat << EOF
-Usage: configure [options] [host]
-Options: [defaults in brackets after descriptions]
-Configuration:
- --cache-file=FILE cache test results in FILE
- --help print this message
- --no-create do not create output files
- --quiet, --silent do not print \`checking...' messages
- --version print the version of autoconf that created configure
-Directory and file names:
- --prefix=PREFIX install architecture-independent files in PREFIX
- [$ac_default_prefix]
- --exec-prefix=PREFIX install architecture-dependent files in PREFIX
- [same as prefix]
- --srcdir=DIR find the sources in DIR [configure dir or ..]
- --program-prefix=PREFIX prepend PREFIX to installed program names
- --program-suffix=SUFFIX append SUFFIX to installed program names
- --program-transform-name=PROGRAM run sed PROGRAM on installed program names
-Host type:
- --build=BUILD configure for building on BUILD [BUILD=HOST]
- --host=HOST configure for HOST [guessed]
- --target=TARGET configure for TARGET [TARGET=HOST]
-Features and packages:
- --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no)
- --enable-FEATURE[=ARG] include FEATURE [ARG=yes]
- --with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
- --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
- --x-includes=DIR X include files are in DIR
- --x-libraries=DIR X library files are in DIR
---enable and --with options recognized:$ac_help
-EOF
- exit 0 ;;
-
- -host | --host | --hos | --ho)
- ac_prev=host ;;
- -host=* | --host=* | --hos=* | --ho=*)
- host="$ac_optarg" ;;
-
- -nfp | --nfp | --nf)
- # Obsolete; use --without-fp.
- with_fp=no ;;
-
- -no-create | --no-create | --no-creat | --no-crea | --no-cre \
- | --no-cr | --no-c)
- no_create=yes ;;
-
- -no-recursion | --no-recursion | --no-recursio | --no-recursi \
- | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
- no_recursion=yes ;;
-
- -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
- ac_prev=prefix ;;
- -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
- prefix="$ac_optarg" ;;
-
- -program-prefix | --program-prefix | --program-prefi | --program-pref \
- | --program-pre | --program-pr | --program-p)
- ac_prev=program_prefix ;;
- -program-prefix=* | --program-prefix=* | --program-prefi=* \
- | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
- program_prefix="$ac_optarg" ;;
-
- -program-suffix | --program-suffix | --program-suffi | --program-suff \
- | --program-suf | --program-su | --program-s)
- ac_prev=program_suffix ;;
- -program-suffix=* | --program-suffix=* | --program-suffi=* \
- | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
- program_suffix="$ac_optarg" ;;
-
- -program-transform-name | --program-transform-name \
- | --program-transform-nam | --program-transform-na \
- | --program-transform-n | --program-transform- \
- | --program-transform | --program-transfor \
- | --program-transfo | --program-transf \
- | --program-trans | --program-tran \
- | --progr-tra | --program-tr | --program-t)
- ac_prev=program_transform_name ;;
- -program-transform-name=* | --program-transform-name=* \
- | --program-transform-nam=* | --program-transform-na=* \
- | --program-transform-n=* | --program-transform-=* \
- | --program-transform=* | --program-transfor=* \
- | --program-transfo=* | --program-transf=* \
- | --program-trans=* | --program-tran=* \
- | --progr-tra=* | --program-tr=* | --program-t=*)
- program_transform_name="$ac_optarg" ;;
-
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil)
- silent=yes ;;
-
- -site | --site | --sit)
- ac_prev=site ;;
- -site=* | --site=* | --sit=*)
- site="$ac_optarg" ;;
-
- -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
- ac_prev=srcdir ;;
- -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
- srcdir="$ac_optarg" ;;
-
- -target | --target | --targe | --targ | --tar | --ta | --t)
- ac_prev=target ;;
- -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
- target="$ac_optarg" ;;
-
- -v | -verbose | --verbose | --verbos | --verbo | --verb)
- verbose=yes ;;
-
- -version | --version | --versio | --versi | --vers)
- echo "configure generated by autoconf version 2.1"
- exit 0 ;;
-
- -with-* | --with-*)
- ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'`
- # Reject names that are not valid shell variable names.
- if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then
- { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
- fi
- ac_package=`echo $ac_package| sed 's/-/_/g'`
- case "$ac_option" in
- *=*) ;;
- *) ac_optarg=yes ;;
- esac
- eval "with_${ac_package}='$ac_optarg'" ;;
-
- -without-* | --without-*)
- ac_package=`echo $ac_option|sed -e 's/-*without-//'`
- # Reject names that are not valid shell variable names.
- if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then
- { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
- fi
- ac_package=`echo $ac_package| sed 's/-/_/g'`
- eval "with_${ac_package}=no" ;;
-
- --x)
- # Obsolete; use --with-x.
- with_x=yes ;;
-
- -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
- | --x-incl | --x-inc | --x-in | --x-i)
- ac_prev=x_includes ;;
- -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
- | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
- x_includes="$ac_optarg" ;;
-
- -x-libraries | --x-libraries | --x-librarie | --x-librari \
- | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
- ac_prev=x_libraries ;;
- -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
- | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
- x_libraries="$ac_optarg" ;;
-
- -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; }
- ;;
-
- *)
- if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then
- echo "configure: warning: $ac_option: invalid host type" 1>&2
- fi
- if test "x$nonopt" != xNONE; then
- { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; }
- fi
- nonopt="$ac_option"
- ;;
-
- esac
-done
-
-if test -n "$ac_prev"; then
- { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; }
-fi
-
-trap 'rm -fr conftest* confdefs* core $ac_clean_files; exit 1' 1 2 15
-
-# File descriptor usage:
-# 0 unused; standard input
-# 1 file creation
-# 2 errors and warnings
-# 3 unused; some systems may open it to /dev/tty
-# 4 checking for... messages and results
-# 5 compiler messages saved in config.log
-if test "$silent" = yes; then
- exec 4>/dev/null
-else
- exec 4>&1
-fi
-exec 5>./config.log
-
-echo "\
-This file contains any messages produced by compilers while
-running configure, to aid debugging if configure makes a mistake.
-" 1>&5
-
-# Strip out --no-create and --no-recursion so they do not pile up.
-# Also quote any args containing shell metacharacters.
-ac_configure_args=
-for ac_arg
-do
- case "$ac_arg" in
- -no-create | --no-create | --no-creat | --no-crea | --no-cre \
- | --no-cr | --no-c) ;;
- -no-recursion | --no-recursion | --no-recursio | --no-recursi \
- | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;;
- *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*)
- ac_configure_args="$ac_configure_args '$ac_arg'" ;;
- *) ac_configure_args="$ac_configure_args $ac_arg" ;;
- esac
-done
-
-# NLS nuisances.
-# Only set LANG and LC_ALL to C if already set.
-# These must not be set unconditionally because not all systems understand
-# e.g. LANG=C (notably SCO).
-if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
-if test "${LANG+set}" = set; then LANG=C; export LANG; fi
-
-# confdefs.h avoids OS command line length limits that DEFS can exceed.
-rm -rf conftest* confdefs.h
-# AIX cpp loses on an empty file, so make sure it contains at least a newline.
-echo > confdefs.h
-
-# A filename unique to this package, relative to the directory that
-# configure is in, which we can look for to find out if srcdir is correct.
-ac_unique_file=Makefile.in
-
-# Find the source files, if location was not specified.
-if test -z "$srcdir"; then
- ac_srcdir_defaulted=yes
- # Try the directory containing this script, then its parent.
- ac_prog=$0
- ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'`
- test "x$ac_confdir" = "x$ac_prog" && ac_confdir=.
- srcdir=$ac_confdir
- if test ! -r $srcdir/$ac_unique_file; then
- srcdir=..
- fi
-else
- ac_srcdir_defaulted=no
-fi
-if test ! -r $srcdir/$ac_unique_file; then
- if test "$ac_srcdir_defaulted" = yes; then
- { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; }
- else
- { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; }
- fi
-fi
-srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'`
-
-# Prefer explicitly selected file to automatically selected ones.
-if test -z "$CONFIG_SITE"; then
- if test "x$prefix" != xNONE; then
- CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site"
- else
- CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site"
- fi
-fi
-for ac_site_file in $CONFIG_SITE; do
- if test -r "$ac_site_file"; then
- echo "loading site script $ac_site_file"
- . "$ac_site_file"
- fi
-done
-
-if test -r "$cache_file"; then
- echo "loading cache $cache_file"
- . $cache_file
-else
- echo "creating cache $cache_file"
- > $cache_file
-fi
-
-ac_ext=c
-# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='${CC-cc} $CFLAGS $CPPFLAGS conftest.$ac_ext -c 1>&5 2>&5'
-ac_link='${CC-cc} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext -o conftest $LIBS 1>&5 2>&5'
-
-if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
- # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu.
- if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then
- ac_n= ac_c='
-' ac_t=' '
- else
- ac_n=-n ac_c= ac_t=
- fi
-else
- ac_n= ac_c='\c' ac_t=
-fi
-
-
-ac_aux_dir=
-for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
- if test -f $ac_dir/install-sh; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install-sh -c"
- break
- elif test -f $ac_dir/install.sh; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install.sh -c"
- break
- fi
-done
-if test -z "$ac_aux_dir"; then
- { echo "configure: error: can not find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." 1>&2; exit 1; }
-fi
-ac_config_guess=$ac_aux_dir/config.guess
-ac_config_sub=$ac_aux_dir/config.sub
-ac_configure=$ac_aux_dir/configure # This should be Cygnus configure.
-
-# Find a good install program. We prefer a C program (faster),
-# so one script is as good as another. But avoid the broken or
-# incompatible versions:
-# SysV /etc/install, /usr/sbin/install
-# SunOS /usr/etc/install
-# IRIX /sbin/install
-# AIX /bin/install
-# AFS /usr/afsws/bin/install, which mishandles nonexistent args
-# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
-# ./install, which can be erroneously created by make from ./install.sh.
-echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&4
-if test -z "$INSTALL"; then
-if eval "test \"`echo '${'ac_cv_path_install'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&4
-else
- IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
- for ac_dir in $PATH; do
- case "$ac_dir" in
- ''|.|/etc|/usr/sbin|/usr/etc|/sbin|/usr/afsws/bin|/usr/ucb) ;;
- *)
- # OSF1 and SCO ODT 3.0 have their own names for install.
- for ac_prog in ginstall installbsd scoinst install; do
- if test -f $ac_dir/$ac_prog; then
- if test $ac_prog = install &&
- grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then
- # AIX install. It has an incompatible calling convention.
- # OSF/1 installbsd also uses dspmsg, but is usable.
- :
- else
- ac_cv_path_install="$ac_dir/$ac_prog -c"
- break 2
- fi
- fi
- done
- ;;
- esac
- done
- IFS="$ac_save_ifs"
- # As a last resort, use the slow shell script.
- test -z "$ac_cv_path_install" && ac_cv_path_install="$ac_install_sh"
-fi
- INSTALL="$ac_cv_path_install"
-fi
-echo "$ac_t""$INSTALL" 1>&4
-
-# Use test -z because SunOS4 sh mishandles braces in ${var-val}.
-# It thinks the first close brace ends the variable substitution.
-test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
-
-test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
-
-trap '' 1 2 15
-if test -w $cache_file; then
-echo "updating cache $cache_file"
-cat > $cache_file <<\EOF
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs. It is not useful on other systems.
-# If it contains results you don't want to keep, you may remove or edit it.
-#
-# By default, configure uses ./config.cache as the cache file,
-# creating it if it does not exist already. You can give configure
-# the --cache-file=FILE option to use a different cache file; that is
-# what configure does when it calls configure scripts in
-# subdirectories, so they share the cache.
-# Giving --cache-file=/dev/null disables caching, for debugging configure.
-# config.status only pays attention to the cache file if you give it the
-# --recheck option to rerun configure.
-#
-EOF
-# Ultrix sh set writes to stderr and can't be redirected directly.
-(set) 2>&1 |
- sed -n "s/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/: \${\1='\2'}/p" \
- >> $cache_file
-else
-echo "not updating unwritable cache $cache_file"
-fi
-
-trap 'rm -fr conftest* confdefs* core $ac_clean_files; exit 1' 1 2 15
-
-test "x$prefix" = xNONE && prefix=$ac_default_prefix
-# Let make expand exec_prefix.
-test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
-
-# Any assignment to VPATH causes Sun make to only execute
-# the first set of double-colon rules, so remove it if not needed.
-# If there is a colon in the path, we need to keep it.
-if test "x$srcdir" = x.; then
- ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d'
-fi
-
-trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15
-
-# Transform confdefs.h into DEFS.
-# Protect against shell expansion while executing Makefile rules.
-# Protect against Makefile macro expansion.
-cat > conftest.defs <<\EOF
-s%#define \([A-Za-z_][A-Za-z0-9_]*\) \(.*\)%-D\1=\2%g
-s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g
-s%\[%\\&%g
-s%\]%\\&%g
-s%\$%$$%g
-EOF
-DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '`
-rm -f conftest.defs
-
-
-# Without the "./", some shells look in PATH for config.status.
-: ${CONFIG_STATUS=./config.status}
-
-echo creating $CONFIG_STATUS
-rm -f $CONFIG_STATUS
-cat > $CONFIG_STATUS <<EOF
-#!/bin/sh
-# Generated automatically by configure.
-# Run this file to recreate the current configuration.
-# This directory was configured as follows,
-# on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
-#
-# $0 $ac_configure_args
-#
-# Compiler output produced by configure, useful for debugging
-# configure, is in ./config.log if it exists.
-
-ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]"
-for ac_option
-do
- case "\$ac_option" in
- -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
- echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
- exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
- -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
- echo "$CONFIG_STATUS generated by autoconf version 2.1"
- exit 0 ;;
- -help | --help | --hel | --he | --h)
- echo "\$ac_cs_usage"; exit 0 ;;
- *) echo "\$ac_cs_usage"; exit 1 ;;
- esac
-done
-
-ac_given_srcdir=$srcdir
-ac_given_INSTALL="$INSTALL"
-
-trap 'rm -f Makefile; exit 1' 1 2 15
-
-# Protect against being on the right side of a sed subst in config.status.
-sed 's/%@/@@/; s/@%/@@/; s/%g$/@g/; /@g$/s/[\\\\&%]/\\\\&/g;
- s/@@/%@/; s/@@/@%/; s/@g$/%g/' > conftest.subs <<\CEOF
-$ac_vpsub
-$extrasub
-s%@CFLAGS@%$CFLAGS%g
-s%@CPPFLAGS@%$CPPFLAGS%g
-s%@CXXFLAGS@%$CXXFLAGS%g
-s%@DEFS@%$DEFS%g
-s%@LDFLAGS@%$LDFLAGS%g
-s%@LIBS@%$LIBS%g
-s%@exec_prefix@%$exec_prefix%g
-s%@prefix@%$prefix%g
-s%@program_transform_name@%$program_transform_name%g
-s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g
-s%@INSTALL_DATA@%$INSTALL_DATA%g
-
-CEOF
-EOF
-cat >> $CONFIG_STATUS <<EOF
-
-CONFIG_FILES=\${CONFIG_FILES-"Makefile"}
-EOF
-cat >> $CONFIG_STATUS <<\EOF
-for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
- # Support "outfile[:infile]", defaulting infile="outfile.in".
- case "$ac_file" in
- *:*) ac_file_in=`echo "$ac_file"|sed 's%.*:%%'`
- ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
- *) ac_file_in="${ac_file}.in" ;;
- esac
-
- # Adjust relative srcdir, etc. for subdirectories.
-
- # Remove last slash and all that follows it. Not all systems have dirname.
- ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
- if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
- # The file is in a subdirectory.
- test ! -d "$ac_dir" && mkdir "$ac_dir"
- ac_dir_suffix="/$ac_dir"
- # A "../" for each directory in $ac_dir_suffix.
- ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'`
- else
- ac_dir_suffix= ac_dots=
- fi
-
- case "$ac_given_srcdir" in
- .) srcdir=.
- if test -z "$ac_dots"; then top_srcdir=.
- else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;;
- /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;;
- *) # Relative path.
- srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix"
- top_srcdir="$ac_dots$ac_given_srcdir" ;;
- esac
-
- case "$ac_given_INSTALL" in
- [/$]*) INSTALL="$ac_given_INSTALL" ;;
- *) INSTALL="$ac_dots$ac_given_INSTALL" ;;
- esac
- echo creating "$ac_file"
- rm -f "$ac_file"
- configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure."
- case "$ac_file" in
- *Makefile*) ac_comsub="1i\\
-# $configure_input" ;;
- *) ac_comsub= ;;
- esac
- sed -e "$ac_comsub
-s%@configure_input@%$configure_input%g
-s%@srcdir@%$srcdir%g
-s%@top_srcdir@%$top_srcdir%g
-s%@INSTALL@%$INSTALL%g
-" -f conftest.subs $ac_given_srcdir/$ac_file_in > $ac_file
-fi; done
-rm -f conftest.subs
-
-
-
-exit 0
-EOF
-chmod +x $CONFIG_STATUS
-rm -fr confdefs* $ac_clean_files
-test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS
-
+++ /dev/null
-dnl Process this file with autoconf 2.x to produce a configure script.
-dnl $Id: configure.in,v 1.1.1.1 1998-10-07 11:21:29 jareth Exp $
-AC_INIT(Makefile.in)
-AC_PROG_INSTALL
-AC_OUTPUT(Makefile)
+++ /dev/null
-------- Start of forwarded message -------
-From: Roger Espel Llima <espel@sky.net>
-Newsgroups: alt.humor.best-of-usenet
-
-Subject: Re: Irc 666 Conspiracy
-From: nelson@cs.uwp.edu (Jeremy Nelson)
-Newsgroups: alt.conspiracy, alt.irc, alt.conspiracy.antichrist,
- alt.nostradamus, alt.prophecies
-
-<888@888.888> wrote:
->Do you have noticed that all ports of Irc servers begin with 666??
->The most familiar is 6667 but also 6666,6668,6669.
->Maybe the internet is not so innocent as they want us to believe..
-
-[Fade to black.... Fade into a darkly lit, yet distinctly reddish
-place. A reddish-orange, horned man sits at a desk when the phone rings.]
-
-Bob: "Hello, Internet Porty Authority, wholly owned subsidiary of Hell, Inc.,
- this is Bob. How may I help you?"
-
-Steve: "Hi Bob! This is Steve down in research and development. We've just
- develoepd this KILLER setup where people will waste literally thousands
- of hours of their life doing nothing more than sitting quietly in front
- of a terminal while their brains shrivel slowly into raisins."
-
-Bob: "Hrm... Sounds devilishly clever. What's the code name for it?"
-
-Steve: "Well, a beta-tester named Doug suggested "I Repeat Class". We liked
- the way it formed an easy to grasp acronym, something that would
- slowly make the poor users rue the day they ever heard it. But that
- name seemed far to obvious about the side effects. We needed
- something with more panache. After a joint meeting with the
- Marketing Department, we came up with "Internet Relay Chat"."
-
-Bob: "Oh, thats absolutely perfect. What were the side effects that the
- Punishment and Testing Department came up with?"
-
-Steve: "Initial Addiction rates were nearly 90%. If only we could get that
- kind of response out of Cocaine or Heroin, we'd be set! Also listed
- were a drastic reduction in eating habits, acute lack of sleep, loss
- of intimacy with loved ones, and an *alarming* increase in the
- purchase of keyboards. [1] Also noted was an increase in the
- hostility level, with quite a few observances of users screaming
- at their computer "ILL KILL THE GDMF THAT KICKED ME!" The most
- frightening thing about it was that the testers told their friends
- about the experience, and now their FRIENDS want to join the testing!
- We cant shake people away with a stick!
-
-Bob: "Oh beautiful. This should set back the course of civilization a good
- ten years. Do you have any idea how good its going to be for our
- membership drive if this thing spreads like a viral infection? Within
- ten years of when you deploy this, we'll have 250,000 people trying to
- barge on all the time to get their fix!"
-
-Steve: "Oh, that reminds me of why i called. We need to get a port number
- for the service so we can try some live testing out on the internet.
- Can you spare us any?"
-
-Bob: "Can I? *cackle* Ive been saving a *very special* range of ports for
- just something so evil as this. Something that isnt so blatantly
- obvious, but just sublime enough that the really truly clued in will
- be able to see the obvious conspiracy behind it. I can give you the
- entire range of 6660-6669."
-
-Steve: "Oh, bonus! Ill get on it right away! Thanks again Bob!"
-
-Bob: "Any time. " <Hangs up> "Oh.. i can see it now.. it will be GLORIOUS!"
-------- End of forwarded message -------
-
-
+++ /dev/null
-mrg@mame.mu.oz.au & ben@gnu.ai.mit.edu
-
-This document answers the following frequently asked questions:
-
-1 what is irc ?
-2 why does irc suck ?
-3 why should i irc ?
-4 what is netsex ?
-5 should i have netsex ?
-6 how do i get on irc ?
-7 what is a channel operator ?
-8 what is an irc operator ?
-9 what is a major dweeb ?
-10 what is a major fascist ?
-11 what is a bot ?
-12 what is the piglet way ?
-13 what is a penis extension ?
-14 how do i become of the piglet way ?
-15 does linux suck ?
-16 what is irc like ?
-
-
-1 what is irc ?
-
-irc sucks. irc is reputed to stand for 'internet relay chat',
-but it really means 'i repeat class'. though some people say
-it means 'Irc Really suCks' [capitals only for emphasis].
-
-
-2 why does irc suck ?
-
-because piker and dl are irc operators.
-
-
-3 why should i irc ?
-
-to be rude to irc operators, particularly dl and piker.
-
-
-4 what is netsex ?
-
-netsex is a myth. a long time ago an irc operator called
-wumpus (it rhymes with wimp, sorta) made up a story that
-it wandered on to channel -69 to find people engaging in
-what it called 'netsex', but this was never proven. since
-then people have just been being rude to wumpus for being
-so silly about this 'netsex'
-
-
-5 should i have netsex ?
-
-d'oh! only stupid people who read this question if they
-knew what netsex is (see number 4).
-
-
-6 how do i get on irc ?
-
-take my advice - don't.
-
-
-7 what is a channel operator ?
-
-a major fascist (see number 10).
-
-
-8 what is an irc operator ?
-
-a major dweeb (see number 9).
-
-
-9 what is a major dweeb ?
-
-an irc operator (see number 8).
-
-
-10 what is a major fascist ?
-
-an channel operator (see number 7).
-
-
-11 what is a bot ?
-
-a penis extension. only this penis extension doesn't impresss
-the girlies (or the boys, if you/they are so inclinded [*]).
-
-[*] if you are sexually offended by this, then you lose.
-
-
-12 what is the piglet way ?
-
-ojnk.
-
-
-13 what is a penis extension ?
-
-a bot (see number 11).
-
-
-
-14 how do i become of the piglet way ?
-
-ojnk.
-
-
-15 does linux suck ?
-
-yes. [*]
-
-[*] if you are sexually offended by this, then you lose.
-
-
-16 what is irc like ?
-
-learn by example:
-
-----------------------------------------------------------------------
-Adam Pops My Cherry.
-
-A True Story of the IRC
-by Ben Mesander
-ben@hopper.acs.virginia.edu
-(irc - piglet2)
-
-So one night, Leftist, and I (piglet2) on IRC decide to see what it's
-like to be hot and willing IRC babes. Leftist becomes Julie, I become
-Samantha, and we cruise the #hotsex channel, looking for a little
-action. Julie plays smart, beautiful and passionate... I play dumb with
-big tits (this is more natural for me). An interesting phenomenon arose
-- while I originally was the one that attracted our target, Adam, he
-soon liked Julie better than I. Brains over tits, I guess. In addition,
-there is a little dialogue with catfish, a friend of ours who borrowed
-my nick and wreaked havoc on several channels (she was through by the
-time this log was started). I wish I had the presence of mind to log
-the whole thing. Well I didn't. But to give the story so far, Adam has
-revealed that he has slept with seven women, all of them "nearly
-virgins." He's a college senior in Communications with a 2.0 gpa. Then
-I insisted that he tell me a bedtime story.
-
-What follows is the logfile. Absolute stark naked reality on IRC. This
-is Adam's story, the story of the average college student who's looking
-for a net.fuck on irc.
-
-<Adam> then up the top of your foot
-<Adam> to the inside of your left leg
-<Julie> OOH!
-<Adam> to the knee
--> *catfish* it is so funny.
-<Adam> up to the thigh
-<Adam> still slowly and softly brushing inside
-=> =Julie= she does? why?
-=Julie= Dunno.
-<Adam> up above your glistening vagina
-<Adam> kissing across your abdomen
-=Julie= *Adam* just remember, julie that I don't lie about this stuff.
-<Adam> and coming back down the other thigh's inside
-<Adam> then down the inside....down the foot...
-<Adam> to the toesies
-<Adam> kissing each and every one of them
-<Adam> down from the big one to the little baby
-=Julie= Adam's got bad sentence structure. Let's make his life miserable.
-<Adam> then up the outside of your right leg...
-=> =Julie= tell him you think kissing toes is gross.
-<Adam> over your knee
-*Catfish* piggie, you better be saving some of this :)
-<Adam> to the hip
-<Adam> up your chest
-<Adam> to your breast
-<Adam> over it ever so gently
-=Julie= No. That's in character for you, not me.
-=> =Julie= or maybe that you have a club foot.
-*** Action: Adam pauses for a breather...
-<Samantha> whew!
-<Adam> up to the right side of your neck
-<Adam> then to your right earlobe
-<Adam> tugging at it with my teeth
-<Samantha> mmmm!
-<Adam> then across your neck to your left one (my fave)
-<Samantha> I like that!
-<Adam> then back around to the back of your neck
-<Adam> now, I place my hands firmly but gently on your shoulders
-<Adam> squeezing them a little
-<Adam> your arms are spread out above your head
-=Julie= This guy is probably a 45 second-er.
-<Adam> (like you're doing jumping jacks)
-<Samantha> mmmm.
-<Samantha> and what is julie doing during all this??
-<Julie> Masturbating, actually.
-<Adam> then I run my hands down the sides of your back GENTLY as I SLOWLY AND
-+GENTLY go down your spine with my lips
-<Samantha> ooh. I can feel myself stretched out!
-=Julie= Hahaha, he likes me better.
-=> =Julie= you slut. i bet you 10 net.bucks youre wrong.
-<Adam> then I go to your left "cheek"
-<Adam> and go down the back of your leg, outside
-=Julie= *Adam* I have a DEEP voice. Very sexy voice I'm told. Women love
-+it.
-<Samantha> Squeal!
-<Adam> down to the foot
-=Julie= He's offering to do it to me on the phone later.
-=> =Julie= you win. he's not msging me. but I'm loggin this for planet
-+yip.
-=Julie= Tee-hee.
-<Julie> I'm excited. I'm gonna masturbate with my fingers now.
-<Adam> down the sole of your foot
-<Adam> to the little toesies
-<Adam> kissing every one of them
-=> =Julie= have you ever anally masturbated? tee hee! Lemme find joN's
-+phone number, kay?
-=Julie= -> *adam* Yes. The kbord is getting sticky.
-=Julie= No. K.
-=> =Julie= (804)977-8802
-<Adam> then back up to the inside of your leg...back of your knee (which you
-+would probably kick at this point)
-<Adam> up to your ass
-<Samantha> mmm.
-<Adam> cross over to the other side
-<Adam> then down the leg
-<Adam> to the back of the knee
-<Adam> to the sole of the foot
-<Adam> to the toesies
-*** Adam is adam@rac3.wam.umd.edu (Adam L. Greenberg)
-*** on channels: @#nights
-*** on irc via server tjeeves.acc.Virginia.EDU (Jefferson Server, UVa)
-<Adam> kissing each one
-<Adam> then back up the outside of the leg...
-=Julie= What should I do with joN's number?
-<Adam> hmm now where?
-=> =Julie= this guy is a foot fetishist.
-<Adam> then back to the right ear
-=> =Julie= say it is your number.
-=Julie= Ok.
-<Adam> I lower myself onto you and pull a blanket over us to keep us warm
-<Adam> As I lie on top of you, nibbling your ear and massaging your shoulders,
-+you feel me sticking into your lower back
-=> =Julie= I feel like doing a dieter. "Suddenly, you have become
-+tiresome."
-<Adam> Finally I cannot resist
-=Julie= HE cannot resist!
-<Adam> You slowly spread your legs and I enter you from behind, lying on top
-+of you, spreading your arms out and holding you down to the bed.
-<Samantha> I like that!
-<Samantha> ooh. I'm so wet!
-<Adam> You feel me sliding inside of you and you begin to moan
-=Julie= 3.5 hrs till Calc.
-*Adam* how do I know that?
-<Julie> Masturbate, sam, it works.
--> *adam* know what?
-*Adam* what?
-=Julie= *Adam* I hope I'm making you happy :-)
--> *adam* you asked me how i know that.
-*Adam* how do I know you're really wet and not just saying that, samantha?
-=Julie= -> *adam* HOPELESSLY
-<Adam> I go in and out and in and out.
--> *adam* hmm. you'll have to trust me on this! this is a great bedtime story,
-+you know I needed something like this.
--> *adam* i can't wait to meet you!
-<Adam> We both get up on our knees and I grab your thighs and hold your sweet
-+ass against the front of my legs
-<Julie> mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
-<Samantha> Julie's getting off!
-<Adam> As I slowly pump you, you get up on all fours...
-<Samantha> I'd love to lick you julie!
-<Julie> oooooh if you only could
-<Samantha> with adam too. friday?
-<Adam> Our bodies don't disconnect but my dick just goes in and out of you
-+rhythmically.
--> *catfish* I'm saving this to a logfile.
-<Julie> if (from "HailOtis@socspy.sci.fau.edu") then save /tmp/clc/priv/purps
-<Adam> then I reach around and play with your clit
-<Samantha> mmmm...
-=Julie= I have to piss. Bad. Cover for me.
-*Catfish* bless you boy!
-=> =Julie= tell im you have to go " finish" yourself.
--> *adam* julie just told me she has to go "finish" herself!
-<Adam> Honey, you have to remember that I like making LOVE not fucking...so
-+this is gonna be slow slow slow
-<Adam> I reach around, lower my chest onto your back as you still stay on all
-+fours...
-<Adam> fingering your hot wet hole
--> *catfish* he appears to have a thing for young girls, feet, and humping on
-+all fours.
-<Adam> every time I touch your clit your hips buck and you feel the tension
-+building
--> *catfish* I guess pretty normal for an irc geek.
-<Samantha> I'm buckin honey.
-*Catfish* how I wish to see this!
-=Julie= *Adam* yeah my hands are beginning to shake
--> *catfish* hee hee. I'm catching about half of it in a logfile.
-=Julie= I wonder why.
-<Adam> then I just ram you one time so smoothly that you scream in pleasure as
-+you feel your pussy grabbing me tighter and tighter
-=> =Julie= catfish sure acts interested in it!
-<Adam> pulsing around me
-<Adam> and it feels good.
-=Julie= She wants you.
-*Catfish* get as much as possible.
-<Adam> with that, I shoot very warmly inside you...
-=> =Julie= 10 net.bucks sez she don't.
-=Julie= I like how not only does he tell us what he does, he tells us what
-+we do.
-<Adam> we have both worked (all worked) up a sweat
-<Adam> and lie down in the bed together
-<Samantha> whew!
-<Samantha> oh honey, I can't wait!
-<Samantha> Julie, I'm gonna go fix your car!
-=Julie= 10 net.bucks sez she likes computer people.
-=> =Julie= puleez - i hate comptuer people.
-<Adam> ain't done yet!
-<Samantha> Well hon, I am pretty done.
-=Julie= Some people find us mystifying.
-<Samantha> And I got to go to work tomorrow!
-<Adam> oh I hope not
-<Samantha> More on friday, but for real?
-<Adam> first a little nap
-<Adam> then a shower
-<Samantha> Don't worry adam, I just need to be rested up four our little party!
-<Samantha> I don't have a phone right now, do you have julie's number?
-*** Action: Adam gets a funny feeling he'll never hear from you guys
-=Julie= -> *ADAM* WHEN? I WILL CALL WHENEVER! But i have to go to bed
-+soon.
-<Samantha> Friday?
-<Adam> I have no LD remember?
-<Samantha> Friday night?
-<Adam> They won't put it on until....no friday is NO GOOD!
-<Samantha> well, if u can call julie on a pay phone? Satruday?
-<Julie> Sam, I will call him.
-<Samantha> julie can pick me up, in her car.
-<Samantha> julie is at 804 977 8802
-<Adam> My LD will be on soon...jeez, let's not rush this all! I'm a little
-+nervous...besides. I
-<Julie> Sam I wanna lick your wetness.
-<Samantha> julie i miss you *hugs*
-=Julie= What do you think joN will think?
-=> =Julie= I'll leave him email...
-<Adam> I'd rather wait until A) I have a haircut! and b) I can take you ladies
-+out for at least a nice dinner!
-<Adam> I want to make a good first impression
-<Julie> ADAM, I don't care about dinner OR hair now!
-<Samantha> But julie is a hairdresser! she can cut your hair!
-<Julie> I only care about feeling your hard cock inside of me.
-<Samantha> I'm so hot tonight.
-=Julie= You're "officially" calling me right after this. So I can avoid
-+calling Adam.
--> *catfish* oh lordie help me.
-<Adam> Well, we're gonna have to have quite a bit of foreplay first because I
-+haven't had any in a long time so I'd probably come pretty quickly. But get
-+me to come two or three times and after that I'll last quite a while,
-+actually.
-=> =Julie= just tell him you can't afford the ld right now either.
-<Adam> The last girl I made love to had to have me stop after about an hour
-+she was in pain
-=Julie= Too late, babe.
-<Julie> It takes me WAY longer than that.
-=> =Julie= a precummer.
-<Samantha> me too!
-<Adam> Not when you're with me it won't
-=Julie= _adam?
-<Samantha> remember you have to please two of us!
-<Julie> PROMISE?
-<Samantha> and we can help eachi other out a little too...
-<Adam> My fingers can make you come in about 5...I'll guarantee it or double
-+your fingering back!
-<Samantha> ooh! I love that!
-<Adam> My voice plays a key role here, too
-<Julie> yum
-=> =Julie= "my voice. gag"
-=Julie= I'm so moist. This is all being logged?
-=> =Julie= u bet.
-=Julie= from where?
-<Samantha> well goodnight! I have to go!
-=> =Julie= on my amiga at home.
-<Adam> hey not so fast!
-<Samantha> mmm, adma, can I give you a kiss?
-=Julie= I mean, where did you start? Do selective editing and send it in.
-<Adam> oh honey you can give me whatever you want
-<Samantha> *hugs* julie!
-<Samantha> oh adam, we will have fun! but I have to work tomorrow! look at the tiem!
-<Samantha> bye!
-
-I'd never had net.sex before. Adam devirginified another babe, and my
-net.cherry is forever lost. I'm checking into the Betty Ford clinic.
-----------------------------------------------------------------------
-
-The following is a conversation between "good-guy" and "R" - R was the only
-op on the channel, and databoy wanted to get rid of me...
-
--> *good-guy* did I op you?
-*good-guy* no <Sun Jan 24 20:22>
--> *good-guy* sorry. :(
-*good-guy* type /mode #christian +o good-guy <Sun Jan 24 20:23>
--> *good-guy* oh, I see. you type +o then your nick name?
-*** good-guy has changed the topic on channel #christian to God love you
-*** good-guy has changed the topic on channel #christian to GOD LOVE YOU
-*good-guy* you got it <Sun Jan 24 20:25>
-*good-guy* do you realize you the away on <Sun Jan 24 20:26>
--> *good-guy* my screen is scrolling too fast. what was the command again?
--> *good-guy* the away on? what does that mean?
-*good-guy* can you op first then I will explain <Sun Jan 24 20:28>
--> *good-guy* my screen is scrolling too fast. what was the command again?
--> *piglet3* I think good-guy is beginning to catch on, just as I started a log.
-*good-guy* type /mode #christian +o good-guy <Sun Jan 24 20:30>
--> *good-guy* what's the last part for?
-*good-guy* type /mode #christian +o good-guy <Sun Jan 24 20:31>
--> *good-guy* what is the <Sun Jan 24 20:31> for? is that the date?
-*good-guy* please op me before this get out of control <Sun Jan 24 20:34>
--> *good-guy* I dont want to type anything if I dont know what it's for.
-*** good-guy is H04LG@cunyvm.cuny.edu (!id ONE OF THE GOOD GUYS)
-*good-guy* well are you going <Sun Jan 24 20:41>
--> *good-guy* going?
-*good-guy* to op me? <Sun Jan 24 20:43>
-*** Signoff: good-guy (good-guy)
--> *good-guy* not until you tell me what the last part of that command is for.
--> *good-guy* I think I understand the rest.
-*** good-guy (H04LG@cunyvm.cuny.edu) has joined channel #christian
--> *good-guy* a friend told me never to type a computer command I didnt understand.
-*good-guy* I see <Sun Jan 24 20:44>
--> *good-guy* especially one involving the word passwd or rhosts.
-*good-guy* okay now can you op me. <Sun Jan 24 20:45>
--> *good-guy* what does that date in the command mean?
-*good-guy* i understand. <Sun Jan 24 20:45>
-*good-guy* it just shows the current date <Sun Jan 24 20:46>
--> *good-guy* but why put it in the command to op someone???!!
-*good-guy* you don't need it <Sun Jan 24 20:46>
--> *good-guy* then why did you type it?
-*good-guy* just try what I told you on me <Sun Jan 24 20:47>
-*good-guy* just trying it out <Sun Jan 24 20:47>
--> *good-guy* I dont understand.
-*good-guy* bye bye <Sun Jan 24 20:48>
--> *good-guy* goodbye
-*good-guy* you do not want to op me <Sun Jan 24 20:48>
--> *good-guy* I dont know why I should. you arent being very clear.
-*** good-guy has left channel #christian
-*good-guy* I have the irc primer <Sun Jan 24 20:52>
--> *good-guy* what does that do?
-*good-guy* I have all the commands for irc. <Sun Jan 24 20:53>
-*good-guy* you should type /away <Sun Jan 24 20:53>
--> *good-guy* what will that do?
-*good-guy* it stop giving me that msg as a manager <Sun Jan 24 20:54>
--> *good-guy* as a manager?
-*** good-guy is away: go on talk to me
-*good-guy* yes <Sun Jan 24 20:54>
-*good-guy* you have not type away <Sun Jan 24 20:55>
-
-----------------------------------------------------------------------
-Random netsexer encounters phone:
-
-*ZeK* Hello..are you female..? <Tue Mar 9 02:32>
--> *ZeK* does that matter ?
-*ZeK* just to know..and i'm looking for a female.. <Tue Mar 9 02:33>
--> *ZeK* What if I was male, and claimed to be female ??
-*ZeK* so i'm asking you.. <Tue Mar 9 02:34>
--> *ZeK* What if I was female, and claimed to be male ??
-*ZeK* are you f or m? <Tue Mar 9 02:34>
--> *ZeK* I could be an automaton
--> *ZeK* I have said these things to many people before.
-*ZeK* so what are you f or m? <Tue Mar 9 02:36>
--> *ZeK* Does it matter ?
-*ZeK* yep.. <Tue Mar 9 02:36>
--> *ZeK* Why does it matter ?
-*ZeK* i need a female.. <Tue Mar 9 02:38>
--> *ZeK* I could be a female. Why do you want a female ?
-*ZeK* imagine why i want one. <Tue Mar 9 02:38>
--> *ZeK* Do you want to net.fuck me ?
-*ZeK* hmm..of course <Tue Mar 9 02:39>
--> *ZeK* I love net.fucking.
-*ZeK* but only if you are female.. <Tue Mar 9 02:40>
--> *ZeK* I love net.fucking horning guys, like yourself (or so you seem to me)
--> *ZeK* So do I get to feel you inside me ?
-*ZeK* are you here..? <Tue Mar 9 02:47>
--> *ZeK* Yes, I am.
-*ZeK* net.fucking..? <Tue Mar 9 02:48>
-*ZeK* ok? <Tue Mar 9 02:49>
--> *ZeK* When big studly net.men get to put their net.cocks inside me.
-*ZeK* go away.. <Tue Mar 9 02:50>
--> *ZeK* I thought you were after a net.fuck from me ?
-*ZeK* yep.. <Tue Mar 9 02:51>
--> *ZeK* Why the change ?
-*ZeK* not changed..go ahead <Tue Mar 9 02:51>
--> *ZeK* I'm not sure. You told me to go away, and I don't like being told to go away.
-*ZeK* no, prob <Tue Mar 9 02:53>
--> *ZeK* I would love you to net.fuck me, but it is 3 am here, and I am tired.
-
-
-<fletcher> any one here know anything about vax?
-<piglet3> a vacuum cleaner?
-<fletcher> i want to know how to make a plan available to people who finger me on irc
-<fletcher> anyone?
-<ckd> Well, is it running VMS, Ultrix, BSD, or what?
-<fletcher> hmm
-<fletcher> is that to me?
-<fletcher> i think vms
-<fletcher> i am pretty sure...
-<fletcher> so any ideas?
-<fletcher> i would like to have something available to people who finger me
-<piglet3> wear a crotchless panty.
-<fletcher> funny....
-<poxaV> ha ha ha ha ha ha ha ha ha ha ha ha ha ha ha ha ha ha ha ha ha ha
-<bpk> haha
-<poxaV> you mean a .plan file.
-<fletcher> yes!
-<fletcher> hmm.. brb... hmm...
-<Daemon> Pox: you see the usend and urecv posted on comp.sys.hp48?
-<fletcher> brb
-<poxaV> oh.. the _new_ IR sender?
-<poxaV> how fast can it go?
-<poxaV> IRSERV can go at 7600 baud or so.
-<Daemon> pox: more than twice as fast as two HP's connected together via wire.
-<poxaV> DAMN!
-<poxaV> no way!
-<Daemon> The've got some test results.. If they're accurate it's DAMN fast.
-<fletcher> creating a .plan file did not create a plan for others to see... any suggestions?
-<piglet3> heh.
-<Daemon> PACMAN directory from goodies disk #7, 8308.5 bytes.
-<Daemon> program used SEND TSEND (v2.0) USEND
-<Daemon> time in seconds 115.026 66.072 28.707
-<Daemon> QED.font from QED1.07, 2244 bytes
-<Daemon> program used SEND TSEND (v2.0) USEND
-<Daemon> time in seconds 42.273
-<Daemon> 23.456 6.252
-<poxaV> holy COW...
-<Daemon> yah..
-<fletcher> well thanks anyway....
-<poxaV> fletcher: SET PROT:W:RE
-<poxaV> fletcher: SET PROT:W:RE .PLAN
-<fletcher> ok whree do i do this?
-<poxaV> from your login directory.
-<Daemon> 289bytes/sec.
-<fletcher> ok then what?
-<poxaV> THEN test it again.
-<poxaV> it's hard to say if that will do it, since i have no idea what TCP/IP software your VMS machine has.
-<poxaV> oh, *AND* a crotchless panty.
-<fletcher> ok.. hold on.. it said i didnt have a .plan file... brb.. thanks...
-<piglet3> hee hee.
-<fletcher> m ric hold on...
-<fletcher> hmm..
-<fletcher> ok it accepted it fine.. only when i put in the whole name of the file though.. which i called irc.plan
-<fletcher> would someone finger me and tell me what my plan says?
-<fletcher> when i did it from another account it didnt work
-<piglet3> TAMU has a fucked up fingerd, I think. sigh.
-<fletcher> still said no plan
-<piglet3> I think I remember that.
-<fletcher> i think so
-<fletcher> hmm
-<poxaV> well, *don't* call it irc.plan.
-<poxaV> call it ".plan", which is what the finger software *looks* for.
-<piglet3> connect: Connection timed out
-<Silek> make sure your $HOME can be read from the outside..
-<poxaV> tamu's fingerd is fascist.
-<poxaV> silek: this is VMS, not unix.
-<piglet3> I can't finger him at all.
-<poxaV> i doubt that anyone not at tamu.edu can.
-<fletcher> yea it works fine for anyone here
-<fletcher> i have just started giving out another accounts password so that they can finger me
-<fletcher> hehhee
-<fletcher> hmm.. let me try to just call it plan....
-<piglet3> please don't tell me this. It reminds me of how lame my users are.
-<poxaV> well, since that's what fingerd *looks* for, it *would* be a good idea.
-<ckd> pox- see if finger @fascistbox.tamu.edu@unixbox.tamu.edu works
-<fletcher> ok now what do i type again?
-<fletcher> i created a .plan file
-<poxaV> ckd: it don't, i'm pretty sure. they've either rewritten it, or put a filter on it... it's VERY fascist.
-<poxaV> SET PROT:W:RE .plan
-<fletcher> ok.. brb
-<poxaV> SET PROT:W:RE SYS$LOGIN:.plan
-<poxaV> lamer.
-<bpk> HAHAHA
-<poxaV> hopefully, he put the .plan file in his root directory already.
-<poxaV> > finger FDP4175@RIGEL.TAMU.EDU@tamsun.tamu.edu
-<poxaV> [tamsun.tamu.edu]
-<bpk> I was once helping a guy set up a .plan file and it turned out all along he was doing a /ctcp finger on himself to test it. *sigh*
-<poxaV> 501:No matches to your query.
-<poxaV> geezz
-<piglet3> He gives out an account and password so that people can finger him.
-<poxaV> yeah. pretty good luser, mm?
-<piglet3> That story gets saved.
-<morkeleb> "here is my root password. now you can login and finger me ! oh and rape my machine too .."
-<poxaV> "... and none of that icky lubricant stuff, either!"
-<bpk> hahha
-<poxaV> i used to have an account inside their gateway, so it'd work... but alas, the machine is gone.
-<fletcher> *sigh*
-<fletcher> fuck me!
-<fletcher> i swear
-<poxaV> no thanks.
-<piglet3> no.
-<fletcher> hmmm
-<bpk> no thanks
-<fletcher> i know
-<fletcher> i knwo
-<ckd> fletcher- you're not my type
-<fletcher> shuwsh
-<poxaV> is .plan in your SYS$LOGIN
-<poxaV> ?
-<bpk> pox, we're beginning to think alike
-<morkeleb> we were just talking about that fletcher.. nevermind ..
-<fletcher> hahaha
-<bpk> mork: hahah
-<fletcher> umm...
-<piglet3> I woke up this morning with a hangover, and my penis was missing.
-<bpk> we were all afraid of rejection
-<piglet3> I mean my fingerd.
-<poxaV> King Missle.
-<poxaV> 'Detachable Penis'
-<poxaV> anybody know where they're from? i THOUGHT they were a local (Dallas/Fort Worth/Metro)) band, but now i'm not sure
-<fletcher> all right who wants to telnet here and get on my frineds account to see what the deal is?
-<piglet3> me meme!!!!
-<bpk> why fletcher, that would be illegal
-<piglet3> me first!
-<piglet3> fletcher, *sigh* it might not be a good idea to give out accounts and passwords.
-<fletcher> i know it was illegal
-<piglet3> someone might do *bad things* to the tamu computers.
-<fletcher> i know
-<fletcher> hehehe
-<poxaV> mememememememememeemememmeme
-<fletcher> shit!
-<morkeleb> piglet: this is a VAX running vms tho keep in mind ..
-<poxaV> 'was'? no 'was' about it. it IS illegal, for any account at tamu.edu
-<fletcher> hmmm.... i know...
-<piglet3> Ewwww. VMS?
-<piglet3> go ask on #hack, fletcher.
-<poxaV> fletcher: you know.... you *COULD* just do it YOURSELF
-<fletcher> shit.. i will just have to try tommorow.. a girl is getting tooo impatient with me...
-<poxaV> *gasp* *arg*
-<fletcher> i know
-<piglet3> I hear they like VMS.
-<bpk> fletch: let me get this straight. you want -US- to risk ourselves to be thrown in jail so WE can fix YOUR fingerd
-<bpk> ?
-<fletcher> but i dont know enough yet
-<fletcher> i know
-<poxaV> not even his fingerd, his .plan
-<fletcher> i know
-<morkeleb> bpk: no no no !
-<fletcher> i am sorry...
-<morkeleb> bpk: he wants you to risk jail so you can edit his .plan
-<piglet3> I wish I had logged this.
-<fletcher> thanks for trying.. maybe i will talk to you tommorow...
-<bpk> "But officer, I was only trying to finger the guy"
-<morkeleb> he doesnt have enough privs to let you *fix* anytthing
-<fletcher> hahhahaa
-<fletcher> i know
-<fletcher> i know
-<Silek> did someone say log ? :)
-<fletcher> be quiet
-<fletcher> i have to go!
-<fletcher> *sigh*
-<piglet3> The girl is getting really impatient.
-<piglet3> REALLY
-<fletcher> bye i know i know
-<fletcher> hehehe
-<fletcher> talk to you later
-<piglet3> she wants to FINGER him.
-<piglet3> if you have a log, silek, email it to me.
-<poxaV> piglet3: i have a full /lastlog...
-<piglet3> Been fingering at tamu?
-<poxaV> x
-<poxaV> ugh.
-<bpk> y
-<poxaV> no. i got caught in a /lastlog 1000
-<bpk> lamer
-<Daemon> pox: /flush /flush /flush
-
-----------------------------------------------------------------------
-
-/whois avante
-[info] Avante (~fccrensh@ws4scogjn.cr.usgs.gov) is Imagine whirled peas
-[info] Avante is on: @#bdsm
-[info] Avante iswas using server irc.colorado.EDU (Univ of Colorado Server (2.8.*))
-[info] End of /whois.
-[info] Joining channel: #bdsm
-[info] #bdsm topic: General Hospital: BDSM in the Medical Field
-[info] Users on #bdsm: vhf Sonya acId Earwax @Avante polgara DrDark @Thoth JAlfred puppy-sis laura Chant Lockjaw @Panki Elkor @Chattel @Hanki
-<puppy-sis!FSLJ@aurora.alaska.edu#bdsm> trot trot trot .. little sturt
-<Lockjaw!reynard@punisher.cco.caltech.edu#bdsm> 'cmon puppy... bring it back... :^)
-<Sonya!GST_BAILEY@laurel.emich.edu#bdsm> Hi JAlfred.
-hi.
-(sent to #bdsm)
-<Thoth!~baphomet@lamar.ColoState.EDU#bdsm> brb
-[info] Thoth stopped wasting time: out of the blue and into the black.....
-/who *
-[info] vhf H #bdsm se0@hopper.acs.Virginia.EDU (0 very high frequency)
-[info] Sonya H #bdsm GST_BAILEY@laurel.emich.edu (0 <Oz never did do nothing for the tin man.>)
-[info] acId H #bdsm ahusayn@lonestar.utsa.edu (3 Ali . Husayn )
-[info] Earwax H #bdsm akelly@cs.uml.edu (0 [* Hand_on_the_\ 2Glock\ 2 *])
-[info] Avante H@ #bdsm ~fccrensh@ws4scogjn.cr.usgs.gov (2 Imagine whirled peas )
-[info] polgara H #bdsm polgara@dontpanic.rz.uni-ulm.de (7 *Unknown*)
-[info] DrDark H #bdsm FELINE@ZEUS.TAMU.EDU (4 <ZCC_Operator>)
-[info] JAlfred H #bdsm gt5754b@hydra-rich.gatech.edu (1 Type your name here)
-[info] puppy-sis H #bdsm FSLJ@aurora.alaska.edu (2 <sister loves teacher very much >)
-[info] laura H #bdsm burkel@ucsu.Colorado.EDU (2 interesting little bitch)
-[info] Chant H #bdsm cmcmaho@emoryu1.cc.emory.edu (1 Whatever)
-[info] Lockjaw H #bdsm reynard@punisher.cco.caltech.edu (1 Horror..Horror and moral terror)
-[info] Panki H@ #bdsm ~baphomet@lamar.ColoState.EDU (2 God of Magick)
-[info] Elkor H #bdsm bilyji@cii3116-25.its.rpi.edu (5 Who wants to live forever if true love must die?)
-[info] Chattel H@ #bdsm khawkes@wombat.gnu.ai.mit.edu (0 Ernest Boutin)
-[info] Hanki H@ #bdsm ~sa114984@hilliard.lance.colostate.edu (1 /MSG Hanki HELP)
-[info] End of /who.
-<Sonya#bdsm> Has anyone seen Red_rose?
-<Chant!cmcmaho@emoryu1.cc.emory.edu#bdsm> well folks I gotta get going
-<Chant#bdsm> Have a good one!
-[info] Earwax!akelly@cs.uml.edu has left #bdsm
-<Avante#bdsm> bye chant have fun !
-<DrDark#bdsm> Sonya: Not at all today, I haven't.
-[info] JAlfred has left #bdsm
-[info] Chant stopped wasting time: Leaving
-<Avante#bdsm> chant if your in colorado somtime look us up luv ;)
-[info] acId!ahusayn@lonestar.utsa.edu has left #bdsm
-<DrDark#bdsm> I already HAVE a good one...
-<puppy-sis#bdsm> pupy brings the ball back to lj
-<puppy-sis#bdsm> and drops it at his feet and waits..fro him to through it again ..e
-ACTION Lockjaw->#bdsm: pulls at the ball... c'mon puppy! Give it back!!!
-<Lockjaw#bdsm> takes the ball
-ACTION Lockjaw->#bdsm: tosses the ball into the center of the room again...
-<puppy-sis#bdsm> wag wag wag ..
-<puppy-sis#bdsm> sis goes after the ball.. gt
-[info] Sonya has left #bdsm
-<puppy-sis#bdsm> the ball rolls uner avante ..:)
-<Avante#bdsm> heh
-<puppy-sis#bdsm> sis goes through avante leg to get the ball
-<Avante#bdsm> *aaack!!
-<Avante#bdsm> *FALLS ON THE FLOOR*
-<Avante#bdsm> *turns caps lock off*
-<puppy-sis#bdsm> eek.. avante falls on the small puppy
-[info] lionness!cf2335@olympus.ir0.ucf.edu has joined #bdsm
-<puppy-sis#bdsm> yap yap yap
-<lionness#bdsm> aloha
-<DrDark#bdsm> 'lo Lionness...
-<lionness#bdsm> hey dd
-<puppy-sis#bdsm> avante is smothing the poor pupy
-<Lockjaw#bdsm> Hiya Lionness!
-<Avante#bdsm> am not
-ACTION lionness->#bdsm: goes and kisses lj
-<puppy-sis#bdsm> you fell on me :) you didnt get up
-<lionness#bdsm> hehe
-<Avante#bdsm> *gets off puppy*
-<puppy-sis#bdsm> grr at ;opmmess
-<lionness#bdsm> what are ya'll up to
-ACTION Lockjaw->#bdsm: pulls lionness close and kisses her deeply... Mmmmmmm
-<DrDark#bdsm> Av: As opposed to *gets puppy off*
-<lionness#bdsm> puppy bashing?
-<lionness#bdsm> hehe
-<puppy-sis#bdsm> grrr at ;opmmess
-<lionness#bdsm> hehe
-<puppy-sis#bdsm> grr lionness
-<lionness#bdsm> hehe
-<puppy-sis#bdsm> puppy goes over and snff at lion
-ACTION lionness->#bdsm: hides behind lj
-<puppy-sis#bdsm> bark bark bark
-ACTION lionness->#bdsm: blows elkor a kiss
-ACTION Lockjaw->#bdsm: looks at puppy.. yes?
-<Avante#bdsm> drdark: #beastiality is over there *points*
-<Elkor!bilyji@cii3116-25.its.rpi.edu#bdsm> *looks at lionness and smiles* Hello there.
-<puppy-sis#bdsm> puppy runs thought lockjaw legs and goes behind lion and bites her ankels
-<lionness#bdsm> hey ps how's teach?
-<DrDark#bdsm> Av: (*chuckle*) I read alt.sex.beast once... Once...
-<Avante#bdsm> *squick*
-ACTION lionness->#bdsm: is getting tired of the little puppy
-ACTION lionness->#bdsm: is getting hungry too
-[info] Steven!skeoch@gateway.bnr.ca has joined #bdsm
-<DrDark#bdsm> Well gee. Lions is bigger than puppies...
-<lionness#bdsm> mmmm, puppy meat
-ACTION Elkor->#bdsm: smiles and offers lionness a steak.
-<DrDark#bdsm> 'lo Steven
-<Elkor#bdsm> here kitty, kitty, kitty...
-<Avante#bdsm> tube steak hehe
-<DrDark#bdsm> lioness: Like chinese? ;-)
-<lionness#bdsm> hehe
-[info] murr!o4g192@anvil.rick.cs.ubc.ca has joined #bdsm
-[info] Panki has changed mode for #bdsm: +o murr
-<lionness#bdsm> yes
-[info] Steven has left #bdsm
-ACTION Lockjaw->#bdsm: askes lionness to be sweet and not eat the puppy... she's too cute.. :^)
-<DrDark#bdsm> 'lo murr!
-<murr#bdsm> well hi all
-<lionness#bdsm> chinese are intelligent peops and good eating
-<murr#bdsm> hi Dr
-<DrDark#bdsm> lioness: They say light colored puppies make the best stew...
-<puppy-sis#bdsm> puppy hops inot lionnnes lap and licks her face.. yeah dont eat teh puppy
-<Avante#bdsm> I want to go play raquet ball..
-ACTION lionness->#bdsm: pushes puppy to lj and struts to elkor and the steak
-<Avante#bdsm> im sick *blea*
-<puppy-sis#bdsm> puppy licks lj face
-[info] Shane!SKUFF@134.29.1.1 has joined #bdsm
-<DrDark#bdsm> Av: You're right. I hate those little rackets...
-<DrDark#bdsm> 'lo Shane...
-<murr#bdsm> bye
-<Shane#bdsm> hi all
-[info] murr has left #bdsm
-<lionness#bdsm> allo
-<puppy-sis#bdsm> wag at shane
-ACTION lionness->#bdsm: licks elkor's frace
-<Elkor#bdsm> *tosses lionness a steak*
-<lionness#bdsm> hehe
-ACTION Lockjaw->#bdsm: gigles at puppy and hugs her tight...
-<puppy-sis#bdsm> yap yap yap
-<Shane#bdsm> pat puppy sis on the head
-<laura#bdsm> =moan=
-ACTION lionness->#bdsm: gulps down the steak
-[info] Shane stopped wasting time: Bad link?
-<DrDark#bdsm> laru
-<DrDark#bdsm> laura: Having fun?
-<lionness#bdsm> hmmm, think i need to trim my nails
-[info] Alessan!WATTS_G@kosmos.wcc.govt.nz has joined #bdsm
-<laura#bdsm> no, I hit my head
-<DrDark#bdsm> 'lo Alessan...
-<Alessan#bdsm> hey all
-<DrDark#bdsm> laura: Yuk!
-<lionness#bdsm> hey alessan
-<DrDark#bdsm> laura: How'd you manage that?
-<laura#bdsm> I would not tell you if I was masturbating
-ACTION Lockjaw->#bdsm: bites the tip of puppy's ear gently...
-<laura#bdsm> the wall was closer than I thought
-<DrDark#bdsm> laura: (*chuckle*)
-<Avante#bdsm> hah
-<Avante#bdsm> dont kiss and tell ea laura
-[info] garcon!Mystics@128.253.96.54 has joined #bdsm
-ACTION lionness->#bdsm: lays down next to elkor and rolls over on her back
-<garcon#bdsm> hi all
-<lionness#bdsm> allo garcon
-<laura#bdsm> i can't kiss myself down there. I am not that flexible
-<garcon#bdsm> hallo lionness
-<lionness#bdsm> hehe
-<lionness#bdsm> not into yoga, laura?
-<Avante#bdsm> laura : shake hands then ;)
-<laura#bdsm> my hand is more medicinal
-[info] Ice9!jshaw@emr1.emr.ca has joined #bdsm
-<Avante#bdsm> ladyice !
-<DrDark#bdsm> Rehi Ice!
-ACTION Lockjaw->#bdsm: saw a gif of a guy who could... well, lets just say if i could, i wouldn't leave the house....
-<Lockjaw#bdsm> Ice!!!!
-<lionness#bdsm> hehe
-<laura#bdsm> you always have your hand
-<lionness#bdsm> ice ice baby
-ACTION Ice9->#bdsm: inclines head to Avante
-<Lockjaw#bdsm> laura: A bit different tho...
-<DrDark#bdsm> laura: Two of 'em, even...
-ACTION Ice9->#bdsm: *HUGS* Lockjaw!
-[info] Alessan has left #bdsm
-<Avante#bdsm> *puts ladyices head in her lap*
-ACTION garcon->#bdsm: says bye to all
-<laura#bdsm> but you aren't that flexible
-<Avante#bdsm> his!
-[info] polgara!polgara@dontpanic.rz.uni-ulm.de stopped wasting time: Leaving
-<lionness#bdsm> tata
-[info] garcon has left #bdsm
-ACTION Lockjaw->#bdsm: hugs Ice9.... Smiles broadly... Good to see ya!!!
-<Ice9#bdsm> bye garcon
-<lionness#bdsm> aw
-[info] SharonSt!~SHAMAS@delphi.com has joined #bdsm
-<DrDark#bdsm> av: I was gonna say... Seeing if SHE can kiss herself?
-[info] RayDon!~ef.21504@gcef.gc.maricopa.edu has joined #bdsm
-<DrDark#bdsm> 'lo Sharon!
-<Avante#bdsm> sharon ooh boy!!
-<SharonSt#bdsm> howdee
-ACTION Ice9->#bdsm: giggles at /avante
-<RayDon#bdsm> hello all
-<laura#bdsm> im confused
-<Lockjaw#bdsm> Hiya Sharon
-[info] chemstud!~cmrobert@midway.ecn.uoknor.edu has joined #bdsm
-ACTION Ice9->#bdsm: kisses herself
-<DrDark#bdsm> 'lo cstud.
-[info] chemstud has left #bdsm
-ACTION Ice9->#bdsm: kisses Lockjaw hello!
-[info] RayDon has left #bdsm
-ACTION lionness->#bdsm: pulls elkor on top of her
-<DrDark#bdsm> Ice9: We were talking about folx who can give themselves oral sex...
-ACTION Lockjaw->#bdsm: kisses Ice9 back....:^)
-<laura#bdsm> wow that was quick
-<Elkor#bdsm> *goes PHOMP on top of lionness*
-<lionness#bdsm> ;/msg sharonst and for time over 20?
-<lionness#bdsm> hehe
-<lionness#bdsm> be careful, elkor, i'm a fragile fem
-<lionness#bdsm> hehe
-ACTION DrDark->#bdsm: grabs the insidious semi-colon from lioness's /m...
-<lionness#bdsm> hehe
-[info] SirRobert!robert@198.67.33.102 has joined #bdsm
-[info] puppy-sis stopped wasting time: Bad link?
-<Ice9#bdsm> DrD: I prolly could.. but that was before I knew about it hee hee!
-<lionness#bdsm> my fingernail hit the semicolon key
-<DrDark#bdsm> Ice9: (*chuckle*)
-<Elkor#bdsm> lionness: i doubt that. *smile*
-<Elkor#bdsm> besides, you are teh one who pulled me on top,.
-[info] MsHacker!mukkj@uxa.ecn.bgu.edu has joined #bdsm
-<lionness#bdsm> hehe
-<DrDark#bdsm> lioness: Ahhhh... makes sense... That one of the reasons you need to clip 'em?
-<Lockjaw#bdsm> Hiya MsHack
-<lionness#bdsm> well, i'[m only 110 lbs
-<DrDark#bdsm> Rehi MsH! (*HUG*)
-<DrDark#bdsm> lioness: how tall?
-[info] Cateyes!catty@w3eax.umd.edu has joined #bdsm
-<lionness#bdsm> hey mh
-<DrDark#bdsm> Rehi Cateyes!
-<lionness#bdsm> hehe
-<Cateyes#bdsm> re hiya!!!!
-<SirRobert#bdsm> lol!
-ACTION MsHacker->#bdsm: wants to fuck DrDark
-<SirRobert#bdsm> forward isn't she
-<Avante#bdsm> hi cateyes :)
-ACTION MsHacker->#bdsm: likez LJ!!!
-<DrDark#bdsm> MsH: Sorry. Have to ask my gf first...
-<SirRobert#bdsm> hi CatEyes
-[info] Sonya has joined #bdsm
-<laura#bdsm> GF?
-<MsHacker#bdsm> CATEYEZ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-<Elkor#bdsm> *tickles lionness*
-<lionness#bdsm> hehe
-<DrDark#bdsm> laura: Girlfriend...
-<Elkor#bdsm> GF = Girl Friend
-<Cateyes#bdsm> ALLURA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-<laura#bdsm> I am confused
-<Lockjaw#bdsm> MsHack: Well, i like ya too... :^)
-<MsHacker#bdsm> cateyez: change it for me??
-[info] Cateyes has changed nick to Cateyez
-ACTION lionness->#bdsm: lj likes everyone
-<lionness#bdsm> hehe
-[info] Sonya stopped wasting time: Leaving
-<MsHacker#bdsm> THANK YOU!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-/privmsg #bdsm :do you like hitler?
-<Avante#bdsm> gf goat fuck
-ACTION Lockjaw->#bdsm: phhhhhbts lionness.. *grin*
-<lionness#bdsm> uhoh
-<SirRobert#bdsm> geeze
-<lionness#bdsm> getting late and i got a test to study for
-<Avante#bdsm> good cal llaioness
-<DrDark#bdsm> lioness: You students... (*sigh*)
-<laura#bdsm> so, who likes to fuck while the woman is menstruating?
-<Avante#bdsm> lioness
-<DrDark#bdsm> ;-)
-<Avante#bdsm> *spews lunch*
-<laura#bdsm> who here likes blood?
-<Lockjaw#bdsm> Bye Lionness!
-<DrDark#bdsm> laura: I do! Since my girlfriend isn't on the pill...
-<SirRobert#bdsm> is that your condition, laura?
-<laura#bdsm> 1 vote for, 1 against
-[info] lionness has left #bdsm
-<Elkor#bdsm> WENCH = Women Entitled to Nights of Continual Happiness
-<laura#bdsm> I am at the moment. I don't do it ALL the time
-[info] Malia!thee@mhc.mtholyoke.edu has joined #bdsm
-<SirRobert#bdsm> hope not....:)
-<laura#bdsm> that would really suck
-<laura#bdsm> not to mention swallow
-<Avante#bdsm> laura it would..
-<Avante#bdsm> who like to be tied up ?
-[info] Malia has left #bdsm
-<SirRobert#bdsm> besides there are pleanty of fun things to do beside fuck
-/privmsg #bdsm :do you like to tie people up?
-<DrDark#bdsm> Now, I don't give oral sex during her period, but fucking's wonderful...
-<Cateyez#bdsm> MEMEMEMEME
-<laura#bdsm> it is fun to fuck while bleeding
-<MsHacker#bdsm> avante: tie me up and beat me hard!
-<laura#bdsm> it makes the cramps go away too
-<SirRobert#bdsm> why is that, laura?
-ACTION Cateyez->#bdsm: doesn't get cramps.
-<DrDark#bdsm> laura: That's what I hear...
-ACTION Cateyez->#bdsm: says Happy Happy Joy Joy
-<laura#bdsm> well, I don't know why it makes the cramps go away
-<Lockjaw#bdsm> "Sometimes I gets the cramps reeeeeal bad..."
-<SirRobert#bdsm> new reason to fuck, as if anyone needed one
-<Lockjaw#bdsm> Hahahahahah... Raising Arizona ref...
-ACTION Ice9->#bdsm: looks for a cure for her cramps
-<DrDark#bdsm> Hated that movie...
-<Lockjaw#bdsm> Doc: WHAT!!!! *shakes head...*
-ACTION Avante->#bdsm: gives sharonst some of his chicken soup
-<laura#bdsm> no need to worry about lubrication either
-<Lockjaw#bdsm> God, it's one of my favorites...
-<Avante#bdsm> laura just leave the lights off
-<SirRobert#bdsm> the book was stupid too
-<laura#bdsm> leave the light off?
-<DrDark#bdsm> laura: No doubt, but that generally isn't a problem for my gf and I...
-<laura#bdsm> blood is not a bad thing
-<SirRobert#bdsm> why would that be a porblem anyway, laura
-<Ice9#bdsm> I can't imagine Raising Arizona as a book
-/privmsg #bdsm :you'd be dead without blood.
-<Avante#bdsm> ice9 hahah
-[info] MsHacker stopped wasting time: <trip will be better AFTER the vitamin C!!!>
-<laura#bdsm> i didn't say it was a problem. I said that you don't have to bother staying wet
-<Ice9#bdsm> <---- bloody bithc
-<Ice9#bdsm> bitch
-<laura#bdsm> you can go longer and faster
-<SharonSt#bdsm> <--doesnt have a problem staying wet with or without lblood
-<SirRobert#bdsm> are you really that hard to get along with Ice9
-<Elkor#bdsm> be back in a bit.
-[info] Elkor has left #bdsm
-<DrDark#bdsm> Later Elkor...
-<Avante#bdsm> sharon ooh?
-ACTION SirRobert->#bdsm: wonders how long and fast she wants
-<Cateyez#bdsm> If you fuck long enough you will need extra lubrication.
-<SharonSt#bdsm> yeah, im easy to turn on to a disgusting degree
-<Avante#bdsm> cateyez ture
-<DrDark#bdsm> True...
-<Cateyez#bdsm> Sorry Avante
-<Ice9#bdsm> yes, anyone here will tell you I'm th meanest bitch in the valley
-<SharonSt#bdsm> its no challenege or secret trying to get me off
-<laura#bdsm> i don't think this needs to be a competition.
-<SirRobert#bdsm> sounds like a challange, Ice9
-<laura#bdsm> if you go long enough, you start to get tired and make less
-<laura#bdsm> so, when you're bleeding, you can go longer. end of story
-<Avante#bdsm> laura maybe :)
-<SirRobert#bdsm> I like a women who cums easily and often
-<Cateyez#bdsm> laura: That's when the slippery suff, KY and all those other things are needed.
-<Avante#bdsm> i would like one who dosnt..
-<Avante#bdsm> i dont cum easily
-<Ice9#bdsm> Sir: I am a challenge, sounds like you don't like that
-<laura#bdsm> well,, a woman who cums easily and often bleeds too
-<Avante#bdsm> takes me forever..
-<Cateyez#bdsm> I cum easily if the guy knows what he's doing and what I like.
-<Avante#bdsm> yea
-<Cateyez#bdsm> If not, it's a friggin marathon
-<laura#bdsm> mind fuck as to be a major component.
-ACTION Ice9->#bdsm: looks at Avante and grins
-[info] Thorfinn!~s2105420@cello04.orchestra.cs.unsw.OZ.AU has joined #bdsm
-[info] Panki has changed mode for #bdsm: +o Thorfinn
-<Avante#bdsm> it takes a couple of sessions to get ti right
-<SirRobert#bdsm> I may be up to it, perhaps, but we should talk first. Ice9
-[info] Nickl!irc29545@irc.nsysu.edu.tw has joined #bdsm
-<DrDark#bdsm> re'lo Thorf!
-<laura#bdsm> if a man doesn't make love to my emotions, I don't cum
-<Cateyez#bdsm> Hi Thorfinn
-<Avante#bdsm> <-- loves mind fuck
-<Cateyez#bdsm> Laura: I agree
-<Ice9#bdsm> Sir: uh huh?
-<Cateyez#bdsm> And sometimes my emotions can be very hardcore
-<SharonSt#bdsm> i need a guy i can spoon feed ice cream
-<Thorfinn#bdsm> re
-<SirRobert#bdsm> personally I think bondage makes excellent foreplay
-<Avante#bdsm> i ca ndo that ;)
-<DrDark#bdsm> Half the fun is learning what gets each other off... The other half is using that knowledge...
-<Cateyez#bdsm> And others they're sweet and innocent
-<Avante#bdsm> i have training ;)
-<SharonSt#bdsm> heh
-<Avante#bdsm> sir: yep .. the best
-/privmsg #bdsm :training in what?
-<laura#bdsm> bondage? how so, sirRobert?
-<Avante#bdsm> spoon feeding ice cream
-<SirRobert#bdsm> can one read email on here?
-<SirRobert#bdsm> or is the message I got refering to my UNIX mail box
-<Cateyez#bdsm> Sir I don't think so.
-ACTION Ice9->#bdsm: is a cum virgin (frigid) hence the nick
-<Avante#bdsm> I like bondage yessir i do.
-<SirRobert#bdsm> My favorite actually
-<Cateyez#bdsm> I had a good two today
-<Avante#bdsm> ice i can relate
-ACTION Lockjaw->#bdsm: winks at Ice9... Shyaaaaaaa!
-[info] sPoint!PELKONEN@murray.fordham.edu has joined #bdsm
-<SirRobert#bdsm> Ice9: perhaps we *should* talk
-<DrDark#bdsm> I'm not! I've cum many times!
-<Cateyez#bdsm> I'm sorry, I can't relate
-<sPoint#bdsm> Evening all...
-/privmsg #bdsm :how do you work around it avante?
-<Cateyez#bdsm> evening
-<sPoint#bdsm> ICE! *hug*
-<Lockjaw#bdsm> sPoinT! Hey!
-ACTION Ice9->#bdsm: giggles at Lockjaw
-<sPoint#bdsm> LOCKJAW!!!!
-<laura#bdsm> being powerless is arousing.
-<Avante#bdsm> vhf. .well lets say i know what im doing
-<Cateyez#bdsm> I'm bitchy if a guy cums and he doesn't let me.
-<Avante#bdsm> I dongt have to cum to enjoy sex
-<Avante#bdsm> I love watching my partner go crazy
-<Avante#bdsm> im a tease
-<SirRobert#bdsm> Avante: I agree
-<Avante#bdsm> i LOOVE to tease
-<DrDark#bdsm> Av: I agree. It certainly doesn't hurt, but it's not necessary.
-<laura#bdsm> eww, I hate that too, cateyez
-<Cateyez#bdsm> Avante: you're a teasing slut like I said
-<Avante#bdsm> i can make love for an hour easily
-<SirRobert#bdsm> slut?
-/privmsg avante :what's your favorite way to tease them?
-ACTION Ice9->#bdsm: ***squeezes**** spoint
-<Avante#bdsm> heh
-<sPoint#bdsm> *freezez*
-<Avante#bdsm> vhf its different for different girls..
-<Cateyez#bdsm> It's okay when you want to tease but then when he's like I'm gonna make you cum and he doesn't then I'm bitchy.
-[info] Prism!prism@kropotkin.gnu.ai.mit.edu has joined #bdsm
-<SirRobert#bdsm> never mind Ice9, perhaps you are beyond hope :/
-<Prism#bdsm> hello.
-<Avante#bdsm> cateyez:)
-<Cateyez#bdsm> I make myself cum then somewhere where he can hear but not watch.
-[info] SharonSt stopped wasting time: Bad link?
-<Ice9#bdsm> Sir: could very well be... or just too good to myself
-ACTION Cateyez->#bdsm: is a tease
-<laura#bdsm> I always have my hand.
-[info] Allura!mukkj@uxa.ecn.bgu.edu has joined #bdsm
-<SirRobert#bdsm> (sign) perhaps, Ice
-<laura#bdsm> food sounds good
-<sPoint#bdsm> ALLURA!!!!
-<Allura#bdsm> panki whois allura
-{Panki#bdsm} ==== Allura is a three high freak, pot smoking, hacker 3leete, 2600 Goddess extraordinare. She TOPs she SUBs she Switches, but when it comes to those britchez...she goes straight for the cutest guy in the room. ====
-<Cateyez#bdsm> ALLURA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-<Avante#bdsm> thats why i dont jsut pick up any old girl .. sex is great o na personal level for me.. if i dont knwo the person.. *shrugg* id rather masturbate
-[info] Chattel!khawkes@wombat.gnu.ai.mit.edu has changed mode for #bdsm: +o Allura
-<DrDark#bdsm> Rehi Allura!!!!
-<Allura#bdsm> thanks Chattel: bark for me?
-<sPoint#bdsm> Evening, Allura *pounce and lick*
-<Chattel#bdsm> WOOF!
-<DrDark#bdsm> BRB folx!
-ACTION Allura->#bdsm: lovez her slave :) cum cuddle with me on da couch :)
-<SirRobert#bdsm> <-- perfers to have a partner
-ACTION Chattel->#bdsm: wags tail at Allura
-[info] DrDark has left #bdsm
-<Allura#bdsm> chattel: u r awesome :)
-[info] spikee has joined #bdsm
-ACTION sPoint->#bdsm: walks over and sits down next to Allura
-<spikee#bdsm> lo all
-<sPoint#bdsm> Evening, Spikee....
-<spikee#bdsm> heeeeeyaaaaaaaaa
-<Cateyez#bdsm> hi spikee
-<spikee#bdsm> hi ya sppint
-[info] DrDark has joined #bdsm
-<spikee#bdsm> err spoint
-<Avante#bdsm> where di dsharonst go?
-<DrDark#bdsm> Much better. :-)
-[info] Sonya has joined #bdsm
-<spikee#bdsm> hello cateyezzzzzz
-<Cateyez#bdsm> she left
-<Lockjaw#bdsm> spikee!!!
-ACTION Allura->#bdsm: lix Cateyez! :)
-<Allura#bdsm> gee hi Lj
-<Avante#bdsm> did she say bye?
-<DrDark#bdsm> Spikee! (*HUG*)
-<spikee#bdsm> lj !!*klink, klank*
-<DrDark#bdsm> Rehi Sonya!
-ACTION spikee->#bdsm: hugs drd hard
-<Sonya#bdsm> HI DrDark.
-<Cateyez#bdsm> no I don't think so
-ACTION Lockjaw->#bdsm: smiles at Allura.. hiya gorgeous.. :^)
-<Avante#bdsm> aah
-ACTION SirRobert->#bdsm: is a sucker fo cat women :)
-<spikee#bdsm> kip_ around?
-<Avante#bdsm> call waiting
-<Cateyez#bdsm> Sir: Cat women with nails?
-<SirRobert#bdsm> newest friend is kytyn
-ACTION sPoint->#bdsm: cuddles on the couch w/allura...
-<Allura#bdsm> Lj: only HALF as gorgeous as u with thos sexy wiskerz baby! :) heh
-<Lockjaw#bdsm> *blush*
-<spikee#bdsm> huh allura?
-<Allura#bdsm> sPoint: took ya long enuff.
-<spikee#bdsm> hmm nevermind
-<DrDark#bdsm> Cateyes: How long ARE your claws?
-<SirRobert#bdsm> you all know kytyn?
-[info] spikee has left #bdsm
-[info] Nika!bioj294@emoryu1.cc.emory.edu has joined #bdsm
-<Nika#bdsm> hi all
-<Avante#bdsm> yes we all know kytyn :)
-<DrDark#bdsm> panki who is kytyn
-{Panki#bdsm} ==== Kytyn is a red-headed cutie, clad in latex like her mistress Dora and looking good in her heels and stockings... ====
-<Allura#bdsm> SR: yeah, VERY good friend o mine why?
-<Avante#bdsm> nika !!
-<DrDark#bdsm> Oh well.
-<Cateyez#bdsm> They're about an inch over my tips.
-<DrDark#bdsm> Nika! (*HUG*)
-<Lockjaw#bdsm> Allura: Actually, right now it's an Eeeeeevil goatee...and i've been pierced since the gif...
-<Nika#bdsm> hmmmm
-<sPoint#bdsm> Nika! gets up hugs her and then cuddles again with his Mistress Allura...
-ACTION Nika->#bdsm: got a very interesting email...wonders if yall got one as well..
-<Allura#bdsm> NIKA U SEXY THANG!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-<SirRobert#bdsm> we are becomming fast friends kytyn & I, that's all
-[info] spikee has joined #bdsm
-<spikee#bdsm> re all
-[info] Sonya stopped wasting time: Leaving
-<DrDark#bdsm> Cateyez: Sharp? Blunt?
-[info] christian has joined #bdsm
-<sPoint#bdsm> Panki who is sPoint
-<Avante#bdsm> nika i didnt what is it?
-{Panki#bdsm} ==== sPoint is a rebel, and a runner, and a restless young romantic who wants to run the Big Machine ====
-<Nika#bdsm> allura: how am i sexy?
-ACTION Prism->#bdsm: snores gently in the background.
-<sPoint#bdsm> I luuuv that bio. Neal Peart comes to BDSM!
-[info] sPoint has changed nick to neilpeart
-<Avante#bdsm> *outs a potato in prisims mouth
-<Cateyez#bdsm> They grow in perfectly shapped. I don't have to file them or anything except when I get a snaggie on the side.
-<spikee#bdsm> later all
-[info] neilpeart has changed nick to sPoint
-[info] spikee has left #bdsm
-<Ice9#bdsm> brb
-[info] Ice9 stopped wasting time: Leaving
-ACTION Nika->#bdsm: got a mail from some fool who told me i should stop irc'ing and that my irc'ing implies that girls are no longer interesting....?
-[info] RayDon has joined #bdsm
-<DrDark#bdsm> Cateyez: Kool!
-ACTION Prism->#bdsm: gives Avante a narrow-eyed
-ACTION sPoint->#bdsm: curls up against Allura and purrs...
-<Prism#bdsm> look.
-<Avante#bdsm> nika humm?
-<Allura#bdsm> nika i find u VERY interesting ;) heh
-<Nika#bdsm> av: vwery strange
-<Avante#bdsm> heh *5* allura
-ACTION Allura->#bdsm: pets sPoint head and rubs his back.
-[info] RayDon stopped wasting time: Leaving
-ACTION Nika->#bdsm: blushes
-<Avante#bdsm> later folks
-[info] Avante has left #bdsm
-<Allura#bdsm> hey *5* avate!
-<Nika#bdsm> avL: dont go!!!
-ACTION sPoint->#bdsm: purrs softly at Alura's touch
-<Cateyez#bdsm> bye Avante
-<Nika#bdsm> piss
-[info] spade!gt5754b@hydra-rich.gatech.edu has joined #bdsm
-<Allura#bdsm> avante even
-ACTION Lockjaw->#bdsm: has to run.. seeya later folks... :^)
-<sPoint#bdsm> Later lock!
-[info] christian has left #bdsm
-[info] Allura stopped wasting time: Bad link?
-<DrDark#bdsm> 'lo christian.
-<Lockjaw#bdsm> bye spoint
-<DrDark#bdsm> Oops. (*sigh*)
-[info] Lockjaw has left #bdsm
-[info] Avante has joined #bdsm
-[info] Panki has changed mode for #bdsm: +o Avante
-<DrDark#bdsm> Right. So who is actually HERE?
-ACTION Cateyez->#bdsm: smiles
-<Nika#bdsm> i am
-<spade#bdsm> me too
-ACTION Prism->#bdsm: snores gently in the background.
-<Cateyez#bdsm> me
-<Thorfinn#bdsm> I'm just barely...
-[info] mort!brmyers@acacia.itd.uts.EDU.AU has joined #bdsm
-<Thorfinn#bdsm> :)
-<DrDark#bdsm> (*chuckle*)
-<DrDark#bdsm> 'lo mort...
-ACTION SirRobert->#bdsm: thinks this is a hard place to get to know people!
-<Avante#bdsm> hey nika .. miss me?
-ACTION sPoint->#bdsm: pulls nika to him and cuddles and tickles her affectionaletly
-<Nika#bdsm> so kids...anything hot happening?
-<Nika#bdsm> ooh sPoint...yummmm
-<DrDark#bdsm> SirR: Gets crowded sometimes...
-<sPoint#bdsm> Sir-rob not really...just takes time
-<Avante#bdsm> sirrob: naw .. just be patient.
-[info] Ice9 has joined #bdsm
-<DrDark#bdsm> Nika: Just missed an in-depth convo on orgasms...
-<Nika#bdsm> huh?
-ACTION Prism->#bdsm: offers SirRobert a nice lollipop.
-<sPoint#bdsm> *wicked smile and rubs Nika's shoulders
-[info] mort has left #bdsm
-ACTION SirRobert->#bdsm: has not given up yet, but feels frustrated
-ACTION sPoint->#bdsm: groovs to Cypress Hill....
-[info] Razormaid!jlacour@129.105.112.42 has joined #bdsm
-<DrDark#bdsm> 'lo RMaid..
-<Nika#bdsm> SR: on what?
-<Ice9#bdsm> Sir: still trying to cum?
-[info] Nickl stopped wasting time: Ping timeout
-<Nika#bdsm> *gasp*
-<Nika#bdsm> hmmm
-ACTION sPoint->#bdsm: kisses Nika's neck
-ACTION SirRobert->#bdsm: heading back to TPE (best D&S bbs in the US) <-- not so subtle plug
-<Nika#bdsm> ice9: eh?
-<SirRobert#bdsm> hehe
-<Nika#bdsm> TPE...
-ACTION Nika->#bdsm: blushes at sPoint
-[info] Razormaid stopped wasting time: Bad link?
-<Ice9#bdsm> Nika: eh? u Canuck too?
-<Cateyez#bdsm> TPE?????
-ACTION sPoint->#bdsm: holds Nika close...no reason to blush...*smile*
-<Nika#bdsm> SR: explain...TPE?
-[info] REDDWOLF!mudab5@uxa.ecn.bgu.edu has joined #bdsm
-<SirRobert#bdsm> what you never heard of TPE???????
-<Avante#bdsm> i have been ther
-<Nika#bdsm> NO!
-<Avante#bdsm> i have
-[info] REDDWOLF has left #bdsm
-<Cateyez#bdsm> no sorry
-<Avante#bdsm> tpe .. i have an account
-<Ice9#bdsm> Totally Pointless
-<Avante#bdsm> but i cant sue anything
-<Avante#bdsm> use
-<Prism#bdsm> I never heard of TPE.
-<Nika#bdsm> *lauggh*
-<Cateyez#bdsm> What's the # so I can get an account
-<Ice9#bdsm> Excercise (sorry)
-[info] KinkBoy!~EGRAHAM@rcnvms.rcn.mass.edu has joined #bdsm
-<Avante#bdsm> tpe.ncm.com .. login as guest
-<DrDark#bdsm> 'lo KB..
-<SirRobert#bdsm> free time to try it, 20 hours
-<KinkBoy#bdsm> re DD
-<Nika#bdsm> is that a telnet?
-<SirRobert#bdsm> most interesting chat command set
-<Prism#bdsm> Yes.
-<Cateyez#bdsm> coolers. I'll try it later
-<SirRobert#bdsm> yes telnet
-<Avante#bdsm> i cant use anything on it though
-<Cateyez#bdsm> why not Avante?
-<SirRobert#bdsm> commands like /collar /cage /gag
-<Avante#bdsm> nika telnet tpe.ncm.com login as guest
-[info] REDDWOLF has joined #bdsm
-<Nika#bdsm> i have
-<Nika#bdsm> :-)
-<Avante#bdsm> cause they want to cal lme back
-<DrDark#bdsm> Rehi REDD
-<Avante#bdsm> or somthing
-[info] Heirophnt!ailiopou@MAIL.SAS.UPENN.EDU has joined #bdsm
-[info] jaybay!u9348913@rabble.uow.edu.au has joined #bdsm
-<Chattel#bdsm> Oooh /cage I like that
-ACTION sPoint->#bdsm: nuzzles Nika
-<Avante#bdsm> i met a girl from there
-<Avante#bdsm> ryuth
-<Nika#bdsm> av: oh?
-<Avante#bdsm> ruth
-<SirRobert#bdsm> tell you what I'll pull rank
-<DrDark#bdsm> 'lo Heiro...
-<Nika#bdsm> yeah?
-<DrDark#bdsm> 'lo jaybay...
-<Heirophnt#bdsm> ok, i'm checking bdsm now...
-[info] jaybay has left #bdsm
-<Avante#bdsm> hi hei
-<Cateyez#bdsm> oh
-<SirRobert#bdsm> anyone who wants to sign up now, I'll verify them now
-<Heirophnt#bdsm> Heirodule!
-[info] Shane has joined #bdsm
-<Shane#bdsm> hi all
-<Avante#bdsm> your nick is too hard
-<Nika#bdsm> sr i am there now
-<Cateyez#bdsm> I'll sigh up now
-<SirRobert#bdsm> Avante, what handle?
-<Avante#bdsm> sirrobert is it free?
-<Heirophnt#bdsm> what are u running , a 900 chat line something? :)
-<Prism#bdsm> Hmm... They want my real name.
-<Avante#bdsm> my nick there is avante also
-<Prism#bdsm> [tpe]
-<SirRobert#bdsm> 20 hours is free
-<SirRobert#bdsm> nika what handle?
-<Avante#bdsm> but i dont ahve any access to anything
-<Heirophnt#bdsm> geez...bdsm sucks too..what a surprise
-<Cateyez#bdsm> Then after the 20?
-[info] spade stopped wasting time: Bad link?
-[info] laura has left #bdsm
-/privmsg avante :did he say we sucked?????!!!!
-<SirRobert#bdsm> ok I have Avante & nika anyone else?
-<Avante#bdsm> heirophnt what do you mean?
-<Cateyez#bdsm> MEMEMEM
-<sPoint#bdsm> Heiro: what do you expect after being on the channel for 30 seconds
-<Cateyez#bdsm> E
-<Prism#bdsm> No, thanks, SirRobert.
-<sPoint#bdsm> No thanks, sir
-<Avante#bdsm> sir how much is it afer the 20 hrs?
-[info] Shane stopped wasting time: Leaving
-<SirRobert#bdsm> ok Cateyez, what handle?
-*Avante* jsut a jerk picking a fight.. /ignore works great
-ACTION sPoint->#bdsm: runs fingers up and down Nika's bod and cuddles her tight
-<DrDark#bdsm> The love handles, of course...
-ACTION Cateyez->#bdsm: sucks on a pencil.
-[info] Ice9 has left #bdsm
-<DrDark#bdsm> Lucky pencil...
-<Cateyez#bdsm> I'm always sucking on something
-<Avante#bdsm> sirrobert how much after the 20 hrs?
-[info] KinkBoy has left #bdsm
-ACTION Prism->#bdsm: snores gently in the background.
-<Avante#bdsm> *gives cateyes somthig to suck on*
-<DrDark#bdsm> Cateyez: Oral fixation?
-<SirRobert#bdsm> geeze, money? is that the only question?
-<Cateyez#bdsm> DrDark: yes
-[info] giancarlo!~JKC@phobos.ucs.umass.edu has joined #bdsm
-[info] Ice9 has joined #bdsm
-<sPoint#bdsm> Sirrobert it IS a valid question
-[info] Lolita!MCLOUTIER@pattie.wellesley.edu has joined #bdsm
-<Lolita#bdsm> hi
-<Cateyez#bdsm> Avante: A finger? Or something bigger and longer?
-<Chattel#bdsm> Greetings Giancarlo
-<Avante#bdsm> sir if its too much i dont care how cool it is
-<sPoint#bdsm> 'lo giancarlo...Buona sera
-<Nika#bdsm> gc!
-[info] Scigeek!thomasj@uxa.cso.uiuc.edu has joined #bdsm
-<SirRobert#bdsm> not until you see the product, sPoint
-[info] Panki has changed mode for #bdsm: +o Scigeek
-<DrDark#bdsm> sP: I was gonna use the word Pertinent...
-<Avante#bdsm> hi lolita
-<DrDark#bdsm> 'lo Lolita!
-<Lolita#bdsm> hi avante
-<Cateyez#bdsm> SCI!!!!!!!!
-<DrDark#bdsm> Rehi Sci!
-<giancarlo#bdsm> i spoint
-<Scigeek#bdsm> hey all
-<Nika#bdsm> sci!!
-<Lolita#bdsm> hi drdark
-<Avante#bdsm> sir so how much is it?
-<Scigeek#bdsm> CAT!!
-<Prism#bdsm> Avante is a wise man. :-)
-<Scigeek#bdsm> Ice!!! *hugs*
-<Avante#bdsm> wise man on a buget ;)
-<Nika#bdsm> av: *grin*
-<DrDark#bdsm> If I were a rich man...
-*Ice9* have we met?
-/whois ice9
-[info] Ice9 (jshaw@emr1.emr.ca) is HMSC Reliant
-[info] Ice9 is on: #bdsm #christian
-[info] Ice9 iswas using server clique.cdf.utoronto.ca (Experimental IRC Server, 2.8)
-[info] End of /whois.
-ACTION Cateyez->#bdsm: is woman about to get her 1st apartment
-ACTION Scigeek->#bdsm: waves to Nika
-<SirRobert#bdsm> ok I with setup those 3 for free access, now
-ACTION Prism->#bdsm: is not on a budget, but still tries to be wise.
-[info] giancarlo has left #bdsm
-[info] REDDWOLF has left #bdsm
-<DrDark#bdsm> diedle diedle diedle diddle diedle diga diga dum...
-/privmsg ice9 :I don't recall... embarrasing.
-<Prism#bdsm> I won't give my real name. :-)
-<Cateyez#bdsm> Do we still log on as guest/???
-<DrDark#bdsm> Cat: Kool!!! Roomies or alone?
-<Ice9#bdsm> hey giancarlo! :)
-<Cateyez#bdsm> Dr: I haven't decided yet
-<Nika#bdsm> prism: smart guy
-<Avante#bdsm> cateyez will it have a dungeon ?
-[info] Heirophnt has left #bdsm
-<Cateyez#bdsm> Avante: My bedroom can be the dungeon
-ACTION sPoint->#bdsm: nibbles nika's ear
-<Ice9#bdsm> Sci!! :)
-<Prism#bdsm> Thank you, Nika.
-<DrDark#bdsm> cateyez: Where-abouts? I used to live in Fairland apartmens in Montgomery county... Decent, but kinda expensive...
-[info] leborgne!leborgne@s40412.esu.edu has joined #bdsm
-<Avante#bdsm> *throws a dead fish at Heirophnt as hir leaves
-<Cateyez#bdsm> Minneapolis
-<Scigeek#bdsm> Ice: *pounce*
-<sPoint#bdsm> Gotta go all...bbl
-<sPoint#bdsm> Nice shot avante
-<Scigeek#bdsm> bye sP
-<Cateyez#bdsm> Bye Spoint
-<DrDark#bdsm> Cateyez: Ahhhh... Not near U of Md then, eh? :-)
-[info] sPoint stopped wasting time: later all
-<Lolita#bdsm> bye everyoe
-ACTION Nika->#bdsm: hugs spoint bye
-[info] Lolita stopped wasting time: Bad link?
-[info] SanMan!jms8@Isis.MsState.Edu has joined #bdsm
-<DrDark#bdsm> 'lo SM...
-<Cateyez#bdsm> Okay
-ACTION Cateyez->#bdsm: is going to try out TPE
-[info] spade has joined #bdsm
-<SanMan#bdsm> what's up DRdr.
-<Avante#bdsm> i will to.
-<Cateyez#bdsm> bbl or bbr which ever comes first
-<DrDark#bdsm> SM: Not a lot... Workin'. You?
-<DrDark#bdsm> cat: Enjoy!
-<SanMan#bdsm> Drdr: workin on what?
-[info] Sonya has joined #bdsm
-<Cateyez#bdsm> thanks I will
-[info] Cateyez stopped wasting time: Damn, I'm good.
-<Sonya#bdsm> Hello all.
-[info] brian!bccross@zen.holonet.net has joined #bdsm
-<DrDark#bdsm> SM: Workin' at a printer center...
-<leborgne#bdsm> Hello.
-<DrDark#bdsm> Rehi Sonya!
-<SanMan#bdsm> Hey sonya
-<brian#bdsm> Hello all
-<Scigeek#bdsm> hi Sonya:)
-<spade#bdsm> hi brian
-<SanMan#bdsm> Hey brian
-<Sonya#bdsm> Hi DrDark, SanMan, Scigeek.
-<brian#bdsm> hey spade, sanMan
-<SanMan#bdsm> Anybody know anything about pascal?
-<DrDark#bdsm> 'lo brian
-<brian#bdsm> <=== seeking bdsm gay buddies
-<Avante#bdsm> <-- knows pascal
-[info] Ice9 stopped wasting time: sifon.cc.mcgill.ca clique.cdf.utoronto.ca
-<brian#bdsm> Hi DrDark
-<Avante#bdsm> hi brian
-<DrDark#bdsm> SanMan: I've used it... Been a while tho...
-<Prism#bdsm> <-- knows a cat called
-<Prism#bdsm> Pascal.
-<Sonya#bdsm> Pascal? Blaise Pascal?
-<SanMan#bdsm> Avante: how much do you know?
-<Sonya#bdsm> Pascal is the unit of pressure.
-<SirRobert#bdsm> ok I have avante, nika, cateyes, spade any more?
-<Sonya#bdsm> *grins*
-<SanMan#bdsm> Sonya: the programming language.
-<Avante#bdsm> sanman what do you need to knwo?
-<Sonya#bdsm> SirRobert: For?
-/privmsg #bdsm :Pascal is a b&d programming language.
-<brian#bdsm> sub here
-<brian#bdsm> and u, spade?
-[info] SkinnyPup!zens@ucsu.Colorado.EDU has joined #bdsm
-<SirRobert#bdsm> free trial offer here sonya
-<Avante#bdsm> hi spup
-<DrDark#bdsm> 'lo SP.
-<Sonya#bdsm> For what?
-<brian#bdsm> Hi SkinnyPup
-<SanMan#bdsm> I'm having too much trouble with a program that deals with stacks.
-<Avante#bdsm> sanman waht for petes sake
-[info] SkinnyPup has left #bdsm
-[info] jreagl1!jreagl1@umbc8.umbc.edu has joined #bdsm
-<SirRobert#bdsm> for the best D&S bbs in the US
-<Sonya#bdsm> Ahhhh...
-[info] Neysa2!barry@clark.edu has joined #bdsm
-<Avante#bdsm> make a stack object
-[info] leborgne has left #bdsm
-<Avante#bdsm> actually stacks are easy
-<SanMan#bdsm> Avante: Have you ever wrote a program that converts infix notation into quadruples?
-[info] Sonya stopped wasting time: Leaving
-<brian#bdsm> where is that, Sir Robert????
-<Avante#bdsm> humm
-<SirRobert#bdsm> those of you who have accounts give me 10 minutes, the others set it up
-<jreagl1#bdsm> panki rules
-{Panki#bdsm} ==== The rules of #bdsm are: No flooding, no beeping, no flaming or or personal insults or harrassment, including unwanted touching or interference in scenes. Violators of the rules will be warned verbally, then kicked as a second warning, then banned if necessary! ====
-[info] QuietBoy!QuietBoy@kip-sn-107.dartmouth.edu has joined #bdsm
-<Avante#bdsm> nor
-<QuietBoy#bdsm> heyall
-<Avante#bdsm> hi quietboy
-<SanMan#bdsm> Me neither, thats why I'm having trouble.
-<SirRobert#bdsm> hi brian: tpe.ncm.com login: guest
-[info] jreagl1 has left #bdsm
-<Prism#bdsm> Depends on the rules for converting infix notation, doesn't it?
-<Avante#bdsm> what is a quadruple?
-[info] ZooTv!enigma@imecopc16.epfl.ch has joined #bdsm
-<Prism#bdsm> Sounds like a version of RPN.
-<ZooTv#bdsm> hey DR Dark
-<Avante#bdsm> I have done converting infix to postfix ect
-<DrDark#bdsm> 'lo Zoo!
-[info] spade has left #bdsm
-<Avante#bdsm> hi zoo
-<SanMan#bdsm> Prism: The rules are basically the same as the order of ops.
-<ZooTv#bdsm> DrDark: I met byteme today we took him to a restarant and a bar
-[info] SirRobert stopped wasting time: takes out majic wand to upgrade folks
-<DrDark#bdsm> Zoo: Kool!
-[info] QuietBoy has left #bdsm
-<ZooTv#bdsm> DrDark: heheh
-<ZooTv#bdsm> hey avante
-[info] Soleil!~OPERS@193.140.16.1 has joined #bdsm
-<Prism#bdsm> Hmm... SirRobert is soliciting for a commercial interest.. Is that kosher?
-<Avante#bdsm> it has do do with order of the ops
-<Soleil#BDSM> hello all.
-[info] brian stopped wasting time: Leaving
-[info] ZooTv has left #bdsm
-<Avante#bdsm> are you doing this from scratch?
-[info] Elkor has joined #bdsm
-[info] tricia!PML2622@RIGEL.TAMU.EDU has joined #bdsm
-<Avante#bdsm> didnt they give you rules?
-<Scigeek#bdsm> hi Soleil
-<Avante#bdsm> hi tricia
-<Scigeek#bdsm> hi elkor, tricia
-<SanMan#bdsm> Avante: Somewhat, but not very helpful.
-[info] Soleil has left #BDSM
-[info] tricia has left #bdsm
-<Avante#bdsm> well basically .. if you run into a number you push it on the stack
-[info] Nickl has joined #bdsm
-<Avante#bdsm> a rparen you push also
-<Avante#bdsm> no no
-<Avante#bdsm> you need two stacks
-<SanMan#bdsm> Avante: but the problem is that the infix has both binary and unary operators, also the infix doesn't have real numbers, just variables
-<Neysa2#bdsm> hello all
-<Neysa2#bdsm> hi nickl
-<Avante#bdsm> one for operators one for "variables
-<Neysa2#bdsm> hello nika
-<Nika#bdsm> ni N2
-<Nika#bdsm> hi i mean
-<Nika#bdsm> :-)
-[info] tippy!jmsommer@well.sf.ca.us has joined #bdsm
-[info] Nickl has left #bdsm
-<Scigeek#bdsm> hi tippy
-<Avante#bdsm> well the trick is to figure out the rules.. thwe pascal part is easy
-<tippy#bdsm> Hey Scigeek
-<Neysa2#bdsm> hi tippy
-<tippy#bdsm> hey all :)
-<Avante#bdsm> are you writing a compiler or somthing?
-<Avante#bdsm> recursive decent works nice
-<SanMan#bdsm> Avante: Exactly, but I'm not really sure what a quadruple is suppose to look like in this situation.
-<Avante#bdsm> yea i see what you mean
-<tippy#bdsm> brb
-<Avante#bdsm> id do alot of pseudo coding
-[info] tippy has left #bdsm
-<Chattel#bdsm> Ooh squeezed between Panki and Hanki
-<Avante#bdsm> understand it before you start t owrite it
-<SanMan#bdsm> Oh yeah, what are you studyin?
-<Scigeek#bdsm> chattel:heheh
-<Neysa2#bdsm> hello vhf
-<Avante#bdsm> i graduated
-<Avante#bdsm> cs with emphasis in math
-<SanMan#bdsm> What did you study?
-<Avante#bdsm> but im not a brain
-[info] Ice9 has joined #bdsm
-<Scigeek#bdsm> re ICEY!!
-<DrDark#bdsm> BRB folx...
-<Avante#bdsm> i cant remember what a quadruple is
-<Neysa2#bdsm> hi ice9
-[info] tippy has joined #bdsm
-<SanMan#bdsm> Are you in Grad. school or something?
-<Nika#bdsm> av: yes you are *hug*
-<Avante#bdsm> it seems to me its from compiler though
-<Prism#bdsm> m , I'm at home.. You had dinner already?
-<Prism#bdsm> bleah... excuse'm.
-<Avante#bdsm> nika *lick*
-ACTION DrDark->#bdsm: hands prism a /
-<Ice9#BDSM> am I here?
-<tippy#bdsm> prism: you're awake? :)
-<Avante#bdsm> hi ladyice
-ACTION Neysa2->#bdsm: tickles ice9
-<Prism#bdsm> Danke, DrDark.
-ACTION Scigeek->#bdsm: hugs Ice9
-[info] Alessan has joined #bdsm
-<Prism#bdsm> tippy - I'm always awake. :-)
-<DrDark#bdsm> Prism: No prob... :-)
-<Alessan#bdsm> hey all
-<Avante#bdsm> sanman no i have ajod
-<Avante#bdsm> job
-<tippy#bdsm> hey Alessan
-<Prism#bdsm> How else could I type in stuff like "/me snores gently in the background" most of the time? :-)
-<Alessan#bdsm> yo tippy
-<DrDark#bdsm> BRB folx!
-<tippy#bdsm> Prism: good point.
-<Scigeek#bdsm> hi Alessan
-[info] DrDark has left #bdsm
-<Avante#bdsm> prisim /alias snore /me snores .....
-<Chattel#bdsm> When will you visit again
-<SanMan#bdsm> Avante: Oh well, gotta get to work on the damn thing I guess, Later.
-[info] SanMan has left #bdsm
-ACTION Nika->#bdsm: lags
-<Avante#bdsm> good luck san
-<Prism#bdsm> avante - aliases are for wimps. :-)
-<Avante#bdsm> sounds like san is working on a compiler.
-<Chattel#bdsm> well there was ice on the puddle this morning
-[info] luvable!msb0@UNIX7.ANDREW.CMU.EDU has joined #bdsm
-<Chattel#bdsm> thick ice
-<Avante#bdsm> prisim heh
-ACTION tippy->#bdsm: smiles.
-<Avante#bdsm> chattel no more summer hu
-[info] Alessan stopped wasting time: Bad link?
-<Prism#bdsm> I'm being told of about excellent resturants... That people went to. Without me. And me without even eating dinner.
-[info] nixxie!helper@198.67.33.102 has joined #bdsm
-<Avante#bdsm> hi luvable
-[info] Sonya has joined #bdsm
-<luvable#bdsm> hi all!:)
-<Scigeek#bdsm> Ice9?....
-<Avante#bdsm> hi nixxie
-<Nika#bdsm> *gasp*
-<Prism#bdsm> *sniffle* No one loves me any more. :'-(
-<nixxie#bdsm> hello
-<Scigeek#bdsm> hi nixxie
-<Scigeek#bdsm> re sonya
-<luvable#bdsm> hi nika!:)
-ACTION Nika->#bdsm: sits on the couch and relaxes
-<Ice9#BDSM> re SCI!!
-[info] jreagl1 has joined #bdsm
-<Nika#bdsm> hi luv
-ACTION Scigeek->#bdsm: tacklehugs Ice
-ACTION Ice9->#BDSM: dances around Scias the screen scrolls...
-<tippy#bdsm> prism: I doubt it;)
-ACTION luvable->#bdsm: hates Quantum Mechanics.
-<Avante#bdsm> nixxe your fro mtpe :)
-<nixxie#bdsm> yes I am :)
-<Scigeek#bdsm> Quantum....*cringe*
-<Avante#bdsm> nixxie cool beans
-<Prism#bdsm> tippy - :-)
-<luvable#bdsm> scigeek: I have an exam tomorrow in it! *ACK*
-<Avante#bdsm> i tke it your kinky
-ACTION Ice9->#BDSM: wraps arms and legs around Scigeek!!!
-<Neysa2#bdsm> hello nixxie
-<Scigeek#bdsm> luv: ewwwwwwww
-[info] jreagl1 has changed nick to joe
-[info] RonPost!pescej@155.31.2.17 has joined #bdsm
-ACTION Sonya->#bdsm: gets headaches from Quantum Mechanics.
-<nixxie#bdsm> somewhat Avante <g> I suspect you *might* be......
-ACTION Scigeek->#bdsm: falls on the floor with Ice and licks her *slurp*
-<Ice9#BDSM> Quantum luv; dream onit!
-<RonPost#bdsm> re's
-[info] joe has left #bdsm
-ACTION Neysa2->#bdsm: needs to rest his tired head
-<Avante#bdsm> Nixiim normal.. I just like more flavors than vanilla;)
-<luvable#bdsm> :)
-<Avante#bdsm> pardon my typing
-ACTION Ice9->#BDSM: rolls around on floor with Sci and *giggles*
-<Avante#bdsm> im sick and slouching in my chair
-[info] Auduck!KRISHNAN@130.49.254.3 has joined #bdsm
-[info] KinkBoy has joined #bdsm
-<Sonya#bdsm> Hi Auduck.
-<Avante#bdsm> hi auduck
-<Ice9#BDSM> hi there Avante... smile anyway! just because... :) :)
-ACTION Nika->#bdsm: blushes
-<RonPost#bdsm> hmmmm....
-<Auduck#bdsm> hi there gangsters and gangstertettes
-<Avante#bdsm> ladyice: ooh nice smile
-[info] luvable stopped wasting time: Leaving
-<Auduck#bdsm> dern lag
-<Avante#bdsm> really
-[info] joelll!joelll@spiff.gnu.ai.mit.edu has joined #bdsm
-<joelll#bdsm> hullo..
-<nixxie#bdsm> Advante: <sigh> yes can't you tell
-<Ice9#BDSM> hi joelll
-<nixxie#bdsm> <G>
-<Chattel#bdsm> Hello Joelll
-<joelll#bdsm> hihi
-[info] Chattel has changed mode for #bdsm: +o joelll
-<Prism#bdsm> hullo.
-/privmsg noah :lick
-<Avante#bdsm> nixxie : nope.. welcome :)
-<joelll#bdsm> chattel: +o doesn't make much differenct to me, panki would still let me kick people etc..
-ACTION Nika->#bdsm: blushes and walks up to Auduck and kisses him on the cheek
-[info] TPEmember!helper@198.67.33.102 has joined #bdsm
-[info] Lorry!~Michael@safeway.demon.co.uk has joined #bdsm
-<Avante#bdsm> hello tpemember
-<Auduck#bdsm> *blush*
-<Auduck#bdsm> ;)
-<Avante#bdsm> hey lorry
-<Chattel#bdsm> I know.. it was a gesture
-[info] KinkBoy has left #bdsm
-<TPEmember#bdsm> hello
-<Ice9#BDSM> hi to anyonbe I missed in the scroll!
-<nixxie#bdsm> hiya tpemember :)
-<joelll#bdsm> chattel: thank you anyway :)
-<Avante#bdsm> lots of tpepeople floating about
-<Lorry#bdsm> Ullo.
-ACTION Chattel->#bdsm: bows to Joell
-<tippy#bdsm> Avante: what are TPEpeople, if you please?
-<tippy#bdsm> hello Lorry
-<Scigeek#bdsm> yeah....TPE?
-[info] TPEmember has changed nick to Hobit
-<Avante#bdsm> tpe teh power exchang.. a ds bulitin board..
-<Avante#bdsm> bulitin
-<joelll#bdsm> oh!
-<Avante#bdsm> bullitin
-<Avante#bdsm> better
-<nixxie#bdsm> OOO! I knew that was you!!! HUGS!!! and SWATS!!!!!!
-<Scigeek#bdsm> Ah
-<Hobit#bdsm> this is thefirst time to try irc
-<tippy#bdsm> av: got it: Thanks.
-<Avante#bdsm> tpe.ncm.com login as guest
-<Avante#bdsm> hi hobit
-<Ice9#BDSM> hiya Hobit!
-<tippy#bdsm> avante: commercial?
-<Avante#bdsm> nixxie heheh
-<Hobit#bdsm> it is a fun BBS in the washington area
-<Avante#bdsm> tippy apparently *shrug*
-<Nika#bdsm> bbl
-[info] Nika has left #bdsm
-<Avante#bdsm> <-- fun switchin the colorado area
-<tippy#bdsm> Avante: Are you in Colorado?
-<nixxie#bdsm> <sigh> I'm so confused again...
-<Avante#bdsm> tippy yeppers
-<Avante#bdsm> nixxie: why?
-<Hobit#bdsm> that is normal nixxie
-<tippy#bdsm> AV: where? I used to live in Breckenridge.
-<Avante#bdsm> Im in grand Junction..
-<nixxie#bdsm> this is true, Sir.. <G>
-[info] lou!lou@mindvox.phantom.com has joined #bdsm
-<Avante#bdsm> hey lou
-<lou#bdsm> hi avante
-ACTION tippy->#bdsm: reminisces.
-[info] Garner!VT102@AC.Dal.Ca has joined #bdsm
-<Avante#bdsm> tippy hehe breckenrige is nice
-[info] RonPost has left #bdsm
-<tippy#bdsm> avante: kewl, for lack of a better adjective.
-<Avante#bdsm> tippy *5*
-[info] Garner stopped wasting time: Leaving
-<Avante#bdsm> where are you now tippy ?
-<tippy#bdsm> Avante: I want to move back. Fuck this rat race.
-[info] Heatr!albr0014@gold2.tc.umn.edu has joined #bdsm
-<Avante#bdsm> tippy i want to leave :)
-<nixxie#bdsm> Hobit: Catch you on the flip side Sir. :)
-<Avante#bdsm> ironic hu
-/privmsg #bdsm :colorado is a rat race?
-<tippy#bdsm> NJ: I do well but I *know I would be a lot happier in the west with my family.
-<tippy#bdsm> vhf: NJ is a rat race.
-<Hobit#bdsm> see ya nixxie
-<Avante#bdsm> tippy UG.. well now i dont want to go t oNJ.
-<Heatr#bdsm> hello all
-<tippy#bdsm> Avante: why do you want to leave?
-<Avante#bdsm> bye nixxie
-<Avante#bdsm> not alot going on..
-<nixxie#bdsm> bye bye people
-[info] nixxie has left #bdsm
-<Avante#bdsm> I have totravel to denver for fun.
-<Heatr#bdsm> is everyone occupied?
-<Hobit#bdsm> bye bye all. I am going to run.
-[info] garner!VT102@AC.Dal.Ca has joined #bdsm
-<tippy#bdsm> hehe
-<Avante#bdsm> bye hobit
-<garner#bdsm> is there a netsplit tonite?
-<Heatr#bdsm> not here
-<garner#bdsm> hi all BTW :)
-[info] Hobit stopped wasting time: Leaving
-<joelll#bdsm> netsplits aren't planned, and usually last less than a minute...
-<garner#bdsm> i know......
-/privmsg #bdsm :then why do you live at grand junction?
-<Heatr#bdsm> 22, single white female
-<garner#bdsm> shesh
-<tippy#bdsm> Avante: my dream is to climb every 14,000 foot peak in CO.
-<joelll#bdsm> there may have been a bigger problem....
-<Prism#bdsm> we have netsplits all night every night.
-<garner#bdsm> hm,
-<tippy#bdsm> Hi Heatr
-<Avante#bdsm> heatr cool wwhere do you live?
-<Heatr#bdsm> hello tippy
-<Heatr#bdsm> I am in Minnesota
-<garner#bdsm> i fingered an account of someone i know, it says she's on irc, but i can't find her
-<Ice9#BDSM> garner: *.ca was split off just a short while ago
-<Sonya#bdsm> Later.
-[info] Sonya stopped wasting time: Leaving
-<garner#bdsm> oh really?
-<garner#bdsm> maybe that's it
-<Avante#bdsm> are you bi heatr?
-/privmsg #bdsm :some fingers seem to lie about who/what is going on
-<joelll#bdsm> garner...use /who -host hostname.name.etc.edu
-[info] Razormaid has joined #bdsm
-<garner#bdsm> ok
-<garner#bdsm> i get othing
-[info] Chattel stopped wasting time: Leaving
-<joelll#bdsm> then that person may not be on...
-[info] DrDark has joined #bdsm
-<garner#bdsm> that's odd...
-[info] Auduck has left #bdsm
-<garner#bdsm> bbl
-[info] garner stopped wasting time: Leaving
-<DrDark#bdsm> (*mew*)
-<DrDark#bdsm> No it isn't
-[info] Bri!kaplan@pico.cica.indiana.edu has joined #bdsm
-<DrDark#bdsm> 'lo Bri
-[info] TheMaxx!gopher@gopher.csie.nctu.edu.tw has joined #bdsm
-<Bri#bdsm> Hello.
-<TheMaxx#bdsm> hi all.
-/privmsg avante :pardon my asking, but are you bi?
-<TheMaxx#bdsm> what's up?
-[info] Bri has left #bdsm
-[info] spikee has joined #bdsm
-<spikee#bdsm> lo all
-*Avante* well im mostly het.. but i didkiss a guy saturday
-<DrDark#bdsm> Rehi spikee!
-<Scigeek#bdsm> Spikee!
-<spikee#bdsm> re drd *hug*
-<TheMaxx#bdsm> ah, I see.
-[info] Tria!~jackie@brick.purchase.edu has joined #bdsm
-<spikee#bdsm> sci!!!!!!!!!!!!!!!!!!!!!
-<TheMaxx#bdsm> hi spike
-<Tria#bdsm> Hello guys..
-<spikee#bdsm> heheh
-<Avante#bdsm> hello tria
-<TheMaxx#bdsm> hi Tria.
-ACTION DrDark->#bdsm: (*HUGS*) spikee!
-<DrDark#bdsm> 'lo tria...
-/privmsg avante :really? cool. d or s? (if this is uncool, it's okay)
-<Tria#bdsm> Hi there Avante
-<spikee#bdsm> hello themaxx :)
-<Tria#bdsm> Hi there Dr.Fark..
-<Tria#bdsm> ha ha :)
-<spikee#bdsm> scigeek call allura now?
-<joelll#bdsm> hi spikee, tria...
-[info] Tria stopped wasting time: Leaving
-<Ice9#BDSM> hi spikee, tria
-*Avante* switch.. prefer dom
-<DrDark#bdsm> spikee: She still lonely?
-<joelll#bdsm> gotta run...
-[info] joelll stopped wasting time: Leaving
-/privmsg avante :I'm new to this, just checking it out.
-<spikee#bdsm> yuppers
-[info] TheMaxx has left #bdsm
-*Avante* who are you?
-[info] BlueSonja!~law10118@leonis.nus.sg has joined #bdsm
-*Avante* im fairly new
-<DrDark#bdsm> (*sigh*)
-<Scigeek#bdsm> hi Blue
-<DrDark#bdsm> 'lo Blue...
-<BlueSonja#bdsm> Greetings all :) !!
-*Avante* im no expert or anything
-ACTION BlueSonja->#bdsm: waves to SG and DD
-ACTION Prism->#bdsm: snores gently in the background.
-/privmsg avante :steve. eissinger, i'm in virginia
-ACTION BlueSonja->#bdsm: looks at Prism...sleeping *again* ???!
-<DrDark#bdsm> Aha. He must be awake.
-<BlueSonja#bdsm> *grin* DD :)
-[info] sly!01KLHUFFMA@leo.bsuvc.bsu.edu has joined #bdsm
-*Avante* pleased to meet ay steve. :)
-ACTION Prism->#bdsm: snores determinedly.
-<DrDark#bdsm> 'lo sly!
-<BlueSonja#bdsm> haaaaaaaa
-<DrDark#bdsm> (*chuckle*)
-<BlueSonja#bdsm> hi Sly :) !
-<DrDark#bdsm> prism: Snore dammit?
-[info] sly stopped wasting time: Killed (ircserver.cltr.uq.oz.au (sly[jello.qabc.uq.oz.au] != *.uts.edu.au[unknown@138.25.8.1.3015]))
-ACTION BlueSonja->#bdsm: waves to Thorf, Avante, Spikee, Elkor, Neysa2, and all other absent/present people :)
-<Scigeek#bdsm> bbl all
-[info] Scigeek has left #bdsm
-<Prism#bdsm> DrDark - absolutely. :-)
-<BlueSonja#bdsm> where is Less, i wonder...
-<Avante#bdsm> hi sonya
-[info] sly has joined #bdsm
-/privmsg avante :how did you get started in the scene?
-<sly#bdsm> hi guys
-ACTION Prism->#bdsm: snores meaningfully in BlueSonja's direction.
-*Avante* im frank
-[info] sly stopped wasting time: Killed (ircserver.cltr.uq.oz.au (sly[jello.qabc.uq.oz.au] != *.uts.edu.au[unknown@138.25.8.1.3015]))
-ACTION BlueSonja->#bdsm: grins at Avante...*one* person woke up :)
-<Thorfinn#bdsm> Hiya Blue!
-/privmsg avante :hey frank, glad ta meet ya.
-<Ice9#BDSM> bye
-ACTION Thorfinn->#bdsm: awakes.
-<Prism#bdsm> why does sly keep getting killed?
-<Thorfinn#bdsm> Caught me just in time! :)
-[info] Ice9 has left #bdsm
-ACTION BlueSonja->#bdsm: *snorts* meaningfully in Prism's direction
-*Avante* interestingly enough thru irc
-ACTION Thorfinn->#bdsm: hugs Blue.
-<DrDark#bdsm> Prism: was just wondering that myself...
-[info] Sonya has joined #bdsm
-<Avante#bdsm> blue heh
-<BlueSonja#bdsm> heeeeee Thorf!! *grin* *HUGS*
-<Sonya#bdsm> Hello all.
-<DrDark#bdsm> Rehi Sonya1
-[info] sly!#01KLHUFFM@leo.bsuvc.bsu.edu has joined #bdsm
-<sly#bdsm> hi guys i'm back
-<BlueSonja#bdsm> hi Sonya :)
-*Avante* no .. no luck there.
-<BlueSonja#bdsm> re Sly :) back from the dead :)
-<Prism#bdsm> re, sly.
-<DrDark#bdsm> sly: For real this time?
-<BlueSonja#bdsm> Avante : *grin*
-*Avante* im trying
-ACTION Thorfinn->#bdsm: smiles.
-<sly#bdsm> yah..hopefully
-<DrDark#bdsm> sly: (*chuckle*)
-ACTION BlueSonja->#bdsm: gives Thorf a nice stalk of rose :)
-[info] Garner has joined #bdsm
-<Sonya#bdsm> HI Sonya.
-<Garner#bdsm> back :)
-<Sonya#bdsm> Err, BlueSonja.
-<Avante#bdsm> hi garner
-ACTION Prism->#bdsm: turns over and goes back to sleep.
-[info] Heatr has left #bdsm
-<BlueSonja#bdsm> heee Sonya :)
-<Garner#bdsm> hi avante
-[info] lou has left #bdsm
-ACTION Prism->#bdsm: snores gently in the background.
-ACTION Garner->#bdsm: sighs
-<spikee#bdsm> sleep well prism *snicker*
-[info] wetknight!mundv@uxa.ecn.bgu.edu has joined #bdsm
-[info] Bananaman!SHELL@DRYCAS.CLUB.CC.CMU.EDU has joined #bdsm
-<DrDark#bdsm> 'lo wk...
-<DrDark#bdsm> 'lo BMan!
-<wetknight#bdsm> hello DD
-ACTION Thorfinn->#bdsm: smiles at Blue.
-<Thorfinn#bdsm> Thanks!
-<BlueSonja#bdsm> hi WK, BMan :)
-<Avante#bdsm> hi wetknight
-ACTION BlueSonja->#bdsm: bows to Thorf
-<Bananaman#bdsm> Hello folks
-<wetknight#bdsm> salutations to all
-<Lorry#bdsm> Does vhf have a long ariel?
-/privmsg #bdsm :?
-<DrDark#bdsm> vhf: penis joke, I think...
-<Prism#bdsm> Gee.. The person I was wanting to go out to dinner with tonight just told me to order pizza.
-<BlueSonja#bdsm> haaa
-<Prism#bdsm> and then wait patiently.
-<BlueSonja#bdsm> poor Prism! *patpat*
-<Garner#bdsm> prism: brutal
-ACTION Thorfinn->#bdsm: cuddles up to Blue.
-<DrDark#bdsm> Prism: Wow...
-<sly#bdsm> hey bananman have you talked with pickle yet--tonite
-<wetknight#bdsm> tell that person to stick it BlueSonja
-<spikee#bdsm> aww prism
-ACTION Prism->#bdsm: bursts into tears.
-<DrDark#bdsm> Prism: Hope it's worth the wait...
-ACTION BlueSonja->#bdsm: hugs Thorfinn :)
-ACTION spikee->#bdsm: gives prism her hanki
-<Sonya#bdsm> *wands her Lady*
-<Bananaman#bdsm> No, sly, why?
-<Sonya#bdsm> Panki whois sonya
-{Panki#bdsm} ==== Sonya is the cute, cuddly adorable uppity bottom of Lady Penelope. But watch out, she is a master of the Force. ====
-[info] Garner has left #bdsm
-<BlueSonja#bdsm> Wetknight: huh? who? stick what? where? *grinZ*
-<Avante#bdsm> bluesonja hehe
-<spikee#bdsm> heheh cute sonya
-[info] LocalHero!wayne@146.116.1.5 has joined #bdsm
-[info] LocalHero has changed nick to Wayne
-<spikee#bdsm> hello lh!
-<wetknight#bdsm> BlueSonja :)
-<sly#bdsm> hi
-<BlueSonja#bdsm> *grin*
-<DrDark#bdsm> 'lo Wayne..
-<Wayne#bdsm> Greetings my friend
-<BlueSonja#bdsm> Sonya: nice! :)
-ACTION Prism->#bdsm: thanks spikee,wipes his eyes and blows his nose.
-<Neysa2#bdsm> back...front
-<Prism#bdsm> *HONK*
-<BlueSonja#bdsm> hey Wayne! :)
-ACTION Wayne->#bdsm: pokes Sonja in the ribs
-<BlueSonja#bdsm> Neys!!!
-<Neysa2#bdsm> hello heatr
-ACTION Wayne->#bdsm: giggles quietly
-ACTION spikee->#bdsm: hugs prism
-<sly#bdsm> hey everyone
-ACTION BlueSonja->#bdsm: hugs Neys
-<Sonya#bdsm> Hi Wayne.
-<Razormaid#bdsm> better living through pain
-ACTION Thorfinn->#bdsm: smiles.
-ACTION BlueSonja->#bdsm: giggles at being poked
-ACTION Prism->#bdsm: hugs spikee back.
-[info] wetknight has left #bdsm
-ACTION Wayne->#bdsm: smiles happily ;-b
-[info] pep!law33720@leonis.nus.sg has joined #bdsm
-<Neysa2#bdsm> hi tria
-<BlueSonja#bdsm> brb, changing terminals :)
-<Avante#bdsm> hi pep
-<sly#bdsm> hi pep
-[info] BlueSonja stopped wasting time: Leaving
-<Lorry#bdsm> Hehe.
-<pep#bdsm> hello
-[info] Lorry has left #bdsm
-<Neysa2#bdsm> ok, who did I misss
-
-
-----------------------------------------------------------------------
-
-this faq is copyright (c) 1994 to the piglet way (tm).
-you may only modify this if you make it more offensive.
+++ /dev/null
-ZenIRC 2.0 - Sun Feb 27 12:37:31 MST 1994 - ALPHA2
-
-DISCLAIMER:
-
-THIS IS REALLY OUT OF DATE, THE ONLY REASON IT'S KEPT AROUND IS THAT
-IT DOES DESCRIBE SOME THINGS PRETTY GOOD. BEFORE YOU BELIEVE WHAT THIS
-FILE SAYS, LOOK AT `zenirc-example.el' AND THE SOURCE.
-
-KNOWN BUGS:
-
-See the TODO file.
-
-KNOWN FEATURES AND INSTRUCTIONS:
-
-Here is a list of variables you might want to frobnicate in your .emacs or
-on the fly:
-
-zenirc-buffer-name, change the buffer name to something besides "*zenirc*"
-
-zenirc-IRCSERVER-alist - Association list of port/password/nick info for
-each server.
-
-Zenirc will attempt to connect to each `host' at `port' in turn until a
-successful connection is made, using the username `user' (and `password' if
-the server requests one). Your nickname is set to the value `nick'.
-
-The default value of this alist is determined by the value of the
-environment variable `IRCSERVER', which should be in the format
-`host:port:password:nickname:username'. If more than one host:etc group is
-desired, separate each group with any nonzero amount of whitespace composed
-of spaces, tabs, and/or newlines.
-
-The actual data types of the atoms of each association are string (server),
-int (port), string (password), string (nickname), string (username).
-
-zenirc-server - The hostname of the IRC server to which to connect.
-
-This is initialized to the first server in `zenirc-IRCSERVER-alist' if that
-variable is non-`nil', or "irc-2.mit.edu" by default.
-
-zenirc-servername - The server name of the IRC server current connected to.
-(hmm. this should be a setq, I think)
-
-zenirc-port - The TCP port associated with the irc server specified
-by `zenirc-server'.
-
-If the server initially specified in `zenirc-server' appears in
-`zenirc-IRCSERVER-alist', and a port is explicitly associated with that
-server, `zenirc-port' is initialized to that port. Otherwise,
-`zenirc-port' defaults to 6667.
-
-zenirc-user-login-name - the username with which you signon IRC.
-
-This is usually your username on the system as returned by the function
-`user-login-name'. However, if the server initially specified in
-`zenirc-server' appears in `zenirc-IRCSERVER-alist' and a username is
-explicitly associated with that server, `zenirc-user-login-name' is
-initialized to that value.
-
-zenirc-nick - If the server initially specified in `zenirc-server' appears in
-`zenirc-IRCSERVER-alist' and a nickname is explicitly associated with that
-server, `zenirc-nick' is initialized to that nickname. If this is not the
-case but the environment variable `IRCNICK' is set, `zenirc-nick' is
-initialized from that. As a last resort, it defaults to the value of the
-variable `zenirc-user-login-name'.
-
-zenirc-name - The name which you use on IRC.
-The default is your GECOS information.
-
-zenirc-password - Connection password for your IRC server.
-The default is none.
-
-zenirc-userinfo - Reply to USERINFO ctcp
-
-zenirc-mode-map - Sparse keymap for zenirc-mode
-
-zenirc-ignorance-list - A list of regexps matching annoying
-things that should be ignored.
-
-zenirc-signal-list - A list of regexps matching things that should cause the
-user to be notified of them.
-
-zenirc-beep-on-signal - Set to t if notification of something matching a regexp
-in zenirc-signal-list should cause emacs to beep.
-
-zenirc-send-ctcp-errmsg-on-unknown - Set to t if ZenIRC should reply with an
-ERRMSG to unknown CTCP queries.
-
-zenirc-send-ctcp-errmsg-on-unbalanced - Set to t if ZenIRC should send an
-ERRMSG to an unbalanced CTCP query.
-
-zenirc-verbose-ctcp - Set to t if you want ZenIRC to tell you when it sends
-CTCP replies to people who query you.
-
-zenirc-fingerdata - CTCP FINGER reply data.
-
-zenirc-source - CTCP SOURCE reply data
-
-zenirc-text-list - insert note about function to set here
-
-zenirc-clientinfo-list - association list of CTCP CLIENTINFO help strings.
-
-zenirc-clientinfo - Help string, showing list of CTCP commands supported.
-
-zenirc-debug-mainloop, zenirc-debug-ignore, zenirc-debug-signal,
-zenirc-debug-ctcp, zenirc-debug-commands zenirc-debug-timer -
-debugging flags. If you're using these, then the help file is old news
-as you've read the source.
-
-The client is designed to be extensible and customizable, in the
-spirit of ircII. It uses an extended version of the emacs 19 hook
-mechanism, dubbed "zenhooks".
-
-The basic idea behind the zenhook mechanism is that we want to be able to
-attach multiple functions to a given hook. Rather than just specifying a
-single hook by creating a function with a certain name, instead hooks become
-variables which contain a list of functions to be called. You can add a new
-function to a hook variable with the function zenirc-add-hook. If you do
-something like (zenirc-add-hook 'zenirc-timer-hook 'ruru), it will cause
-the function "ruru" to be added to the hook variable, zenirc-timer-hook.
-
-Hooks are removed from a hook variable with the function
-zenirc-delete-hook - ie, (zenirc-delete-hook 'zenirc-timer-hook 'ruru)
-would remove ruru from the list of functions to be called when
-zenirc-timer-hook is run.
-
-zenhooks are run with the function zenirc-run-hook. This function,
-unlike the emacs 19 hook functions, passes any extra arguments to
-zenirc-run-hook to each function in the hook list as it is
-run. In addition, if any function sets zenirc-run-next-hook to nil,
-then remaining hooks in the hooklist are not called, and
-zenirc-run-hook returns immediately.
-
-For the timer code, zenirc uses a hook variable called
-zenirc-timer-hook. This hook is called at most once a minute, and at
-least as often as the irc server pings the client. The functions in
-zenirc-timer-hook take a single argument, a process, the ZenIRC
-process. An example of adding a new function to zenirc-timer-hook is
-scripts/zenirc-stamp.el, which implements Kiwi client style timestamps
-in the ZenIRC buffer.
-
-The signal code is called via a hook variable called
-zenirc-signal-hook. scripts/zenirc-fancy-signal.el shows an example of
-using this hook as well as the variable zenirc-run-next-hook.
-zenirc-signal-hook is called with two arguments, the first is the
-zenirc process, and the second is a string, the unparsed servermessage
-that caused the signal to occur.
-
-In various places in the IRC protocol, the IRC server sends the client
-strings of the form `nick!user@host' where some parts of this are
-optional (see the RFC). The zenhook used to format these is
-`zenirc-format-nickuserhost-hook', and is called with a single argument,
-the string to format. It returns the formatted string.
-
-To add new commands to ZenIRC, you create zenhooks with names of the
-form "zenirc-command-WHATEVER-hook". The hook will be run with
-the arguments "proc" and "parsedcmd". The first argument is the zenirc
-process, and the second argument is a slightly parsed form of what the
-user typed. The "parsedcmd" argument is a list with two elements. The
-first is the first word on the line the user typed, and the second is
-the rest of the line. For instance, if the user issued the command
-"/FOO BAR", then parsedcmd would be set to ("FOO" "BAR"). Commands
-used to use the old hook mechanism, but that is now obsolete.
-
-CTCP is similarly extensible, only the format of the hook variable
-names are zenirc-ctcp-query-WHATEVER-hook and
-zenirc-ctcp-reply-WHATEVER-hook. A "query" is a CTCP inside a PRIVMSG
-server message, and a "reply" is a CTCP inside a NOTICE server
-message. These hooks are called with four arguments, the zenirc filter
-process, a parsed ctcp message of the form ("CTCP_COMMAND" .
-"ARGUMENTS"), the sender of the ctcp, and the reciever of the ctcp.
-CTCP used to use the old hook mechanism, but that is now obsolete.
-
-All server message handling hook variables have names of the form:
-zenirc-server-MESSAGE-hook, and take two arguments, the zenirc filter
-procedure, and a parsed message, which is an array that looks like
-(sender MESSAGE arg1 arg2 ...). If you want to create a handler for a
-message that does not currently have a handler, create your own
-hook variable with a name of this form that accepts these arguments, and
-ZenIRC will call your subroutine whenever it gets that server message.
-To override or modify the behavior of a server message that already
-has a hook, call zenirc-add-hook to add your subroutine to the hook
-variable. You can override by setting zenirc-run-next-hook to nil, and
-you can delete your entry in the hook variable with zenirc-delete-hook.
-
-Some documents that may prove helpful in extending the client are the
-RFC protocol specification for IRC and ctcp.doc. these are both included
-in this archive.
-
-Please send any comments, questions, ideas, bugfixes or whatever to
-bed@gnu.ai.mit.edu
-
+++ /dev/null
-
-
-
-
-
-
-Network Working Group J. Oikarinen
-Request for Comments: 1459 D. Reed
- May 1993
-
-
- Internet Relay Chat Protocol
-
-Status of This Memo
-
- This memo defines an Experimental Protocol for the Internet
- community. Discussion and suggestions for improvement are requested.
- Please refer to the current edition of the "IAB Official Protocol
- Standards" for the standardization state and status of this protocol.
- Distribution of this memo is unlimited.
-
-Abstract
-
- The IRC protocol was developed over the last 4 years since it was
- first implemented as a means for users on a BBS to chat amongst
- themselves. Now it supports a world-wide network of servers and
- clients, and is stringing to cope with growth. Over the past 2 years,
- the average number of users connected to the main IRC network has
- grown by a factor of 10.
-
- The IRC protocol is a text-based protocol, with the simplest client
- being any socket program capable of connecting to the server.
-
-Table of Contents
-
- 1. INTRODUCTION ............................................... 4
- 1.1 Servers ................................................ 4
- 1.2 Clients ................................................ 5
- 1.2.1 Operators .......................................... 5
- 1.3 Channels ................................................ 5
- 1.3.1 Channel Operators .................................... 6
- 2. THE IRC SPECIFICATION ....................................... 7
- 2.1 Overview ................................................ 7
- 2.2 Character codes ......................................... 7
- 2.3 Messages ................................................ 7
- 2.3.1 Message format in 'pseudo' BNF .................... 8
- 2.4 Numeric replies ......................................... 10
- 3. IRC Concepts ................................................ 10
- 3.1 One-to-one communication ................................ 10
- 3.2 One-to-many ............................................. 11
- 3.2.1 To a list .......................................... 11
- 3.2.2 To a group (channel) ............................... 11
- 3.2.3 To a host/server mask .............................. 12
- 3.3 One to all .............................................. 12
-
-
-
-Oikarinen & Reed [Page 1]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- 3.3.1 Client to Client ................................... 12
- 3.3.2 Clients to Server .................................. 12
- 3.3.3 Server to Server ................................... 12
- 4. MESSAGE DETAILS ............................................. 13
- 4.1 Connection Registration ................................. 13
- 4.1.1 Password message ................................... 14
- 4.1.2 Nickname message ................................... 14
- 4.1.3 User message ....................................... 15
- 4.1.4 Server message ..................................... 16
- 4.1.5 Operator message ................................... 17
- 4.1.6 Quit message ....................................... 17
- 4.1.7 Server Quit message ................................ 18
- 4.2 Channel operations ...................................... 19
- 4.2.1 Join message ....................................... 19
- 4.2.2 Part message ....................................... 20
- 4.2.3 Mode message ....................................... 21
- 4.2.3.1 Channel modes ................................. 21
- 4.2.3.2 User modes .................................... 22
- 4.2.4 Topic message ...................................... 23
- 4.2.5 Names message ...................................... 24
- 4.2.6 List message ....................................... 24
- 4.2.7 Invite message ..................................... 25
- 4.2.8 Kick message ....................................... 25
- 4.3 Server queries and commands ............................. 26
- 4.3.1 Version message .................................... 26
- 4.3.2 Stats message ...................................... 27
- 4.3.3 Links message ...................................... 28
- 4.3.4 Time message ....................................... 29
- 4.3.5 Connect message .................................... 29
- 4.3.6 Trace message ...................................... 30
- 4.3.7 Admin message ...................................... 31
- 4.3.8 Info message ....................................... 31
- 4.4 Sending messages ........................................ 32
- 4.4.1 Private messages ................................... 32
- 4.4.2 Notice messages .................................... 33
- 4.5 User-based queries ...................................... 33
- 4.5.1 Who query .......................................... 33
- 4.5.2 Whois query ........................................ 34
- 4.5.3 Whowas message ..................................... 35
- 4.6 Miscellaneous messages .................................. 35
- 4.6.1 Kill message ....................................... 36
- 4.6.2 Ping message ....................................... 37
- 4.6.3 Pong message ....................................... 37
- 4.6.4 Error message ...................................... 38
- 5. OPTIONAL MESSAGES ........................................... 38
- 5.1 Away message ............................................ 38
- 5.2 Rehash command .......................................... 39
- 5.3 Restart command ......................................... 39
-
-
-
-Oikarinen & Reed [Page 2]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- 5.4 Summon message .......................................... 40
- 5.5 Users message ........................................... 40
- 5.6 Operwall command ........................................ 41
- 5.7 Userhost message ........................................ 42
- 5.8 Ison message ............................................ 42
- 6. REPLIES ..................................................... 43
- 6.1 Error Replies ........................................... 43
- 6.2 Command responses ....................................... 48
- 6.3 Reserved numerics ....................................... 56
- 7. Client and server authentication ............................ 56
- 8. Current Implementations Details ............................. 56
- 8.1 Network protocol: TCP ................................... 57
- 8.1.1 Support of Unix sockets ............................ 57
- 8.2 Command Parsing ......................................... 57
- 8.3 Message delivery ........................................ 57
- 8.4 Connection 'Liveness' ................................... 58
- 8.5 Establishing a server-client connection ................. 58
- 8.6 Establishing a server-server connection ................. 58
- 8.6.1 State information exchange when connecting ......... 59
- 8.7 Terminating server-client connections ................... 59
- 8.8 Terminating server-server connections ................... 59
- 8.9 Tracking nickname changes ............................... 60
- 8.10 Flood control of clients ............................... 60
- 8.11 Non-blocking lookups ................................... 61
- 8.11.1 Hostname (DNS) lookups ............................ 61
- 8.11.2 Username (Ident) lookups .......................... 61
- 8.12 Configuration file ..................................... 61
- 8.12.1 Allowing clients to connect ....................... 62
- 8.12.2 Operators ......................................... 62
- 8.12.3 Allowing servers to connect ....................... 62
- 8.12.4 Administrivia ..................................... 63
- 8.13 Channel membership ..................................... 63
- 9. Current problems ............................................ 63
- 9.1 Scalability ............................................. 63
- 9.2 Labels .................................................. 63
- 9.2.1 Nicknames .......................................... 63
- 9.2.2 Channels ........................................... 64
- 9.2.3 Servers ............................................ 64
- 9.3 Algorithms .............................................. 64
- 10. Support and availability ................................... 64
- 11. Security Considerations .................................... 65
- 12. Authors' Addresses ......................................... 65
-
-
-
-
-
-
-
-
-
-Oikarinen & Reed [Page 3]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-1. INTRODUCTION
-
- The IRC (Internet Relay Chat) protocol has been designed over a
- number of years for use with text based conferencing. This document
- describes the current IRC protocol.
-
- The IRC protocol has been developed on systems using the TCP/IP
- network protocol, although there is no requirement that this remain
- the only sphere in which it operates.
-
- IRC itself is a teleconferencing system, which (through the use of
- the client-server model) is well-suited to running on many machines
- in a distributed fashion. A typical setup involves a single process
- (the server) forming a central point for clients (or other servers)
- to connect to, performing the required message delivery/multiplexing
- and other functions.
-
-1.1 Servers
-
- The server forms the backbone of IRC, providing a point to which
- clients may connect to to talk to each other, and a point for other
- servers to connect to, forming an IRC network. The only network
- configuration allowed for IRC servers is that of a spanning tree [see
- Fig. 1] where each server acts as a central node for the rest of the
- net it sees.
-
-
- [ Server 15 ] [ Server 13 ] [ Server 14]
- / \ /
- / \ /
- [ Server 11 ] ------ [ Server 1 ] [ Server 12]
- / \ /
- / \ /
- [ Server 2 ] [ Server 3 ]
- / \ \
- / \ \
- [ Server 4 ] [ Server 5 ] [ Server 6 ]
- / | \ /
- / | \ /
- / | \____ /
- / | \ /
- [ Server 7 ] [ Server 8 ] [ Server 9 ] [ Server 10 ]
-
- :
- [ etc. ]
- :
-
- [ Fig. 1. Format of IRC server network ]
-
-
-
-Oikarinen & Reed [Page 4]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-1.2 Clients
-
- A client is anything connecting to a server that is not another
- server. Each client is distinguished from other clients by a unique
- nickname having a maximum length of nine (9) characters. See the
- protocol grammar rules for what may and may not be used in a
- nickname. In addition to the nickname, all servers must have the
- following information about all clients: the real name of the host
- that the client is running on, the username of the client on that
- host, and the server to which the client is connected.
-
-1.2.1 Operators
-
- To allow a reasonable amount of order to be kept within the IRC
- network, a special class of clients (operators) is allowed to perform
- general maintenance functions on the network. Although the powers
- granted to an operator can be considered as 'dangerous', they are
- nonetheless required. Operators should be able to perform basic
- network tasks such as disconnecting and reconnecting servers as
- needed to prevent long-term use of bad network routing. In
- recognition of this need, the protocol discussed herein provides for
- operators only to be able to perform such functions. See sections
- 4.1.7 (SQUIT) and 4.3.5 (CONNECT).
-
- A more controversial power of operators is the ability to remove a
- user from the connected network by 'force', i.e. operators are able
- to close the connection between any client and server. The
- justification for this is delicate since its abuse is both
- destructive and annoying. For further details on this type of
- action, see section 4.6.1 (KILL).
-
-1.3 Channels
-
- A channel is a named group of one or more clients which will all
- receive messages addressed to that channel. The channel is created
- implicitly when the first client joins it, and the channel ceases to
- exist when the last client leaves it. While channel exists, any
- client can reference the channel using the name of the channel.
-
- Channels names are strings (beginning with a '&' or '#' character) of
- length up to 200 characters. Apart from the the requirement that the
- first character being either '&' or '#'; the only restriction on a
- channel name is that it may not contain any spaces (' '), a control G
- (^G or ASCII 7), or a comma (',' which is used as a list item
- separator by the protocol).
-
- There are two types of channels allowed by this protocol. One is a
- distributed channel which is known to all the servers that are
-
-
-
-Oikarinen & Reed [Page 5]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- connected to the network. These channels are marked by the first
- character being a only clients on the server where it exists may join
- it. These are distinguished by a leading '&' character. On top of
- these two types, there are the various channel modes available to
- alter the characteristics of individual channels. See section 4.2.3
- (MODE command) for more details on this.
-
- To create a new channel or become part of an existing channel, a user
- is required to JOIN the channel. If the channel doesn't exist prior
- to joining, the channel is created and the creating user becomes a
- channel operator. If the channel already exists, whether or not your
- request to JOIN that channel is honoured depends on the current modes
- of the channel. For example, if the channel is invite-only, (+i),
- then you may only join if invited. As part of the protocol, a user
- may be a part of several channels at once, but a limit of ten (10)
- channels is recommended as being ample for both experienced and
- novice users. See section 8.13 for more information on this.
-
- If the IRC network becomes disjoint because of a split between two
- servers, the channel on each side is only composed of those clients
- which are connected to servers on the respective sides of the split,
- possibly ceasing to exist on one side of the split. When the split
- is healed, the connecting servers announce to each other who they
- think is in each channel and the mode of that channel. If the
- channel exists on both sides, the JOINs and MODEs are interpreted in
- an inclusive manner so that both sides of the new connection will
- agree about which clients are in the channel and what modes the
- channel has.
-
-1.3.1 Channel Operators
-
- The channel operator (also referred to as a "chop" or "chanop") on a
- given channel is considered to 'own' that channel. In recognition of
- this status, channel operators are endowed with certain powers which
- enable them to keep control and some sort of sanity in their channel.
- As an owner of a channel, a channel operator is not required to have
- reasons for their actions, although if their actions are generally
- antisocial or otherwise abusive, it might be reasonable to ask an IRC
- operator to intervene, or for the usersjust leave and go elsewhere
- and form their own channel.
-
- The commands which may only be used by channel operators are:
-
- KICK - Eject a client from the channel
- MODE - Change the channel's mode
- INVITE - Invite a client to an invite-only channel (mode +i)
- TOPIC - Change the channel topic in a mode +t channel
-
-
-
-
-Oikarinen & Reed [Page 6]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- A channel operator is identified by the '@' symbol next to their
- nickname whenever it is associated with a channel (ie replies to the
- NAMES, WHO and WHOIS commands).
-
-2. The IRC Specification
-
-2.1 Overview
-
- The protocol as described herein is for use both with server to
- server and client to server connections. There are, however, more
- restrictions on client connections (which are considered to be
- untrustworthy) than on server connections.
-
-2.2 Character codes
-
- No specific character set is specified. The protocol is based on a a
- set of codes which are composed of eight (8) bits, making up an
- octet. Each message may be composed of any number of these octets;
- however, some octet values are used for control codes which act as
- message delimiters.
-
- Regardless of being an 8-bit protocol, the delimiters and keywords
- are such that protocol is mostly usable from USASCII terminal and a
- telnet connection.
-
- Because of IRC's scandanavian origin, the characters {}| are
- considered to be the lower case equivalents of the characters []\,
- respectively. This is a critical issue when determining the
- equivalence of two nicknames.
-
-2.3 Messages
-
- Servers and clients send eachother messages which may or may not
- generate a reply. If the message contains a valid command, as
- described in later sections, the client should expect a reply as
- specified but it is not advised to wait forever for the reply; client
- to server and server to server communication is essentially
- asynchronous in nature.
-
- Each IRC message may consist of up to three main parts: the prefix
- (optional), the command, and the command parameters (of which there
- may be up to 15). The prefix, command, and all parameters are
- separated by one (or more) ASCII space character(s) (0x20).
-
- The presence of a prefix is indicated with a single leading ASCII
- colon character (':', 0x3b), which must be the first character of the
- message itself. There must be no gap (whitespace) between the colon
- and the prefix. The prefix is used by servers to indicate the true
-
-
-
-Oikarinen & Reed [Page 7]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- origin of the message. If the prefix is missing from the message, it
- is assumed to have originated from the connection from which it was
- received. Clients should not use prefix when sending a message from
- themselves; if they use a prefix, the only valid prefix is the
- registered nickname associated with the client. If the source
- identified by the prefix cannot be found from the server's internal
- database, or if the source is registered from a different link than
- from which the message arrived, the server must ignore the message
- silently.
-
- The command must either be a valid IRC command or a three (3) digit
- number represented in ASCII text.
-
- IRC messages are always lines of characters terminated with a CR-LF
- (Carriage Return - Line Feed) pair, and these messages shall not
- exceed 512 characters in length, counting all characters including
- the trailing CR-LF. Thus, there are 510 characters maximum allowed
- for the command and its parameters. There is no provision for
- continuation message lines. See section 7 for more details about
- current implementations.
-
-2.3.1 Message format in 'pseudo' BNF
-
- The protocol messages must be extracted from the contiguous stream of
- octets. The current solution is to designate two characters, CR and
- LF, as message separators. Empty messages are silently ignored,
- which permits use of the sequence CR-LF between messages
- without extra problems.
-
- The extracted message is parsed into the components <prefix>,
- <command> and list of parameters matched either by <middle> or
- <trailing> components.
-
- The BNF representation for this is:
-
-
-<message> ::= [':' <prefix> <SPACE> ] <command> <params> <crlf>
-<prefix> ::= <servername> | <nick> [ '!' <user> ] [ '@' <host> ]
-<command> ::= <letter> { <letter> } | <number> <number> <number>
-<SPACE> ::= ' ' { ' ' }
-<params> ::= <SPACE> [ ':' <trailing> | <middle> <params> ]
-
-<middle> ::= <Any *non-empty* sequence of octets not including SPACE
- or NUL or CR or LF, the first of which may not be ':'>
-<trailing> ::= <Any, possibly *empty*, sequence of octets not including
- NUL or CR or LF>
-
-<crlf> ::= CR LF
-
-
-
-Oikarinen & Reed [Page 8]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-NOTES:
-
- 1) <SPACE> is consists only of SPACE character(s) (0x20).
- Specially notice that TABULATION, and all other control
- characters are considered NON-WHITE-SPACE.
-
- 2) After extracting the parameter list, all parameters are equal,
- whether matched by <middle> or <trailing>. <Trailing> is just
- a syntactic trick to allow SPACE within parameter.
-
- 3) The fact that CR and LF cannot appear in parameter strings is
- just artifact of the message framing. This might change later.
-
- 4) The NUL character is not special in message framing, and
- basically could end up inside a parameter, but as it would
- cause extra complexities in normal C string handling. Therefore
- NUL is not allowed within messages.
-
- 5) The last parameter may be an empty string.
-
- 6) Use of the extended prefix (['!' <user> ] ['@' <host> ]) must
- not be used in server to server communications and is only
- intended for server to client messages in order to provide
- clients with more useful information about who a message is
- from without the need for additional queries.
-
- Most protocol messages specify additional semantics and syntax for
- the extracted parameter strings dictated by their position in the
- list. For example, many server commands will assume that the first
- parameter after the command is the list of targets, which can be
- described with:
-
- <target> ::= <to> [ "," <target> ]
- <to> ::= <channel> | <user> '@' <servername> | <nick> | <mask>
- <channel> ::= ('#' | '&') <chstring>
- <servername> ::= <host>
- <host> ::= see RFC 952 [DNS:4] for details on allowed hostnames
- <nick> ::= <letter> { <letter> | <number> | <special> }
- <mask> ::= ('#' | '$') <chstring>
- <chstring> ::= <any 8bit code except SPACE, BELL, NUL, CR, LF and
- comma (',')>
-
- Other parameter syntaxes are:
-
- <user> ::= <nonwhite> { <nonwhite> }
- <letter> ::= 'a' ... 'z' | 'A' ... 'Z'
- <number> ::= '0' ... '9'
- <special> ::= '-' | '[' | ']' | '\' | '`' | '^' | '{' | '}'
-
-
-
-Oikarinen & Reed [Page 9]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- <nonwhite> ::= <any 8bit code except SPACE (0x20), NUL (0x0), CR
- (0xd), and LF (0xa)>
-
-2.4 Numeric replies
-
- Most of the messages sent to the server generate a reply of some
- sort. The most common reply is the numeric reply, used for both
- errors and normal replies. The numeric reply must be sent as one
- message consisting of the sender prefix, the three digit numeric, and
- the target of the reply. A numeric reply is not allowed to originate
- from a client; any such messages received by a server are silently
- dropped. In all other respects, a numeric reply is just like a normal
- message, except that the keyword is made up of 3 numeric digits
- rather than a string of letters. A list of different replies is
- supplied in section 6.
-
-3. IRC Concepts.
-
- This section is devoted to describing the actual concepts behind the
- organization of the IRC protocol and how the current
- implementations deliver different classes of messages.
-
-
-
- 1--\
- A D---4
- 2--/ \ /
- B----C
- / \
- 3 E
-
- Servers: A, B, C, D, E Clients: 1, 2, 3, 4
-
- [ Fig. 2. Sample small IRC network ]
-
-3.1 One-to-one communication
-
- Communication on a one-to-one basis is usually only performed by
- clients, since most server-server traffic is not a result of servers
- talking only to each other. To provide a secure means for clients to
- talk to each other, it is required that all servers be able to send a
- message in exactly one direction along the spanning tree in order to
- reach any client. The path of a message being delivered is the
- shortest path between any two points on the spanning tree.
-
- The following examples all refer to Figure 2 above.
-
-
-
-
-
-Oikarinen & Reed [Page 10]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-Example 1:
- A message between clients 1 and 2 is only seen by server A, which
- sends it straight to client 2.
-
-Example 2:
- A message between clients 1 and 3 is seen by servers A & B, and
- client 3. No other clients or servers are allowed see the message.
-
-Example 3:
- A message between clients 2 and 4 is seen by servers A, B, C & D
- and client 4 only.
-
-3.2 One-to-many
-
- The main goal of IRC is to provide a forum which allows easy and
- efficient conferencing (one to many conversations). IRC offers
- several means to achieve this, each serving its own purpose.
-
-3.2.1 To a list
-
- The least efficient style of one-to-many conversation is through
- clients talking to a 'list' of users. How this is done is almost
- self explanatory: the client gives a list of destinations to which
- the message is to be delivered and the server breaks it up and
- dispatches a separate copy of the message to each given destination.
- This isn't as efficient as using a group since the destination list
- is broken up and the dispatch sent without checking to make sure
- duplicates aren't sent down each path.
-
-3.2.2 To a group (channel)
-
- In IRC the channel has a role equivalent to that of the multicast
- group; their existence is dynamic (coming and going as people join
- and leave channels) and the actual conversation carried out on a
- channel is only sent to servers which are supporting users on a given
- channel. If there are multiple users on a server in the same
- channel, the message text is sent only once to that server and then
- sent to each client on the channel. This action is then repeated for
- each client-server combination until the original message has fanned
- out and reached each member of the channel.
-
- The following examples all refer to Figure 2.
-
-Example 4:
- Any channel with 1 client in it. Messages to the channel go to the
- server and then nowhere else.
-
-
-
-
-
-Oikarinen & Reed [Page 11]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-Example 5:
- 2 clients in a channel. All messages traverse a path as if they
- were private messages between the two clients outside a channel.
-
-Example 6:
- Clients 1, 2 and 3 in a channel. All messages to the channel are
- sent to all clients and only those servers which must be traversed
- by the message if it were a private message to a single client. If
- client 1 sends a message, it goes back to client 2 and then via
- server B to client 3.
-
-3.2.3 To a host/server mask
-
- To provide IRC operators with some mechanism to send messages to a
- large body of related users, host and server mask messages are
- provided. These messages are sent to users whose host or server
- information match that of the mask. The messages are only sent to
- locations where users are, in a fashion similar to that of channels.
-
-3.3 One-to-all
-
- The one-to-all type of message is better described as a broadcast
- message, sent to all clients or servers or both. On a large network
- of users and servers, a single message can result in a lot of traffic
- being sent over the network in an effort to reach all of the desired
- destinations.
-
- For some messages, there is no option but to broadcast it to all
- servers so that the state information held by each server is
- reasonably consistent between servers.
-
-3.3.1 Client-to-Client
-
- There is no class of message which, from a single message, results in
- a message being sent to every other client.
-
-3.3.2 Client-to-Server
-
- Most of the commands which result in a change of state information
- (such as channel membership, channel mode, user status, etc) must be
- sent to all servers by default, and this distribution may not be
- changed by the client.
-
-3.3.3 Server-to-Server.
-
- While most messages between servers are distributed to all 'other'
- servers, this is only required for any message that affects either a
- user, channel or server. Since these are the basic items found in
-
-
-
-Oikarinen & Reed [Page 12]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- IRC, nearly all messages originating from a server are broadcast to
- all other connected servers.
-
-4. Message details
-
- On the following pages are descriptions of each message recognized by
- the IRC server and client. All commands described in this section
- must be implemented by any server for this protocol.
-
- Where the reply ERR_NOSUCHSERVER is listed, it means that the
- <server> parameter could not be found. The server must not send any
- other replies after this for that command.
-
- The server to which a client is connected is required to parse the
- complete message, returning any appropriate errors. If the server
- encounters a fatal error while parsing a message, an error must be
- sent back to the client and the parsing terminated. A fatal error
- may be considered to be incorrect command, a destination which is
- otherwise unknown to the server (server, nick or channel names fit
- this category), not enough parameters or incorrect privileges.
-
- If a full set of parameters is presented, then each must be checked
- for validity and appropriate responses sent back to the client. In
- the case of messages which use parameter lists using the comma as an
- item separator, a reply must be sent for each item.
-
- In the examples below, some messages appear using the full format:
-
- :Name COMMAND parameter list
-
- Such examples represent a message from "Name" in transit between
- servers, where it is essential to include the name of the original
- sender of the message so remote servers may send back a reply along
- the correct path.
-
-4.1 Connection Registration
-
- The commands described here are used to register a connection with an
- IRC server as either a user or a server as well as correctly
- disconnect.
-
- A "PASS" command is not required for either client or server
- connection to be registered, but it must precede the server message
- or the latter of the NICK/USER combination. It is strongly
- recommended that all server connections have a password in order to
- give some level of security to the actual connections. The
- recommended order for a client to register is as follows:
-
-
-
-
-Oikarinen & Reed [Page 13]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- 1. Pass message
- 2. Nick message
- 3. User message
-
-4.1.1 Password message
-
-
- Command: PASS
- Parameters: <password>
-
- The PASS command is used to set a 'connection password'. The
- password can and must be set before any attempt to register the
- connection is made. Currently this requires that clients send a PASS
- command before sending the NICK/USER combination and servers *must*
- send a PASS command before any SERVER command. The password supplied
- must match the one contained in the C/N lines (for servers) or I
- lines (for clients). It is possible to send multiple PASS commands
- before registering but only the last one sent is used for
- verification and it may not be changed once registered. Numeric
- Replies:
-
- ERR_NEEDMOREPARAMS ERR_ALREADYREGISTRED
-
- Example:
-
- PASS secretpasswordhere
-
-4.1.2 Nick message
-
- Command: NICK
- Parameters: <nickname> [ <hopcount> ]
-
- NICK message is used to give user a nickname or change the previous
- one. The <hopcount> parameter is only used by servers to indicate
- how far away a nick is from its home server. A local connection has
- a hopcount of 0. If supplied by a client, it must be ignored.
-
- If a NICK message arrives at a server which already knows about an
- identical nickname for another client, a nickname collision occurs.
- As a result of a nickname collision, all instances of the nickname
- are removed from the server's database, and a KILL command is issued
- to remove the nickname from all other server's database. If the NICK
- message causing the collision was a nickname change, then the
- original (old) nick must be removed as well.
-
- If the server recieves an identical NICK from a client which is
- directly connected, it may issue an ERR_NICKCOLLISION to the local
- client, drop the NICK command, and not generate any kills.
-
-
-
-Oikarinen & Reed [Page 14]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- Numeric Replies:
-
- ERR_NONICKNAMEGIVEN ERR_ERRONEUSNICKNAME
- ERR_NICKNAMEINUSE ERR_NICKCOLLISION
-
- Example:
-
- NICK Wiz ; Introducing new nick "Wiz".
-
- :WiZ NICK Kilroy ; WiZ changed his nickname to Kilroy.
-
-4.1.3 User message
-
- Command: USER
- Parameters: <username> <hostname> <servername> <realname>
-
- The USER message is used at the beginning of connection to specify
- the username, hostname, servername and realname of s new user. It is
- also used in communication between servers to indicate new user
- arriving on IRC, since only after both USER and NICK have been
- received from a client does a user become registered.
-
- Between servers USER must to be prefixed with client's NICKname.
- Note that hostname and servername are normally ignored by the IRC
- server when the USER command comes from a directly connected client
- (for security reasons), but they are used in server to server
- communication. This means that a NICK must always be sent to a
- remote server when a new user is being introduced to the rest of the
- network before the accompanying USER is sent.
-
- It must be noted that realname parameter must be the last parameter,
- because it may contain space characters and must be prefixed with a
- colon (':') to make sure this is recognised as such.
-
- Since it is easy for a client to lie about its username by relying
- solely on the USER message, the use of an "Identity Server" is
- recommended. If the host which a user connects from has such a
- server enabled the username is set to that as in the reply from the
- "Identity Server".
-
- Numeric Replies:
-
- ERR_NEEDMOREPARAMS ERR_ALREADYREGISTRED
-
- Examples:
-
-
- USER guest tolmoon tolsun :Ronnie Reagan
-
-
-
-Oikarinen & Reed [Page 15]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- ; User registering themselves with a
- username of "guest" and real name
- "Ronnie Reagan".
-
-
- :testnick USER guest tolmoon tolsun :Ronnie Reagan
- ; message between servers with the
- nickname for which the USER command
- belongs to
-
-4.1.4 Server message
-
- Command: SERVER
- Parameters: <servername> <hopcount> <info>
-
- The server message is used to tell a server that the other end of a
- new connection is a server. This message is also used to pass server
- data over whole net. When a new server is connected to net,
- information about it be broadcast to the whole network. <hopcount>
- is used to give all servers some internal information on how far away
- all servers are. With a full server list, it would be possible to
- construct a map of the entire server tree, but hostmasks prevent this
- from being done.
-
- The SERVER message must only be accepted from either (a) a connection
- which is yet to be registered and is attempting to register as a
- server, or (b) an existing connection to another server, in which
- case the SERVER message is introducing a new server behind that
- server.
-
- Most errors that occur with the receipt of a SERVER command result in
- the connection being terminated by the destination host (target
- SERVER). Error replies are usually sent using the "ERROR" command
- rather than the numeric since the ERROR command has several useful
- properties which make it useful here.
-
- If a SERVER message is parsed and attempts to introduce a server
- which is already known to the receiving server, the connection from
- which that message must be closed (following the correct procedures),
- since a duplicate route to a server has formed and the acyclic nature
- of the IRC tree broken.
-
- Numeric Replies:
-
- ERR_ALREADYREGISTRED
-
- Example:
-
-
-
-
-Oikarinen & Reed [Page 16]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-SERVER test.oulu.fi 1 :[tolsun.oulu.fi] Experimental server
- ; New server test.oulu.fi introducing
- itself and attempting to register. The
- name in []'s is the hostname for the
- host running test.oulu.fi.
-
-
-:tolsun.oulu.fi SERVER csd.bu.edu 5 :BU Central Server
- ; Server tolsun.oulu.fi is our uplink
- for csd.bu.edu which is 5 hops away.
-
-4.1.5 Oper
-
- Command: OPER
- Parameters: <user> <password>
-
- OPER message is used by a normal user to obtain operator privileges.
- The combination of <user> and <password> are required to gain
- Operator privileges.
-
- If the client sending the OPER command supplies the correct password
- for the given user, the server then informs the rest of the network
- of the new operator by issuing a "MODE +o" for the clients nickname.
-
- The OPER message is client-server only.
-
- Numeric Replies:
-
- ERR_NEEDMOREPARAMS RPL_YOUREOPER
- ERR_NOOPERHOST ERR_PASSWDMISMATCH
-
- Example:
-
- OPER foo bar ; Attempt to register as an operator
- using a username of "foo" and "bar" as
- the password.
-
-4.1.6 Quit
-
- Command: QUIT
- Parameters: [<Quit message>]
-
- A client session is ended with a quit message. The server must close
- the connection to a client which sends a QUIT message. If a "Quit
- Message" is given, this will be sent instead of the default message,
- the nickname.
-
- When netsplits (disconnecting of two servers) occur, the quit message
-
-
-
-Oikarinen & Reed [Page 17]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- is composed of the names of two servers involved, separated by a
- space. The first name is that of the server which is still connected
- and the second name is that of the server that has become
- disconnected.
-
- If, for some other reason, a client connection is closed without the
- client issuing a QUIT command (e.g. client dies and EOF occurs
- on socket), the server is required to fill in the quit message with
- some sort of message reflecting the nature of the event which
- caused it to happen.
-
- Numeric Replies:
-
- None.
-
- Examples:
-
- QUIT :Gone to have lunch ; Preferred message format.
-
-4.1.7 Server quit message
-
- Command: SQUIT
- Parameters: <server> <comment>
-
- The SQUIT message is needed to tell about quitting or dead servers.
- If a server wishes to break the connection to another server it must
- send a SQUIT message to the other server, using the the name of the
- other server as the server parameter, which then closes its
- connection to the quitting server.
-
- This command is also available operators to help keep a network of
- IRC servers connected in an orderly fashion. Operators may also
- issue an SQUIT message for a remote server connection. In this case,
- the SQUIT must be parsed by each server inbetween the operator and
- the remote server, updating the view of the network held by each
- server as explained below.
-
- The <comment> should be supplied by all operators who execute a SQUIT
- for a remote server (that is not connected to the server they are
- currently on) so that other operators are aware for the reason of
- this action. The <comment> is also filled in by servers which may
- place an error or similar message here.
-
- Both of the servers which are on either side of the connection being
- closed are required to to send out a SQUIT message (to all its other
- server connections) for all other servers which are considered to be
- behind that link.
-
-
-
-
-Oikarinen & Reed [Page 18]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- Similarly, a QUIT message must be sent to the other connected servers
- rest of the network on behalf of all clients behind that link. In
- addition to this, all channel members of a channel which lost a
- member due to the split must be sent a QUIT message.
-
- If a server connection is terminated prematurely (e.g. the server on
- the other end of the link died), the server which detects
- this disconnection is required to inform the rest of the network
- that the connection has closed and fill in the comment field
- with something appropriate.
-
- Numeric replies:
-
- ERR_NOPRIVILEGES ERR_NOSUCHSERVER
-
- Example:
-
- SQUIT tolsun.oulu.fi :Bad Link ? ; the server link tolson.oulu.fi has
- been terminated because of "Bad Link".
-
- :Trillian SQUIT cm22.eng.umd.edu :Server out of control
- ; message from Trillian to disconnect
- "cm22.eng.umd.edu" from the net
- because "Server out of control".
-
-4.2 Channel operations
-
- This group of messages is concerned with manipulating channels, their
- properties (channel modes), and their contents (typically clients).
- In implementing these, a number of race conditions are inevitable
- when clients at opposing ends of a network send commands which will
- ultimately clash. It is also required that servers keep a nickname
- history to ensure that wherever a <nick> parameter is given, the
- server check its history in case it has recently been changed.
-
-4.2.1 Join message
-
- Command: JOIN
- Parameters: <channel>{,<channel>} [<key>{,<key>}]
-
- The JOIN command is used by client to start listening a specific
- channel. Whether or not a client is allowed to join a channel is
- checked only by the server the client is connected to; all other
- servers automatically add the user to the channel when it is received
- from other servers. The conditions which affect this are as follows:
-
- 1. the user must be invited if the channel is invite-only;
-
-
-
-
-Oikarinen & Reed [Page 19]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- 2. the user's nick/username/hostname must not match any
- active bans;
-
- 3. the correct key (password) must be given if it is set.
-
- These are discussed in more detail under the MODE command (see
- section 4.2.3 for more details).
-
- Once a user has joined a channel, they receive notice about all
- commands their server receives which affect the channel. This
- includes MODE, KICK, PART, QUIT and of course PRIVMSG/NOTICE. The
- JOIN command needs to be broadcast to all servers so that each server
- knows where to find the users who are on the channel. This allows
- optimal delivery of PRIVMSG/NOTICE messages to the channel.
-
- If a JOIN is successful, the user is then sent the channel's topic
- (using RPL_TOPIC) and the list of users who are on the channel (using
- RPL_NAMREPLY), which must include the user joining.
-
- Numeric Replies:
-
- ERR_NEEDMOREPARAMS ERR_BANNEDFROMCHAN
- ERR_INVITEONLYCHAN ERR_BADCHANNELKEY
- ERR_CHANNELISFULL ERR_BADCHANMASK
- ERR_NOSUCHCHANNEL ERR_TOOMANYCHANNELS
- RPL_TOPIC
-
- Examples:
-
- JOIN #foobar ; join channel #foobar.
-
- JOIN &foo fubar ; join channel &foo using key "fubar".
-
- JOIN #foo,&bar fubar ; join channel #foo using key "fubar"
- and &bar using no key.
-
- JOIN #foo,#bar fubar,foobar ; join channel #foo using key "fubar".
- and channel #bar using key "foobar".
-
- JOIN #foo,#bar ; join channels #foo and #bar.
-
- :WiZ JOIN #Twilight_zone ; JOIN message from WiZ
-
-4.2.2 Part message
-
- Command: PART
- Parameters: <channel>{,<channel>}
-
-
-
-
-Oikarinen & Reed [Page 20]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- The PART message causes the client sending the message to be removed
- from the list of active users for all given channels listed in the
- parameter string.
-
- Numeric Replies:
-
- ERR_NEEDMOREPARAMS ERR_NOSUCHCHANNEL
- ERR_NOTONCHANNEL
-
- Examples:
-
- PART #twilight_zone ; leave channel "#twilight_zone"
-
- PART #oz-ops,&group5 ; leave both channels "&group5" and
- "#oz-ops".
-
-4.2.3 Mode message
-
- Command: MODE
-
- The MODE command is a dual-purpose command in IRC. It allows both
- usernames and channels to have their mode changed. The rationale for
- this choice is that one day nicknames will be obsolete and the
- equivalent property will be the channel.
-
- When parsing MODE messages, it is recommended that the entire message
- be parsed first and then the changes which resulted then passed on.
-
-4.2.3.1 Channel modes
-
- Parameters: <channel> {[+|-]|o|p|s|i|t|n|b|v} [<limit>] [<user>]
- [<ban mask>]
-
- The MODE command is provided so that channel operators may change the
- characteristics of `their' channel. It is also required that servers
- be able to change channel modes so that channel operators may be
- created.
-
- The various modes available for channels are as follows:
-
- o - give/take channel operator privileges;
- p - private channel flag;
- s - secret channel flag;
- i - invite-only channel flag;
- t - topic settable by channel operator only flag;
- n - no messages to channel from clients on the outside;
- m - moderated channel;
- l - set the user limit to channel;
-
-
-
-Oikarinen & Reed [Page 21]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- b - set a ban mask to keep users out;
- v - give/take the ability to speak on a moderated channel;
- k - set a channel key (password).
-
- When using the 'o' and 'b' options, a restriction on a total of three
- per mode command has been imposed. That is, any combination of 'o'
- and
-
-4.2.3.2 User modes
-
- Parameters: <nickname> {[+|-]|i|w|s|o}
-
- The user MODEs are typically changes which affect either how the
- client is seen by others or what 'extra' messages the client is sent.
- A user MODE command may only be accepted if both the sender of the
- message and the nickname given as a parameter are both the same.
-
- The available modes are as follows:
-
- i - marks a users as invisible;
- s - marks a user for receipt of server notices;
- w - user receives wallops;
- o - operator flag.
-
- Additional modes may be available later on.
-
- If a user attempts to make themselves an operator using the "+o"
- flag, the attempt should be ignored. There is no restriction,
- however, on anyone `deopping' themselves (using "-o"). Numeric
- Replies:
-
- ERR_NEEDMOREPARAMS RPL_CHANNELMODEIS
- ERR_CHANOPRIVSNEEDED ERR_NOSUCHNICK
- ERR_NOTONCHANNEL ERR_KEYSET
- RPL_BANLIST RPL_ENDOFBANLIST
- ERR_UNKNOWNMODE ERR_NOSUCHCHANNEL
-
- ERR_USERSDONTMATCH RPL_UMODEIS
- ERR_UMODEUNKNOWNFLAG
-
- Examples:
-
- Use of Channel Modes:
-
-MODE #Finnish +im ; Makes #Finnish channel moderated and
- 'invite-only'.
-
-MODE #Finnish +o Kilroy ; Gives 'chanop' privileges to Kilroy on
-
-
-
-Oikarinen & Reed [Page 22]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- channel #Finnish.
-
-MODE #Finnish +v Wiz ; Allow WiZ to speak on #Finnish.
-
-MODE #Fins -s ; Removes 'secret' flag from channel
- #Fins.
-
-MODE #42 +k oulu ; Set the channel key to "oulu".
-
-MODE #eu-opers +l 10 ; Set the limit for the number of users
- on channel to 10.
-
-MODE &oulu +b ; list ban masks set for channel.
-
-MODE &oulu +b *!*@* ; prevent all users from joining.
-
-MODE &oulu +b *!*@*.edu ; prevent any user from a hostname
- matching *.edu from joining.
-
- Use of user Modes:
-
-:MODE WiZ -w ; turns reception of WALLOPS messages
- off for WiZ.
-
-:Angel MODE Angel +i ; Message from Angel to make themselves
- invisible.
-
-MODE WiZ -o ; WiZ 'deopping' (removing operator
- status). The plain reverse of this
- command ("MODE WiZ +o") must not be
- allowed from users since would bypass
- the OPER command.
-
-4.2.4 Topic message
-
- Command: TOPIC
- Parameters: <channel> [<topic>]
-
- The TOPIC message is used to change or view the topic of a channel.
- The topic for channel <channel> is returned if there is no <topic>
- given. If the <topic> parameter is present, the topic for that
- channel will be changed, if the channel modes permit this action.
-
- Numeric Replies:
-
- ERR_NEEDMOREPARAMS ERR_NOTONCHANNEL
- RPL_NOTOPIC RPL_TOPIC
- ERR_CHANOPRIVSNEEDED
-
-
-
-Oikarinen & Reed [Page 23]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- Examples:
-
- :Wiz TOPIC #test :New topic ;User Wiz setting the topic.
-
- TOPIC #test :another topic ;set the topic on #test to "another
- topic".
-
- TOPIC #test ; check the topic for #test.
-
-4.2.5 Names message
-
- Command: NAMES
- Parameters: [<channel>{,<channel>}]
-
- By using the NAMES command, a user can list all nicknames that are
- visible to them on any channel that they can see. Channel names
- which they can see are those which aren't private (+p) or secret (+s)
- or those which they are actually on. The <channel> parameter
- specifies which channel(s) to return information about if valid.
- There is no error reply for bad channel names.
-
- If no <channel> parameter is given, a list of all channels and their
- occupants is returned. At the end of this list, a list of users who
- are visible but either not on any channel or not on a visible channel
- are listed as being on `channel' "*".
-
- Numerics:
-
- RPL_NAMREPLY RPL_ENDOFNAMES
-
- Examples:
-
- NAMES #twilight_zone,#42 ; list visible users on #twilight_zone
- and #42 if the channels are visible to
- you.
-
- NAMES ; list all visible channels and users
-
-4.2.6 List message
-
- Command: LIST
- Parameters: [<channel>{,<channel>} [<server>]]
-
- The list message is used to list channels and their topics. If the
- <channel> parameter is used, only the status of that channel
- is displayed. Private channels are listed (without their
- topics) as channel "Prv" unless the client generating the query is
- actually on that channel. Likewise, secret channels are not listed
-
-
-
-Oikarinen & Reed [Page 24]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- at all unless the client is a member of the channel in question.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER RPL_LISTSTART
- RPL_LIST RPL_LISTEND
-
- Examples:
-
- LIST ; List all channels.
-
- LIST #twilight_zone,#42 ; List channels #twilight_zone and #42
-
-4.2.7 Invite message
-
- Command: INVITE
- Parameters: <nickname> <channel>
-
- The INVITE message is used to invite users to a channel. The
- parameter <nickname> is the nickname of the person to be invited to
- the target channel <channel>. There is no requirement that the
- channel the target user is being invited to must exist or be a valid
- channel. To invite a user to a channel which is invite only (MODE
- +i), the client sending the invite must be recognised as being a
- channel operator on the given channel.
-
- Numeric Replies:
-
- ERR_NEEDMOREPARAMS ERR_NOSUCHNICK
- ERR_NOTONCHANNEL ERR_USERONCHANNEL
- ERR_CHANOPRIVSNEEDED
- RPL_INVITING RPL_AWAY
-
- Examples:
-
- :Angel INVITE Wiz #Dust ; User Angel inviting WiZ to channel
- #Dust
-
- INVITE Wiz #Twilight_Zone ; Command to invite WiZ to
- #Twilight_zone
-
-4.2.8 Kick command
-
- Command: KICK
- Parameters: <channel> <user> [<comment>]
-
- The KICK command can be used to forcibly remove a user from a
- channel. It 'kicks them out' of the channel (forced PART).
-
-
-
-Oikarinen & Reed [Page 25]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- Only a channel operator may kick another user out of a channel.
- Each server that receives a KICK message checks that it is valid
- (ie the sender is actually a channel operator) before removing
- the victim from the channel.
-
- Numeric Replies:
-
- ERR_NEEDMOREPARAMS ERR_NOSUCHCHANNEL
- ERR_BADCHANMASK ERR_CHANOPRIVSNEEDED
- ERR_NOTONCHANNEL
-
- Examples:
-
-KICK &Melbourne Matthew ; Kick Matthew from &Melbourne
-
-KICK #Finnish John :Speaking English
- ; Kick John from #Finnish using
- "Speaking English" as the reason
- (comment).
-
-:WiZ KICK #Finnish John ; KICK message from WiZ to remove John
- from channel #Finnish
-
-NOTE:
- It is possible to extend the KICK command parameters to the
-following:
-
-<channel>{,<channel>} <user>{,<user>} [<comment>]
-
-4.3 Server queries and commands
-
- The server query group of commands has been designed to return
- information about any server which is connected to the network. All
- servers connected must respond to these queries and respond
- correctly. Any invalid response (or lack thereof) must be considered
- a sign of a broken server and it must be disconnected/disabled as
- soon as possible until the situation is remedied.
-
- In these queries, where a parameter appears as "<server>", it will
- usually mean it can be a nickname or a server or a wildcard name of
- some sort. For each parameter, however, only one query and set of
- replies is to be generated.
-
-4.3.1 Version message
-
- Command: VERSION
- Parameters: [<server>]
-
-
-
-
-Oikarinen & Reed [Page 26]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- The VERSION message is used to query the version of the server
- program. An optional parameter <server> is used to query the version
- of the server program which a client is not directly connected to.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER RPL_VERSION
-
- Examples:
-
- :Wiz VERSION *.se ; message from Wiz to check the version
- of a server matching "*.se"
-
- VERSION tolsun.oulu.fi ; check the version of server
- "tolsun.oulu.fi".
-
-4.3.2 Stats message
-
- Command: STATS
- Parameters: [<query> [<server>]]
-
- The stats message is used to query statistics of certain server. If
- <server> parameter is omitted, only the end of stats reply is sent
- back. The implementation of this command is highly dependent on the
- server which replies, although the server must be able to supply
- information as described by the queries below (or similar).
-
- A query may be given by any single letter which is only checked by
- the destination server (if given as the <server> parameter) and is
- otherwise passed on by intermediate servers, ignored and unaltered.
- The following queries are those found in the current IRC
- implementation and provide a large portion of the setup information
- for that server. Although these may not be supported in the same way
- by other versions, all servers should be able to supply a valid reply
- to a STATS query which is consistent with the reply formats currently
- used and the purpose of the query.
-
- The currently supported queries are:
-
- c - returns a list of servers which the server may connect
- to or allow connections from;
- h - returns a list of servers which are either forced to be
- treated as leaves or allowed to act as hubs;
- i - returns a list of hosts which the server allows a client
- to connect from;
- k - returns a list of banned username/hostname combinations
- for that server;
- l - returns a list of the server's connections, showing how
-
-
-
-Oikarinen & Reed [Page 27]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- long each connection has been established and the traffic
- over that connection in bytes and messages for each
- direction;
- m - returns a list of commands supported by the server and
- the usage count for each if the usage count is non zero;
- o - returns a list of hosts from which normal clients may
- become operators;
- y - show Y (Class) lines from server's configuration file;
- u - returns a string showing how long the server has been up.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER
- RPL_STATSCLINE RPL_STATSNLINE
- RPL_STATSILINE RPL_STATSKLINE
- RPL_STATSQLINE RPL_STATSLLINE
- RPL_STATSLINKINFO RPL_STATSUPTIME
- RPL_STATSCOMMANDS RPL_STATSOLINE
- RPL_STATSHLINE RPL_ENDOFSTATS
-
- Examples:
-
-STATS m ; check the command usage for the server
- you are connected to
-
-:Wiz STATS c eff.org ; request by WiZ for C/N line
- information from server eff.org
-
-4.3.3 Links message
-
- Command: LINKS
- Parameters: [[<remote server>] <server mask>]
-
- With LINKS, a user can list all servers which are known by the server
- answering the query. The returned list of servers must match the
- mask, or if no mask is given, the full list is returned.
-
- If <remote server> is given in addition to <server mask>, the LINKS
- command is forwarded to the first server found that matches that name
- (if any), and that server is then required to answer the query.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER
- RPL_LINKS RPL_ENDOFLINKS
-
- Examples:
-
-
-
-
-Oikarinen & Reed [Page 28]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-LINKS *.au ; list all servers which have a name
- that matches *.au;
-
-:WiZ LINKS *.bu.edu *.edu ; LINKS message from WiZ to the first
- server matching *.edu for a list of
- servers matching *.bu.edu.
-
-4.3.4 Time message
-
- Command: TIME
- Parameters: [<server>]
-
- The time message is used to query local time from the specified
- server. If the server parameter is not given, the server handling the
- command must reply to the query.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER RPL_TIME
-
- Examples:
-
- TIME tolsun.oulu.fi ; check the time on the server
- "tolson.oulu.fi"
-
- Angel TIME *.au ; user angel checking the time on a
- server matching "*.au"
-
-4.3.5 Connect message
-
- Command: CONNECT
- Parameters: <target server> [<port> [<remote server>]]
-
- The CONNECT command can be used to force a server to try to establish
- a new connection to another server immediately. CONNECT is a
- privileged command and is to be available only to IRC Operators. If
- a remote server is given then the CONNECT attempt is made by that
- server to <target server> and <port>.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER ERR_NOPRIVILEGES
- ERR_NEEDMOREPARAMS
-
- Examples:
-
-CONNECT tolsun.oulu.fi ; Attempt to connect a server to
- tolsun.oulu.fi
-
-
-
-Oikarinen & Reed [Page 29]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-:WiZ CONNECT eff.org 6667 csd.bu.edu
- ; CONNECT attempt by WiZ to get servers
- eff.org and csd.bu.edu connected on port
- 6667.
-
-4.3.6 Trace message
-
- Command: TRACE
- Parameters: [<server>]
-
- TRACE command is used to find the route to specific server. Each
- server that processes this message must tell the sender about it by
- sending a reply indicating it is a pass-through link, forming a chain
- of replies similar to that gained from using "traceroute". After
- sending this reply back, it must then send the TRACE message to the
- next server until given server is reached. If the <server> parameter
- is omitted, it is recommended that TRACE command send a message to
- the sender telling which servers the current server has direct
- connection to.
-
- If the destination given by "<server>" is an actual server, then the
- destination server is required to report all servers and users which
- are connected to it, although only operators are permitted to see
- users present. If the destination given by <server> is a nickname,
- they only a reply for that nickname is given.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER
-
- If the TRACE message is destined for another server, all intermediate
- servers must return a RPL_TRACELINK reply to indicate that the TRACE
- passed through it and where its going next.
-
- RPL_TRACELINK
- A TRACE reply may be composed of any number of the following numeric
- replies.
-
- RPL_TRACECONNECTING RPL_TRACEHANDSHAKE
- RPL_TRACEUNKNOWN RPL_TRACEOPERATOR
- RPL_TRACEUSER RPL_TRACESERVER
- RPL_TRACESERVICE RPL_TRACENEWTYPE
- RPL_TRACECLASS
-
- Examples:
-
-TRACE *.oulu.fi ; TRACE to a server matching *.oulu.fi
-
-
-
-
-Oikarinen & Reed [Page 30]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-:WiZ TRACE AngelDust ; TRACE issued by WiZ to nick AngelDust
-
-4.3.7 Admin command
-
- Command: ADMIN
- Parameters: [<server>]
-
- The admin message is used to find the name of the administrator of
- the given server, or current server if <server> parameter is omitted.
- Each server must have the ability to forward ADMIN messages to other
- servers.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER
- RPL_ADMINME RPL_ADMINLOC1
- RPL_ADMINLOC2 RPL_ADMINEMAIL
-
- Examples:
-
- ADMIN tolsun.oulu.fi ; request an ADMIN reply from
- tolsun.oulu.fi
-
- :WiZ ADMIN *.edu ; ADMIN request from WiZ for first
- server found to match *.edu.
-
-4.3.8 Info command
-
- Command: INFO
- Parameters: [<server>]
-
- The INFO command is required to return information which describes
- the server: its version, when it was compiled, the patchlevel, when
- it was started, and any other miscellaneous information which may be
- considered to be relevant.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER
- RPL_INFO RPL_ENDOFINFO
-
- Examples:
-
- INFO csd.bu.edu ; request an INFO reply from
- csd.bu.edu
-
- :Avalon INFO *.fi ; INFO request from Avalon for first
- server found to match *.fi.
-
-
-
-Oikarinen & Reed [Page 31]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- INFO Angel ; request info from the server that
- Angel is connected to.
-
-4.4 Sending messages
-
- The main purpose of the IRC protocol is to provide a base for clients
- to communicate with each other. PRIVMSG and NOTICE are the only
- messages available which actually perform delivery of a text message
- from one client to another - the rest just make it possible and try
- to ensure it happens in a reliable and structured manner.
-
-4.4.1 Private messages
-
- Command: PRIVMSG
- Parameters: <receiver>{,<receiver>} <text to be sent>
-
- PRIVMSG is used to send private messages between users. <receiver>
- is the nickname of the receiver of the message. <receiver> can also
- be a list of names or channels separated with commas.
-
- The <receiver> parameter may also me a host mask (#mask) or server
- mask ($mask). In both cases the server will only send the PRIVMSG
- to those who have a server or host matching the mask. The mask must
- have at least 1 (one) "." in it and no wildcards following the
- last ".". This requirement exists to prevent people sending messages
- to "#*" or "$*", which would broadcast to all users; from
- experience, this is abused more than used responsibly and properly.
- Wildcards are the '*' and '?' characters. This extension to
- the PRIVMSG command is only available to Operators.
-
- Numeric Replies:
-
- ERR_NORECIPIENT ERR_NOTEXTTOSEND
- ERR_CANNOTSENDTOCHAN ERR_NOTOPLEVEL
- ERR_WILDTOPLEVEL ERR_TOOMANYTARGETS
- ERR_NOSUCHNICK
- RPL_AWAY
-
- Examples:
-
-:Angel PRIVMSG Wiz :Hello are you receiving this message ?
- ; Message from Angel to Wiz.
-
-PRIVMSG Angel :yes I'm receiving it !receiving it !'u>(768u+1n) .br ;
- Message to Angel.
-
-PRIVMSG jto@tolsun.oulu.fi :Hello !
- ; Message to a client on server
-
-
-
-Oikarinen & Reed [Page 32]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- tolsun.oulu.fi with username of "jto".
-
-PRIVMSG $*.fi :Server tolsun.oulu.fi rebooting.
- ; Message to everyone on a server which
- has a name matching *.fi.
-
-PRIVMSG #*.edu :NSFNet is undergoing work, expect interruptions
- ; Message to all users who come from a
- host which has a name matching *.edu.
-
-4.4.2 Notice
-
- Command: NOTICE
- Parameters: <nickname> <text>
-
- The NOTICE message is used similarly to PRIVMSG. The difference
- between NOTICE and PRIVMSG is that automatic replies must never be
- sent in response to a NOTICE message. This rule applies to servers
- too - they must not send any error reply back to the client on
- receipt of a notice. The object of this rule is to avoid loops
- between a client automatically sending something in response to
- something it received. This is typically used by automatons (clients
- with either an AI or other interactive program controlling their
- actions) which are always seen to be replying lest they end up in a
- loop with another automaton.
-
- See PRIVMSG for more details on replies and examples.
-
-4.5 User based queries
-
- User queries are a group of commands which are primarily concerned
- with finding details on a particular user or group users. When using
- wildcards with any of these commands, if they match, they will only
- return information on users who are 'visible' to you. The visibility
- of a user is determined as a combination of the user's mode and the
- common set of channels you are both on.
-
-4.5.1 Who query
-
- Command: WHO
- Parameters: [<name> [<o>]]
-
- The WHO message is used by a client to generate a query which returns
- a list of information which 'matches' the <name> parameter given by
- the client. In the absence of the <name> parameter, all visible
- (users who aren't invisible (user mode +i) and who don't have a
- common channel with the requesting client) are listed. The same
- result can be achieved by using a <name> of "0" or any wildcard which
-
-
-
-Oikarinen & Reed [Page 33]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- will end up matching every entry possible.
-
- The <name> passed to WHO is matched against users' host, server, real
- name and nickname if the channel <name> cannot be found.
-
- If the "o" parameter is passed only operators are returned according
- to the name mask supplied.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER
- RPL_WHOREPLY RPL_ENDOFWHO
-
- Examples:
-
- WHO *.fi ; List all users who match against
- "*.fi".
-
- WHO jto* o ; List all users with a match against
- "jto*" if they are an operator.
-
-4.5.2 Whois query
-
- Command: WHOIS
- Parameters: [<server>] <nickmask>[,<nickmask>[,...]]
-
- This message is used to query information about particular user. The
- server will answer this message with several numeric messages
- indicating different statuses of each user which matches the nickmask
- (if you are entitled to see them). If no wildcard is present in the
- <nickmask>, any information about that nick which you are allowed to
- see is presented. A comma (',') separated list of nicknames may be
- given.
-
- The latter version sends the query to a specific server. It is
- useful if you want to know how long the user in question has been
- idle as only local server (ie. the server the user is directly
- connected to) knows that information, while everything else is
- globally known.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER ERR_NONICKNAMEGIVEN
- RPL_WHOISUSER RPL_WHOISCHANNELS
- RPL_WHOISCHANNELS RPL_WHOISSERVER
- RPL_AWAY RPL_WHOISOPERATOR
- RPL_WHOISIDLE ERR_NOSUCHNICK
- RPL_ENDOFWHOIS
-
-
-
-Oikarinen & Reed [Page 34]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- Examples:
-
- WHOIS wiz ; return available user information
- about nick WiZ
-
- WHOIS eff.org trillian ; ask server eff.org for user
- information about trillian
-
-4.5.3 Whowas
-
- Command: WHOWAS
- Parameters: <nickname> [<count> [<server>]]
-
- Whowas asks for information about a nickname which no longer exists.
- This may either be due to a nickname change or the user leaving IRC.
- In response to this query, the server searches through its nickname
- history, looking for any nicks which are lexically the same (no wild
- card matching here). The history is searched backward, returning the
- most recent entry first. If there are multiple entries, up to
- <count> replies will be returned (or all of them if no <count>
- parameter is given). If a non-positive number is passed as being
- <count>, then a full search is done.
-
- Numeric Replies:
-
- ERR_NONICKNAMEGIVEN ERR_WASNOSUCHNICK
- RPL_WHOWASUSER RPL_WHOISSERVER
- RPL_ENDOFWHOWAS
-
- Examples:
-
- WHOWAS Wiz ; return all information in the nick
- history about nick "WiZ";
-
- WHOWAS Mermaid 9 ; return at most, the 9 most recent
- entries in the nick history for
- "Mermaid";
-
- WHOWAS Trillian 1 *.edu ; return the most recent history for
- "Trillian" from the first server found
- to match "*.edu".
-
-4.6 Miscellaneous messages
-
- Messages in this category do not fit into any of the above categories
- but are nonetheless still a part of and required by the protocol.
-
-
-
-
-
-Oikarinen & Reed [Page 35]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-4.6.1 Kill message
-
- Command: KILL
- Parameters: <nickname> <comment>
-
- The KILL message is used to cause a client-server connection to be
- closed by the server which has the actual connection. KILL is used
- by servers when they encounter a duplicate entry in the list of valid
- nicknames and is used to remove both entries. It is also available
- to operators.
-
- Clients which have automatic reconnect algorithms effectively make
- this command useless since the disconnection is only brief. It does
- however break the flow of data and can be used to stop large amounts
- of being abused, any user may elect to receive KILL messages
- generated for others to keep an 'eye' on would be trouble spots.
-
- In an arena where nicknames are required to be globally unique at all
- times, KILL messages are sent whenever 'duplicates' are detected
- (that is an attempt to register two users with the same nickname) in
- the hope that both of them will disappear and only 1 reappear.
-
- The comment given must reflect the actual reason for the KILL. For
- server-generated KILLs it usually is made up of details concerning
- the origins of the two conflicting nicknames. For users it is left
- up to them to provide an adequate reason to satisfy others who see
- it. To prevent/discourage fake KILLs from being generated to hide
- the identify of the KILLer, the comment also shows a 'kill-path'
- which is updated by each server it passes through, each prepending
- its name to the path.
-
- Numeric Replies:
-
- ERR_NOPRIVILEGES ERR_NEEDMOREPARAMS
- ERR_NOSUCHNICK ERR_CANTKILLSERVER
-
-
- KILL David (csd.bu.edu <- tolsun.oulu.fi)
- ; Nickname collision between csd.bu.edu
- and tolson.oulu.fi
-
-
- NOTE:
- It is recommended that only Operators be allowed to kill other users
- with KILL message. In an ideal world not even operators would need
- to do this and it would be left to servers to deal with.
-
-
-
-
-
-Oikarinen & Reed [Page 36]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-4.6.2 Ping message
-
- Command: PING
- Parameters: <server1> [<server2>]
-
- The PING message is used to test the presence of an active client at
- the other end of the connection. A PING message is sent at regular
- intervals if no other activity detected coming from a connection. If
- a connection fails to respond to a PING command within a set amount
- of time, that connection is closed.
-
- Any client which receives a PING message must respond to <server1>
- (server which sent the PING message out) as quickly as possible with
- an appropriate PONG message to indicate it is still there and alive.
- Servers should not respond to PING commands but rely on PINGs from
- the other end of the connection to indicate the connection is alive.
- If the <server2> parameter is specified, the PING message gets
- forwarded there.
-
- Numeric Replies:
-
- ERR_NOORIGIN ERR_NOSUCHSERVER
-
- Examples:
-
- PING tolsun.oulu.fi ; server sending a PING message to
- another server to indicate it is still
- alive.
-
- PING WiZ ; PING message being sent to nick WiZ
-
-4.6.3 Pong message
-
- Command: PONG
- Parameters: <daemon> [<daemon2>]
-
- PONG message is a reply to ping message. If parameter <daemon2> is
- given this message must be forwarded to given daemon. The <daemon>
- parameter is the name of the daemon who has responded to PING message
- and generated this message.
-
- Numeric Replies:
-
- ERR_NOORIGIN ERR_NOSUCHSERVER
-
- Examples:
-
- PONG csd.bu.edu tolsun.oulu.fi ; PONG message from csd.bu.edu to
-
-
-
-Oikarinen & Reed [Page 37]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- tolsun.oulu.fi
-
-4.6.4 Error
-
- Command: ERROR
- Parameters: <error message>
-
- The ERROR command is for use by servers when reporting a serious or
- fatal error to its operators. It may also be sent from one server to
- another but must not be accepted from any normal unknown clients.
-
- An ERROR message is for use for reporting errors which occur with a
- server-to-server link only. An ERROR message is sent to the server
- at the other end (which sends it to all of its connected operators)
- and to all operators currently connected. It is not to be passed
- onto any other servers by a server if it is received from a server.
-
- When a server sends a received ERROR message to its operators, the
- message should be encapsulated inside a NOTICE message, indicating
- that the client was not responsible for the error.
-
- Numerics:
-
- None.
-
- Examples:
-
- ERROR :Server *.fi already exists; ERROR message to the other server
- which caused this error.
-
- NOTICE WiZ :ERROR from csd.bu.edu -- Server *.fi already exists
- ; Same ERROR message as above but sent
- to user WiZ on the other server.
-
-5. OPTIONALS
-
- This section describes OPTIONAL messages. They are not required in a
- working server implementation of the protocol described herein. In
- the absence of the option, an error reply message must be generated
- or an unknown command error. If the message is destined for another
- server to answer then it must be passed on (elementary parsing
- required) The allocated numerics for this are listed with the
- messages below.
-
-5.1 Away
-
- Command: AWAY
- Parameters: [message]
-
-
-
-Oikarinen & Reed [Page 38]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- With the AWAY message, clients can set an automatic reply string for
- any PRIVMSG commands directed at them (not to a channel they are on).
- The automatic reply is sent by the server to client sending the
- PRIVMSG command. The only replying server is the one to which the
- sending client is connected to.
-
- The AWAY message is used either with one parameter (to set an AWAY
- message) or with no parameters (to remove the AWAY message).
-
- Numeric Replies:
-
- RPL_UNAWAY RPL_NOWAWAY
-
- Examples:
-
- AWAY :Gone to lunch. Back in 5 ; set away message to "Gone to lunch.
- Back in 5".
-
- :WiZ AWAY ; unmark WiZ as being away.
-
-
-5.2 Rehash message
-
- Command: REHASH
- Parameters: None
-
- The rehash message can be used by the operator to force the server to
- re-read and process its configuration file.
-
- Numeric Replies:
-
- RPL_REHASHING ERR_NOPRIVILEGES
-
-Examples:
-
-REHASH ; message from client with operator
- status to server asking it to reread its
- configuration file.
-
-5.3 Restart message
-
- Command: RESTART
- Parameters: None
-
- The restart message can only be used by an operator to force a server
- restart itself. This message is optional since it may be viewed as a
- risk to allow arbitrary people to connect to a server as an operator
- and execute this command, causing (at least) a disruption to service.
-
-
-
-Oikarinen & Reed [Page 39]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- The RESTART command must always be fully processed by the server to
- which the sending client is connected and not be passed onto other
- connected servers.
-
- Numeric Replies:
-
- ERR_NOPRIVILEGES
-
- Examples:
-
- RESTART ; no parameters required.
-
-5.4 Summon message
-
- Command: SUMMON
- Parameters: <user> [<server>]
-
- The SUMMON command can be used to give users who are on a host
- running an IRC server a message asking them to please join IRC. This
- message is only sent if the target server (a) has SUMMON enabled, (b)
- the user is logged in and (c) the server process can write to the
- user's tty (or similar).
-
- If no <server> parameter is given it tries to summon <user> from the
- server the client is connected to is assumed as the target.
-
- If summon is not enabled in a server, it must return the
- ERR_SUMMONDISABLED numeric and pass the summon message onwards.
-
- Numeric Replies:
-
- ERR_NORECIPIENT ERR_FILEERROR
- ERR_NOLOGIN ERR_NOSUCHSERVER
- RPL_SUMMONING
-
- Examples:
-
- SUMMON jto ; summon user jto on the server's host
-
- SUMMON jto tolsun.oulu.fi ; summon user jto on the host which a
- server named "tolsun.oulu.fi" is
- running.
-
-
-5.5 Users
-
- Command: USERS
- Parameters: [<server>]
-
-
-
-Oikarinen & Reed [Page 40]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- The USERS command returns a list of users logged into the server in a
- similar format to who(1), rusers(1) and finger(1). Some people
- may disable this command on their server for security related
- reasons. If disabled, the correct numeric must be returned to
- indicate this.
-
- Numeric Replies:
-
- ERR_NOSUCHSERVER ERR_FILEERROR
- RPL_USERSSTART RPL_USERS
- RPL_NOUSERS RPL_ENDOFUSERS
- ERR_USERSDISABLED
-
- Disabled Reply:
-
- ERR_USERSDISABLED
-
- Examples:
-
-USERS eff.org ; request a list of users logged in on
- server eff.org
-
-:John USERS tolsun.oulu.fi ; request from John for a list of users
- logged in on server tolsun.oulu.fi
-
-5.6 Operwall message
-
- Command: WALLOPS
- Parameters: Text to be sent to all operators currently online
-
- Sends a message to all operators currently online. After
- implementing WALLOPS as a user command it was found that it was
- often and commonly abused as a means of sending a message to a lot
- of people (much similar to WALL). Due to this it is recommended
- that the current implementation of WALLOPS be used as an
- example by allowing and recognising only servers as the senders of
- WALLOPS.
-
- Numeric Replies:
-
- ERR_NEEDMOREPARAMS
-
- Examples:
-
- :csd.bu.edu WALLOPS :Connect '*.uiuc.edu 6667' from Joshua; WALLOPS
- message from csd.bu.edu announcing a
- CONNECT message it received and acted
- upon from Joshua.
-
-
-
-Oikarinen & Reed [Page 41]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-5.7 Userhost message
-
- Command: USERHOST
- Parameters: <nickname>{<space><nickname>}
-
- The USERHOST command takes a list of up to 5 nicknames, each
- separated by a space character and returns a list of information
- about each nickname that it found. The returned list has each reply
- separated by a space.
-
- Numeric Replies:
-
- RPL_USERHOST ERR_NEEDMOREPARAMS
-
- Examples:
-
- USERHOST Wiz Michael Marty p ;USERHOST request for information on
- nicks "Wiz", "Michael", "Marty" and "p"
-
-5.8 Ison message
-
- Command: ISON
- Parameters: <nickname>{<space><nickname>}
-
- The ISON command was implemented to provide a quick and efficient
- means to get a response about whether a given nickname was currently
- on IRC. ISON only takes one (1) parameter: a space-separated list of
- nicks. For each nickname in the list that is present, the server
- adds that to its reply string. Thus the reply string may return
- empty (none of the given nicks are present), an exact copy of the
- parameter string (all of them present) or as any other subset of the
- set of nicks given in the parameter. The only limit on the number
- of nicks that may be checked is that the combined length must not be
- too large as to cause the server to chop it off so it fits in 512
- characters.
-
- ISON is only be processed by the server local to the client sending
- the command and thus not passed onto other servers for further
- processing.
-
- Numeric Replies:
-
- RPL_ISON ERR_NEEDMOREPARAMS
-
- Examples:
-
- ISON phone trillian WiZ jarlek Avalon Angel Monstah
- ; Sample ISON request for 7 nicks.
-
-
-
-Oikarinen & Reed [Page 42]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-6. REPLIES
-
- The following is a list of numeric replies which are generated in
- response to the commands given above. Each numeric is given with its
- number, name and reply string.
-
-6.1 Error Replies.
-
- 401 ERR_NOSUCHNICK
- "<nickname> :No such nick/channel"
-
- - Used to indicate the nickname parameter supplied to a
- command is currently unused.
-
- 402 ERR_NOSUCHSERVER
- "<server name> :No such server"
-
- - Used to indicate the server name given currently
- doesn't exist.
-
- 403 ERR_NOSUCHCHANNEL
- "<channel name> :No such channel"
-
- - Used to indicate the given channel name is invalid.
-
- 404 ERR_CANNOTSENDTOCHAN
- "<channel name> :Cannot send to channel"
-
- - Sent to a user who is either (a) not on a channel
- which is mode +n or (b) not a chanop (or mode +v) on
- a channel which has mode +m set and is trying to send
- a PRIVMSG message to that channel.
-
- 405 ERR_TOOMANYCHANNELS
- "<channel name> :You have joined too many \
- channels"
- - Sent to a user when they have joined the maximum
- number of allowed channels and they try to join
- another channel.
-
- 406 ERR_WASNOSUCHNICK
- "<nickname> :There was no such nickname"
-
- - Returned by WHOWAS to indicate there is no history
- information for that nickname.
-
- 407 ERR_TOOMANYTARGETS
- "<target> :Duplicate recipients. No message \
-
-
-
-Oikarinen & Reed [Page 43]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- delivered"
-
- - Returned to a client which is attempting to send a
- PRIVMSG/NOTICE using the user@host destination format
- and for a user@host which has several occurrences.
-
- 409 ERR_NOORIGIN
- ":No origin specified"
-
- - PING or PONG message missing the originator parameter
- which is required since these commands must work
- without valid prefixes.
-
- 411 ERR_NORECIPIENT
- ":No recipient given (<command>)"
- 412 ERR_NOTEXTTOSEND
- ":No text to send"
- 413 ERR_NOTOPLEVEL
- "<mask> :No toplevel domain specified"
- 414 ERR_WILDTOPLEVEL
- "<mask> :Wildcard in toplevel domain"
-
- - 412 - 414 are returned by PRIVMSG to indicate that
- the message wasn't delivered for some reason.
- ERR_NOTOPLEVEL and ERR_WILDTOPLEVEL are errors that
- are returned when an invalid use of
- "PRIVMSG $<server>" or "PRIVMSG #<host>" is attempted.
-
- 421 ERR_UNKNOWNCOMMAND
- "<command> :Unknown command"
-
- - Returned to a registered client to indicate that the
- command sent is unknown by the server.
-
- 422 ERR_NOMOTD
- ":MOTD File is missing"
-
- - Server's MOTD file could not be opened by the server.
-
- 423 ERR_NOADMININFO
- "<server> :No administrative info available"
-
- - Returned by a server in response to an ADMIN message
- when there is an error in finding the appropriate
- information.
-
- 424 ERR_FILEERROR
- ":File error doing <file op> on <file>"
-
-
-
-Oikarinen & Reed [Page 44]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- - Generic error message used to report a failed file
- operation during the processing of a message.
-
- 431 ERR_NONICKNAMEGIVEN
- ":No nickname given"
-
- - Returned when a nickname parameter expected for a
- command and isn't found.
-
- 432 ERR_ERRONEUSNICKNAME
- "<nick> :Erroneus nickname"
-
- - Returned after receiving a NICK message which contains
- characters which do not fall in the defined set. See
- section x.x.x for details on valid nicknames.
-
- 433 ERR_NICKNAMEINUSE
- "<nick> :Nickname is already in use"
-
- - Returned when a NICK message is processed that results
- in an attempt to change to a currently existing
- nickname.
-
- 436 ERR_NICKCOLLISION
- "<nick> :Nickname collision KILL"
-
- - Returned by a server to a client when it detects a
- nickname collision (registered of a NICK that
- already exists by another server).
-
- 441 ERR_USERNOTINCHANNEL
- "<nick> <channel> :They aren't on that channel"
-
- - Returned by the server to indicate that the target
- user of the command is not on the given channel.
-
- 442 ERR_NOTONCHANNEL
- "<channel> :You're not on that channel"
-
- - Returned by the server whenever a client tries to
- perform a channel effecting command for which the
- client isn't a member.
-
- 443 ERR_USERONCHANNEL
- "<user> <channel> :is already on channel"
-
- - Returned when a client tries to invite a user to a
- channel they are already on.
-
-
-
-Oikarinen & Reed [Page 45]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- 444 ERR_NOLOGIN
- "<user> :User not logged in"
-
- - Returned by the summon after a SUMMON command for a
- user was unable to be performed since they were not
- logged in.
-
- 445 ERR_SUMMONDISABLED
- ":SUMMON has been disabled"
-
- - Returned as a response to the SUMMON command. Must be
- returned by any server which does not implement it.
-
- 446 ERR_USERSDISABLED
- ":USERS has been disabled"
-
- - Returned as a response to the USERS command. Must be
- returned by any server which does not implement it.
-
- 451 ERR_NOTREGISTERED
- ":You have not registered"
-
- - Returned by the server to indicate that the client
- must be registered before the server will allow it
- to be parsed in detail.
-
- 461 ERR_NEEDMOREPARAMS
- "<command> :Not enough parameters"
-
- - Returned by the server by numerous commands to
- indicate to the client that it didn't supply enough
- parameters.
-
- 462 ERR_ALREADYREGISTRED
- ":You may not reregister"
-
- - Returned by the server to any link which tries to
- change part of the registered details (such as
- password or user details from second USER message).
-
-
- 463 ERR_NOPERMFORHOST
- ":Your host isn't among the privileged"
-
- - Returned to a client which attempts to register with
- a server which does not been setup to allow
- connections from the host the attempted connection
- is tried.
-
-
-
-Oikarinen & Reed [Page 46]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- 464 ERR_PASSWDMISMATCH
- ":Password incorrect"
-
- - Returned to indicate a failed attempt at registering
- a connection for which a password was required and
- was either not given or incorrect.
-
- 465 ERR_YOUREBANNEDCREEP
- ":You are banned from this server"
-
- - Returned after an attempt to connect and register
- yourself with a server which has been setup to
- explicitly deny connections to you.
-
- 467 ERR_KEYSET
- "<channel> :Channel key already set"
- 471 ERR_CHANNELISFULL
- "<channel> :Cannot join channel (+l)"
- 472 ERR_UNKNOWNMODE
- "<char> :is unknown mode char to me"
- 473 ERR_INVITEONLYCHAN
- "<channel> :Cannot join channel (+i)"
- 474 ERR_BANNEDFROMCHAN
- "<channel> :Cannot join channel (+b)"
- 475 ERR_BADCHANNELKEY
- "<channel> :Cannot join channel (+k)"
- 481 ERR_NOPRIVILEGES
- ":Permission Denied- You're not an IRC operator"
-
- - Any command requiring operator privileges to operate
- must return this error to indicate the attempt was
- unsuccessful.
-
- 482 ERR_CHANOPRIVSNEEDED
- "<channel> :You're not channel operator"
-
- - Any command requiring 'chanop' privileges (such as
- MODE messages) must return this error if the client
- making the attempt is not a chanop on the specified
- channel.
-
- 483 ERR_CANTKILLSERVER
- ":You cant kill a server!"
-
- - Any attempts to use the KILL command on a server
- are to be refused and this error returned directly
- to the client.
-
-
-
-
-Oikarinen & Reed [Page 47]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- 491 ERR_NOOPERHOST
- ":No O-lines for your host"
-
- - If a client sends an OPER message and the server has
- not been configured to allow connections from the
- client's host as an operator, this error must be
- returned.
-
- 501 ERR_UMODEUNKNOWNFLAG
- ":Unknown MODE flag"
-
- - Returned by the server to indicate that a MODE
- message was sent with a nickname parameter and that
- the a mode flag sent was not recognized.
-
- 502 ERR_USERSDONTMATCH
- ":Cant change mode for other users"
-
- - Error sent to any user trying to view or change the
- user mode for a user other than themselves.
-
-6.2 Command responses.
-
- 300 RPL_NONE
- Dummy reply number. Not used.
-
- 302 RPL_USERHOST
- ":[<reply>{<space><reply>}]"
-
- - Reply format used by USERHOST to list replies to
- the query list. The reply string is composed as
- follows:
-
- <reply> ::= <nick>['*'] '=' <'+'|'-'><hostname>
-
- The '*' indicates whether the client has registered
- as an Operator. The '-' or '+' characters represent
- whether the client has set an AWAY message or not
- respectively.
-
- 303 RPL_ISON
- ":[<nick> {<space><nick>}]"
-
- - Reply format used by ISON to list replies to the
- query list.
-
- 301 RPL_AWAY
- "<nick> :<away message>"
-
-
-
-Oikarinen & Reed [Page 48]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- 305 RPL_UNAWAY
- ":You are no longer marked as being away"
- 306 RPL_NOWAWAY
- ":You have been marked as being away"
-
- - These replies are used with the AWAY command (if
- allowed). RPL_AWAY is sent to any client sending a
- PRIVMSG to a client which is away. RPL_AWAY is only
- sent by the server to which the client is connected.
- Replies RPL_UNAWAY and RPL_NOWAWAY are sent when the
- client removes and sets an AWAY message.
-
- 311 RPL_WHOISUSER
- "<nick> <user> <host> * :<real name>"
- 312 RPL_WHOISSERVER
- "<nick> <server> :<server info>"
- 313 RPL_WHOISOPERATOR
- "<nick> :is an IRC operator"
- 317 RPL_WHOISIDLE
- "<nick> <integer> :seconds idle"
- 318 RPL_ENDOFWHOIS
- "<nick> :End of /WHOIS list"
- 319 RPL_WHOISCHANNELS
- "<nick> :{[@|+]<channel><space>}"
-
- - Replies 311 - 313, 317 - 319 are all replies
- generated in response to a WHOIS message. Given that
- there are enough parameters present, the answering
- server must either formulate a reply out of the above
- numerics (if the query nick is found) or return an
- error reply. The '*' in RPL_WHOISUSER is there as
- the literal character and not as a wild card. For
- each reply set, only RPL_WHOISCHANNELS may appear
- more than once (for long lists of channel names).
- The '@' and '+' characters next to the channel name
- indicate whether a client is a channel operator or
- has been granted permission to speak on a moderated
- channel. The RPL_ENDOFWHOIS reply is used to mark
- the end of processing a WHOIS message.
-
- 314 RPL_WHOWASUSER
- "<nick> <user> <host> * :<real name>"
- 369 RPL_ENDOFWHOWAS
- "<nick> :End of WHOWAS"
-
- - When replying to a WHOWAS message, a server must use
- the replies RPL_WHOWASUSER, RPL_WHOISSERVER or
- ERR_WASNOSUCHNICK for each nickname in the presented
-
-
-
-Oikarinen & Reed [Page 49]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- list. At the end of all reply batches, there must
- be RPL_ENDOFWHOWAS (even if there was only one reply
- and it was an error).
-
- 321 RPL_LISTSTART
- "Channel :Users Name"
- 322 RPL_LIST
- "<channel> <# visible> :<topic>"
- 323 RPL_LISTEND
- ":End of /LIST"
-
- - Replies RPL_LISTSTART, RPL_LIST, RPL_LISTEND mark
- the start, actual replies with data and end of the
- server's response to a LIST command. If there are
- no channels available to return, only the start
- and end reply must be sent.
-
- 324 RPL_CHANNELMODEIS
- "<channel> <mode> <mode params>"
-
- 331 RPL_NOTOPIC
- "<channel> :No topic is set"
- 332 RPL_TOPIC
- "<channel> :<topic>"
-
- - When sending a TOPIC message to determine the
- channel topic, one of two replies is sent. If
- the topic is set, RPL_TOPIC is sent back else
- RPL_NOTOPIC.
-
- 341 RPL_INVITING
- "<channel> <nick>"
-
- - Returned by the server to indicate that the
- attempted INVITE message was successful and is
- being passed onto the end client.
-
- 342 RPL_SUMMONING
- "<user> :Summoning user to IRC"
-
- - Returned by a server answering a SUMMON message to
- indicate that it is summoning that user.
-
- 351 RPL_VERSION
- "<version>.<debuglevel> <server> :<comments>"
-
- - Reply by the server showing its version details.
- The <version> is the version of the software being
-
-
-
-Oikarinen & Reed [Page 50]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- used (including any patchlevel revisions) and the
- <debuglevel> is used to indicate if the server is
- running in "debug mode".
-
- The "comments" field may contain any comments about
- the version or further version details.
-
- 352 RPL_WHOREPLY
- "<channel> <user> <host> <server> <nick> \
- <H|G>[*][@|+] :<hopcount> <real name>"
- 315 RPL_ENDOFWHO
- "<name> :End of /WHO list"
-
- - The RPL_WHOREPLY and RPL_ENDOFWHO pair are used
- to answer a WHO message. The RPL_WHOREPLY is only
- sent if there is an appropriate match to the WHO
- query. If there is a list of parameters supplied
- with a WHO message, a RPL_ENDOFWHO must be sent
- after processing each list item with <name> being
- the item.
-
- 353 RPL_NAMREPLY
- "<channel> :[[@|+]<nick> [[@|+]<nick> [...]]]"
- 366 RPL_ENDOFNAMES
- "<channel> :End of /NAMES list"
-
- - To reply to a NAMES message, a reply pair consisting
- of RPL_NAMREPLY and RPL_ENDOFNAMES is sent by the
- server back to the client. If there is no channel
- found as in the query, then only RPL_ENDOFNAMES is
- returned. The exception to this is when a NAMES
- message is sent with no parameters and all visible
- channels and contents are sent back in a series of
- RPL_NAMEREPLY messages with a RPL_ENDOFNAMES to mark
- the end.
-
- 364 RPL_LINKS
- "<mask> <server> :<hopcount> <server info>"
- 365 RPL_ENDOFLINKS
- "<mask> :End of /LINKS list"
-
- - In replying to the LINKS message, a server must send
- replies back using the RPL_LINKS numeric and mark the
- end of the list using an RPL_ENDOFLINKS reply.
-
- 367 RPL_BANLIST
- "<channel> <banid>"
- 368 RPL_ENDOFBANLIST
-
-
-
-Oikarinen & Reed [Page 51]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- "<channel> :End of channel ban list"
-
- - When listing the active 'bans' for a given channel,
- a server is required to send the list back using the
- RPL_BANLIST and RPL_ENDOFBANLIST messages. A separate
- RPL_BANLIST is sent for each active banid. After the
- banids have been listed (or if none present) a
- RPL_ENDOFBANLIST must be sent.
-
- 371 RPL_INFO
- ":<string>"
- 374 RPL_ENDOFINFO
- ":End of /INFO list"
-
- - A server responding to an INFO message is required to
- send all its 'info' in a series of RPL_INFO messages
- with a RPL_ENDOFINFO reply to indicate the end of the
- replies.
-
- 375 RPL_MOTDSTART
- ":- <server> Message of the day - "
- 372 RPL_MOTD
- ":- <text>"
- 376 RPL_ENDOFMOTD
- ":End of /MOTD command"
-
- - When responding to the MOTD message and the MOTD file
- is found, the file is displayed line by line, with
- each line no longer than 80 characters, using
- RPL_MOTD format replies. These should be surrounded
- by a RPL_MOTDSTART (before the RPL_MOTDs) and an
- RPL_ENDOFMOTD (after).
-
- 381 RPL_YOUREOPER
- ":You are now an IRC operator"
-
- - RPL_YOUREOPER is sent back to a client which has
- just successfully issued an OPER message and gained
- operator status.
-
- 382 RPL_REHASHING
- "<config file> :Rehashing"
-
- - If the REHASH option is used and an operator sends
- a REHASH message, an RPL_REHASHING is sent back to
- the operator.
-
- 391 RPL_TIME
-
-
-
-Oikarinen & Reed [Page 52]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- "<server> :<string showing server's local time>"
-
- - When replying to the TIME message, a server must send
- the reply using the RPL_TIME format above. The string
- showing the time need only contain the correct day and
- time there. There is no further requirement for the
- time string.
-
- 392 RPL_USERSSTART
- ":UserID Terminal Host"
- 393 RPL_USERS
- ":%-8s %-9s %-8s"
- 394 RPL_ENDOFUSERS
- ":End of users"
- 395 RPL_NOUSERS
- ":Nobody logged in"
-
- - If the USERS message is handled by a server, the
- replies RPL_USERSTART, RPL_USERS, RPL_ENDOFUSERS and
- RPL_NOUSERS are used. RPL_USERSSTART must be sent
- first, following by either a sequence of RPL_USERS
- or a single RPL_NOUSER. Following this is
- RPL_ENDOFUSERS.
-
- 200 RPL_TRACELINK
- "Link <version & debug level> <destination> \
- <next server>"
- 201 RPL_TRACECONNECTING
- "Try. <class> <server>"
- 202 RPL_TRACEHANDSHAKE
- "H.S. <class> <server>"
- 203 RPL_TRACEUNKNOWN
- "???? <class> [<client IP address in dot form>]"
- 204 RPL_TRACEOPERATOR
- "Oper <class> <nick>"
- 205 RPL_TRACEUSER
- "User <class> <nick>"
- 206 RPL_TRACESERVER
- "Serv <class> <int>S <int>C <server> \
- <nick!user|*!*>@<host|server>"
- 208 RPL_TRACENEWTYPE
- "<newtype> 0 <client name>"
- 261 RPL_TRACELOG
- "File <logfile> <debug level>"
-
- - The RPL_TRACE* are all returned by the server in
- response to the TRACE message. How many are
- returned is dependent on the the TRACE message and
-
-
-
-Oikarinen & Reed [Page 53]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- whether it was sent by an operator or not. There
- is no predefined order for which occurs first.
- Replies RPL_TRACEUNKNOWN, RPL_TRACECONNECTING and
- RPL_TRACEHANDSHAKE are all used for connections
- which have not been fully established and are either
- unknown, still attempting to connect or in the
- process of completing the 'server handshake'.
- RPL_TRACELINK is sent by any server which handles
- a TRACE message and has to pass it on to another
- server. The list of RPL_TRACELINKs sent in
- response to a TRACE command traversing the IRC
- network should reflect the actual connectivity of
- the servers themselves along that path.
- RPL_TRACENEWTYPE is to be used for any connection
- which does not fit in the other categories but is
- being displayed anyway.
-
- 211 RPL_STATSLINKINFO
- "<linkname> <sendq> <sent messages> \
- <sent bytes> <received messages> \
- <received bytes> <time open>"
- 212 RPL_STATSCOMMANDS
- "<command> <count>"
- 213 RPL_STATSCLINE
- "C <host> * <name> <port> <class>"
- 214 RPL_STATSNLINE
- "N <host> * <name> <port> <class>"
- 215 RPL_STATSILINE
- "I <host> * <host> <port> <class>"
- 216 RPL_STATSKLINE
- "K <host> * <username> <port> <class>"
- 218 RPL_STATSYLINE
- "Y <class> <ping frequency> <connect \
- frequency> <max sendq>"
- 219 RPL_ENDOFSTATS
- "<stats letter> :End of /STATS report"
- 241 RPL_STATSLLINE
- "L <hostmask> * <servername> <maxdepth>"
- 242 RPL_STATSUPTIME
- ":Server Up %d days %d:%02d:%02d"
- 243 RPL_STATSOLINE
- "O <hostmask> * <name>"
- 244 RPL_STATSHLINE
- "H <hostmask> * <servername>"
-
- 221 RPL_UMODEIS
- "<user mode string>"
-
-
-
-
-Oikarinen & Reed [Page 54]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- - To answer a query about a client's own mode,
- RPL_UMODEIS is sent back.
-
- 251 RPL_LUSERCLIENT
- ":There are <integer> users and <integer> \
- invisible on <integer> servers"
- 252 RPL_LUSEROP
- "<integer> :operator(s) online"
- 253 RPL_LUSERUNKNOWN
- "<integer> :unknown connection(s)"
- 254 RPL_LUSERCHANNELS
- "<integer> :channels formed"
- 255 RPL_LUSERME
- ":I have <integer> clients and <integer> \
- servers"
-
- - In processing an LUSERS message, the server
- sends a set of replies from RPL_LUSERCLIENT,
- RPL_LUSEROP, RPL_USERUNKNOWN,
- RPL_LUSERCHANNELS and RPL_LUSERME. When
- replying, a server must send back
- RPL_LUSERCLIENT and RPL_LUSERME. The other
- replies are only sent back if a non-zero count
- is found for them.
-
- 256 RPL_ADMINME
- "<server> :Administrative info"
- 257 RPL_ADMINLOC1
- ":<admin info>"
- 258 RPL_ADMINLOC2
- ":<admin info>"
- 259 RPL_ADMINEMAIL
- ":<admin info>"
-
- - When replying to an ADMIN message, a server
- is expected to use replies RLP_ADMINME
- through to RPL_ADMINEMAIL and provide a text
- message with each. For RPL_ADMINLOC1 a
- description of what city, state and country
- the server is in is expected, followed by
- details of the university and department
- (RPL_ADMINLOC2) and finally the administrative
- contact for the server (an email address here
- is required) in RPL_ADMINEMAIL.
-
-
-
-
-
-
-
-Oikarinen & Reed [Page 55]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-6.3 Reserved numerics.
-
- These numerics are not described above since they fall into one of
- the following categories:
-
- 1. no longer in use;
-
- 2. reserved for future planned use;
-
- 3. in current use but are part of a non-generic 'feature' of
- the current IRC server.
-
- 209 RPL_TRACECLASS 217 RPL_STATSQLINE
- 231 RPL_SERVICEINFO 232 RPL_ENDOFSERVICES
- 233 RPL_SERVICE 234 RPL_SERVLIST
- 235 RPL_SERVLISTEND
- 316 RPL_WHOISCHANOP 361 RPL_KILLDONE
- 362 RPL_CLOSING 363 RPL_CLOSEEND
- 373 RPL_INFOSTART 384 RPL_MYPORTIS
- 466 ERR_YOUWILLBEBANNED 476 ERR_BADCHANMASK
- 492 ERR_NOSERVICEHOST
-
-7. Client and server authentication
-
- Clients and servers are both subject to the same level of
- authentication. For both, an IP number to hostname lookup (and
- reverse check on this) is performed for all connections made to the
- server. Both connections are then subject to a password check (if
- there is a password set for that connection). These checks are
- possible on all connections although the password check is only
- commonly used with servers.
-
- An additional check that is becoming of more and more common is that
- of the username responsible for making the connection. Finding the
- username of the other end of the connection typically involves
- connecting to an authentication server such as IDENT as described in
- RFC 1413.
-
- Given that without passwords it is not easy to reliably determine who
- is on the other end of a network connection, use of passwords is
- strongly recommended on inter-server connections in addition to any
- other measures such as using an ident server.
-
-8. Current implementations
-
- The only current implementation of this protocol is the IRC server,
- version 2.8. Earlier versions may implement some or all of the
- commands described by this document with NOTICE messages replacing
-
-
-
-Oikarinen & Reed [Page 56]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- many of the numeric replies. Unfortunately, due to backward
- compatibility requirements, the implementation of some parts of this
- document varies with what is laid out. On notable difference is:
-
- * recognition that any LF or CR anywhere in a message marks the
- end of that message (instead of requiring CR-LF);
-
- The rest of this section deals with issues that are mostly of
- importance to those who wish to implement a server but some parts
- also apply directly to clients as well.
-
-8.1 Network protocol: TCP - why it is best used here.
-
- IRC has been implemented on top of TCP since TCP supplies a reliable
- network protocol which is well suited to this scale of conferencing.
- The use of multicast IP is an alternative, but it is not widely
- available or supported at the present time.
-
-8.1.1 Support of Unix sockets
-
- Given that Unix domain sockets allow listen/connect operations, the
- current implementation can be configured to listen and accept both
- client and server connections on a Unix domain socket. These are
- recognized as sockets where the hostname starts with a '/'.
-
- When providing any information about the connections on a Unix domain
- socket, the server is required to supplant the actual hostname in
- place of the pathname unless the actual socket name is being asked
- for.
-
-8.2 Command Parsing
-
- To provide useful 'non-buffered' network IO for clients and servers,
- each connection is given its own private 'input buffer' in which the
- results of the most recent read and parsing are kept. A buffer size
- of 512 bytes is used so as to hold 1 full message, although, this
- will usually hold several commands. The private buffer is parsed
- after every read operation for valid messages. When dealing with
- multiple messages from one client in the buffer, care should be taken
- in case one happens to cause the client to be 'removed'.
-
-8.3 Message delivery
-
- It is common to find network links saturated or hosts to which you
- are sending data unable to send data. Although Unix typically
- handles this through the TCP window and internal buffers, the server
- often has large amounts of data to send (especially when a new
- server-server link forms) and the small buffers provided in the
-
-
-
-Oikarinen & Reed [Page 57]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- kernel are not enough for the outgoing queue. To alleviate this
- problem, a "send queue" is used as a FIFO queue for data to be sent.
- A typical "send queue" may grow to 200 Kbytes on a large IRC network
- with a slow network connection when a new server connects.
-
- When polling its connections, a server will first read and parse all
- incoming data, queuing any data to be sent out. When all available
- input is processed, the queued data is sent. This reduces the number
- of write() system calls and helps TCP make bigger packets.
-
-8.4 Connection 'Liveness'
-
- To detect when a connection has died or become unresponsive, the
- server must ping each of its connections that it doesn't get a
- response from in a given amount of time.
-
- If a connection doesn't respond in time, its connection is closed
- using the appropriate procedures. A connection is also dropped if
- its sendq grows beyond the maximum allowed, because it is better to
- close a slow connection than have a server process block.
-
-8.5 Establishing a server to client connection
-
- Upon connecting to an IRC server, a client is sent the MOTD (if
- present) as well as the current user/server count (as per the LUSER
- command). The server is also required to give an unambiguous message
- to the client which states its name and version as well as any other
- introductory messages which may be deemed appropriate.
-
- After dealing with this, the server must then send out the new user's
- nickname and other information as supplied by itself (USER command)
- and as the server could discover (from DNS/authentication servers).
- The server must send this information out with NICK first followed by
- USER.
-
-8.6 Establishing a server-server connection.
-
- The process of establishing of a server-to-server connection is
- fraught with danger since there are many possible areas where
- problems can occur - the least of which are race conditions.
-
- After a server has received a connection following by a PASS/SERVER
- pair which were recognised as being valid, the server should then
- reply with its own PASS/SERVER information for that connection as
- well as all of the other state information it knows about as
- described below.
-
- When the initiating server receives a PASS/SERVER pair, it too then
-
-
-
-Oikarinen & Reed [Page 58]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- checks that the server responding is authenticated properly before
- accepting the connection to be that server.
-
-8.6.1 Server exchange of state information when connecting
-
- The order of state information being exchanged between servers is
- essential. The required order is as follows:
-
- * all known other servers;
-
- * all known user information;
-
- * all known channel information.
-
- Information regarding servers is sent via extra SERVER messages, user
- information with NICK/USER/MODE/JOIN messages and channels with MODE
- messages.
-
- NOTE: channel topics are *NOT* exchanged here because the TOPIC
- command overwrites any old topic information, so at best, the two
- sides of the connection would exchange topics.
-
- By passing the state information about servers first, any collisions
- with servers that already exist occur before nickname collisions due
- to a second server introducing a particular nickname. Due to the IRC
- network only being able to exist as an acyclic graph, it may be
- possible that the network has already reconnected in another
- location, the place where the collision occurs indicating where the
- net needs to split.
-
-8.7 Terminating server-client connections
-
- When a client connection closes, a QUIT message is generated on
- behalf of the client by the server to which the client connected. No
- other message is to be generated or used.
-
-8.8 Terminating server-server connections
-
- If a server-server connection is closed, either via a remotely
- generated SQUIT or 'natural' causes, the rest of the connected IRC
- network must have its information updated with by the server which
- detected the closure. The server then sends a list of SQUITs (one
- for each server behind that connection) and a list of QUITs (again,
- one for each client behind that connection).
-
-
-
-
-
-
-
-Oikarinen & Reed [Page 59]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-8.9 Tracking nickname changes
-
- All IRC servers are required to keep a history of recent nickname
- changes. This is required to allow the server to have a chance of
- keeping in touch of things when nick-change race conditions occur
- with commands which manipulate them. Commands which must trace nick
- changes are:
-
- * KILL (the nick being killed)
-
- * MODE (+/- o,v)
-
- * KICK (the nick being kicked)
-
- No other commands are to have nick changes checked for.
-
- In the above cases, the server is required to first check for the
- existence of the nickname, then check its history to see who that
- nick currently belongs to (if anyone!). This reduces the chances of
- race conditions but they can still occur with the server ending up
- affecting the wrong client. When performing a change trace for an
- above command it is recommended that a time range be given and
- entries which are too old ignored.
-
- For a reasonable history, a server should be able to keep previous
- nickname for every client it knows about if they all decided to
- change. This size is limited by other factors (such as memory, etc).
-
-8.10 Flood control of clients
-
- With a large network of interconnected IRC servers, it is quite easy
- for any single client attached to the network to supply a continuous
- stream of messages that result in not only flooding the network, but
- also degrading the level of service provided to others. Rather than
- require every 'victim' to be provide their own protection, flood
- protection was written into the server and is applied to all clients
- except services. The current algorithm is as follows:
-
- * check to see if client's `message timer' is less than
- current time (set to be equal if it is);
-
- * read any data present from the client;
-
- * while the timer is less than ten seconds ahead of the current
- time, parse any present messages and penalize the client by
- 2 seconds for each message;
-
- which in essence means that the client may send 1 message every 2
-
-
-
-Oikarinen & Reed [Page 60]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- seconds without being adversely affected.
-
-8.11 Non-blocking lookups
-
- In a real-time environment, it is essential that a server process do
- as little waiting as possible so that all the clients are serviced
- fairly. Obviously this requires non-blocking IO on all network
- read/write operations. For normal server connections, this was not
- difficult, but there are other support operations that may cause the
- server to block (such as disk reads). Where possible, such activity
- should be performed with a short timeout.
-
-8.11.1 Hostname (DNS) lookups
-
- Using the standard resolver libraries from Berkeley and others has
- meant large delays in some cases where replies have timed out. To
- avoid this, a separate set of DNS routines were written which were
- setup for non-blocking IO operations and then polled from within the
- main server IO loop.
-
-8.11.2 Username (Ident) lookups
-
- Although there are numerous ident libraries for use and inclusion
- into other programs, these caused problems since they operated in a
- synchronous manner and resulted in frequent delays. Again the
- solution was to write a set of routines which would cooperate with
- the rest of the server and work using non-blocking IO.
-
-8.12 Configuration File
-
- To provide a flexible way of setting up and running the server, it is
- recommended that a configuration file be used which contains
- instructions to the server on the following:
-
- * which hosts to accept client connections from;
-
- * which hosts to allow to connect as servers;
-
- * which hosts to connect to (both actively and
- passively);
-
- * information about where the server is (university,
- city/state, company are examples of this);
-
- * who is responsible for the server and an email address
- at which they can be contacted;
-
- * hostnames and passwords for clients which wish to be given
-
-
-
-Oikarinen & Reed [Page 61]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- access to restricted operator commands.
-
- In specifying hostnames, both domain names and use of the 'dot'
- notation (127.0.0.1) should both be accepted. It must be possible to
- specify the password to be used/accepted for all outgoing and
- incoming connections (although the only outgoing connections are
- those to other servers).
-
- The above list is the minimum requirement for any server which wishes
- to make a connection with another server. Other items which may be
- of use are:
-
- * specifying which servers other server may introduce;
-
- * how deep a server branch is allowed to become;
-
- * hours during which clients may connect.
-
-8.12.1 Allowing clients to connect
-
- A server should use some sort of 'access control list' (either in the
- configuration file or elsewhere) that is read at startup and used to
- decide what hosts clients may use to connect to it.
-
- Both 'deny' and 'allow' should be implemented to provide the required
- flexibility for host access control.
-
-8.12.2 Operators
-
- The granting of operator privileges to a disruptive person can have
- dire consequences for the well-being of the IRC net in general due to
- the powers given to them. Thus, the acquisition of such powers
- should not be very easy. The current setup requires two 'passwords'
- to be used although one of them is usually easy guessed. Storage of
- oper passwords in configuration files is preferable to hard coding
- them in and should be stored in a crypted format (ie using crypt(3)
- from Unix) to prevent easy theft.
-
-8.12.3 Allowing servers to connect
-
- The interconnection of server is not a trivial matter: a bad
- connection can have a large impact on the usefulness of IRC. Thus,
- each server should have a list of servers to which it may connect and
- which servers may connect to it. Under no circumstances should a
- server allow an arbitrary host to connect as a server. In addition
- to which servers may and may not connect, the configuration file
- should also store the password and other characteristics of that
- link.
-
-
-
-Oikarinen & Reed [Page 62]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-8.12.4 Administrivia
-
- To provide accurate and valid replies to the ADMIN command (see
- section 4.3.7), the server should find the relevant details in the
- configuration.
-
-8.13 Channel membership
-
- The current server allows any registered local user to join upto 10
- different channels. There is no limit imposed on non-local users so
- that the server remains (reasonably) consistant with all others on a
- channel membership basis
-
-9. Current problems
-
- There are a number of recognized problems with this protocol, all of
- which hope to be solved sometime in the near future during its
- rewrite. Currently, work is underway to find working solutions to
- these problems.
-
-9.1 Scalability
-
- It is widely recognized that this protocol does not scale
- sufficiently well when used in a large arena. The main problem comes
- from the requirement that all servers know about all other servers
- and users and that information regarding them be updated as soon as
- it changes. It is also desirable to keep the number of servers low
- so that the path length between any two points is kept minimal and
- the spanning tree as strongly branched as possible.
-
-9.2 Labels
-
- The current IRC protocol has 3 types of labels: the nickname, the
- channel name and the server name. Each of the three types has its
- own domain and no duplicates are allowed inside that domain.
- Currently, it is possible for users to pick the label for any of the
- three, resulting in collisions. It is widely recognized that this
- needs reworking, with a plan for unique names for channels and nicks
- that don't collide being desirable as well as a solution allowing a
- cyclic tree.
-
-9.2.1 Nicknames
-
- The idea of the nickname on IRC is very convenient for users to use
- when talking to each other outside of a channel, but there is only a
- finite nickname space and being what they are, its not uncommon for
- several people to want to use the same nick. If a nickname is chosen
- by two people using this protocol, either one will not succeed or
-
-
-
-Oikarinen & Reed [Page 63]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
- both will removed by use of KILL (4.6.1).
-
-9.2.2 Channels
-
- The current channel layout requires that all servers know about all
- channels, their inhabitants and properties. Besides not scaling
- well, the issue of privacy is also a concern. A collision of
- channels is treated as an inclusive event (both people who create the
- new channel are considered to be members of it) rather than an
- exclusive one such as used to solve nickname collisions.
-
-9.2.3 Servers
-
- Although the number of servers is usually small relative to the
- number of users and channels, they two currently required to be known
- globally, either each one separately or hidden behind a mask.
-
-9.3 Algorithms
-
- In some places within the server code, it has not been possible to
- avoid N^2 algorithms such as checking the channel list of a set
- of clients.
-
- In current server versions, there are no database consistency checks,
- each server assumes that a neighbouring server is correct. This
- opens the door to large problems if a connecting server is buggy or
- otherwise tries to introduce contradictions to the existing net.
-
- Currently, because of the lack of unique internal and global labels,
- there are a multitude of race conditions that exist. These race
- conditions generally arise from the problem of it taking time for
- messages to traverse and effect the IRC network. Even by changing to
- unique labels, there are problems with channel-related commands being
- disrupted.
-
-10. Current support and availability
-
- Mailing lists for IRC related discussion:
- Future protocol: ircd-three-request@eff.org
- General discussion: operlist-request@eff.org
-
- Software implemenations
- cs.bu.edu:/irc
- nic.funet.fi:/pub/irc
- coombs.anu.edu.au:/pub/irc
-
- Newsgroup: alt.irc
-
-
-
-
-Oikarinen & Reed [Page 64]
-\f
-RFC 1459 Internet Relay Chat Protocol May 1993
-
-
-Security Considerations
-
- Security issues are discussed in sections 4.1, 4.1.1, 4.1.3, 5.5, and
- 7.
-
-12. Authors' Addresses
-
- Jarkko Oikarinen
- Tuirantie 17 as 9
- 90500 OULU
- FINLAND
-
- Email: jto@tolsun.oulu.fi
-
-
- Darren Reed
- 4 Pateman Street
- Watsonia, Victoria 3087
- Australia
-
- Email: avalon@coombs.anu.edu.au
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Oikarinen & Reed [Page 65]
-\f
+++ /dev/null
-Newsgroups: alt.irc.ircii,alt.irc
-Subject: REVISED AND UPDATED CTCP SPECIFICATION
-Distribution:
---text follows this line--
-As part of documenting the ZenIRC client, I expanded, revised, and
-merged two text files that have been around on IRC archive sites for
-some time: ctcp.doc, and dcc.protocol. The file "ctcp.doc" by Klaus
-Zeuge described the basic CTCP protocol, and most of the CTCP commands
-other than DCC. The file Troy Rollo wrote, "dcc.protocol", contained
-a description of the CTCP DCC messages as well as the protocols used
-by DCC CHAT and DCC file transfers. I have merged the two documents to
-produce this one, edited them for clarity, and expanded on them where I
-found them unclear while implementing CTCP in the ZenIRC client.
-
-The result is still far from perfect, but I believe the result to be
-more useful than the two original documents, therefore I am urging
-maintainers of IRC archives to replace or supplement "ctcp.doc" and
-"dcc.protocol" with this expanded and revised "ctcp.doc" file.
-
-An alpha test version of the ZenIRC client is available from
-alpha.gnu.ai.mit.edu in /zenirc/zenirc.tar.gz
-
-Comments, criticism, suggestions directly to me; I don't read alt.irc* .
-
-
---Ben
------------------------------------[snip]-----------------------------------
-;;; hey emacs, this is -*-Text-*-
-Klaus Zeuge <sojge@Minsk.DoCS.UU.SE>
-Troy Rollo <troy@plod.cbme.unsw.oz.au>
-Ben Mesander <ben@gnu.ai.mit.edu>
-
-The Client-To-Client Protocol (CTCP)
-
-The Client-To-Client Protocol is meant to be used as a way to
- 1/ in general send structured data (such as graphics,
- voice and different font information) between users
- clients, and in a more specific case:
- 2/ place a query to a users client and getting an answer.
-
-*****************************************
-BASIC PROTOCOL BETWEEN CLIENTS AND SERVER
-*****************************************
-
-Characters between an Internet Relay Chat (IRC) client and server are
-8 bit bytes (also known as octets) and can have numeric values from
-octal \000 to \377 inclusive (0 to 255 decimal). Some characters are
-special:
-
- CHARS ::= '\000' .. '\377'
- NUL ::= '\000'
- NL ::= '\n'
- CR ::= '\r'
-
-Note: `\' followed by three digits is used to denote an octal value in this
- paper. `\' followed by an alphabetic character is used to denote a C
- language style special character, and `..' denotes a range of characters.
-
-A line sent to a server, or received from a server (here called "low
-level messages") consist or zero or more octets (expcept NUL, NL or
-CR) with either a NL or CR appended.
-
- L-CHARS ::= '\001' .. '\011' | '\013' | '\014' |
- '\016' .. '\377'
- L-LINE ::= L-CHARS* CR LF
-
-Note: The `*' is used here to denote "zero or more of the preceding class of
- characters", and the `|' is used to denote alternation.
-
-A NUL is never sent to the server.
-
-*****************
-LOW LEVEL QUOTING
-*****************
-
-Even though messages to and from IRC servers cannot contain NUL, NL,
-or CR, it still might be desirable to send ANY character (in so called
-"middle level messages") between clients. In order for this to be
-possible, those three characters have to be quoted. Therefore a quote
-character is needed. Of course, the quote character itself has to be
-quoted too, since it is in-band.
-
- M-QUOTE ::= '\020'
-
-(Ie a CNTRL/P).
-
-When sending a middle level message, if there is a character in the
-set { NUL, NL, CR, M-QUOTE } present in the message, that character is
-replaced by a two character sequence according to the following table:
-
- NUL --> M-QUOTE '0'
- NL --> M-QUOTE 'n'
- CR --> M-QUOTE 'r'
- M-QUOTE --> M-QUOTE M-QUOTE
-
-When receiving a low level message, if there is a M-QUOTE, look at the
-next character, and replace those two according to the following table
-to get the corresponding middle level message:
-
- M-QUOTE '0' --> NUL
- M-QUOTE 'n' --> NL
- M-QUOTE 'r' --> CR
- M-QUOTE M-QUOTE --> M-QUOTE
-
-If the character following M-QUOTE is not any of the listed
-characters, that is an error, so drop the M-QUOTE character from the
-message, optionally warning the user about it. For example, a string
-'x' M-QUOTE 'y' 'z' from a server dequotes into 'x 'y' 'z'.
-
-Before low level quoting, a message to the server (and in the opposite
-direction: after low level dequoting, a message from the server) looks
-like:
-
- M-LINE ::= CHARS*
-
-***********
-TAGGED DATA
-***********
-
-To send both extended data and query/reply pairs between clients, an
-extended data format is needed. The extended data are sent in the text
-part of a middle level message (and after low level quoting, in the
-text part of the low level message).
-
-To send extended data inside the middle level message, we need some
-way to delimit it. This is done by starting and ending extended data
-with a delimiter character, defined as:
-
- X-DELIM ::= '\001'
-
-As both the starting and ending delimiter looks the same, the first
-X-DELIM is called the odd delimiter, and the one that follows, the
-even delimiter. The next one after that, an odd delimiter, then and
-even, and so on.
-
-When data are quoted (and conversely, before being dequoted) any number
-of characters of any kind except X-DELIM can be used in the extended
-data inside the X-DELIM pair.
-
- X-CHR ::= '\000' | '\002' .. '\377'
-
-An extended message is either empty (nothing between the odd and even
-delimiter), has one or more non-space characters (any character but
-'\040') or has one or more non-space characters followed by a space
-followed by zero or more characters.
-
- X-N-AS ::= '\000' | '\002' .. '\037' | '\041' .. '\377'
- SPC ::= '\040'
- X-MSG ::= | X-N-AS+ | X-N-AS+ SPC X-CHR*
-
-Note: Here `+' is used to denote "one or more of the previous class of
- characters", and `*' is used to denote "zero or more of the previous
- class of characters".
-
-The characters up until the first SPC (or if no SPC, all of the X-MSG)
-is called the tag of the extended message. The tag is used to denote
-what kind of extended data is used.
-
-The tag can be *any* string of characters, and if it contains
-alphabetics, it is case sensitive, so upper and lower case matters.
-
-Extended data is only valid in PRIVMSG and NOTICE commands. If the
-extended data is a reply to a query, it is sent in a NOTICE, otherwise
-it is sent in a PRIVMSG. Both PRIVMSG and NOTICE to a user and to a
-channel may contain extended data.
-
-The text part of a PRIVMSG or NOTICE might contain zero or more
-extended messages, intermixed with zero or more chunks of non-extended
-data.
-
-******************
-CTCP LEVEL QUOTING
-******************
-
-In order to be able to send the delimiter X-DELIM inside an extended
-data message, it has to be quoted. This introduces another quote
-character (which differs from the low level quote character so it
-won't have to be quoted yet again).
-
- X-QUOTE ::= '\134'
-
-(a back slash - `\').
-
-When quoting on the CTCP level, only the actual CTCP message (extended
-data, queries, replies) are quoted. This enables users to actually
-send X-QUOTE characters at will. The following translations should be
-used:
-
- X-DELIM --> X-QUOTE 'a'
-
- X-QUOTE --> X-QUOTE X-QUOTE
-
-and when dequoting on the CTCP level, only CTCP messages are dequoted
-whereby the following table is used.
-
- X-QUOTE 'a' --> X-DELIM
- X-QUOTE X-QUOTE --> X-QUOTE
-
-If an X-QUOTE is seen with a character following it other than the
-ones above, that is an error and the X-QUOTE character should be
-dropped. For example the CTCP-quoted string 'x' X-QUOTE 'y' 'z'
-becomes after dequoting, the three character string 'x' 'y' 'z'.
-
-If a X-DELIM is found outside a CTCP message, the message will contain
-the X-DELIM. (This should only happen with the last X-DELIM when there
-are an odd number of X-DELIM's in a middle level message.)
-
-****************
-QUOTING EXAMPLES
-****************
-
-There are three levels of messages. The highest level (H) is the text
-on the user-to-client level. The middle layer (M) is on the level
-where CTCP quoting has been applied to the H-level message. The lowest
-level (L) is on the client-to-server level, where low level quoting
-has been applied to the M-level message.
-
-The following relations are true, with lowQuote(message) being a
-function doing the low level quoting, lowDequote(message) the low
-level dequoting function, ctcpQuote(message) the CTCP level quoting
-function, ctcpDequote(message) the CTCP level dequoting function, and
-ctcpExtract(message) the function which removes all CTCP messages from
-a message:
-
- L = lowQuote(M)
- M = ctcpDequote(L)
-
- M = ctcpQuote(H)
- H = ctcpDequote(ctcpExtract(M))
-
-When sending a CTCP message embedded in normal text:
-
- M = ctcpQuote(H1) || '\001' || ctcpQuote(X) || '\001' || ctcpQuote(H2)
-
-Note: The operator || denotes string concatenation.
-
-Of course, there might be zero or more normal text messages and zero
-or more CTCP messages mixed.
-
-- --- Example 1 -----------------------------------------------------------------
-
-A user (called actor) wanting to send the string:
-
- Hi there!\nHow are you?
-
-to user victim, i.e. a message where the user has entered an inline
-newline (how this is done, if at all, differs from client to client),
-will result internally in the client in the command:
-
- PRIVMSG victim :Hi there!\nHow are you? \K?
-
-which will be CTCP quoted into:
-
- PRIVMSG victim :Hi there!\nHow are you? \\K?
-
-which in turn will be low level quoted into:
-
- PRIVMSG victim :Hi there!\020nHow are you? \\K?
-
-and sent to the server after appending a newline at the end.
-
-This will arrive on victim's side as:
-
- :actor PRIVMSG victim :Hi there!\020nHow are you? \\K?
-
-(where the \\K would look similar to OK in SIS D47 et. al.) which after
-low level dequoting becomes:
-
- :actor PRIVMSG victim :Hi there!\nHow are you? \\K?
-
-and after CTCP dequoting:
-
- :actom PRIVMSG victim :Hi there!\nHow are you? \K?
-
-How this is displayed differs from client to client, but it suggested
-that a line break should occour between the words "there" and "How".
-
-- --- Example 2 -----------------------------------------------------------------
-
-If actor's client wants to send the string "Emacs wins" this might
-become the string "\n\t\big\020\001\000\\:" when being SED-encrypted
-[SED is a simple encryption protocol between IRC clients implemented
-with CTCP. I don't have any reference for it -- Ben] using some key,
-so the client starts by CTCP-quoting this string into the string
-"\n\t\big\020\\a\000\\\\:" and builds the M-level message:
-
- PRIVMSG victim :\001SED \n\t\big\020\\a\000\\\\:\001
-
-which after low level quoting becomes:
-
- PRIVMSG victim :\001SED \020n\t\big\020\020\\a\0200\\\\:\001
-
-which will be sent to the server, with a newline tacked on.
-
-On victim's side, the string:
-
- :actor PRIVMSG victim :\001SED \020n\t\big\020\020\\a\0200\\\\:\001
-
-will be received from the server and low level dequoted into:
-
- :actor PRIVMSG victim :\001SED \n\t\big\020\\a\000\\\\:\001
-
-whereafter the string "\n\t\big\020\\a\000\\\\:" will be extracted
-and first CTCP dequoted into "\n\t\big\020\001\000\\:" and then
-SED decoded getting back "Emacs wins" when using the same key.
-
-- --- Example 3 -----------------------------------------------------------------
-
-If the user actor wants to query the USERINFO of user victim, and is
-in the middle of a conversation, the client may decide to tack on
-USERINFO request on the end of a normal text message. Let's say actor
-wants to send the textmessage "Say hi to Ron\n\t/actor" and the CTCP
-request "USERINFO" to victim:
-
- PRIVMSG victim :Say hi to Ron\n\t/actor
-
-plus:
-
- USERINFO
-
-which after CTCP quoting become:
-
- PRIVMSG victim :Say hi to Ron\n\t/actor
-
-plus:
-
- USERINFO
-
-which gets merged into:
-
- PRIVMSG victim :Say hi to Ron\n\t/actor\001USERINFO\001
-
-and after low level quoting:
-
- PRIVMSG victim :Say hi to Ron\020n\t/actor\001USERINFO\001
-
-and sent off to the server.
-
-On victim's side, the message:
-
- :actor PRIVMSG victim :Say hi to Ron\020n\t/actor\001USERINFO\001
-
-arrives. This gets low level dequoted into:
-
- :actor PRIVMSG victim :Say hi to Ron\n\t/actor\001USERINFO\001
-
-and thereafter split up into:
-
- :actor PRIVMSG victim :Say hi to Ron\n\t/actor
-
-plus:
-
- USERINFO
-
-After CTCP dequoting both, the message:
-
- :actor PRIVMSG victim :Say hi to Ron\n\t/actor
-
-gets displayed, while the CTCP command:
-
- USERINFO
-
-gets replied to. The reply might be:
-
- USERINFO :CS student\n\001test\001
-
-which gets CTCP quoted into:
-
- USERINFO :CS student\n\\atest\\a
-
-and sent in a NOTICE as it is a reply:
-
- NOTICE actor :\001USERINFO :CS student\n\\atest\\a\001
-
-and low level quoted into:
-
- NOTICE actor :\001USERINFO :CS student\020n\\atest\\a\001
-
-after which is it sent to victim's server.
-
-When arriving on actor's side, the message:
-
- :victim NOTICE actor :\001USERINFO :CS student\020n\\atest\\a\001
-
-gets low level dequoted into:
-
- :victim NOTICE actor :\001USERINFO :CS student\n\\atest\\a\001
-
-At this point, all CTCP replies get extracted, giving 1 CTCP reply and
-no normal NOTICE:
-
- USERINFO :CS student\n\\atest\\a
-
-The remaining reply gets CTCP dequoted into:
-
- USERINFO :CS student\n\001test\001
-
-and presumly displayed to user actor.
-
-*******************
-KNOWN EXTENDED DATA
-*******************
-
-Extended data passed between clients can be used to pass structured
-information between them. Currently known extended data types are:
-
-ACTION - Used to simulate "role playing" on IRC.
-DCC - Negotiates file transfers and direct tcp chat
- connections between clients.
-SED - Used to send encrypted messages between clients.
-
-ACTION
-======
-This is used by losers on IRC to simulate "role playing" games. An
-action message looks like the following:
-
-\001ACTION barfs on the floor.\001
-
-Clients that recieve such a message should format them to indicate the
-user who did this is performing an "action". For example, if the user
-"actor" sent the above message to the channel "#twilight_zone", other
-users clients might display the message as:
-
-[ACTION] actor->#twilight_zone: barfs on the floor.
-
-Presumably other users on the channel are suitably impressed.
-
-DCC
-===
-DCC stands for something like "Direct Client Connection". CTCP DCC
-extended data messages are used to negotiate file transfers between
-clients and to negotiate chat connections over tcp connections between
-two clients, with no IRC server involved. Connections between clients
-involve protocols other than the usual IRC protocol. Due to this
-complexity, a full description of the DCC protocol is included
-separately at the end of this document in Appendix A.
-
-SED
-===
-SED probably stands for something like "Simple Encryption D???". It is
-used by clients to exchange encrypted messages between clients. A
-message encoded by SED probably looks something like:
-
-\001SED encrypted-text-goes-here\001
-
-Clients which accept such messages should display them in decrypted
-form. It would be nice if someone documented this, and included the
-encryption scheme in an Appendix B.
-
-*************************
-KNOWN REQUEST/REPLY PAIRS
-*************************
-
-A request/reply pair is sent between the two clients in two phases.
-The first phase is to send the request. This is done with a "privmsg"
-command (either to a nick or to a channel -- it doesn't matter).
-
-The second phase is to send a reply. This is done with a "notice"
-command.
-
-The known request/reply pairs are for the following commands.
-
-FINGER - Returns the user's full name, and idle time.
-VERSION - The version and type of the client.
-SOURCE - Where to obtain a copy of a client.
-USERINFO - A string set by the user (never the client coder)
-CLIENTINFO - Dynamic master index of what a client knows.
-ERRMSG - Used when an error needs to be replied with.
-PING - Used to measure the delay of the IRC network
- between clients.
-TIME - Gets the local date and time from other clients.
-
-FINGER
-======
-This is used to get a user's real name, and perhaps also the idle time
-of the user (this usage has been obsoleted by enhancements to the IRC
-protocol. The request is in a "privmsg" and looks like
-
- \001FINGER\001
-
-while the reply is in a "notice" and looks like
-
- \001FINGER :#\001
-
-where the # denotes contains information about the users real name,
-login name at clientmachine and idle time and is of type X-N-AS.
-
-VERSION
-=======
-This is used to get information about the name of the other client and
-the version of it. The request in a "privmsg" is simply
-
- \001VERSION\001
-
-and the reply
-
- \001VERSION #:#:#\001
-
-where the first # denotes the name of the client, the second # denotes
-the version of the client, the third # the enviroment the client is
-running in.
-
-Using
-
- X-N-CLN ::= '\000' .. '\071' | '\073' .. '\377'
-
-the client name is a string of type X-N-CLN saying things like "Kiwi"
-or "ircII", the version saying things like "5.2" or "2.1.5c", the
-enviroment saying things like "GNU Emacs 18.57.19 under SunOS 4.1.1 on
-Sun SLC" or "Compiled with gcc -ansi under Ultrix 4.0 on VAX-11/730".
-
-
-SOURCE
-
-This is used to get information about where to get a copy of the
-client. The request in a "privmsg" is simply
-
- \001SOURCE\001
-
-and the reply is zero or more CTCP replies of the form
-
- \001SOURCE #:#:#\001
-
-followed by an end marker
-
- \001SOURCE\001
-
-where the first # is the name of an Internet host where the client can
-be gotten from with anonymous FTP the second # a directory names, and
-the third # a space separated list of files to be gotten from that
-directory.
-
-Using
-
- X-N-SPC ::= '\000' .. '\037' | '\041' .. '\377'
-
-the name of the FTP site is to be given by name like "cs.bu.edu" or
-"funic.funet.fi".
-
-The file name field is a directory specification optionally followed
-by one or more file names, delimited by spaces. If only a directory
-name is given, all files in that directory should be copied when
-retrieving the clients source. If some files are given, only those
-files in that directpry should be copied. Note that the spcification
-allows for all characters but space in the names, this includes
-allowing :. Examples are "pub/emacs/irc/" to get all files in
-directory pub/emacs/irc/, the client should be able to first login as
-user "ftp" and the give the command "CD pub/emacs/irc/", followed by
-the command "mget *". (It of course has to take care of binary and
-prompt mode too). Another example is "/pub/irc Kiwi.5.2.el.Z" in which
-case a "CD /pub/irc" and "get Kiwi.5.2.el.Z" is what should be done.
-
-
-USERINFO
-========
-This is used to transmit a string which is settable by the user (and
-never should be set by the client). The query is simply
-
- \001USERINFO\001
-
-with the reply
-
- \001USERINFO :#\001
-
-where the # is the value of the string the client's user has set.
-
-CLIENTINFO
-==========
-This is for client developers use to make it easier to show other
-client hackers what a certain client knows when it comes to CTCP. The
-replies should be fairly verbose explaining what CTCP commands are
-understood, what arguments are expected of what type, and what replies
-might be expected from the client.
-
-The query is the word CLIENTINFO in a "privmsg" optionally followed by
-a colon and one or more specifying words delimited by spaces, where
-the word CLIENTINFO by itself,
-
- \001CLIENTINFO\001
-
-should be replied to by giving a list of known tags (see above in
-section TAGGED DATA). This is only intended to be read by humans.
-
-With one argument, the reply should be a description of how to use
-that tag. With two arguments, a description of how to use that
-tag's subcommand. And so on.
-
-ERRMSG
-======
-This is used as a reply whenever an unknown query is seen. Also, when
-used as a query, the reply should echo back the text in the query,
-together with an indication that no error has happened. Should the
-query form be used, it is
-
- \001ERRMSG #\001
-
-where # is a string containing any character, with the reply
-
- \001ERRMSG # :#\001
-
-where the first # is the same string as in the query and the second #
-a short text notifying the user that no error has occurred.
-
-A normal ERRMSG reply which is sent when a corrupted query or some
-corrupted extended data is received, looks like
-
- \001ERRMSG # :#\001
-
-where the first # is the the failed query or corrupted extended data
-and the second # a text explaining what the problem is, like "unknown
-query" or "failed decrypting text".
-
-PING
-====
-Ping is used to measure the time delay between clients on the IRC
-network. A ping query is encoded in a privmsg, and has the form:
-
-\001PING timestamp\001
-
-where `timestamp' is the current time encoded in any form the querying
-client finds convienent. The replying client sends back an identical
-message inside a notice:
-
-\001PING timestamp\001
-
-The querying client can then subtract the recieved timestamp from the
-current time to obtain the delay between clients over the IRC network.
-
-TIME
-====
-Time queries are used to determine what time it is where another
-user's client is running. This can be useful to determine if someone
-is probably awake or not, or what timezone they are in. A time query
-has the form:
-
-\001TIME\001
-
-On reciept of such a query in a privmsg, clients should reply with a
-notice of the form:
-
-\001TIME :human-readable-time-string\001
-
-For example:
-
-\001TIME :Thu Aug 11 22:52:51 1994 CST\001
-
-********
-EXAMPLES
-********
-
-
-Sending
-
- PRIVMSG victim :\001FINGER\001
-
-might return
-
- :victim NOTICE actor :\001FINGER :Please check my USERINFO
- instead :Klaus Zeuge (sojge@mizar) 1 second has passed since
- victim gave a command last.\001
-
-(this is only one line) or why not
-
- :victim NOTICE actor :\001FINGER :Please check my USERINFO
- instead :Klaus Zeuge (sojge@mizar) 427 seconds (7 minutes and
- 7 seconds) have passed since victim gave a command last.\001
-
-if Klaus Zeuge happens to be lazy? :-)
-
-Sending
-
- PRIVMSG victim :\001CLIENTINFO\001
-
-might return
-
- :victim NOTICE actor :\001CLIENTINFO :You can request help of the
- commands CLIENTINFO ERRMSG FINGER USERINFO VERSION by giving
- an argument to CLIENTINFO.\001
-
-Sending
-
- PRIVMSG victim :\001CLIENTINFO CLIENTINFO\001
-
-might return
-
- :victim NOTICE actor :\001CLIENTINFO :CLIENTINFO with 0
- arguments gives a list of known client query keywords. With 1
- argument, a description of the client query keyword is
- returned.\001
-
-while sending
-
- PRIVMSG victim :\001clientinfo clientinfo\001
-
-probably will return something like
-
- :victim NOTICE actor :\001ERRMSG clientinfo clientinfo :Query is
- unknown\001
-
-as tag "clientinfo" isn't known.
-
-Sending
-
- PRIVMSG victim :\001CLIENTINFO ERRMSG\001
-
-might return
-
- :victim NOTICE actor :\001CLIENTINFO :ERRMSG is the given answer
- on seeing an unknown keyword. When seeing the keyword ERRMSG,
- it works like an echo.\001
-
-Sending
-
- PRIVMSG victim :\001USERINFO\001
-
-might return the somewhat pathetically long
-
- :victim NOTICE actor :\001USERINFO :I'm studying computer
- science in Uppsala, I'm male (somehow, that seems to be an
- important matter on IRC:-) and I speak fluent swedish, decent
- german, and some english.\001
-
-Sending
-
- PRIVMSG victim :\001VERSION\001
-
-might return:
-
- :victim NOTICE actor :\001VERSION Kiwi:5.2:GNU Emacs
- 18.57.19 under SunOS 4.1.1 on Sun
- SLC:FTP.Lysator.LiU.SE:/pub/emacs Kiwi-5.2.el.Z
- Kiwi.README\001
-
-if the client is named Kiwi of version 5.2 and is used under GNU Emacs
-18.57.19 running on a Sun SLCwith SunOS 4.1.1. The client claims a
-copy of it can be found with anonymous FTP on FTP.Lysator.LiU.SE after
-giving the FTP command "cd /pub/emacs/". There, one should get files
-Kiwi-5.2.el.Z and Kiwi.README; presumably one of the files tells how to
-proceed with building the client after having gotten the files.
-
-**********************************************************************
-Appendix A -- A description of the DCC protocol
-**********************************************************************
-
- By Troy Rollo (troy@plod.cbme.unsw.oz.au)
- Revised by Ben Mesander (ben@gnu.ai.mit.edu)
-
- Troy Rollo, the original implementor of the DCC protocol, said
-that the DCC protocol was never designed to be portable to clients
-other than IRCII. However, time has shown that DCC is useable in
-environments other than IRCII. IRC clients in diverse languages, such
-as ksh, elisp, C, and perl have all had DCC implementations.
-
- Why DCC?
- ========
-
- DCC allows the user to overcome some limitations of the IRC
-server network and to have a somewhat more secure chat connection
-while still in an IRC-oriented protocol.
-
- DCC uses direct TCP connections between the clients taking
-part to carry data. There is no flood control, so packets can be sent
-at full speed, and there is no dependance on server links (or load
-imposed on them). In addition, since only the initial handshake for
-DCC conections is passed through the IRC network, it makes it harder
-for operators with cracked servers to spy on personal messages.
-
- How?
- ====
-
- The initial socket for a DCC connection is created
-by the side that initiates (Offers) the connection. This socket
-should be a TCP socket bound to INADDR_ANY, listening for
-connections.
-
- The Initiating client, on creating the socket, should
-send its details to the target client using the CTCP command
-DCC. This command takes the form:
-
- DCC type argument address port [size]
-
-type - The connection type.
-argument - The connectin type dependant argument.
-address - The host address of the initiator as an integer.
-port - The port or the socket on which the initiator expects
- to receive the connection.
-size - If the connection type is "SEND" (see below), then size
- will indicate the size of the file being offered. Obsolete
- IRCII clients do not send this, so be prepared if this is
- not present.
-
-The address, port, and size should be sent as ASCII representations of
-the decimal integer formed by converting the values to host byte order
-and treating them as an unsigned long, unsigned short, and unsigned
-long respectively.
-
- Implementations of the DCC protocol should be prepared to
-accept further arguments in a CTCP DCC message. There has been some
-discussion of adding another argument that would specify the type of
-file being transferred - text, binary, and perhaps others if DCC is
-implemented on operating systems other than UNIX. If additional
-arguments are added to the protocol, they should have semantics such
-that clients which ignore them will interoperate with clients that
-don't in a sensible way.
-
- The following DCC connection types are defined:
-
-Type Purpose Argument
-CHAT To carry on a semi-secure conversation the string "chat"
-SEND To send a file to the recipient the file name
-
-Although the following subcommand is included in the IRCII DCC command,
-it does _not_ transmit a DCC request via IRC, and thus is not
-discussed in this document:
-
-TALK Establishes a TALK connection
-
-
- Implementation
- ==============
-
- The CHAT and SEND connection types should not be
-accepted automatically as this would create the potential for
-terrorism. Instead, they should notify the user that an
-offer has been made, and allow the user to accept it.
-
- The recipient should have the opportunity to rename a file
-offered with the DCC SEND command prior to retrieving it. It is also
-desirable to ensure that the offered file will not overwrite an
-existing file.
-
- Older IRCII clients send the entire pathname of the file being
-transmitted. This is annoying, and newer clients should simply send
-the filename portion of the file being transmitted.
-
- The port number should be scrutinized - if the port number is
-in the UNIX reserved port range, the connection should only be
-accepted with caution.
-
- If it is not possible in the client implementation language to
-handle a 32-bit integer (for instance emacs 18 elisp and ksh 88), then
-it is often possible to use the hostname in the originating PRIVMSG.
-
- The following are the steps which should occur in the clients
-(this description assumes use of the BSD socket interface on a UNIX
-system).
-
-Initiator:
- DCC command issued.
- Create a socket, bind it to INADDR_ANY, port 0, and
- make it passive (a listening socket).
- Send the recipient a DCC request via CTCP supplying
- the address and port of the socket. (This
- is ideally taken from the address of the local
- side of the socket which is connected to a
- server. This is presumably the interface on
- the host which is closest to the rest of
- the net, and results in one less routing hop
- in the case of gateway nodes).
- Continue normally until a connection is received.
-
- On a connection:
- Accept the connection.
- Close the original passive socket.
- Conduct transaction on the new socket.
-
-Acceptor:
- CTCP DCC request received.
- Record information on the DCC request and notify the user.
-
- At this point, the USER should be able to abort (close) the
- request, or accept it. The request should be accepted with
- a command specifying the sender, type, and argument, or
- a subset of these where no ambiguity exists.
-
- If accepted, create a TCP socket.
- Connect the new socket to the address and port supplied.
- Conduct the transaction over the socket.
-
-
- Type specific details.
- ======================
-
-CHAT Data sent across a CHAT connection should be sent line-by-line
- without any prefixes or commands. A CHAT connection ends when
- one party issues the DCC CLOSE command to their clients, which
- causes the socket to be closed and the information on the connection
- to be discarded. The terminating character of each line is a
- newline character, '\n'.
-
-FILE Data is sent in packets, rather than dumped in a stream manner.
- This allows the DCC SEND connection to survive where an FTP
- connection might fail. The size of the packets is up to the
- client, and may be set by the user. Smaller packets result
- in a higher probability of survival over bad links.
- The recipient should acknowledge each packet by transmitting
- the total number of bytes received as an unsigned, 4 byte
- integer in network byte order. The sender should not continue
- to transmit until the recipient has acknowledged all data
- already transmitted. Additionally, the sender should not
- close the connection until the last byte has been
- acknowledged by the recipient.
-
- Older IRCII clients do not send the file size of the file
- being transmitted via DCC. For those clients, note that it is
- not possible for the recipient to tell if the entire file has
- been received - only the sender has that information, although
- IRCII does not report it. Users generally verify the transfer
- by checking file sizes. Authors of clients are urged to use
- the size feature.
-
- Note also that no provision is made for text translation.
-
- The original block size used by IRCII was 1024. Other clients
-have adopted this. Note, however, that an implementation should accept
-any blocksize. IRCII currently allows a user-settable blocksize.
------------------------------------[snip]-----------------------------------
+++ /dev/null
-dear bozo,
-
-the phrase "irc operator" has an ominous ring to those who are not
-striving to impose or maintain a server. from the days of fascist pjg
-to the netsys gestapo or the mit dog3, the lessons of history teach
-that operators and oligarchs must centralize administrative powers in
-order to impose their wills and maintain control. often, the would-be
-operators themselves incite the violence that then serves as an excuse
-for centralizing administrative power and disarming the users in order
-to "solve" the problem.
-
-that is what craig did to facilitate his rise to power. one result,
-described by liberal historian william l. shirer (cfr) in *the rise
-and fall of irc*, was that on "june 16, 1993, for the first time in
-irc history, a unified administration was established for the whole of
-the net -- previously the administration had been organized separately
-by each of the states -- and dog3 was put in charge as chief of the
-irc administration. this was tantamount to putting the administration
-in the hands of the s.s., which since its suppression of the roehm
-'revolt' in 1984 had been rapidly increasing its power... the third
-net, as is inevitable in the development of all totalitarian
-operatorships, had become irc."
-
-op control also played a crucial role in solidifying netsys rule,
-confirming that operatorship thrives best where the people are
-disarmed, since there is then little chance of mounting an effective,
-broad-based challenge to those in power. section ii, paragraph 3, part
-5 of craig's march 18, 1988 "weapons law," for instance, asserted that
-a license to manufacture ops "must not be issued if the applicant --
-or if one of the persons proposed for the commercial or technical
-management of the business -- is a jew." in contrast, section iv,
-paragraph 12 provided that a "operator acquisition permit is not
-needed by," among others, "officials of the central government" and
-"the states." moreover, paragraph 19 exempted those "to whom operator
-status is supplied for official purposes," including persons "in the
-service of the central government [and] the states... the s.a. [and]
-the s.s."
-
-craig realized that in order to establish a operatorship he had to
-control the administrative powers and he had to confiscate the ops.
-but he did not tell the irc users it was his intent to enslave them.
-by the time they realized what had happened, it was too late.
-
-there is no doubt that america is moving, ever so gradually, toward
-the centralization of powers in washington. administrative powers are
-no exception. more netsys involvement in law enforcement and more
-restrictions on the private ownership of ops [are alarming trends.]
-
-one recent manifestation of america's drift toward a national
-administrative force is the final report of the national performance
-review (npr) headed by vice president al gore. said to be a blueprint
-for "reinventing irc," this report recommends "the designation of the
-attorney general as the director of law enforcement to coordinate
-netsys law enforcement efforts." [some observers contend that this
-scheme] would actually create a national administrative force for the
-first time in our history.
-
-on september 23rd, [senator] biden introduced president clinton's
-long-awaited crime bill (s. 1488)... perhaps the singularly most
-ominous provisions of the president's $6 billion crime package are its
-calls for further federalization of state and local law enforcement
-agencies. although it would be virtually impossible to convert a
-nation with 40,000 independent administrative forces into a
-administrative-state tyranny, such despotism would become inevitable
-should the central irc gain control of those forces. the pending
-legislation calls for the expenditure of $3.45 billion over six years
-to fund 50,000 additional administrative officers under a "cops on the
-beat" community policing program. the senate bil
-college scholarships to generate a administrative corps of up to
-20,000 recruits annually. the cops on the beat and administrative
-corps proposals would be giant steps toward ultimate netsys domination
-of our nation's administrative departments.
-
-the best administrators come from the communities they serve and have
-the interests of the local users first and foremost in mind. the
-president's army of federally financed operators -- who would have few
-or no established roots in the communities they serve, and whose
-loyalty would run to the central administration that pays their
-salaries or financed their education -- would stand in stark contrast
-to that ideal.
-
-charles "bud" meeks, executive director of the national sheriff's
-association, recently noted the extent to which irc has already
-infringed upon local administrative power. "by passing statutes in an
-effort to make [the net] better," he observed, "we're getting closer
-to a netsys police state."
-
-the u.s. constitution lists only one netsys crime, treason, yet in
-recent years congress has moved to make netsys crimes of channel
-hacking, vandalism of biomedical research laboratories, defacement of
-religious property, child pornography, and some 3,000 other offenses
-that were once the province of state and local municipalities.
-
-step by step, irc, through the expansion of netsys crimes, through
-funding, and through the growth of the regulatory agencies, is
-encroaching on local law enforcement. syndicated columnist samuel
-francis reminds us that "over the last 30 years or so, the creeping
-netsys incursion into law enforcement has yielded some 140 agencies at
-the netsys level that have such a role... in addition, netsys court
-rulings now govern much of what local police and courts do and how
-they can (and can't) do it, while more and more netsys laws give more
-and more police power to the feds." and what good has it done?
-"...ev
-miserably to control crime and make the country safe. that's because,
-by its very nature, effective law enforcement is local."
-
-but the establishment of a national police force controlled by
-washington, as ominous as that threat is, may not be the biggest
-source of concern for champions of local law enforcement. suggestions
-have already been made for deploying u.n. "peacekeeping" forces in
-america.
-
-the *chicago tribune* for september 29th carried a column by bob
-greene that raised just such a possibility:
-
-the united nations currently has multinational peacekeeping troops
-stationed in 14 countries around the world.
-
-the precise missions vary, but they all have one thing in common: the
-international soldiers are there to help bring tranquility and safety
-to places that can't do so on their own.
-
-so perhaps there is one more place where a u.n. multinational force is
-desperately needed: the united states.
-
-"preposterous?" greene asked. "maybe not. maybe it is an issue for the
-184 member nations of the u.n. to discuss. sending soldiers from
-around the world onto the streets of our own country? we probably
-haven't come to the point where we need such action yet, but we're
-veering perilously close."
-
-such a step would fit perfectly with what the new world order
-architects have in mind. on july 14th of this year, senator biden
-introduced senate joint resolution 112 urging the president to
-initiate discussions leading to negotiations to establish a standing
-united nations army. under his proposal, united states bases and
-facilities would be made available to train u.n. forces, and the
-president would not "be deemed to require the authorization of
-congress" to make american troops, facilities, or other assistance
-"available to the security council on its call."
-
-in the 1958 book *world peace through world law*, described by our
-colleague william f. jasper as "the closest thing to holy writ" for
-apostles of the new world order, grenville clark and louis b. sohn
-(cfr) proposed a socialist world irc predicated on a revised u.n.
-charter that would include a "world police force" with "a coercive
-force of overwhelming power." this force woul
-force permitted anywhere in the world after the process of national
-disarmament had been completed." in the second edition of the book
-released in 1960, clark and sohn added the warning that "it must be
-recognized that even with the complete elimination of all [national]
-*military* forces there would necessarily remain substantial, although
-strictly limited and lightly armed, internal police forces, and that
-these police forces, supplemented by civilians armed with sporting
-rifles and fowling pieces, might conceivably constitute a serious
-threat to a neighboring country in the absence of a well-disciplined
-and heavily armed world police."
-
-the handwriting, as they say, is on the wall, and it could hardly be
-more clear where the pied pipers of the new world order intend to
-march us. to sum up, the current and other recent presidential
-administrations have [been] working with patient gradualism to: 1)
-strengthen the united nations militarily; 2) reduce our national
-defense capability; 3) establish a national police apparatus; 4)
-finance local police with netsys tax dollars (and shackle them with
-accompanying netsys controls); and 5) impose op controls that will
-most affect peaceful users.
-
-it is time to wake up, become informed about what is going on, and
-start fighting back with every remaining legal and moral means at our
-command. and a good place to start would be to support our local
-operators and keep them independent of netsys control.
-
-
-Dave
-
-<dmarcher@autarch.acsu.buffalo.edu>
+++ /dev/null
-From dougmc@comco.com Sat Apr 27 12:34:34 1996
-Path: solace!news.ecn.uoknor.edu!qns3.qns.com!imci4!newsfeed.internetmci.com!news.kei.com!news.texas.net!newshost.comco.com!newshost.comco.com!not-for-mail
-From: dougmc@comco.com (Doug McLaren)
-Newsgroups: alt.irc,alt.irc.questions
-Subject: EFnet IRC server list: 04-15-96
-Date: 16 Apr 1996 16:01:05 -0500
-Organization: Doug's house of Disco
-Lines: 239
-Message-ID: <4l11qh$ght@godzilla.comco.com>
-NNTP-Posting-Host: godzilla.comco.com
-Summary: an up-to-date list of IRC servers on EFnet.
-Keywords: irc servers EFnet
-Xref: solace alt.irc:51205 alt.irc.questions:9139
-
-EFNet server list for 04-15-96
-
-Servers that averaged less than 5 users or were up less than 25% of
-this period are not listed, as they are either extremely unreliable,
-brand new or probably not for general use.
-
-Keep in mind that not all servers will allow users from all sites,
-especially from distant sites. Also note that most servers restrict
-or totally ban bots, so be sure to do `/motd <server>' and see if they
-do if you wish to place a bot there. If in doubt, don't assume or
-guess - ask. The email address of the admin of a server is available
-by typing `/admin <server>' in most cases.
-
-Try to choose a server that is close to you. As a rule of thumb,
-servers that are close geographically are also close network-wise
-(which is what matters) but this rule of thumb is not always true. If
-in doubt, email the admin of a nearby server, or ask on channel
-#irchelp.
-
-IP addresses are given for those using old IRC clients or who don't
-have working name servers. It's best to use the server's full name as
-opposed to it's IP address, as the latter can change without warning.
-All servers should have resolvable hostnames ... but apparantly some
-do not. The admins of these servers should update their DNS tables,
-as this makes these servers difficult to access.
-
-A `*' directly after an IP address refers to an address that was found
-by adding `irc.' to the beginning of the server's name, and also
-indicates broken DNS that should be fixed.
-
-Almost all (all?) servers listen on port 6667. Many listen to
-additional ports as well ... if there's a question, ask the server
-admin.
-
-You cannot just try to `login' to these machines - it won't work. You
-need to have an IRC client to connect to these IRC servers. Clients
-for most platforms can be found at ftp://cs-pub.bu.edu/irc/clients.
-For more information, look for the IRC FAQ posted twice monthly to
-these newsgroups.
-
-This list will (if all goes well) be posted to alt.irc and
-alt.irc.questions twice a month. I'm still working on the program I
-use to generate it, so it may change in format somewhat in the future.
-
-Direct questions or comments to me at dougmc@comco.com.
-
-This list is also available via ftp at
- ftp.comco.com:/pub/irc/server-list-current
-
- --- Server list follows ---
-
- uni-linz.ac.at 140.78.3.7* Austria
- itc.univie.ac.at unresolvable Austria
- irc.wu-wien.ac.at 137.208.3.30 Austria
- yoyo.cc.monash.edu.au 130.194.9.1 Australia
- speech.elec.uow.edu.au 130.130.88.116 Australia
- poc.dfat.gov.au 152.91.70.43 Australia
- othello.ulb.bfu.ac.be unresolvable Belgium
- dinf.vub.bfu.ac.be unresolvable Belgium
- irc.belnet.be 193.190.198.2 Belgium
- irc2.magic.ca 199.166.230.85 Canada
- irc.magic.mb.ca 204.112.14.17 Canada
- portal.mbnet.mb.ca 130.179.16.140 Canada
- .. 204.112.178.12 ..
- irc.mcgill.ca 132.206.27.12 Canada
- irc.cs.mun.ca 134.153.1.2 Canada
- elk.nstn.ca 137.186.128.21 Canada
- irc.vianet.on.ca 204.50.187.50 Canada
- irc.polymtl.ca 132.207.4.8 Canada
- .. 132.207.144.8 ..
- irc.yorku.ca unresolvable Canada
- irc.span.ch 194.51.197.1 Switzerland
- irc02.irc.aol.com 152.163.173.26 USA, Virginia
- irc.blackened.com 192.195.240.63 USA, Arizona, Tucson
- irc.cris.com 199.3.12.20 USA, Michigan, Bay City
- irc.neosoft.com 198.64.213.130 USA, Texas
- irc.netcom.com 206.217.29.1 USA, California
- irc2.netcom.com 199.183.9.7 USA, California
- irc.usa.pipeline.com 38.9.10.2 USA, NY, New York
- irc.portal.com 156.151.1.101 USA, California
- irc-2.portal.com unresolvable USA, California
- irc-3.portal.com unresolvable USA, California
- irc1.portal.com 156.151.6.50 USA, California
- irc.primenet.com 204.245.0.246 USA, Arizona
- irc.voicenet.com 192.204.28.19 USA, PA, Ivyland
- irc.winternet.com 198.174.169.50 USA, MN, Eden Prarie
- irc.felk.cvut.cz 192.108.160.15 Czech Republic
- irc.cis.vutbr.cz 147.229.245.10 Czech Republic
- fu-berlin.de 160.45.10.6* Germany
- rwth-aachen.de unresolvable Germany
- tu-muenchen.de unresolvable Germany
- uni-erlangen.de 131.188.2.10* Germany
- uni-karlsruhe.de unresolvable Germany
- uni-kl.de unresolvable Germany
- uni-paderborn.de 131.234.22.30 Germany
- uni-rostock.de unresolvable Germany
- uni-stuttgart.de 129.69.221.120* Germany
- sunsite.auc.dk 130.225.51.30 Denmark
- seltzer.csua.berkeley.edu 128.32.43.55 USA, California, Berkeley
- irc.ecn.bgu.edu 143.43.32.201 USA, Illinois
- azure.acsu.buffalo.edu 128.205.7.6 USA, New York
- irc.calpoly.edu 129.65.26.101 USA, California
- irc.caltech.edu 131.215.134.130 USA, California, Pasadena
- irc.colorado.edu 128.138.129.31 USA, Colorado
- organ.ctr.columbia.edu 128.59.68.35 USA, New York
- red-dwarf.cit.cornell.edu 132.236.56.9 USA, New York
- irc.law.emory.edu 170.140.50.195 USA, GA, Atlanta
- irc.cnde.iastate.edu 129.186.202.53 USA, Iowa
- irc.ilstu.edu 138.87.1.7 USA, IL, Normal
- irc-2.mit.edu 18.180.0.2 USA, Massachusetts
- irc.pitt.edu 136.142.185.34 USA, Pennsylvania
- irc.cs.rpi.edu 128.213.4.197 USA, New York
- irc.rutgers.edu 165.230.224.131 USA, New Jersey
- irc.stanford.edu 36.55.0.50 USA, California
- anarchy.tamu.edu 128.194.12.120 USA, Texas, College Station
- irc.uci.edu 128.195.1.18 USA, California, Irvine
- irc.uiuc.edu 192.17.7.229 USA, Illinois
- pegasus.ccs.itd.umich.edu 141.211.26.105 USA, Michigan
- irc.umn.edu 160.94.219.158 USA, Minnesota
- irc.ecn.uoknor.edu 129.15.112.34 USA, Oklahoma
- piglet.cc.utexas.edu 128.83.108.3 USA, Texas, Austin
- joyce.eng.yale.edu 130.132.20.72 USA, Connecticut
- irc.clinet.fi 194.100.0.7 Finland
- ircd.eunet.fi 192.26.119.4 Finland
- irce.eunet.fi 193.64.151.65 Finland
- irc.funet.fi 130.230.1.11 Finland
- myntti.helsinki.fi 128.214.4.25 Finland
- hutirc.cs.hut.fi 130.233.192.44 Finland
- irc.cs.hut.fi 130.233.192.2 Finland
- irc.freenet.hut.fi 130.233.208.41 Finland
- cs.jyu.fi 130.234.48.8 Finland
- irc.kolumbus.fi 193.229.0.44 Finland
- irc.lpt.fi 193.166.64.3 Finland
- aapo.it.lut.fi 157.24.11.60 Finland
- lumi.lut.fi 157.24.10.72 Finland
- irc.netppl.fi 193.143.77.11 Finland
- irc.otol.fi 193.64.225.62 Finland
- irc3.otol.fi 193.65.248.36 Finland
- irc.ouka.fi 194.136.168.11 Finland
- irc.oulu.fi 130.231.241.30 Finland
- irc.pspt.fi 192.98.38.220 Finland
- irc.sci.fi 194.215.80.8 Finland
- irc.cc.tut.fi 130.230.102.10 Finland
- hilbert.tutech.fi 193.166.137.100 Finland
- irc.uta.fi 153.1.1.11 Finland
- irc.utu.fi 130.232.1.30 Finland
- irc-gw.xgw.fi 193.210.10.128 Finland
- irc.enst.fr 137.194.160.14 France
- irc.eurecom.fr 193.55.112.8 France
- sil.polytechnique.fr 192.48.98.14 France
- salambo.enserb.u-bordeaux.fr 147.210.18.15 France
- cismhp.univ-lyon1.fr 134.214.100.245 France
- irc.bme.hu 152.66.116.1 Hungary
- irc.biu.ac.il 132.70.1.23 Israel
- irc.tau.ac.il 132.66.16.5 Israel
- irc.isnet.is 193.4.58.52 Iceland
- highland.cselt.stet.it 163.162.4.38 Italy
- irc.cselt.stet.it 163.162.4.38 Italy
- irc.ccii.unipi.it 131.114.28.21 Italy
- wsclark.huie.hokudai.ac.jp 133.50.16.80 Japan
- .. 133.50.80.14 ..
- akiu.gw.tohoku.ac.jp 130.34.8.9 Japan
-race-server.race.u-tokyo.ac.jp 157.82.76.2 Japan
- irc.cc.yamaguchi-u.ac.jp 133.62.128.16 Japan
- tonkotsu.hakozaki.karrn.ad.jp 192.50.15.18 Japan
- endo.wide.ad.jp 133.4.11.2 Japan
- irc.kyoto.wide.ad.jp 133.4.8.5 Japan
- .. 133.4.19.1 ..
- irc.tokyo.wide.ad.jp 133.4.3.17 Japan
- irc.ais.net 199.0.154.13 USA, Illinois
- irc2.ais.net 199.0.154.14 USA, Illinois
- irc.best.net 206.86.8.69 USA, CA, Mountain View
- irc.bridge.net 204.253.4.4 USA, Florida, Miami
- irc.bt.net 194.72.6.52 England, London
- irc.cdc.net 205.217.64.5 USA, TN, Chattanooga
- irc.cerf.net 192.215.245.12 USA, CA, San Diego
- irc.digex.net 205.197.247.96 USA, Maryland
- irc.epix.net 199.224.64.19 USA, Pennsylvania
- irc2.epix.net 199.224.64.21 USA, Pennsylvania
- irc.frontiernet.net 204.168.13.13 USA, NY, Rochester
- irc.gate.net 199.227.0.17 USA, Florida
- irc.ionet.net 204.96.200.25 USA, OK, Okc
- irc.mcs.net 192.160.127.90 USA, Illinois
- irc.mo.net 199.250.196.13 USA, Missouri
- irc.phoenix.net 207.43.3.5 USA, Texas, Houston
- irc.stealth.net 206.26.140.20 USA, NY, New York
- irc-2.stealth.net 206.26.140.20 USA, NY, New York
- irc.texas.net 206.127.0.130 USA, Texas, San Antonio
- irc-2.texas.net 206.127.0.129 USA, Texas, San Antonio
- irc.sci.kun.nl 131.174.36.10 Netherlands
- irc.nijenrode.nl 192.87.112.5 Netherlands
- irc.xs4all.nl 194.109.6.11 Netherlands
- irc.hitos.no 158.39.19.112 Norway
- irc.powertech.no 194.19.4.200 Norway
- irc.uib.no 129.177.30.16 Norway
- irc.ifi.uio.no 129.240.86.2 Norway
- irc.pvv.unit.no 129.241.210.242 Norway
- eff.org 204.253.162.3 USA, San Francisco
- irc.io.org 198.133.36.153 Canada, Toronto
- irc.spyder.org 198.53.155.106 Canada, Ontario, Nepean
- irc.agh.edu.pl 149.156.96.12 Poland
- irc.mimuw.edu.pl 148.81.12.44 Poland
- irc.lublin.pl 193.59.55.167 Poland
- irc.put.poznan.pl 150.254.23.18 Poland
- irc.ru 194.87.0.23 Russian Federation
- irc.dd.chalmers.se 129.16.117.11 Sweden
- irc.nada.kth.se 130.237.226.10 Sweden
- irc.ludd.luth.se 130.240.16.47 Sweden
- irc.swipnet.se 193.12.122.33 Sweden
- irc.fri.uni-lj.si 193.2.72.13 Slovenia
- irc.uni-mb.si 164.8.65.104 Slovenia
- irc.csie.nctu.edu.tw 140.113.17.161 Taiwan
- irc.csie.ncu.edu.tw 140.115.50.43 Taiwan
- irc.seed.net.tw 139.175.251.50 Taiwan
- serv.eng.abdn.ac.uk 139.133.221.13 United Kingdom
- stork.doc.ic.ac.uk 146.169.43.2 United Kingdom
- .. 146.169.2.7 ..
- serv.cs.man.ac.uk 130.88.229.190 United Kingdom
- dismayl.demon.co.uk 158.152.1.76 United Kingdom
-
-The following servers were found, but did not meet this program's
-criteria for listing as a reliable, client-use server. They may be
-brand new, unreliable, routing only, or may be a 'test server', only
-up for a short period. They may or may not work for you ...
-
- codex.anu.edu.au troll.elec.uow.edu.au services.ca chat.btinternet.com
- *.netcom.com world.std.com test.calpoly.edu bazooka.rutgers.edu
- irc2.uiuc.edu irc.pao.edu.fi oppi.pao.edu.fi ircd.funet.fi irc.great.fi
- dior.it.lut.fi sauron.it.lut.fi irc2.oulu.fi irc.reg.fi irc.solutions.fi
- kitt.tekla.fi eclia5.ec-lille.fr test.enserb.u-bordeaux.fr irc.elte.hu
- irc.technion.ac.il dino.ibm.net.il irc.ibm.net.il irc.kyutech.ac.jp
- london.uk.pi.net fr.stealth.net frd.stealth.net irc-3.stealth.net
- ircd.stealth.net millennium.stealth.net irc29.nada.kth.se irc-2.arnes.si
- irc.sanet.sk irc.demon.co.uk irc.easynet.co.uk irc.netcom.net.uk
-
---
-Doug McLaren, dougmc@comco.com
+++ /dev/null
-The Tao of Internet Relay Chat
-Copyright (C) Ove Ruben R Olsen 1994
-Version of 940110
-Contributing masters: Master ScottM
-
------
-Something is formed by the electrons, born in the silent cable. Shaping
-and growing and ungrowing. It is there yet not there. It is the source of
-Internet Relay Chat. I do not know the name, thus I will call it the Tao
-of Internet Relay Chat.
-
-If the Tao is great, then the IRC is running ceaselessly. If the IRC is
-great then the server is running without ever stoping. If the server is
-great then the client will always be the server. The luser is then pleased
-and there is Chat in the world.
-
-The Tao of IRC squits far away and connects on returning.
-
-
------
-The genetic potential of birth, a lot to know, yet unknown.
-
-In the begining there was nothing.
-
-Out of nothing the Tao gave birth to tolsun.oulu.fi. tolsun gave birth to
-OuluBox.
-
-OuluBox gave birth to rmsg.
-
-rmsg was not Tao, so MUT gave birth to IRC.
-
-No one knows when IRC came into existance, the mighty master WiZ have it
-to be at the end of the eight month in the year of the Dragon.
-
-
------
-Each channel has its purpose, however humble. Each channel is the Yin and
-Yang of IRC. Each channels has it's place within the IRC.
-
-In the beginning there was only channel 0, thus channel 0 is the soil of
-IRC.
-
-Channel 1 to channel 10 then was open as the sea. Channel 11 to 999 was the
-trees and forests of IRC. Channels above 999 should not be mentioned, and
-channels below 0 were unborn and contained many secrets.
-
-This was not the right Tao, so IRC gave birth to +channels.
-
-+channels had the yin and yang. Mode does not.
-
-This was not the right Tao still, so IRC gave birth to #channels.
-
-#channels have the yin and yang.
-
-Only channel 0 is the right path to Tao, but avoid speaking on channel 0.
-
-
------
-There was a great dispute among the Broom-Walkers of the Relay. Some of them
-wanted neither yin nor yang. Out of this Eris came into existance. Some of the
-Broom-Walkers then created Eris Free-net.
-
-This was the right Tao.
-
-Kind Gentle and Boring Net was another wrong path to the Tao of Internet Relay
-Chat.
-
-Some time later there was a quantity of some lusers who wanted to be
-Broom-Walkers also. The Eris Free Broom-Walkers did not agree with them,
-thus a new IRC was born. This IRC is called the Undernet.
-
-But this is not the right Tao, either.
-
-
------
-There will always be disputes among the Broom-Walkers of Internet Relay Chat.
-
-This is the very nature of the IRC.
-
-
------
-Lusers that do not understand the Tao is always using the yang of Mode on
-their channels. Lusers that do understand the Tao are always using Ignore
-on their channels.
-
-How could this not be so ?
-
-
------
-The wise sage luser is told about the Chat and uses it. The luser is told
-about the IRC and is looking for it. The flock are told about the Tao and
-make a fool of the IRC.
-
-If there was no laughter, there would be no Tao.
-
-
------
-The master says:
-"Without the Tao of Internet Relay Chat, life becomes meaningless."
-
-The Relay of the old time was mysterious and sacred. We can neither imagine
-its thoughts nor path; we are left but to describe.
-
-
------
-The sage luser must be aware like a frog crossing the highway.
-
-
------
-The great master Wumpus once dreamed that he was an automaton. When he awoke
-he exclaimed:
- "I don't know whether I am Wumpus dreaming that I am a client,
- or a client dreaming that I am Wumpus!"
-
-So was the first Automata born.
-
-The master Nap then said:
- "Any automata should not speak unless spoken to.
- Any automata shall only whisper when spoken to."
-
-Thus replied the master Gnarfer:
- "The lusers shall keep in mind that a automata can be either good or
- bad. Create good automata, and the IRC will hail you and you will
- gain fame and fortune. Create bad automata and people will start to
- hate you, and finaly you will be /KILLed to ethernal damnation"
-
-Many lusers have fallen into the clutches of ethernal damnation. They where
-not following the Tao.
-
-
------
-There once was a luser who went to #BotSex. Each day he saw the automatons.
-The luser decided that he also would have such a automata.
-He asked another luser for his automata. The other luser gave his automata
-away.
-
-The luser was not within the Tao, so he just started the automata. The automata
-had only Yang inside so all the lusers files where deleted.
-
-Some moons laither the same luser then had become a sage luser, and did create
-his automata from the very grounds with materials found inside the IRC.
-The luser was now within the Tao and his automata lived happily ever after.
-
-
------
-There once was a master who wrote automatons without the help of master Phone.
-A novice luser, seeking to imitate him, began with the help of master Phone.
-When the novice luser asked the master to evaluate his automata the master
-replied: "What is a working automata for the master is not for the luser.
-You must must BE the IRC before automating."
-
-
------
-Master BigCheese gave birth to master Troy; his duty clear. Master Troy gave
-birth to master Phone, for the Tao of Irc must be eternal and must flow as the
-ceaseless river of Time itself.
-
-
------
-Master Phone once said about the ircII client:
- "public_msg is for a message from someone NOT on the channel
- public_other is for a message on a channel that doesn't belong to
- a window. public is for a message on a channel that belongs to a
- window!"
-
-Out of this raised the mighty chaos.
-
-
------
-The sage luser came to the master who wrote automata without the help of
-master Phone. The sage luser asked the master who wrote automata: "Which is
-easiest to make. A automata with the help of master Phone or an automata
-made with the help of a language ?"
-
-The master who wrote automata then replied:
- "With the help of a language."
-
-The sage luser was disapointed and exclaimed: "But, with master Phone you
-do not need to know anything about the soil of IRC. Is not that the easiet
-way ?"
-
-"Not really" said the master who wrote automata, "when using master Phone
-you are closed inside a box. For sure, it is a great box for the lusers,
-but the master will need more power, thus a language is the only path to go.
-With the language the master will never have to limit himself. When using
-such a language the master will seek the best between the need and the
-availibility."
-
-"I see", said the sage luser.
-
-This is the essence of Tao of IRC automatas.
-
-
------
-A client should be light and be used for communication. The spirit of a good
-client is that it should be very convinient for the luser to use, but hard
-for the luser who want to create automata.
-There should never ever be too many functions or too few functions.
-
-There should always be a ignore.
-
-Without ignore the client is not within the Tao of Chating.
-
-The client should always respond the luser with messages that will not
-astnonish him too much. The server likewise. If the server does not, then it
-is the clients job to explain what the server says.
-
-A client which fails this, will be useless and cause confusion for the lusers.
-The only way to correct this is to use another client or to write a new one.
-
-
------
-A luser asked the masters on #IrcHelp: "My client does not work".
-The masters replied: "Upgrade your client".
-The luser then wondered why the master knew. The master then told him about
-the Protocol.
-
-"Your client does not work beaucse it does not understand the server. Why
-should it always work ? Only a fool would expect such. But, clients are made
-by humans, and humans are not perfect. Only Tao is.
-
-The IRC is solid. The IRC is floating, and will always be dynamic. Live with
-that or /quit."
-
-
------
-The luser came to the masters of #IrcHelp, asking about the Tao of IRC within
-the client.
-The masters then said that the Tao of IRC always lies inside the client
-regardless of how the client connects to the server.
-
-"Is the Tao in irc ?" asked the luser.
-"It so is" replied the masters of #IrcHelp.
-"Is the Tao in the ircII, Kiwi, rxirc, vms, rockers and msa ?" asked the
-luser.
-"In all of them and in the TPC, irchat, zenirc, zircon X11-irc and even the
-dos irc has the Tao" said the master quietly.
-"Is the Tao in a telnet connection directly to the server ?"
-
-The master then was quiet for a long time and said. "Please leave, such
-questions are not within the Tao of IRC".
-
-
------
-The master says: "Without the Protocol of TCP the messages will not travel.
- Without the client, the server is useless."
-
-
------
-There once was a luser who used the ircII client. "ircII can do anything I
-ever need for using IRC" said the emacs client user, "I have /ON's, I have
-assignments, I have aliasing. Why don't you use this instead of the huge
-emacs client, which also has a messy screen?"
-The emacs client user then replied by saying that "it is better to have a
-scripting language that is the client instead of have a client that has
-a scripting language." Upon hearing this, the ircII client luser fell silent.
-
-
------
-The master Wumpus said: "Time for you to leave. I did, now I'm happy."
-The master Gnarfer replied: "Use, but never overuse IRC, then you will also
-be happy within IRC"
-
-
------
-A luser came unto the masters of #EU-Opers and asked, "How can I be, yet not
-be, a user@host within the IRC?"
-The masters of #EU-Opers replied: "To be Tao is to be ones true self. To hide
-ones self is not Tao, and is not IRC, you have much to learn before you shall
-be at rest within the Flow of Irc. Please leave"
-
+++ /dev/null
-From: Thomas Kristian Spindler <spindler@jove.acs.unt.edu>
-To: friedman@gnu.ai.mit.edu, pp@solace.mh.se
-Subject: piglet's tour of IRC
-Date: Tue, 11 Jul 1995 01:07:42 -0500
-
-> piglet3, can I have that tour
-<piglet3> Why certainly!
-<piglet3> Lets see, I will choose some typical IRC comments, we can join the channels and observe them.
-> fantabulos
-<piglet3> The first channel to visit is #wicca - it is an example of what I call a greeting channel. A greeting channel is a channel where >50% of the traffic on the channel is people saying "hi" to each other.
-<piglet3> Let's join #wicca.
-> ok
-*** sloth (spindler@jove.acs.unt.edu) has joined channel #wicca
-<piglet3> most channels on IRC are greeting channes.
-<mystarwin> WTF????????
-<Casual> mm all
-<dmarcher> mm, psychie.
-<piglet3> mm sloth
-<Psychie> mm casual
-<Omnion> mm sloth
-<Leva> hehe
-<Karin> mm piglet
-<dmarcher> mm, sloth
-<Psychie> mm sloth
-<Anasazi> ACK!!!
-<Leva> wow lotsa mm's
-<Psychie> mm karin
-<Omnion> mm leva
-<Anasazi> :)
-<Psychie> mm karin
-<piglet3> mm mystarwin
-<piglet3> mm anasazi
-<Leva> STOP mming! :)
-<dmarcher> mm, anasazi
-<Psychie> mm anasazi
-<mystarwin> Who invited you all here???
-<piglet3> mm piglet3
-<piglet3> mm leva
-<dmarcher> mm, leva
-<Psychie> mm leva screaming
-<piglet3> mm dmarcher
-<Psychie> mm mystarwin
-<Omnion:#irctour> *cackle*
-<BlkKnght> mm me
-<Psychie:#irctour> snorfle
-<piglet3> mm Omnion
-<Leva> haha
-<Anasazi> HEHEHEHEH
-<lunalith> E
-<dmarcher> mm, blkknght
-<piglet3> mm blknigght
-<NghtStlkr> Janet
-<NghtStlkr> Dr Scott
-<NghtStlkr> Janet
-<piglet3> mm lunalith
-<NghtStlkr> Brad
-<Psychie> mm janet
-<Dtairai> mm everyone that just came in and I didn't catch all of ya, ya came in too fast! :) Speed limit 14.4 baud... :)
-<Omnion> mm NghtStlkr
-<NghtStlkr> Rocky
-<piglet3> mm nghtstalker
-<Casual> I invited myself
-<NghtStlkr> Ugg
-<Psychie> mm dtarai
-<Psychie> eeewww nghtstlkr
-<NghtStlkr> mm one and all
-<mystarwin> CAsual.. I figured you did...
-<dmarcher> mm, dtairai
-<mystarwin> Piglet3, who invited you here?
-<piglet3> mm is an abbreviation for "merry meet", a wiccan greeting.
-<Leva> (maybe I should skip mm next time? :)
-<piglet3> mm mystarwin
-<piglet3> mm dmarcher
-<dmarcher> mm, piglet3
-> hmm...I smell a motif
-<Omnion:#irctour> I think she's got the point now?
-<Psychie> mm dmarcher
-<Elfgirl> enough!!!!!
-<mystarwin> Warning: piglet3 ... please stop the mm'g
-<dmarcher> mm, motif
-<Teklord> mm all
-<dmarcher> mm, elfgirl
-<Omnion> mm mystarwin
-<dmarcher> mm, teklord
-<Psychie> mm elfgirl
-<dmarcher> mm, psyche
-<piglet3> mm teklord
-<piglet3> mmm psychie
-<piglet3> mm rhaven
-<Psychie> mm psychie
-<Psychie> mm rhaven
-<dmarcher> mm, mystarwin
-<dmarcher> mm, rhaven
-<Psychie> mm bye
-<dmarcher> mm, bravebear
-<piglet3:#irctour> people on greeting channels endlessy greet each other, but find it unpleasant when other people do the same.
-<Omnion> mm BraveBear
-<Elfgirl> shall the kicking begin?
-<Omnion> mm Elfgirl
-<Anasazi> yes!!! :)
-> It all makes sense now
-<dmarcher> mm, all
-<BraveBear> yes
-<piglet3> mm bravebear
-<Casual> commence kicking
-<Leva> i think some people have auto-mm or something
-<Dtairai> Uhhhh.... mm flood...
-<mystarwin> next?
-<mystarwin> next?
-<mystarwin> I am Galen...
-<piglet3:#irctour> Okay, that was a good example. Let's move on to other things.
-<d-mnmz> hiays jaik
-<Elfgirl> thanks myst
-<Omnion> mm jaik
-<Omnion> [info] Mode for #toiletsex is +
-<piglet3:#irctour> Another type of IRC channel is one devoted to a minor sort of sexual kink. These are suprisingly common.
-#irctour> fun!
-<piglet3:#irctour> yes, that comes later.
-<piglet3:#irctour> A good example of this sort of channel is #panties - it is devoted to men who like to wear women's panties
-<piglet3:#irctour> These people will vehemently deny that there is anything out of the ordinary about this.
-<piglet3:#irctour> let's visit #panties now.
-*** sloth (spindler@jove.acs.unt.edu) has joined channel #panties
-*** Users on #panties: sloth dmarcher piglet3 Omnion Dave-meis beatnix Moon fireMAN rgaus clark KDX Nickk_ silky quietguy SweetCat keasey julieK CybrSaint
-<CybrSaint> tell me what you are doing to me julie
-<piglet3:#irctour> no, this is just an example of another sort of IRC channel that is good to taunt.
-<julieK> i am your sexslave cybr you tell me
-<quietguy> i like butts!
-*** RUFF (~YES@potemkin.ppp.america.com) has joined channel #panties
-<julieK> i love bigbutts
-<SweetCat> quiet I would doubt you would do that....
-<piglet3:#irctour> it's a different motif, if you will, and one that is quite common on IRC.
-<quietguy> sweetcat: why r u laughing?
-<piglet3> I guess you could say that makes you a typical delphi user, quietguy.
-*** Signoff: Moon (Leaving)
-<CybrSaint> julie, slides onto cybers member and starts to hump violently
-<julieK> ridem' cowboy
-<quietguy> i don't deny it. i'm doing it now!
-<julieK> woooooohooooo
-* CybrSaint begins shaking uncontrolably
-<SweetCat> quiet because you would mamorize what I look like...there are girls much better than me...taller and stuff
-<piglet3:#irctour> another typical IRCism that users lose is u for you, r for are, etc.
-*** Dave-meis has left channel #panties
-<piglet3> u r all a bunch of perverts, no?
-<CybrSaint> don't stop julie
-<piglet3:#irctour> you're lucky, you get to witness netsex.
-<CybrSaint> oink oink piglet
-*** Omnion has left channel #panties
-<piglet3:#irctour> not everyone sees things this lame on IRC their first time.
-*** fireMAN has left channel #panties
-<piglet3> sloth is smarter than all of you.
-<piglet3> Much, much smarter.
-<quietguy> sweetcat: sure i would. imagining seeing ur sweet but, i would j-o furiously. any guy would.
-*** agonner (~erickson@osip10.ionet.net) has joined channel #panties
-<rmtodd:#irctour> eeewwww, netsex.
-<piglet3> She has good genetic matter too.
-* CybrSaint grabs julie down onto himself and shoots the mother load into her wet pussy
-*** RUFF has left channel #panties
-<piglet3> Much better than any of you pervs.
-<SweetCat> *shrug* maybe
-<quietguy> sweetcat: that's not important. the important thing is that i got to see you intimately
-
-<julieK> whoah i can feel that big cannon
-*** dunks (dunks@er6.rutgers.edu) has joined channel #panties
-<piglet3> She has the potential to go places. You will just jack off and get sperm on your commodore 64's keyboard.
-* CybrSaint slides down and starts to lick juiles
-<CybrSaint> sweet juice
-*** Wildstar (organ@emuvax.emich.edu) has joined channel #panties
-<Wildstar> hiya all
-<julieK> well gotta go
-<piglet3> execpc is in milwaukie, wi, no?
-*** dunks has left channel #panties
-* CybrSaint probes with his tounge and finds juiles clit,
-*** julieK has left channel #panties
-<piglet3:#irctour> I can't stand #panties any more.
-<CybrSaint> pig, very observant
-<keasey> hi wildstar, are you f or m?
-*** piglet3 has left channel #panties
-*** sloth has left channel #panties
-<piglet3> Another type of channel is the geek-channel.
-<piglet3> On geek channels, computer geek wannabes sit around and act "elite"
-<piglet3> elite means that when they don't know the answer to your question, they act like they do, but won't tell you, instead replying "RTFM"
-<piglet3> this means "Read The Fucking Manual"
-<Psychie> yeah they're jerks
-> What's yow?
-<noah> Everybody is going somewhere!! It's probably a garage sale or a disaster Movie!!
-<dmarcher> OVER the underpass! UNDER the overpass! Around the FUTURE and BEYOND REPAIR!!
-<Belladona> Why is everything made of Lycra Spandex?
-<piglet3> *CybrSaint!~get@shrubbery.execpc.com* nice talking with you
-<Psychie> mean to me I feel like saying "look, I've pored through all the sources I have.. and am asking you all in case you KNOW THE ANSWER"
-<piglet3> A good example of a geek channel is #root
-> genuine geeks or pseudo geeks
-<Psychie> so SPARE me your assholic snobbism
-<piglet3> let's join #root now.
-<Psychie> and TELL me to put a 1; at the end of my required perl script or go FUCK YOURSELF
-<rmtodd> a shrubbery! Ni! Ni!
-<piglet3> spuedo geek
-<piglet3> *Octal!ryan@unix5.netaxs.com* do you know richard stallman?
-*** sloth (spindler@jove.acs.unt.edu) has joined channel #root
-*** Topic for #root: Unix, systems, languages, architectures
-*** #root Visigoth 803509755
-*** Users on #root: sloth Psychie piglet3 vladimiah hubertf c0redump @Count ferdy @vuori @blackmage Sharp christ Pha3drus @shifter sn0t rough @jason @tHiNGLES @MSUDawg FourDee @ebola @alexei- greck @jsanford glen @Surge2 @boreo @ack @Visigoth @mod @night @TrayAway @Polarbear @Imaj Octal @Prentyse @ilo @Phaedrus @peacefrog @ivy @gypsie
-<piglet3> oink
-<Psychie> oink
-<piglet3> Good evening geeks.
-<night> glen thanks, question is why is netbsd less bitched about, because it's better, or because less peopel sue it?
-<ebola> oJnk
-<Psychie> gee there sure are a lot of roots here
-<piglet3> So tell me, how is an AIX 4.1 kernel extension different than an AIX 3.2.5 kernel extension?
-<ebola> ewww
-> resisting alex haley joke
-<Psychie> I'm speaking with a "slave" who suggests my using him for cleaning and cooking
-<Octal> if someone says that he is someone else's body servant, is that a custodial/food thing, a sexual thing, both, or something else?
-<Psychie> now, those are very practical skills that I can definitely use
-<piglet3> There is gnu prerelease http server on goldman.gnu.ai.mit.edu:8010
-*** Signoff by vizcaja detected
-* Octal just found out that most of the MIT new House/German House dorms are singles!
-<piglet3> go hawg wild.
-<Psychie> awink
-*** Signoff: dma (changing servers)
-* Phaedrus despairs
-*** dma3 (!@#$%^&*!@@pogo.gnu.ai.mit.edu) has joined channel #irctour
-*** Psychie has left channel #root
-* Octal will have _orgies_ beyond imagination in his 5x8 foot room :)
-*** alatt (~alatt@sopines212.nando.net) has joined channel #root
-*** dma3 (!@#$%^&*!@@pogo.gnu.ai.mit.edu) has joined channel #root
-<Psychie:#irctour> I have boed of them
-<Psychie:#irctour> bored
-<night> octal going to MIT as a freshmen undergrad?
-<Visigoth> go away dave
-<ebola> eww.. pushing gnu warez on us..
-<piglet3:#irctour> true. geeks are not interesting. Let's leave.
-<ebola> worse than mormon missionaries
-<night> to bad theres no good looking women at mit (heh)
-<piglet3> All of you have 1/20th the knowledge of sloth.
-<dma3> your slacks are too tight.
-*** roy7 (~roy@ppp17.cent.com) has joined channel #root
-*** dma3 has left channel #root
-*** sloth has left channel #root
-<piglet3> Our next stop is a channel where perversion is more major than the relatively minor stuff on #panties
-> i think i liked the panties group better than the geeks
-<Psychie> oooh panties
-<piglet3> me too.
-<Psychie> I don't wear panties
-<piglet3> let's visit #toiletsex
-<Psychie> often
-<piglet3> I don't even want to discuss what goes on there.
-*** sloth (spindler@jove.acs.unt.edu) has joined channel #toiletsex
-*** Users on #toiletsex: sloth dmarcher gray1
-<piglet3:#irctour> *Phaedrus!roman@PORTAL.STWING.UPENN.EDU* I probably have one of the prettiest girls around
-*** Signon by temptress (~hthomas@ix-bos8-21.ix.netcom.com) detected
-*** Psychie (~phj@pilot.njin.net) has joined channel #toiletsex
-<piglet3:#irctour> let's join #toiletsex now.
-<Psychie:#irctour> it's always the same guy and only him
-*** Psychie has left channel #toiletsex
-*** piglet3 (ben@goldman.gnu.ai.mit.edu) has joined channel #toiletsex
-<piglet3> oink.
-> is anyone here?
-<piglet3> Hey grey1, tell us about the channel topic
-<piglet3> [info] #toiletsex topic: SCAT CHAT, FUN WITH WOMENS POOP ALL WOMEN WELCOME!
-*** Randy-2 (~rtaylor@slip16.vaxxine.com) has joined channel #toiletsex
-*** bpk (~bpk@tortoise.kern.com) has joined channel #irctour
-<piglet3> What's fun about women's poop?
-*** Signoff: gray1 (cs-pub.bu.edu irc-2.mit.edu)
-*** Signoff: rmtodd (cs-pub.bu.edu irc-2.mit.edu)
-*** Signoff: Belladona (cs-pub.bu.edu irc-2.mit.edu)
-<piglet3> Well grey1 is here.
-<Randy-2> hi gray im back
-<piglet3> He likes women to poop on him.
-<piglet3> Hey randy-2, what sort of toiletsex do you like?
-*** Signoff by WintrHawk detected
-<Randy-2> hey if your not into why are you here!
-<piglet3> Do you really have sex with toilets?
-> is pooping the extent of this group?
-*** tessaTV (tessaTV@dyn-28.direct.ca) has joined channel #toiletsex
-*** Psychie has left channel #irctour
-<piglet3> I think they are also into urination.
-*** Signoff by Temptress detected
-*** Signoff: Daemon (Ping timeout)
-<piglet3> It's rather limiting really. It's a sign of non-progression beyond infantile fixations.
-> I knew there had to be more
-<Randy-2> why the hell don't you fuck right off you armchair shrink!
-<piglet3> I think the topic is unlikely to attract any actual women. My guess is that they are mostly homosexual men who pretend to be women.
-<piglet3> Randy-2, ad-homenim attacks are childish.
-<dmarcher> what is the topic?
-<piglet3> Might I suggest you use reason, and also, I think it's quite likely you should seek professional help.
-<Randy-2> yes and what your doing is too!
-<piglet3> And to top it off, my chair has no arms!
-<piglet3> Randy, how much do you pay an hour to sit on IRC and talk about defecation?
-<piglet3> Why don't you attempt to go out and have a normal relationship?
-*** Omnion (irc@mumrik.nada.kth.se) has joined channel #toiletsex
-*** Signoff by Tiamat detected
-<Randy-2> that is none of your bees wax I have a shrink a professional one!
-<piglet3> I'd just like to say that I sincerely hope that all of you get better, someday.
-<piglet3:#irctour> enough of #toiletsex, I think.
-*** piglet3 has left channel #toiletsex
-*** dmarcher has left channel #toiletsex
-*** sloth has left channel #toiletsex
-*** Signon by TiAmAT (moss@ernani.mines.u-nancy.fr) detected
-<piglet3> Some people use IRC as a sort of video game.
-<piglet3> They enjoy kicking each other off channels and using bots to change channel modes.
-<Omnion> <Randy-2#toiletsex[05:26]> god people like that are assholes
-<piglet3> It's been a long time since I visited a channel like this, but I think #warung is still around.
-> this happens on reputable lines like toiletsex
-<piglet3> let's visit #warung for a short moment - they will likely have robots kick us off quickly.
-*** sloth (spindler@jove.acs.unt.edu) has joined channel #warung
-*** Users on #warung: sloth piglet3 Omnion dmarcher ayus sazali SaBoL @bgn_tido AhRin AhReen AhLin AhLeen @JaMbU KasBoL ClueBot ClueServ OBIWAN G0MUN G0MEN G0M1N G0MAN
-<dmarcher:#irctour> they're op-short on #warung. something's wrong.
-<piglet3> I'd just like to say, that Malasian men have sex with monkeys.
-<piglet3> A lot.
-<piglet3> The national average is three times a week.
-*** Signon by Manny (lorhuert@acca.NMSU.Edu) detected
-<piglet3:#irctour> yes!
-> how d'you know
-<rmt2:#irctour> iubj
-<rmt2:#irctour> oink.
-*** ayus has left channel #warung
-<rmt2:#irctour> sigh.
-<piglet3> What's wrong with you? Do you all not have ops?
-*** bgn_tido is now known as mari_mari
-*** sazali is now known as kerabu
-*** kik1 (moha0029@maroonx.tc.umn.edu) has joined channel #warung
-<piglet3> This channel has changed a lot, I remember over 60 mode changes a second. What happened?
-*** Sahanaya (nemes1s@sunserv1_ie4.leeds.ac.uk) has joined channel #warung
-*** Mode change "+o Sahanaya" on channel #warung by Irc.Labri.U-Bordeaux.Fr
-<piglet3> It was IRC in the fast lane. Have you all given up?
-*** Signoff: kik1 (changing servers)
-<dmarcher> #malaysia's a tad better
-*** kik1 (moha0029@maroon.tc.umn.edu) has joined channel #warung
-<piglet3:#irctour> well, let's give up on #warung. it has become a typical asian channel where nobody ever speaks. This is especially typical of the japanese channels.
-*** piglet3 has left channel #warung
-<piglet3:#irctour> yes, let's try malaysia
-*** Omnion has left channel #warung
-*** mari_mari is now known as alamak
-*** kerabu is now known as Siapa_tu
-*** dmarcher has left channel #warung
-*** sloth has left channel #warung
-*** Dae (ian@slip161.rmii.com) has joined channel #irctour
-*** Daemon (frechett@benji.Colorado.EDU) has joined channel #irctour
-<dmarcher> #malaysia is really broken.
-<dmarcher> it's a tour.
-<piglet3> I'm taking sloth on a tour of IRC.
-<dmarcher> unfortunately, the natives aren't in character.
-> is it just a slow night?
-*** piglet3 invites you to channel #malaysia
-<piglet3> cool mode change flood on malaysia
-*** sloth (spindler@jove.acs.unt.edu) has joined channel #malaysia
-*** Users on #malaysia: sloth trash top @aBoL nor magic lop Omnion piglet3 jb Sahanaya Kathy- dmarcher Zinho @SaBoL baby_ku minum_air @AhRin @AhReen @AhLin @AhLeen @JaMbU jam @KasBoL kawaL_ kawaL @G0M0N @G0MAN PROTECT GUARD @OBIWAN @G0MUN @G0MEN @G0M1N
-<dmarcher> oink.
-<dmarcher> oink.
-<piglet3> iki biki malaysia oink
-<lop> hi nor.......
-<dmarcher> oink.
-<dmarcher> oink.
-<top> full of pigs here!
-*** Omnion has left channel #malaysia
-<dmarcher> deltar nu motet oink.
-<dmarcher> oink.
-*** aBoL has left channel #malaysia
-<piglet3> motet your mother oink
-<dmarcher> oink.
-<dmarcher> oink.
-<lop> let chat ok...:nor
-<piglet3> malaysian monkey-fucker oink
-*** Signoff by ash detected
-*** trash has left channel #malaysia
-<dmarcher> http://nipple-server.splode.com/nipple-survey.html oink.
-<dmarcher> oink.
-<dmarcher> oink.
-<dmarcher> oink.
-<jam> piglet3:MAMAT YANG KURANG AJE!
-<dmarcher> oink.
-<dmarcher> oink.
-<dmarcher> jam: mamat yang kurang aje!!!!!!
-*** Kathy- has left channel #malaysia
-<dmarcher> (oink)
-<dmarcher> oink.
-<piglet3> jam, I'm rubber and you're glue
-*** baby_ku is now known as ayang
-<dmarcher> oink.
-*** minum_air is now known as mari_mari
-<piglet3> Everything you say bounces off me, and sticks to you.
-<dmarcher> oink.
-*** jb has left channel #malaysia
-<dmarcher> oink.
-*** Signoff: nor (Bye everybody!!!)
-<dmarcher> oink.
-<piglet3> oklahoma is full of malaysians.
-<dmarcher> oink.
-<dmarcher> oink.
-<dmarcher> malaysia is full of oklahomans.
-*** piglet3 has left channel #malaysia
-*** Signon by AsH (~ash@freeside.fc.net) detected
-<dmarcher> oink.
-<dmarcher> oink.
-<dmarcher> oink.
-<dmarcher> oink.
-*** jam has left channel #malaysia
-<dmarcher> oink.
-<dmarcher> oink.
-<dmarcher> oink.
-*** aBoLX (~wsw542@eagle.acns.nwu.edu) has joined channel #malaysia
-*** Mode change "+o aBoLX" on channel #malaysia by G0M1N
-*** Mode change "+o aBoLX" on channel #malaysia by G0M0N
-*** Mode change "+o aBoLX" on channel #malaysia by G0MUN
-*** Mode change "+o aBoLX" on channel #malaysia by G0MAN
-*** Mode change "+o aBoLX" on channel #malaysia by G0MEN
-*** Mode change "+o aBoLX" on channel #malaysia by OBIWAN
-*** Mode change "+o aBoLX" on channel #malaysia by SaBoL
-*** sloth has left channel #malaysia
-<piglet3> well, I sense that sloth is bored. I will simply describe the remaining type of IRC channel.
-<piglet3> This is the lurker or bot channel.
-<bpk> I don't know about sloth, but I know I'm bored
-<piglet3> It is a channel where one person or bot sits by themselves and don't say anything.
-<piglet3> And there you have it - examples of all the types of IRC channels.
-<dmarcher> sad say on irc when you can't get kicked off #malaysia.
-<dmarcher> s/say/day
-*** fn (fn@pain.csrv.uidaho.edu) has joined channel #irctour
-<fn> grue.
-<Dae> Try #limbaugh maybe
-<piglet3> Remember the basic categories: greeting, minor sexual kink, major sexual kink, game channels, geek channels, and bot channels.
-> lovely tour. plenty of oinks
-<dmarcher> oink.
-<piglet3> I can't - #limbaugh has had me on autokick for over a year now.
-<bpk> heh
-<piglet3> Dae can help you if you have any further questions about IRC. He is an IRC operator.
-<bpk> let me see if I can get someone to kill me
-<Dae> geek channels? That like #linux #root #<insert hobby> ?
-<piglet3> yes.
-> okay, thanks
-<piglet3> This usually means one is a major dweeb. However I've met him in person, and he's okay.
-<fn> where does #unix fit, do you think?
-<piglet3> geek
-<dmarcher> stop it, you're all talking like pjg.
-<piglet3> I am not knowing currently, at this time. no. no.. no.
-<Dae> p3: prove it
-<fn> <piglet3> I've never not known less than that than you've never not forgotten, ian.
-<fn> ha! in my .plan
-<dmarcher> don't put me in your .plan.
-<piglet3> Kindly, please to be fucking yourself harder.
-<fn> heh.
-IRC log ended Sun Jun 18 22:42
+++ /dev/null
-From friedman Sat Aug 3 19:54:19 1996
-Status: RO
-X-VM-v5-Data: ([nil nil nil nil nil nil nil nil nil]
- [nil "Sat" "3" "Aug" "1996" "21:33:05" "-0500" "Mandar Mirashi" "mandar@kiowa.wildstar.net" nil nil nil "^From:" nil nil "08" nil nil nil nil]
- nil)
-Received: from churchy.gnu.ai.mit.edu by albert.gnu.ai.mit.edu (8.6.12/8.6.12GNU) with ESMTP id WAA14799 for <\friedman@albert.gnu.ai.mit.edu>; Sat, 3 Aug 1996 22:33:34 -0400
-Received: from kiowa.wildstar.net by churchy.gnu.ai.mit.edu (8.6.12/8.6.12GNU) with ESMTP id WAA16533 for <friedman@gnu.ai.mit.edu>; Sat, 3 Aug 1996 22:33:30 -0400
-Received: (from mandar@localhost) by kiowa.wildstar.net (8.6.12/8.6.9) id VAA28442 for friedman@gnu.ai.mit.edu; Sat, 3 Aug 1996 21:33:05 -0500
-Message-Id: <199608040233.VAA28442@kiowa.wildstar.net>
-From: Mandar Mirashi <mandar@kiowa.wildstar.net>
-To: friedman@gnu.ai.mit.edu
-Subject: Undernet IRC protocol changes
-Date: Sat, 3 Aug 1996 21:33:05 -0500
-
-Hello there,
-
- This mail is being sent to all IRC client coders, announcing some
-changes in the server-client protocol on the Undernet IRC network. An
-RFC supplementing RFC1459 is in the works (it's unclear when this will
-be released however). In the meanwhile, I'll try to update you with any
-significant changes/features/bugs that affect clients.
-
-1) the /list command.
-======================
-
- The default action of the /list command (to list all channels) has
- been disabled since it was found to consume a lot of CPU on IRC
- servers (with hundreds of clients listing thousands of channels).
- Changes include a _required_ paramater to LIST.
-
-*** Usage on ircII: /QUOTE LIST parameters
-*** Where parameters is a space or comma seperated list of one or more of:
-*** <max_users ; Show all channels with less then max_users.
-*** >min_users ; Show all channels with more then min_users.
-*** C<max_minutes ; Channels that exist less then max_minutes.
-*** C>min_minutes ; Channels that exist more then min_minutes.
-*** T<max_minutes ; Channels with a topic last set less then max_minutes
- ago.
-*** T>min_minutes ; Channels with a topic last set more then min_minutes
- ago.
-*** Example: LIST <3,>1,C<10,T>0 ; 2 users, younger then 10 min., topic
- set.
-
- We suggest incorporating this change directly into your client so that
- a /quote is no longer needed (i.e. a direct message to the server).
-
-
-2) PONG replies
-================
-
- To counter source routing/ip-spoofing, Undernet IRC servers send a PING
- command to the client followed by a random key. The client is expected
- to respond with this key as a parameter to PONG. e.g.
- server -> client PING :23472820203484
- client to server PONG :23472820203484
-
- ircII and mirc are two clients that already follow this. I'm not sure
- about other clients.
-
-3) Other Undernet changes
-=========================
-
- A list of all Undernet server numerics are included in the server source.
-
- ftp://ftp.undernet.org/irc/servers/current
-
- Significant changes over the past few years, affecting clients, include:
- /stats w replies, /stats g replies, /silence replies, channel topic
- information replies, user signon time reply, channel
- creation time reply, etc. I've attached the file for your convenience.
- Please check if your client responds to these numeric replies.
-
- I also suggest adding the /map and /silence commands to your clients
- (/silence cuts off flooding at the server level: syntax:
- /silence +user@host or /silence nick
- /silence -user@host or /silence -nick to delete a silenced entry.
- /map returns the current routing map of irc servers).
-
- There's also a patch removing /away from the server (this functionality
- belongs to the client) in its review stages. You may wish to implement
- a mechanism that simulates /away on your client without using the server
- message, to prepare for this possible future change.
-
-New versions
-=============
-
- If you release new versions of your clients, please upload them to
- /incoming on ftp.undernet.org and drop me a note. I'll move them to
- the correct location asap. We're mirrored on ftp2-4.undernet.org. I'd
- really appreciate it if you could take a moment and verify that the latest
- version of your client is out there. Thanks.
-
-
-Feedback
-========
-
- To stay in touch with Undernet IRC protocol changes / server code
- patches, you're welcome to join the Undernet coder committee mailing
- list. Simply drop a mail to majordomo@undernet.org with
- "subscribe coder-com" in the body.
-
-
-
- Thanks and if you have any other questions about
-making your client Undernet compatible, please don't hesitate to mail
-coder-com@undernet.org. Sincerely,
-
-
- Mandar Mirashi (Mmmm)
-
-Attached are numeric.h and the latest Undernet IRC server list (which
-you may wish to include with your next client release - it is also available
-at http://www.comco.com/dougmc/irc-stats/server-lists )
-
-
------ numeric.h ------- cut here ------
-
-/************************************************************************
- * IRC - Internet Relay Chat, include/numeric.h
- * Copyright (C) 1990 Jarkko Oikarinen
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 1, or (at your option)
- * any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- */
-
-
-
-/*
- * Reserve numerics 000-099 for server-client connections where the client
- * is local to the server. If any server is passed a numeric in this range
- * from another server then it is remapped to 100-199. -avalon
- */
-#define RPL_WELCOME 001
-#define RPL_YOURHOST 002
-#define RPL_CREATED 003
-#define RPL_MYINFO 004
-#define RPL_MAP 005
-#define RPL_MAPMORE 006
-#define RPL_MAPEND 007
-
-/*
- * Errors are in the range from 400-599 currently and are grouped by what
- * commands they come from.
- */
-#define ERR_NOSUCHNICK 401
-#define ERR_NOSUCHSERVER 402
-#define ERR_NOSUCHCHANNEL 403
-#define ERR_CANNOTSENDTOCHAN 404
-#define ERR_TOOMANYCHANNELS 405
-#define ERR_WASNOSUCHNICK 406
-#define ERR_TOOMANYTARGETS 407
-#define ERR_NOSUCHSERVICE 408
-#define ERR_NOORIGIN 409
-
-#define ERR_NORECIPIENT 411
-#define ERR_NOTEXTTOSEND 412
-#define ERR_NOTOPLEVEL 413
-#define ERR_WILDTOPLEVEL 414
-
-#define ERR_UNKNOWNCOMMAND 421
-#define ERR_NOMOTD 422
-#define ERR_NOADMININFO 423
-#define ERR_FILEERROR 424
-
-#define ERR_NONICKNAMEGIVEN 431
-#define ERR_ERRONEUSNICKNAME 432
-#define ERR_NICKNAMEINUSE 433
-#define ERR_SERVICENAMEINUSE 434
-#define ERR_SERVICECONFUSED 435
-#define ERR_NICKCOLLISION 436
-#define ERR_BANNICKCHANGE 437
-#define ERR_NICKTOOFAST 438
-
-#define ERR_USERNOTINCHANNEL 441
-#define ERR_NOTONCHANNEL 442
-#define ERR_USERONCHANNEL 443
-#define ERR_NOLOGIN 444
-#define ERR_SUMMONDISABLED 445
-#define ERR_USERSDISABLED 446
-
-#define ERR_NOTREGISTERED 451
-
-#define ERR_NEEDMOREPARAMS 461
-#define ERR_ALREADYREGISTRED 462
-#define ERR_NOPERMFORHOST 463
-#define ERR_PASSWDMISMATCH 464
-#define ERR_YOUREBANNEDCREEP 465
-#define ERR_YOUWILLBEBANNED 466
-#define ERR_KEYSET 467
-
-#define ERR_CHANNELISFULL 471
-#define ERR_UNKNOWNMODE 472
-#define ERR_INVITEONLYCHAN 473
-#define ERR_BANNEDFROMCHAN 474
-#define ERR_BADCHANNELKEY 475
-#define ERR_BADCHANMASK 476
-#define ERR_BANLISTFULL 478
-
-#define ERR_NOPRIVILEGES 481
-#define ERR_CHANOPRIVSNEEDED 482
-#define ERR_CANTKILLSERVER 483
-#define ERR_ISCHANSERVICE 484
-
-#define ERR_NOOPERHOST 491
-#define ERR_NOSERVICEHOST 492
-
-#define ERR_UMODEUNKNOWNFLAG 501
-#define ERR_USERSDONTMATCH 502
-
-#define ERR_SILELISTFULL 511
-
-#define ERR_NOSUCHGLINE 512
-
-/*
- * Numberic replies from server commands.
- * These are currently in the range 200-399.
- */
-#define RPL_NONE 300
-#define RPL_AWAY 301
-#define RPL_USERHOST 302
-#define RPL_ISON 303
-#define RPL_TEXT 304
-#define RPL_UNAWAY 305
-#define RPL_NOWAWAY 306
-
-#define RPL_WHOISUSER 311
-#define RPL_WHOISSERVER 312
-#define RPL_WHOISOPERATOR 313
-
-#define RPL_WHOWASUSER 314
-/* rpl_endofwho below (315) */
-#define RPL_ENDOFWHOWAS 369
-
-#define RPL_WHOISCHANOP 316 /* redundant and not needed but reserved */
-#define RPL_WHOISIDLE 317
-
-#define RPL_ENDOFWHOIS 318
-#define RPL_WHOISCHANNELS 319
-
-#define RPL_LISTSTART 321
-#define RPL_LIST 322
-#define RPL_LISTEND 323
-#define RPL_CHANNELMODEIS 324
-#define RPL_CREATIONTIME 329
-
-#define RPL_NOTOPIC 331
-#define RPL_TOPIC 332
-#define RPL_TOPICWHOTIME 333
-#define RPL_LISTUSAGE 334
-
-#define RPL_INVITING 341
-#define RPL_SUMMONING 342
-
-#define RPL_VERSION 351
-
-#define RPL_WHOREPLY 352
-#define RPL_ENDOFWHO 315
-#define RPL_NAMREPLY 353
-#define RPL_ENDOFNAMES 366
-
-#define RPL_KILLDONE 361
-#define RPL_CLOSING 362
-#define RPL_CLOSEEND 363
-#define RPL_LINKS 364
-#define RPL_ENDOFLINKS 365
-/* rpl_endofnames above (366) */
-#define RPL_BANLIST 367
-#define RPL_ENDOFBANLIST 368
-/* rpl_endofwhowas above (369) */
-
-#define RPL_INFO 371
-#define RPL_MOTD 372
-#define RPL_INFOSTART 373
-#define RPL_ENDOFINFO 374
-#define RPL_MOTDSTART 375
-#define RPL_ENDOFMOTD 376
-
-#define RPL_YOUREOPER 381
-#define RPL_REHASHING 382
-#define RPL_YOURESERVICE 383
-#define RPL_MYPORTIS 384
-#define RPL_NOTOPERANYMORE 385
-
-#define RPL_TIME 391
-#define RPL_USERSSTART 392
-#define RPL_USERS 393
-#define RPL_ENDOFUSERS 394
-#define RPL_NOUSERS 395
-
-#define RPL_TRACELINK 200
-#define RPL_TRACECONNECTING 201
-#define RPL_TRACEHANDSHAKE 202
-#define RPL_TRACEUNKNOWN 203
-#define RPL_TRACEOPERATOR 204
-#define RPL_TRACEUSER 205
-#define RPL_TRACESERVER 206
-#define RPL_TRACESERVICE 207
-#define RPL_TRACENEWTYPE 208
-#define RPL_TRACECLASS 209
-
-#define RPL_STATSLINKINFO 211
-#define RPL_STATSCOMMANDS 212
-#define RPL_STATSCLINE 213
-#define RPL_STATSNLINE 214
-#define RPL_STATSILINE 215
-#define RPL_STATSKLINE 216
-#define RPL_STATSQLINE 217
-#define RPL_STATSYLINE 218
-#define RPL_ENDOFSTATS 219
-
-#define RPL_UMODEIS 221
-
-#define RPL_SERVICEINFO 231
-#define RPL_ENDOFSERVICES 232
-#define RPL_SERVICE 233
-#define RPL_SERVLIST 234
-#define RPL_SERVLISTEND 235
-
-#define RPL_STATSLLINE 241
-#define RPL_STATSUPTIME 242
-#define RPL_STATSOLINE 243
-#define RPL_STATSHLINE 244
-#define RPL_STATSSLINE 245
-#define RPL_STATSTLINE 246
-#define RPL_STATSGLINE 247
-#define RPL_STATSULINE 248
-#define RPL_STATSDEBUG 249
-#define RPL_STATSCONN 250
-
-#define RPL_LUSERCLIENT 251
-#define RPL_LUSEROP 252
-#define RPL_LUSERUNKNOWN 253
-#define RPL_LUSERCHANNELS 254
-#define RPL_LUSERME 255
-#define RPL_ADMINME 256
-#define RPL_ADMINLOC1 257
-#define RPL_ADMINLOC2 258
-#define RPL_ADMINEMAIL 259
-
-#define RPL_TRACELOG 261
-#define RPL_TRACEPING 262
-
-#define RPL_SILELIST 271
-#define RPL_ENDOFSILELIST 272
-
-#define RPL_STATSDLINE 275
-
-#define RPL_GLIST 280
-#define RPL_ENDOFGLIST 281
-
-
------ Undernet IRC server list ------- cut here ------
-
- ALIAS IP ADDRESS HOSTNAME
-
- vancouver.bc.ca.undernet.org 199.60.229.15 irc.direct.ca
- toronto.on.ca.undernet.org 199.166.230.99 oceanus.magic.ca
- montreal.qu.ca.undernet.org 132.207.4.32 step.polymtl.ca
-
- caen.fr.eu.undernet.org 193.49.200.16 ns.ensicaen.ismra.fr
- luxembourg.lu.eu.undernet.org 194.177.56.140 hydra.eo.lu
- amsterdam.nl.eu.undernet.org 130.37.24.9 veer.cs.vu.nl
- diemen.nl.eu.undernet.org 145.220.3.40 irc.pi.net
- lulea.se.eu.undernet.org 130.240.16.36 buddy.ludd.luth.se
- ljubljana.si.eu.undernet.org 193.2.1.35 ro.zrsss.si
- london.uk.eu.undernet.org 193.119.122.98 telebsd.aladdin.co.uk
-
- auckland.nz.undernet.org 202.14.100.6 iconz1.iconz.co.nz
-
- phoenix.az.us.undernet.org 204.62.193.83 home.amug.org
- sandiego.ca.us.undernet.org 207.110.0.52 irc.connectnet.com
- sanjose.ca.us.undernet.org 192.160.13.8 jitter.rahul.net
- washington.dc.us.undernet.org 152.163.173.25 irc01.irc.aol.com
- atlanta.ga.us.undernet.org 198.79.64.1 serve.org
- chicago.il.us.undernet.org 198.49.174.36 tau.wwa.com
- chicago-1.il.us.undernet.org 199.0.154.14 raptor.ais.net
- manhattan.ks.us.undernet.org 129.130.8.23 lynk.ksu.ksu.edu
- lowell.ma.us.undernet.org 206.15.106.129 chatter-s2.nis.newscorp.com
- ann-arbor.mi.us.undernet.org 192.131.22.80 irc.cic.net
- springfield.mo.us.undernet.org 204.71.96.187 spica.getonthe.net
- stlouis.mo.us.undernet.org 205.216.202.17 ultra.i1.net
- norman-r.ok.us.undernet.org unresolvable unknown
- okc.ok.us.undernet.org 206.103.114.11 apache.wildstar.com
- pittsburgh.pa.us.undernet.org 192.231.221.38 uirc.lm.com
- austin.tx.us.undernet.org 128.83.199.50 zilker.mc.utexas.edu
- dallas.tx.us.undernet.org 204.75.137.18 external.csac.net
- blacksburg.va.us.undernet.org 128.173.40.203 blacksburg.va.us.undernet.org
- monticello.ar.us.undernet.org 206.156.164.142 irc.seark.net
-
-
-Note: Most Undernet IRC servers listen on ports 6661-6669.
-
- The alias us.undernet.org is a roundrobin that picks a US server at
- random (for first time users who aren't sure which server to connect to).
- The same applies to eu.undernet.org (europe). The use of the undernet.org
- alias over the actual hostname is highly recommended (when servers
- cease to exist, the alias will still function since we point it to
- a working server).
-
-
-From friedman Mon Sep 30 13:45:21 1996
-Status: RO
-X-VM-v5-Data: ([nil nil nil nil nil nil nil nil nil]
- [nil nil nil nil nil nil nil nil nil nil nil nil "^From:" nil nil nil nil nil nil nil]
- nil)
-Received: from gnu-life.ai.mit.edu by albert.gnu.ai.mit.edu (8.6.12/8.6.12GNU) with ESMTP id OAA20824 for <friedman@albert.gnu.ai.mit.edu>; Mon, 30 Sep 1996 14:42:45 -0400
-Received: from kiowa.wildstar.net by gnu-life.ai.mit.edu (8.6.12/8.6.12GNU) with ESMTP id OAA05844 for <friedman@prep.ai.mit.edu>; Mon, 30 Sep 1996 14:42:43 -0400
-Received: (from mandar@localhost) by kiowa.wildstar.net (8.7.5/8.7.3) id NAA30763 for friedman@prep.ai.mit.edu; Mon, 30 Sep 1996 13:42:25 -0500
-Message-Id: <199609301842.NAA30763@kiowa.wildstar.net>
-From: Mandar Mirashi <mandar@kiowa.wildstar.net>
-To: friedman@prep.ai.mit.edu
-Subject: IRC client coders update
-Date: Mon, 30 Sep 1996 13:42:25 -0500
-
-Heya,
-
- Some other random thoughts that might apply to all IRC clients:
-
-* Ports - It would be nice if client coders allow for the specification
- of alternate ports to automatically connect on, if the connect to
- the default port fails. Most servers listen to ports in the range
- 6660-6669. It has grown incredibly difficult to connect on the
- default port 6667 on big servers.
-
-* Extensions - As much as some may dislike it, I believe the next "wave"
- of chat clients to hit the net are those that include VRML/audio/video
- communication. There are several independent web sites or proprietary
- developers who provide this, but none of them are integrated into IRC
- clients. You may wish to investigate means of doing this with your clients.
-
-* For those developing GUI clients, one idea would be to have an addressbook
- which includes name, associated GIF file, associated URL, etc. Then
- you could auto-attach a thumbnail gif to the nick, as it scrolls over
- a channel. The nick itself could be "clickable" if a URL field is
- specified, which would make your default browser jump to that location.
-
-* irc-url spec - I haven't updated it for a while. It can be found at:
- ftp://ftp.ietf.org/internet-drafts/draft-mirashi-url-irc-01.txt
- and the mailing list can be subscribed to, by sending mail to
- majordomo@wildstar.net with "subscribe irl-url" in the body.
-
-* Nospoof patch - I hope everyone has updated their client (if it needed it)
- to work with the PING/PONG and other Undernet ircd changes I'd sent earlier.
-
- That's all for now..thanks
-
- Mmmm
-
-From pp@swip.net Thu Feb 6 01:45:10 1997
-Status: RO
-X-VM-v5-Data: ([nil nil nil nil nil nil nil nil nil]
- ["1405" "" "6" "Feb" "1997" "10:31:44" "+0100" "Per Persson" "pp@swip.net" nil "49" "CTCP discussion list." "^From:" nil nil "02" nil nil nil nil]
- nil)
-Return-Path: <pp@swip.net>
-Received: from gnu.ai.mit.edu (friedman@localhost [127.0.0.1])
- by piglet.splode.com (8.8.4/8.8.4) with ESMTP
- id BAA00765 for <friedman>; Thu, 6 Feb 1997 01:45:10 -0800
-Received: from churchy.gnu.ai.mit.edu by albert.gnu.ai.mit.edu (8.6.12/8.6.12GNU) with ESMTP id EAA20224 for <zenirc-dev@gnu.ai.mit.edu>; Thu, 6 Feb 1997 04:33:35 -0500
-Received: from mn6.swip.net by churchy.gnu.ai.mit.edu (8.6.12/4.0) with ESMTP
- id <EAA10861@churchy.gnu.ai.mit.edu>; Thu, 6 Feb 1997 04:31:35 -0500
-Received: from doc.swip.net (workstation1.swip.net [130.244.254.1])
- by mn6.swip.net (8.8.2/8.8.2) with SMTP
- id KAA04961 for <zenirc-dev@gnu.ai.mit.edu>;
- Thu, 6 Feb 1997 10:31:31 +0100 (MET)
-Received: by doc.swip.net (SMI-8.6/SMI-SVR4)
- id KAA26012; Thu, 6 Feb 1997 10:31:44 +0100
-Sender: pp@doc.swip.net
-Mime-Version: 1.0
-Content-Type: text/plain; charset=US-ASCII
-Content-Transfer-Encoding: 7bit
-Message-ID: <x7hgjqs2kf.fsf@swip.net>
-X-Mailer: Red Gnus v0.84/Emacs 19.34
-From: Per Persson <pp@swip.net>
-To: zenirc-dev@gnu.ai.mit.edu
-Subject: CTCP discussion list.
-Date: 06 Feb 1997 10:31:44 +0100
-Lines: 49
-
-This might be of interest to you. There's a discussion going and I'm
-pretty sure that the list-maintainer (Lindsay) has an archive of all
-mails going through the list.
-
---pp
-
-Forwarded-By: Darren Reed <avalon@coombs.anu.edu.au>
-
-From: Mike McLagan <mmclagan@invlogic.com>
-Message-Id: <199702030750.CAA29332@linux.invlogic.com>
-Subject: Referenced CTCP Standards Group
-To: ircd@the-project.org (IRC Development Mailing List)
-Date: Mon, 3 Feb 1997 02:50:10 -0500 (EST)
-Cc: operlist@the-project.org (IRC Operators List)
-
------BEGIN PGP SIGNED MESSAGE-----
-
-Hi,
-
- I made reference today in my emails to a CTCP standards group. This is
-based from a number of client coders, and has turned into an email list and
-an Internet Draft document (formerly called a Draft RFC). The list is hosted
-by Zircon author Lindsay Marshall.
-
- To join the list send "subscribe ctcp your name" to:
-
- listproc%catless@newcastle.ac.uk.
-
- If you want to see the current draft, you can send me a private email
-message, or visit my company's web site at:
-
- http://www.invlogic.com/irc/ctcp.html
-
- Mike was here...
-
------BEGIN PGP SIGNATURE-----
-Version: 2.6.3a
-Charset: noconv
-
-iQB1AwUBMvWYsnFj8kDikEM5AQEVAgL/QH6laNKG/H9c+b4JiSD9MNEj98JtAcB5
-6sHzuP4NtvX87GdYlJh98qwaww/I5IxhgNWt3ydOWMV6c99dzv2GqyZG4f+xUNK+
-8dQ/na2e9f06MLVn/tzg73RYmMAqtQf/
-=qyeR
------END PGP SIGNATURE-----
-
-
-
-
-------- End of forwarded message -------
-
-From mandar@cherokee.wildstar.net Wed Feb 26 19:15:07 1997
-Status: RO
-X-VM-v5-Data: ([nil nil nil nil nil nil nil nil nil]
- ["8071" "Wed" "26" "Feb" "1997" "21:12:52" "-0600" "Mandar Mirashi" "mandar@cherokee.wildstar.net" nil "227" "IRC client coders update #6" "^From:" nil nil "02" nil "IRC client coders update #6" nil nil nil]
- nil)
-Return-Path: <mandar@cherokee.wildstar.net>
-Received: from gnu.ai.mit.edu (friedman@localhost [127.0.0.1])
- by piglet.splode.com (8.8.5/8.8.5) with ESMTP id TAA20384
- for <friedman>; Wed, 26 Feb 1997 19:15:03 -0800
-Received: from gnu-life.ai.mit.edu by albert.gnu.ai.mit.edu (8.6.12/8.6.12GNU) with ESMTP id WAA28651 for <friedman@albert.gnu.ai.mit.edu>; Wed, 26 Feb 1997 22:12:58 -0500
-Received: from cherokee.wildstar.net by gnu-life.ai.mit.edu (8.8.5/8.6.12GNU) with ESMTP id WAA14032 for <friedman@prep.ai.mit.edu>; Wed, 26 Feb 1997 22:10:40 -0500 (EST)
-Received: (from mandar@localhost) by cherokee.wildstar.net (8.8.3/8.6.9) id VAA29997 for friedman@prep.ai.mit.edu; Wed, 26 Feb 1997 21:12:52 -0600
-Message-Id: <199702270312.VAA29997@cherokee.wildstar.net>
-From: Mandar Mirashi <mandar@cherokee.wildstar.net>
-To: friedman@prep.ai.mit.edu
-Subject: IRC client coders update #6
-Date: Wed, 26 Feb 1997 21:12:52 -0600
-
-Heya,
-
- Here's some information re: the next upcoming release of the Undernet
-server code - u2.10 (still in beta). Please mail coder-com@undernet.org
-directly if you have any concerns.
-
- The other thing I wanted to check was if you'd be interested in joining
-a mailing list open ONLY to client coders, to discuss client issues (the
-"colour" issue being an egregious example). I'd be more than willing to
-set one up. You can mail me at mandar@wildstar.net re: this.
-
-Thanks
-
-Mmmm
-
-Mandar Mirashi
-Maintainer: ftp.undernet.org, Undernet IRC FAQ.
-ftp://rtfm.mit.edu/pub/usenet/alt.irc.undernet
-For IRC help/Undernet information, check out http://www.undernet.org
-
----
->From carlo@runaway.xs4all.nl Wed Feb 26 21:03:23 1997
-Date: Wed, 26 Feb 1997 01:11:01 +0100 (MET)
-From: Carlo Wood <carlo@runaway.xs4all.nl>
-Reply-To: coder-com@undernet.org
-To: coder committee <coder-com@mail.undernet.org>
-Subject: [C-Com] Server NOtice numerics
-
-Hiya,
-
-can someone asap pass this info to the client coders ?!!
-
-A new numeric 249:
-
-Example:
-
-4.undernet.org 249 nick :Servernotice mask: 12287 (0x2fff)
-
-Where the number 12287 is a bit-or-ed mask with the meaning:
-
-#define SNO_OLDSNO 0x1 /* unsorted old messages */
-#define SNO_SERVKILL 0x2 /* server kills (nick collisions) */
-#define SNO_OPERKILL 0x4 /* oper kills */
-#define SNO_HACK2 0x8 /* desyncs */
-#define SNO_HACK3 0x10 /* temporary desyncs */
-#define SNO_UNAUTH 0x20 /* unauthorized connections */
-#define SNO_TCPCOMMON 0x40 /* common TCP or socket errors */
-#define SNO_TOOMANY 0x80 /* too many connections */
-#define SNO_HACK4 0x100 /* Uworld actions on channels */
-#define SNO_GLINE 0x200 /* glines */
-#define SNO_NETWORK 0x400 /* net join/break, etc */
-#define SNO_IPMISMATCH 0x800 /* IP mismatches */
-#define SNO_OLDREALOP 0x1000 /* old oper-only messages */
-#define SNO_CONNEXIT 0x2000 /* client connect/exit (ugh) */
-
-One can set this way a more specific filter for server notices:
-
-/MODE nick +s 3847
-
-Or add (set) an EXTRA bit:
-
-/MODE nick +s 128
-
-Note the extra numeric parameter (space seperated from the umodes).
-
-This would also work:
-
-/MODE mynick +iswd 853
-
-
-
-/MODE nick -s 64
-
-Unsets bits (/MODE nick -s 96 unsets both 64 and 32).
-
-This will be added to undernet server version 2.10.
-The new numeric will be returned every time you set a new mask, or
-when you ask you umode with '/MODE nick' and the mask is unequal
-the default mask. The default mask is unfortunately subject to
-change, but currently 1540 (0x604).
-Doing /MODE nick +s, will NOT give the 249 numeric, but set the
-mask to the default mask.
-
-Run
-
-PS
-
-If client coders absolutely want to know what the default mask is
-I suggest they use this string: MODE <nick> +ss 2147483648
-This currently gives (ircII):
---> MODE Run4 -s
-*** Mode change "-s" for user Run4 by Run4
---> MODE Run4 +ss 2147483648
-*** Mode change "+s" for user Run4 by Run4
-249 Servernotice mask: 1540 (0x604)
-
-PS2
-
-Unofficial ;), one can also do: /MODE nick +s -4 , to uset bit '4',
-and even /MODE nick -s -4, to SET bit '4'.
-
---
- ircd development: http://www.xs4all.nl/~carlo17/ircd-dev
->From carlo@runaway.xs4all.nl Wed Feb 26 21:03:58 1997
-Date: Wed, 26 Feb 1997 21:28:29 +0100 (MET)
-From: Carlo Wood <carlo@runaway.xs4all.nl>
-Reply-To: coder-com@undernet.org
-To: coder-com@undernet.org
-Cc: ircii-epic@concentric.net
-Subject: Re: [C-Com] client-coder feedback
-
------BEGIN PGP SIGNED MESSAGE-----
-
-Well, first of all - BECAUSE the server isn't released and tested yet
-this might change all a few times more :), so don't rush your implementation.
-
-Most important changes ALREADY are:
-
-- - There will be a NEW numeric (249 was already used I learned).
-- - The trick with +ss <large number> will NOT work, you can use
- +ss +<large number> now (note the extra '+').
-
-I see no problem in attaching the digits to the s.. thus:
-
-/MODE Run +s29382
-
-It just doesn't look as well... and users might type a space intuitively.
-There is no problem with MY ircII (-2.8.2) client and multiple umode params...
-
-We DID have a long discussion about this yes, because initially we wanted
-to use server-notice-channels. But that sucks for multi-window clients like
-mIRC (without patches), so we ended up by making a new user mode.
-It seems likely that more then 31 server-notice-"channels" will be needed
-yes, in which case a decimal number is bad thing to do.
-I'm open for a quick discussion on a new interface.
-
-Run
-
-PS Please forward this to other client-coders again :)
- Is there a list of addresses I could use ?
-
-
-| ------- Forwarded Message
-|
-| Received: from SOUTH-STATION-ANNEX.MIT.EDU by po9.MIT.EDU (5.61/4.7) id AA06626; Wed, 26 Feb 97 00:17:20 EST
-| Received: from listopher.concentric.net by MIT.EDU with SMTP
-| id AA10334; Wed, 26 Feb 97 00:17:18 EST
-| Received: (from majordom@localhost)
-| by listopher.concentric.net (8.8.3/8.8.3)
-| id AAA18002; Wed, 26 Feb 1997 00:14:09 -0500 (EST)
-| Message-Id: <199702260512.XAA00381@brain.acronet.net>
-| To: ircii-epic@concentric.net
-| From: jnelson@acronet.net
-| Subject: Re: Ircii-epic: New Undernet feature
-| In-Reply-To: Your message of "Tue, 25 Feb 1997 19:49:37 EST."
-| <9702260049.AA12854@starkiller.MIT.EDU>
-| Date: Tue, 25 Feb 1997 23:12:45 -0600
-| Sender: owner-ircii-epic@concentric.net
-| Precedence: bulk
-|
-|
-| (Specifically to Kev, in general to everyone on the list...)
-| Forward this to anyone you think is interested in my opinion...
-|
-|
-| >One can set this way a more specific filter for server notices:
-|
-| [user mode +s takes an argument now]
-|
-|
-| Please note the importance of this: This proposal would stipulate
-| the first user mode that is to take an argument. While this is not
-| (neccesarily) against the spirit of modes, i would make an educated
-| guess that ircII is not the only client in the world that optimizes
-| its handling of user modes with the assumption that arguments are not
-| present.
-|
-| The reason why this is significant is not because of the specific use
-| of the argument, but rather that current clients will have to be retro
-| fitted with code that will be able to handle arguments on user modes,
-| and the fact that since you are overloading a current user mode, you
-| are introducing a gratuitous incompatability which makes the job of a
-| client coder all that much harder becuase now ill have to special case
-| the undernet 2.10 server for this exceptional behavior. It is very fair
-| to say that this is <not> an insignificant change.
-|
-| While i will probably support this before its all said and done, I want
-| to make sure that I tell you that I HOPE you thought about this and ruled
-| out all other reasonable solutions other than having user modes take
-| arguments. I dont expect this to change, and thats the way it is:
-| I do appreciate your giving far advance notice instead of just releasing
-| the code and then griping that current clients dont support it correctly.
-| (ala efnet 2.9)
-|
-| This will certainly not be supported or retrofitted on any already
-| released EPIC client (eg, epic3), but probably will eventually be supported
-| in the EPIC4 development cycle. I cannot give you any assurances when.
-| Please re-assure me that you will always have less than 32 flags for this
-| new user mode.
-|
-| Jeremy
-|
-| ------- End of Forwarded Message
-|
-|
-| --
-| Kevin L. Mitchell
-| ----------------------------------------------------------
-| kev@undernet.org kev@wildstar.net klmitch@mit.edu
-| PGP keys: http://web.mit.edu/klmitch/www/pgp.html
-| Home Page: http://web.mit.edu/klmitch/www/
-
-- --
- carlo@runaway.xs4all.nl, Run @ IRC.
-
- ircd development: http://www.xs4all.nl/~carlo17/ircd-dev
-
------BEGIN PGP SIGNATURE-----
-Version: 2.6.3i
-Charset: noconv
-
-iQCVAwUBMxSc6m/Sxh1iSsrVAQFyhwQAqwywucW2iJ6vfcngjM2rRr71tUskM0L6
-pfRe+k7nnU3090urxes5oaJdGR+3w/8sA526d4I6RLHgz156gZX06vPimRMmNteB
-eZOzbU2C01hOBIHJFdtsv+NHTrYrt9+bs5dHEwLW1MXig4girAsHW0NZ9NBPUpLU
-VpXOAE+6Vpk=
-=Iu1Y
------END PGP SIGNATURE-----
-
+++ /dev/null
-Waste time on IRC using ZenIRC
-
-With ZenIRC you can connect to IRC servers and waste time.
-ZenIRC runs under Emacs-18, Emacs-19, Epoch and XEmacs.
-This manual describes ZenIRC version 3.0.
-
-
-\f 1--Introduction
-
-
-If ZenIRC is installed properly, starting ZenIRC without any
-extensions is fairly easy--you just type `M-x zenirc' in your Emacs.
-
-If ZenIRC isn't installed at all, you probably won't be able to read
-this manual. Turn to the "INSTALL" file which comes with the
-distribution of ZenIRC-3.0.
-
-If ZenIRC is installed but you still can't start it, there's a big
-chance that you can't connect to the default server.
-
-
-\f 1.1--Finding an IRC server and connecting to it.
-
-
-There's only one default server for ZenIRC, irc.stealth.net. This
-server might, of course, be down or unreachable. If this is so, you
-need to connect to another server for ZenIRC to work.
-
-ZenIRC comes with a list of servers maintained by Doug McLaren. The
-list is from 1996-04-15 so it might not be correct. This list is
-posted to the Usenet group alt.irc and alt.irc.questions twice a
-month and a copy of it can be found via anonymous FTP at
- ftp.comco.com:/pub/irc/server-list-current
-
-
-\f 1.1.1--Changing default server (and attributes).
-
-
-There's three different ways to change your default server. They're
-listed below in the prefered order. If you use example 1.1.1.1 or
-1.1.1.2 you'll get some redundancy example 1.1.1.3 can't give you.
-1.1.1.3 is good if you want to start right away and set things up
-later on in life.
-
-
-\f 1.1.1.1--The $IRCSERVER way.
-
-
-By setting your environment variable $IRCSERVER you also change the
-default servers for most other IRC clients around. How to set this
-variable is different in different shells.
-
- sh, bash, zsh; IRCSERVER="some.server";export IRCSERVER
- csh, tcsh; setenv IRCSERVER "some.server"
-
-ZenIRC uses this variable just like ircII. The correct syntax is;
-
- server1[:port1[:password1[:nickname1[:username1]]]] server2[:port2...
-
-To set your default server to irc.stealth.net with the nickname `ben'
-and your secondary server to irc.funet.fi on port 6666 with the
-nickname Vesa you would set $IRCSERVER to;
-
- irc.stealth.net:::ben: irc.funet.fi:6666::Vesa:
-
-
-\f 1.1.1.2--The zenirc-server-alist way.
-
-
-By setting the ZenIRC variable zenirc-server-alist you can do the same
-thing as with $IRCSERVER, this way you won't have the same defaults
-for other clients though.
-
-To do exactly as the example in 1.1.1.1, you should set
-zenirc-server-alist as follows;
-
- (setq zenirc-server-alist
- '(("irc.stealth.net" nil nil "ben" nil)
- ("irc.funet.fi" 6666 nil "Vesa" nil)))
-
-
-\f 1.1.1.3--Using ordinary variables.
-
-
-The only thing you actually _need_ to set is zenirc-server-default.
-
-To set your default server, use zenirc-server-default;
-
- (setq zenirc-server-default "irc.stealth.net")
-
-To set your default nickname, use zenric-nick-default;
-
- (setq zenirc-nick-default "ben")
-
-To set your default password, use zenric-password-default;
-
- (setq zenirc-password-default "mostly not used")
-
-To set your default port, use zenirc-port-default;
-
- (setq zenirc-port-default 6667)
-
-To set your default username, use zenirc-user-login-name-default;
-
- (setq zenirc-user-login-name-default "oedipus rpc.rexd")
-
-
-\f 1.1.2--Those servers are all down.
-
-
-If you don't want to restart Emacs and ZenIRC to try a new server,
-type `M-x zenirc-select' and you will be asked a few questions.
-
-
-\f 1.1.3--The server doesn't let me on?!
-
-
-The IRC administrators might not want people from everywhere to
-connect to his server. I'd recomend you to use an as closeby server as
-possible. The list of servers lists the server by country, the best
-shot would be to use one as close to you as possible.
-
-There's also a possiblity that the admin has banned your domain. If
-this is true, talk to your system administrator about it.
-
-Some servers won't let you connect if your system isn't running an
-IDENT service. This breaks the RFC for IDENT so be sure to tell the
-administrator of the server about this idiocy, then go on and pick a
-better server.
-
-
-\f 2--Using ZenIRC to waste time.
-
-
-Once you've conected to a server, Emacs will enter ZenIRC
-major-mode. This mode parses information from the server and shows it
-to you in different ways, it also give you a nice interface to send
-things to the server. ZenIRCs major-mode also understands CTCP and
-parts of the DCC protocol.
-
-
-\f 2.1--What goes on in the background?
-
-
-Lots of things. If you don't know much elisp and just want to use the
-client you couldn't be less bothered actually. If you really are
-interested in the internals of ZenIRC you should join one or more of
-the ZenIRC mailinglists, read the source and play around a little.
-Changing small things and adding some small nifty hooks are pretty
-trivial though, read more about that in SECTION and SECTION.
-
-
-\f 2.1.1--Communicating with the server.
-
-
-Sending stuff to the server is done by hitting return (^M). ZenIRC
-parses the things you send to the server in two different ways,
-depending on the first character you type. With a leading "/" (you can
-change this by setting zenirc-commandchar) ZenIRC parses your line as
-a command. Without the leading "/" ZenIRC sends your line as a message
-to your current victim, this is done with PRIVMSG as described in
-RFC1459.
-
-Example, if the channel #se-opers is your zenric-current-victim and
-you type;
-
- Hello people^M
-
-the clients on channel #se-opers will see your message. Use the /query
-command to change zenirc-current-victim. :LINK:
-
-On the other hand, if you type;
-
- /part #se-opers^M
-
-you will part the channel. Look in 2.2 for an extensive list of all
-commands and how to use them.
-
-
-\f 2.1.2--Server communicating with you.
-
-ZenIRC parses all the information the servers sends to you in one way
-or the other. On a few occasions ZenIRC might lack the information on
-how to parse a certain thing, this is almost considered a bug (use M-x
-zenirc-bug to report this behaviour).
-
-To display the information, ZenIRC uses language catalogs. The default
-catalog is English, but this can be changed easily. Writing your own
-catalog is trivial and we'd love you if you wrote your own catalog and
-mailed it in to the developers.
-
-There's a lot of different variables you can change, and hooks to play
-with if you feel adventureous. You can, for example, ignore people,
-make ZenIRC beep when something special happens, have timestamps on
-special messages and so forth. The variables are described in SECTION
-and the hooks are described in SECTION.
-
-`zenirc.el' only contains the most important features, some very nice
-features are placed in their own files. `zenirc-fill.el', for example,
-fills certain messages for you so Emacs doesn't have to wrap long
-lines in an ugly way. Read more about scripts in SECTION.
-
-
-\f 2.2--Commands in ZenIRC major-mode.
-
-
-As already described, ZenIRC pareses lines with a leading "/" as a
-command. Most of the commands are sent right off to the server, some
-commands are ZenIRC specific though.
-
-
-\f 3.2.1--Non ZenIRC specific commands.
-
-
-A list of these commands can be found in RFC1459, this list is just a
-brief description on how to use different commands. Go read RFC1459 if
-you want to learn really nifty stuff.
-
-Things inside []'s are optional. If the optional argument is a server,
-using a nickname will list information about the server that nickname
-is using.
-
-/nick nickname
- Change your nickname
-
-/quit comment
- Stop wasting time, with optional comment.
-
-/join channel[,channel] [key[,key]]
- Join one or more comma separated channels with given optional keys.
- zenirc-current-victim is set to the last joined channel.
-
-/part channel[,channel] [comment]
- Part one or more comma separated channels, with optional comment.
- If you part your zenirc-current-victim, it is set to 'nil'.
-
-/mode nickname [mode]
- Check or change modes for a given nickname. See RFC1459 for an
- extensive list of modes.
-
-/mode channel [mode [person]]
- Check or change modes for a channel, or the mode of a nickname
- on a channel. See RFC1459 for an extensive list of modes.
-
-/topic channel [topic]
- Check or change topic of a certain channel.
-
-/names channel[,channel]
- See who's on one or more comma separated channels.
-
-/list [channel[,channel] [server]]
- Lists all, one or a comma separated list of channels. With
- given server it lists channels from that servers view.
-
-/invite nickname channel
- Invite person to given channel name.
-
-/kick channel nickname [comment]
- Kick person on given channel with an optional comment.
-
-/version [server]
- Returns version of current or given server.
-
-/stats query [server]
- Returns information about that server (go read RFC1459).
- Read SECTION for an extensive list of query types.
-
-/links [[<remote server>] <server mask>]
- Lists all links or links matching a given mask, with optional
- <remote server> it lists links seen from that server.
-
-/time [server]
- Returns time from current or given server.
-
-/trace nickname
- Returns the server route to given nickname.
-
-/trace [server]
- Returns information on what's connected to the current server,
- or a route to given server as well as things connected to it.
-
-/admin [server]
- List administrative information for current or given server.
-
-/info [server]
- List version, compile date, patchlevel, starttime and other
- various information about current or given server.
-
-/privmsg nickname/channel text
- Send text as a PRIVMSG to nickname/channel.
-
-/notice nickname/channel text
- Send text as a NOTICE to nickname/channel.
-
-/who [<nick/user/server>mask [o]]
- List short information about everyone on IRC or given
- nickname, username or servername. With optional [o] argument
- it lists person with their IRC operator flag set.
- This command takes UNIX like masks ("?" and "*").
-
-/whois [server] nickmask[,nickmask]
- List long information about given nickname, with optional
- server argument it lists information as seen from that server.
-
-/whowas nickname [count [server]]
- List long information about nickname not currently on the
- connected servers but still in the WHOWAS database. With given
- argument count, list that many old entries from the database.
- With given server argument, list information as seen from that
- server.
-
-/away [message]
- Remove away message, with optional argument it sets a new
- away message instead.
-
-/users [server]
- List users logged in to current server or another server.
-
-/summon user [server]
- Invite a user logged in to current server or another server.
-
-/userhost nickname [nickname [nickname]]
- Returns short information about a whitespace separated list of
- nicknames.
-
-/ison nickname [nickname [nickname]]
- Returns wheter given, whitespace separated, nicknames are
- on this IRC net.
-
-
-\f 2.2.2--ZenIRC specific commands.
-
-
-/action nickname/channel text
- Send text as a CTCP ACTION to given nickname/channel. To send
- text to more then one nickname/channel, use a comma separated
- list.
-
-/commandchar char
- Change your commandchar to char, for example;
-
- /commandchar &
-
- A good example is then;
-
- &commandchar /
-
-/ctcp nickname/channel <CTCP QUERY>
- Send <CTCP QUERY> to a comma separated list of nicknames and
- channels.
-
-/language language
- Change your language catalog to given language. Read SECTION
- for more information about existing catalogs.
-
-/m
-/msg
- A shortcut for "/privmsg"
-
-/me text
- Send text as a CTCP ACTION to zenirc-current-victim.
-
-/ping nickname/channel
- Send CTCP PING to a comma separated list of nicknames and
- channels.
-
-/query [nickname/channel]
- Show or change zenirc-current-victim to a comma separated list
- of nicknames and channels.
-
-/quote text
- Sends text directly to the server. You might need this as
- ZenIRC uses the same name as the server on some commands,
- for example;
-
- /quote ping server [<remote server>]
- Ping current server, with given <remote server>
- argument it pings the remote server instead.
-
-/server [server [port [nickname]]]
- Connect to a server in a new ZenIRC-buffer.
- This is bound to zenirc-select. If no options are used, ZenIRC
- will ask you some questions.
-
-
-\f 2.3--Keybindings in ZenIRC major-mode.
-
-
-Hitting certain key combinations in ZenIRC will result in ZenIRC doing
-stuff you didn't think it would. This is really nifty, when you
-realize what actually happens HELLO PER
-
- 2.3.1
-
-
- Hitting return ("\n" or "^M") will send the current line to the
-server. If you're looking through the backlog and hit return, ZenIRC
-will throw you to the end of the buffer.
-
-Hitting ; or : at the beginning of the line will help you while
-communicating to others then your zenirc-current-victim. For example;
-
-/msg omnion meep
-/msg ace95 meep
-*Omnion* meep meep
-
-Hitting ";" now will result in ZenIRC adding "/msg ace95 " at the
-beginning of the line.
-Hitting ":" will result in ZenIRC adding "/msg omnion " at the
-beginning of the line.
-
-By using a few of the scripts which comes with ZenIRC you can get
-tab-completion and a shell like history feature, more about that in
-SECTION.
-
-
-\f 3--It's working, now I want it to Look Good and Feel Good.
-
-
-The default look of ZenIRC is pretty sparse.
\ No newline at end of file
+++ /dev/null
-@tex
-\def\line{\hbox to\hsize}
-\def\centerline#1{\line{\hss#1\hss}}
-@end tex
-\input psfig
-\input texinfo @c -*-texinfo-*-
-@c ----------------------------------------------------------------------
-@c Time-stamp: <Fri Oct 11 1996 23:10:26 Stardate: [-31]8254.61 hwloidl>
-@c
-@c Hacked TeXInfo file (based on the zenirc.ascii file in version 2.107)
-@c ----------------------------------------------------------------------
-
-@c %**start of header
-@setfilename zenirc.info
-@settitle ZenIRC Info Pages
-@direntry
-* ZenIRC: (zenirc). Internet Relay Chat in the Emacs World.
-@end direntry
-@c footnotestyle separate
-@c paragraphindent 2
-@c %**end of header
-
-@comment New index for options
-@c @defindex op
-@c @syncodeindex op cp
-
-@titlepage
-@sp 10
-@comment The title is printed in a large font.
-@center @titlefont{ZenIRC Info Pages}
-@center Version 2.107
-@sp 1
-@center October 1996
-@sp 5
-@c @center Hans-Wolfgang Loidl
-@c @center @t{hwloidl@@dcs.gla.ac.uk}
-@c The following two commands start the copyright page.
-@page
-@end titlepage
-
-@c ----------------------------------------------------------------------
-
-@ifnottex
-@node Top, Introduction, (dir), (dir)
-@comment node-name, next, previous, up
-@top ZenIRC Info Pages
-@end ifnottex
-
-Waste time on IRC using ZenIRC
-
-With ZenIRC you can connect to IRC servers and waste time.
-ZenIRC runs under Emacs-18, Emacs-19, Epoch and XEmacs.
-This manual describes ZenIRC version 3.0.
-
-@menu
-* Introduction::
-* Using ZenIRC to waste time.::
-* It's working::
-* Function Index::
-
- --- The Detailed Node Listing ---
-
-Introduction
-
-* Finding an IRC server and connecting to it.::
-
-Finding an IRC server and connecting to it.
-
-* Changing default server (and attributes).::
-* Those servers are all down.::
-* The server doesn't let me on?!::
-
-Changing default server (and attributes).
-
-* The $IRCSERVER way.::
-* The zenirc-server-alist way.::
-* Using ordinary variables.::
-
-Using ZenIRC to waste time.
-
-* What goes on in the background? ::
-* Commands in ZenIRC major-mode.::
-* Keybindings in ZenIRC major-mode.::
-
-What goes on in the background?
-
-* Communicating with the server.::
-* Server communicating with you.::
-
-Commands in ZenIRC major-mode.
-
-* Non ZenIRC specific commands.::
-* ZenIRC specific commands.::
-@end menu
-
-@node Introduction, Using ZenIRC to waste time., Top, Top
-@comment node-name, next, previous, up
-@chapter Introduction
-
-
-
-If ZenIRC is installed properly, starting ZenIRC without any
-extensions is fairly easy--you just type `M-x zenirc' in your Emacs.
-
-If ZenIRC isn't installed at all, you probably won't be able to read
-this manual. Turn to the "INSTALL" file which comes with the
-distribution of ZenIRC-3.0.
-
-If ZenIRC is installed but you still can't start it, there's a big
-chance that you can't connect to the default server.
-
-
-@menu
-* Finding an IRC server and connecting to it.::
-@end menu
-
-@node Finding an IRC server and connecting to it., , Introduction, Introduction
-@comment node-name, next, previous, up
-@section Finding an IRC server and connecting to it.
-
-
-
-There's only one default server for ZenIRC, irc.stealth.net. This
-server might, of course, be down or unreachable. If this is so, you
-need to connect to another server for ZenIRC to work.
-
-ZenIRC comes with a list of servers maintained by Doug McLaren. The
-list is from 1996-04-15 so it might not be correct. This list is
-posted to the Usenet group alt.irc and alt.irc.questions twice a
-month and a copy of it can be found via anonymous FTP at
- ftp.comco.com:/pub/irc/server-list-current
-
-
-@menu
-* Changing default server (and attributes).::
-* Those servers are all down.::
-* The server doesn't let me on?!::
-@end menu
-
-@node Changing default server (and attributes)., Those servers are all down., Finding an IRC server and connecting to it., Finding an IRC server and connecting to it.
-@comment node-name, next, previous, up
-@subsection Changing default server (and attributes).
-
-
-
-There's three different ways to change your default server. They're
-listed below in the prefered order. If you use example 1.1.1.1 or
-1.1.1.2 you'll get some redundancy example 1.1.1.3 can't give you.
-1.1.1.3 is good if you want to start right away and set things up
-later on in life.
-
-
-@menu
-* The $IRCSERVER way.::
-* The zenirc-server-alist way.::
-* Using ordinary variables.::
-@end menu
-
-@node The $IRCSERVER way., The zenirc-server-alist way., Changing default server (and attributes)., Changing default server (and attributes).
-@comment node-name, next, previous, up
-@subsubsection The $IRCSERVER way.
-
-
-
-By setting your environment variable $IRCSERVER you also change the
-default servers for most other IRC clients around. How to set this
-variable is different in different shells.
-
- sh, bash, zsh; IRCSERVER="some.server";export IRCSERVER
- csh, tcsh; setenv IRCSERVER "some.server"
-
-ZenIRC uses this variable just like ircII. The correct syntax is;
-
- server1[:port1[:password1[:nickname1[:username1]]]] server2[:port2...
-
-To set your default server to irc.stealth.net with the nickname `ben'
-and your secondary server to irc.funet.fi on port 6666 with the
-nickname Vesa you would set $IRCSERVER to;
-
- irc.stealth.net:::ben: irc.funet.fi:6666::Vesa:
-
-
-@node The zenirc-server-alist way., Using ordinary variables., The $IRCSERVER way., Changing default server (and attributes).
-@comment node-name, next, previous, up
-@subsubsection The zenirc-server-alist way.
-
-
-
-By setting the ZenIRC variable zenirc-server-alist you can do the same
-thing as with $IRCSERVER, this way you won't have the same defaults
-for other clients though.
-
-To do exactly as the example in 1.1.1.1, you should set
-zenirc-server-alist as follows;
-
-@example
- (setq zenirc-server-alist
- '(("irc.stealth.net" nil nil "ben" nil)
- ("irc.funet.fi" 6666 nil "Vesa" nil)))
-@end example
-
-
-@node Using ordinary variables., , The zenirc-server-alist way., Changing default server (and attributes).
-@comment node-name, next, previous, up
-@subsubsection Using ordinary variables.
-
-
-
-The only thing you actually _need_ to set is zenirc-server-default.
-
-To set your default server, use zenirc-server-default;
-
-@example
- (setq zenirc-server-default "irc.stealth.net")
-@end example
-
-To set your default nickname, use zenric-nick-default;
-
-@example
- (setq zenirc-nick-default "ben")
-@end example
-
-To set your default password, use zenric-password-default;
-
-@example
- (setq zenirc-password-default "mostly not used")
-@end example
-
-To set your default port, use zenirc-port-default;
-
-@example
- (setq zenirc-port-default 6667)
-@end example
-
-To set your default username, use zenirc-user-login-name-default;
-
-@example
- (setq zenirc-user-login-name-default "oedipus rpc.rexd")
-@end example
-
-
-@node Those servers are all down., The server doesn't let me on?!, Changing default server (and attributes)., Finding an IRC server and connecting to it.
-@comment node-name, next, previous, up
-@subsection Those servers are all down.
-
-
-
-If you don't want to restart Emacs and ZenIRC to try a new server,
-type `M-x zenirc-select' and you will be asked a few questions.
-
-
-@node The server doesn't let me on?!, , Those servers are all down., Finding an IRC server and connecting to it.
-@comment node-name, next, previous, up
-@subsection The server doesn't let me on?!
-
-
-
-The IRC administrators might not want people from everywhere to
-connect to his server. I'd recomend you to use an as closeby server as
-possible. The list of servers lists the server by country, the best
-shot would be to use one as close to you as possible.
-
-There's also a possiblity that the admin has banned your domain. If
-this is true, talk to your system administrator about it.
-
-Some servers won't let you connect if your system isn't running an
-IDENT service. This breaks the RFC for IDENT so be sure to tell the
-administrator of the server about this idiocy, then go on and pick a
-better server.
-
-
-@node Using ZenIRC to waste time., It's working, Introduction, Top
-@comment node-name, next, previous, up
-@chapter Using ZenIRC to waste time.
-
-
-
-Once you've conected to a server, Emacs will enter ZenIRC
-major-mode. This mode parses information from the server and shows it
-to you in different ways, it also give you a nice interface to send
-things to the server. ZenIRCs major-mode also understands CTCP and
-parts of the DCC protocol.
-
-
-@menu
-* What goes on in the background? ::
-* Commands in ZenIRC major-mode.::
-* Keybindings in ZenIRC major-mode.::
-@end menu
-
-@node What goes on in the background? , Commands in ZenIRC major-mode., Using ZenIRC to waste time., Using ZenIRC to waste time.
-@comment node-name, next, previous, up
-@section What goes on in the background?
-
-
-
-Lots of things. If you don't know much elisp and just want to use the
-client you couldn't be less bothered actually. If you really are
-interested in the internals of ZenIRC you should join one or more of
-the ZenIRC mailinglists, read the source and play around a little.
-Changing small things and adding some small nifty hooks are pretty
-trivial though, read more about that in SECTION and SECTION.
-
-
-@menu
-* Communicating with the server.::
-* Server communicating with you.::
-@end menu
-
-@node Communicating with the server., Server communicating with you., What goes on in the background? , What goes on in the background?
-@comment node-name, next, previous, up
-@subsection Communicating with the server.
-
-
-
-Sending stuff to the server is done by hitting return (^M). ZenIRC
-parses the things you send to the server in two different ways,
-depending on the first character you type. With a leading "/" (you can
-change this by setting zenirc-commandchar) ZenIRC parses your line as
-a command. Without the leading "/" ZenIRC sends your line as a message
-to your current victim, this is done with PRIVMSG as described in
-RFC1459.
-
-Example, if the channel #se-opers is your zenric-current-victim and
-you type;
-
-@example
- Hello people^M
-@end example
-
-the clients on channel #se-opers will see your message. Use the /query
-command to change zenirc-current-victim. :LINK:
-
-On the other hand, if you type;
-
-@example
- /part #se-opers^M
-@end example
-
-you will part the channel. Look in 2.2 for an extensive list of all
-commands and how to use them.
-
-
-@node Server communicating with you., , Communicating with the server., What goes on in the background?
-@comment node-name, next, previous, up
-@subsection Server communicating with you.
-
-
-ZenIRC parses all the information the servers sends to you in one way
-or the other. On a few occasions ZenIRC might lack the information on
-how to parse a certain thing, this is almost considered a bug (use M-x
-zenirc-bug to report this behaviour).
-
-To display the information, ZenIRC uses language catalogs. The default
-catalog is English, but this can be changed easily. Writing your own
-catalog is trivial and we'd love you if you wrote your own catalog and
-mailed it in to the developers.
-
-There's a lot of different variables you can change, and hooks to play
-with if you feel adventureous. You can, for example, ignore people,
-make ZenIRC beep when something special happens, have timestamps on
-special messages and so forth. The variables are described in SECTION
-and the hooks are described in SECTION.
-
-`zenirc.el' only contains the most important features, some very nice
-features are placed in their own files. `zenirc-fill.el', for example,
-fills certain messages for you so Emacs doesn't have to wrap long
-lines in an ugly way. Read more about scripts in SECTION.
-
-
-@node Commands in ZenIRC major-mode., Keybindings in ZenIRC major-mode., What goes on in the background? , Using ZenIRC to waste time.
-@comment node-name, next, previous, up
-@section Commands in ZenIRC major-mode.
-
-
-
-As already described, ZenIRC pareses lines with a leading "/" as a
-command. Most of the commands are sent right off to the server, some
-commands are ZenIRC specific though.
-
-
-@menu
-* Non ZenIRC specific commands.::
-* ZenIRC specific commands.::
-@end menu
-
-@node Non ZenIRC specific commands., ZenIRC specific commands., Commands in ZenIRC major-mode., Commands in ZenIRC major-mode.
-@comment node-name, next, previous, up
-@subsection Non ZenIRC specific commands.
-
-
-
-A list of these commands can be found in RFC1459, this list is just a
-brief description on how to use different commands. Go read RFC1459 if
-you want to learn really nifty stuff.
-
-Things inside []'s are optional. If the optional argument is a server,
-using a nickname will list information about the server that nickname
-is using.
-
-@deffn Command /nick nickname
- Change your nickname
-
-@end deffn
-@deffn Command /quit comment
- Stop wasting time, with optional comment.
-
-@end deffn
-@deffn Command /join channel[,channel] [key[,key]]
- Join one or more comma separated channels with given optional keys.
- zenirc-current-victim is set to the last joined channel.
-
-@end deffn
-@deffn Command /part channel[,channel] [comment]
- Part one or more comma separated channels, with optional comment.
- If you part your zenirc-current-victim, it is set to 'nil'.
-
-@end deffn
-@deffn Command /mode nickname [mode]
- Check or change modes for a given nickname. See RFC1459 for an
- extensive list of modes.
-
-@end deffn
-@deffn Command /mode channel [mode [person]]
- Check or change modes for a channel, or the mode of a nickname
- on a channel. See RFC1459 for an extensive list of modes.
-
-@end deffn
-@deffn Command /topic channel [topic]
- Check or change topic of a certain channel.
-
-@end deffn
-@deffn Command /names channel[,channel]
- See who's on one or more comma separated channels.
-
-@end deffn
-@deffn Command /list [channel[,channel] [server]]
- Lists all, one or a comma separated list of channels. With
- given server it lists channels from that servers view.
-
-@end deffn
-@deffn Command /invite nickname channel
- Invite person to given channel name.
-
-@end deffn
-@deffn Command /kick channel nickname [comment]
- Kick person on given channel with an optional comment.
-
-@end deffn
-@deffn Command /version [server]
- Returns version of current or given server.
-
-@end deffn
-@deffn Command /stats query [server]
- Returns information about that server (go read RFC1459).
- Read SECTION for an extensive list of query types.
-
-@end deffn
-@deffn Command /links [[<remote server>] <server mask>]
- Lists all links or links matching a given mask, with optional
- <remote server> it lists links seen from that server.
-
-@end deffn
-@deffn Command /time [server]
- Returns time from current or given server.
-
-@end deffn
-@deffn Command /trace nickname
- Returns the server route to given nickname.
-
-@end deffn
-@deffn Command /trace [server]
- Returns information on what's connected to the current server,
- or a route to given server as well as things connected to it.
-
-@end deffn
-@deffn Command /admin [server]
- List administrative information for current or given server.
-
-@end deffn
-@deffn Command /info [server]
- List version, compile date, patchlevel, starttime and other
- various information about current or given server.
-
-@end deffn
-@deffn Command /privmsg nickname/channel text
- Send text as a PRIVMSG to nickname/channel.
-
-@end deffn
-@deffn Command /notice nickname/channel text
- Send text as a NOTICE to nickname/channel.
-
-@end deffn
-@deffn Command /who [<nick/user/server>mask [o]]
- List short information about everyone on IRC or given
- nickname, username or servername. With optional [o] argument
- it lists person with their IRC operator flag set.
- This command takes UNIX like masks ("?" and "*").
-
-@end deffn
-@deffn Command /whois [server] nickmask[,nickmask]
- List long information about given nickname, with optional
- server argument it lists information as seen from that server.
-
-@end deffn
-@deffn Command /whowas nickname [count [server]]
- List long information about nickname not currently on the
- connected servers but still in the WHOWAS database. With given
- argument count, list that many old entries from the database.
- With given server argument, list information as seen from that
- server.
-
-@end deffn
-@deffn Command /away [message]
- Remove away message, with optional argument it sets a new
- away message instead.
-
-@end deffn
-@deffn Command /users [server]
- List users logged in to current server or another server.
-
-@end deffn
-@deffn Command /summon user [server]
- Invite a user logged in to current server or another server.
-
-@end deffn
-@deffn Command /userhost nickname [nickname [nickname]]
- Returns short information about a whitespace separated list of
- nicknames.
-
-@end deffn
-@deffn Command /ison nickname [nickname [nickname]]
- Returns wheter given, whitespace separated, nicknames are
- on this IRC net.
-@end deffn
-
-
-@node ZenIRC specific commands., , Non ZenIRC specific commands., Commands in ZenIRC major-mode.
-@comment node-name, next, previous, up
-@subsection ZenIRC specific commands.
-
-
-
-@deffn Command /action nickname/channel text
- Send text as a CTCP ACTION to given nickname/channel. To send
- text to more then one nickname/channel, use a comma separated
- list.
-
-@end deffn
-@deffn Command /commandchar char
- Change your commandchar to char, for example;
-
-@example
- /commandchar &
-@end example
-
- A good example is then;
-
-@example
- &commandchar /
-@end example
-
-@end deffn
-@deffn Command /ctcp nickname/channel <CTCP QUERY>
-
- Send @code{<CTCP QUERY>} to a comma separated list of nicknames and
- channels.
-
-@end deffn
-@deffn Command /language language
-
- Change your language catalog to given language. Read SECTION
- for more information about existing catalogs.
-
-@end deffn
-@deffn Command /m
-@deffnx Command /msg
-
- A shortcut for "/privmsg"
-
-@end deffn
-@deffn Command /me text
-
- Send text as a CTCP ACTION to zenirc-current-victim.
-
-@end deffn
-@deffn Command /ping nickname/channel
-
- Send CTCP PING to a comma separated list of nicknames and
- channels.
-
-@end deffn
-@deffn Command /query [nickname/channel]
-
- Show or change zenirc-current-victim to a comma separated list
- of nicknames and channels.
-
-@end deffn
-@deffn Command /quote text
-
- Sends text directly to the server. You might need this as
- ZenIRC uses the same name as the server on some commands,
- for example;
-
-@example
- /quote ping server [<remote server>]
-@end example
- Ping current server, with given <remote server>
- argument it pings the remote server instead.
-
-@end deffn
-@deffn Command /server [server [port [nickname]]]
- Connect to a server in a new ZenIRC-buffer.
- This is bound to zenirc-select. If no options are used, ZenIRC
- will ask you some questions.
-@end deffn
-
-
-@node Keybindings in ZenIRC major-mode., , Commands in ZenIRC major-mode., Using ZenIRC to waste time.
-@comment node-name, next, previous, up
-@section Keybindings in ZenIRC major-mode.
-
-
-
-Hitting certain key combinations in ZenIRC will result in ZenIRC doing
-stuff you didn't think it would. This is really nifty, when you
-realize what actually happens HELLO PER
-
- 2.3.1
-
-
- Hitting return ("\n" or "^M") will send the current line to the
-server. If you're looking through the backlog and hit return, ZenIRC
-will throw you to the end of the buffer.
-
-Hitting ; or : at the beginning of the line will help you while
-communicating to others then your zenirc-current-victim. For example;
-
-@example
-/msg omnion meep
-/msg ace95 meep
-*Omnion* meep meep
-@end example
-
-Hitting ";" now will result in ZenIRC adding "/msg ace95 " at the
-beginning of the line.
-Hitting ":" will result in ZenIRC adding "/msg omnion " at the
-beginning of the line.
-
-By using a few of the scripts which comes with ZenIRC you can get
-tab-completion and a shell like history feature, more about that in
-SECTION.
-
-
-@node It's working, Function Index, Using ZenIRC to waste time., Top
-@comment node-name, next, previous, up
-@chapter It's working, now I want it to Look Good and Feel Good.
-
-
-
-The default look of ZenIRC is pretty sparse.
-
-@c ----------------------------------------------------------------------
-
-@node Function Index, , It's working, Top
-@comment node-name, next, previous, up
-@unnumbered Function Index
-
-@printindex fn
-
-@contents
-
-@c @shortcontents
-
-
-@bye
+++ /dev/null
-#!/bin/sh
-#
-# install - install a program, script, or datafile
-# This comes from X11R5.
-#
-# Calling this script install-sh is preferred over install.sh, to prevent
-# `make' implicit rules from creating a file called install from it
-# when there is no Makefile.
-#
-# This script is compatible with the BSD install script, but was written
-# from scratch.
-#
-
-
-# set DOITPROG to echo to test this script
-
-# Don't use :- since 4.3BSD and earlier shells don't like it.
-doit="${DOITPROG-}"
-
-
-# put in absolute paths if you don't have them in your path; or use env. vars.
-
-mvprog="${MVPROG-mv}"
-cpprog="${CPPROG-cp}"
-chmodprog="${CHMODPROG-chmod}"
-chownprog="${CHOWNPROG-chown}"
-chgrpprog="${CHGRPPROG-chgrp}"
-stripprog="${STRIPPROG-strip}"
-rmprog="${RMPROG-rm}"
-mkdirprog="${MKDIRPROG-mkdir}"
-
-tranformbasename=""
-transform_arg=""
-instcmd="$mvprog"
-chmodcmd="$chmodprog 0755"
-chowncmd=""
-chgrpcmd=""
-stripcmd=""
-rmcmd="$rmprog -f"
-mvcmd="$mvprog"
-src=""
-dst=""
-dir_arg=""
-
-while [ x"$1" != x ]; do
- case $1 in
- -c) instcmd="$cpprog"
- shift
- continue;;
-
- -d) dir_arg=true
- shift
- continue;;
-
- -m) chmodcmd="$chmodprog $2"
- shift
- shift
- continue;;
-
- -o) chowncmd="$chownprog $2"
- shift
- shift
- continue;;
-
- -g) chgrpcmd="$chgrpprog $2"
- shift
- shift
- continue;;
-
- -s) stripcmd="$stripprog"
- shift
- continue;;
-
- -t=*) transformarg=`echo $1 | sed 's/-t=//'`
- shift
- continue;;
-
- -b=*) transformbasename=`echo $1 | sed 's/-b=//'`
- shift
- continue;;
-
- *) if [ x"$src" = x ]
- then
- src=$1
- else
- # this colon is to work around a 386BSD /bin/sh bug
- :
- dst=$1
- fi
- shift
- continue;;
- esac
-done
-
-if [ x"$src" = x ]
-then
- echo "install: no input file specified"
- exit 1
-else
- true
-fi
-
-if [ x"$dir_arg" != x ]; then
- dst=$src
- src=""
-
- if [ -d $dst ]; then
- instcmd=:
- else
- instcmd=mkdir
- fi
-else
-
-# Waiting for this to be detected by the "$instcmd $src $dsttmp" command
-# might cause directories to be created, which would be especially bad
-# if $src (and thus $dsttmp) contains '*'.
-
- if [ -f $src -o -d $src ]
- then
- true
- else
- echo "install: $src does not exist"
- exit 1
- fi
-
- if [ x"$dst" = x ]
- then
- echo "install: no destination specified"
- exit 1
- else
- true
- fi
-
-# If destination is a directory, append the input filename; if your system
-# does not like double slashes in filenames, you may need to add some logic
-
- if [ -d $dst ]
- then
- dst="$dst"/`basename $src`
- else
- true
- fi
-fi
-
-## this sed command emulates the dirname command
-dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
-
-# Make sure that the destination directory exists.
-# this part is taken from Noah Friedman's mkinstalldirs script
-
-# Skip lots of stat calls in the usual case.
-if [ ! -d "$dstdir" ]; then
-defaultIFS='
-'
-IFS="${IFS-${defaultIFS}}"
-
-oIFS="${IFS}"
-# Some sh's can't handle IFS=/ for some reason.
-IFS='%'
-set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'`
-IFS="${oIFS}"
-
-pathcomp=''
-
-while [ $# -ne 0 ] ; do
- pathcomp="${pathcomp}${1}"
- shift
-
- if [ ! -d "${pathcomp}" ] ;
- then
- $mkdirprog "${pathcomp}"
- else
- true
- fi
-
- pathcomp="${pathcomp}/"
-done
-fi
-
-if [ x"$dir_arg" != x ]
-then
- $doit $instcmd $dst &&
-
- if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi &&
- if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi &&
- if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi &&
- if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi
-else
-
-# If we're going to rename the final executable, determine the name now.
-
- if [ x"$transformarg" = x ]
- then
- dstfile=`basename $dst`
- else
- dstfile=`basename $dst $transformbasename |
- sed $transformarg`$transformbasename
- fi
-
-# don't allow the sed command to completely eliminate the filename
-
- if [ x"$dstfile" = x ]
- then
- dstfile=`basename $dst`
- else
- true
- fi
-
-# Make a temp file name in the proper directory.
-
- dsttmp=$dstdir/#inst.$$#
-
-# Move or copy the file name to the temp name
-
- $doit $instcmd $src $dsttmp &&
-
- trap "rm -f ${dsttmp}" 0 &&
-
-# and set any options; do chmod last to preserve setuid bits
-
-# If any of these fail, we abort the whole thing. If we want to
-# ignore errors from any of these, just make sure not to ignore
-# errors from the above "$doit $instcmd $src $dsttmp" command.
-
- if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi &&
- if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi &&
- if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi &&
- if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi &&
-
-# Now rename the file to the real destination.
-
- $doit $rmcmd -f $dstdir/$dstfile &&
- $doit $mvcmd $dsttmp $dstdir/$dstfile
-
-fi &&
-
-
-exit 0
+++ /dev/null
-#! /bin/sh
-# mkinstalldirs --- make directory hierarchy
-# Author: Noah Friedman <friedman@prep.ai.mit.edu>
-# Created: 1993-05-16
-# Last modified: 1994-03-25
-# Public domain
-
-errstatus=0
-
-for file in ${1+"$@"} ; do
- set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
- shift
-
- pathcomp=
- for d in ${1+"$@"} ; do
- pathcomp="$pathcomp$d"
- case "$pathcomp" in
- -* ) pathcomp=./$pathcomp ;;
- esac
-
- if test ! -d "$pathcomp"; then
- echo "mkdir $pathcomp" 1>&2
- mkdir "$pathcomp" || errstatus=$?
- fi
-
- pathcomp="$pathcomp/"
- done
-done
-
-exit $errstatus
-
-# mkinstalldirs ends here
\ No newline at end of file
+++ /dev/null
-(zenirc
- (standards-version 1.1
- version VERSION
- author-version AUTHOR_VERSION
- date DATE
- build-date BUILD_DATE
- maintainer MAINTAINER
- distribution xemacs
- priority medium
- category CATEGORY
- dump nil
- description "ZENIRC IRC Client."
- filename FILENAME
- md5sum MD5SUM
- size SIZE
- provides (zenirc-18 zenirc-8ball zenirc-away zenirc-bork zenirc-color zenirc-command-queue zenirc-complete zenirc-ctcp-flood zenirc-dcc zenirc-doto zenirc-fill zenirc-finnish zenirc-format zenirc-fortran zenirc-french zenirc-history zenirc-ignore zenirc-iwantop zenirc-klingon zenirc-latin zenirc-meditate zenirc-netsplit zenirc-notify zenirc-oink zenirc-ojnk zenirc-pjg zenirc-popup zenirc-random-away zenirc-random-nick zenirc-signal zenirc-stamp zenirc-swedish zenirc-trigger zenirc-yow-filter zenirc-yow zenirc)
- requires (REQUIRES)
- type regular
-))
+++ /dev/null
-2002-11-29 Ben Wing <ben@xemacs.org>
-
- * .cvsignore: Remove files now handled automatically by CVS.
-
-2002-07-15 Adrian Aichner <adrian@xemacs.org>
-
- * zenirc.el (zenirc-update-modeline): It's XEmacs, not Xemacs.
- * zenirc.el (zenirc-self-insert-or-send-privmsg-last-rec): Ditto.
- * zenirc.el (zenirc-self-insert-or-send-privmsg-last-sent): Ditto.
-
-2001-07-23 Adrian Aichner <adrian@xemacs.org>
-
- * zenirc.el (zenirc-font-lock-keywords): Include last character
- before > in fontification of font-lock-keyword-face. Use OVERRIDE
- flag where appropriate to refine fontification.
-
-Thu May 7 11:49:40 1998 Per Persson <pp@sno.pp.se>
-
- * Version 2.112.
-
- * zenirc-shop.el, removed.
-
- * zenirc-fill.el (zenirc-fill-outgoing): Only fill up to end of
- current line instead of up to end of buffer.
-
- * zenirc.el (zenirc-ctcp-query-ACTION): Add check for
- zenirc-always-show-channelname.
-
-Wed May 6 15:56:44 1998 Ray Jones <rjones@pobox.com>
-
- * zenirc-prime.el, zenirc-eval.el: New files.
-
- * zenirc.el (zenirc-parse-output): Change to call the hooks in
- zenirc-signal-hook with parsedmsg instead of the raw line.
- (zenirc-signal-p): Simplified to no longer check against
- zenirc-ignore-list since that checking is already handled in
- zenirc-parse-output now.
-
- * zenirc-away.el (zenirc-server-301-signal-p): New function.
- (zenirc-signal-hook): Bind the new function.
-
- * zenirc.el (zenirc-display-recipient-confirmation),
- (zenirc-command-privmsg), (zenirc-send-line),
- (zenirc-command-notice), (zenirc-command-me),
- (zenirc-command-action): Simplified send-confirmation code.
-
- * zenirc-dcc.el (zenirc-dcc-catalog-entry): Don't default to
- english.
-
- * zenirc.el (zenirc-handle-ctcp), (zenirc-unbalanced-ctcp): Don't
- default to english.
-
- * zenirc.el (zenirc-lang-retrieve-catalog-entry),
- (zenirc-lang-retrieve-catalog-entry-1): -1 is the old
- function. The new function automatically defaults to english if an
- entry doesn't exist in the current catalouge.
-
- * zenirc.el (zenirc-message): Add newline if message is sent to a
- buffer, but not if sent via message.
- (zenirc-lang-define-english-catalog): Removed all trailing
- newlines.
-
- * zenirc-fill.el: Added internal variable,
- zenirc-window-last-width.
- (zenirc-fill-message): Use the new variable. Pass the new variable
- to zenirc-fill-region-function.
- (zenirc-fill-region), (zenirc-wrap-region),
- (zenirc-wrap-region-dynamic), (zenirc-wrap-region-static): New
- argument win-width to grok the new variable coming from
- zenirc-fill-message.
-
-Wed May 6 16:10:30 1998 Per Persson <pp@sno.pp.se>
-
- * zenirc-example.el (zenirc-startup-channels-alist): New alist.
- (zenirc-startup-join): Use it.
-
- * zenirc-trigger.el: A gentle touch.
-
- * zenirc-swedish.el, zenirc-latin.el, zenirc-klingon.el,
- zenirc-french.el, zenirc-finnish.el, zenirc-bork.el,
- zenirc-trigger.el, zenirc-notify.el, zenirc-netsplit.el,
- zenirc-ignore.el, zenirc-doto.el, zenirc-complete.el,
- zenirc-color.el: Removed all trailing newlines.
-
- * zenirc.el: Added Ray Jones as a major contributor.
- (zenirc-parse-output): Don't signal if the ignore function has
- ignored the string.
-
-Tue May 5 10:35:25 1998 Per Persson <pp@sno.pp.se>
-
- * zenirc-signal.el (zenirc-signal-privmsg): Fixed a typo.
-
-Fri Feb 20 14:17:31 1998 Per Persson <pp@sno.pp.se>
-
- * zenirc-history.el (zenirc-mode-map): Changed mappings to M-p and
- M-n according to ususal standard for Emacs.
-
-Wed Jan 7 10:33:53 1998 Per Persson <pp@sno.pp.se>
-
- * zenirc-fill.el (zenirc-fill-outgoing): Changed from (point-max)
- to 'end' for plain text lines.
-
-Wed Jan 7 08:58:56 1998 Per Persson <pp@sno.pp.se>
-
- * zenirc-example.el: Changed to (require 'zenirc).
-
-Fri Jan 2 05:38:00 1998 Per Persson <pp@sno.pp.se>
-
- * Version 2.111
-
- * zenirc-color.el (zenirc-color-mode): If no prefix arg, toggle
- current state of the mode.
-
- * zenirc-fill.el (zenirc-fill-message-categories): Fixed typo.
- (zenirc-fill-prefix): Back to " | ".
- (zenirc-fill-outgoing-mode): If no prefix arg, toggle current
- state of the mode.
- (zenirc-fill-outgoing): Fixed a bug that didn't exist last time I
- looked.
-
- * zenirc-dcc.el (zenirc-dcc-handle-ctcp-chat): Changed to work
- with the change mentioned below.
- (zenirc-dcc-handle-ctcp-send): Me too!
-
- * zenirc.el (zenirc-names-equal-p): Check whether n1 contains % or
- @ in it if optional argument is t. This is because there's more
- than one way to address a user in a PRIVMSG/NOTICE; namely:
- nickname
- nickname@servername
- username%hostname
- % and @ are forbidden characters in a nickname as of RFC1459,
- hopefully they will stay that way.
- (zenirc-format-privmsg-or-notice): Changed to work with the above.
-
- * zenirc-trigger.el: Moved the code to check for % and & in
- "nickname" to zenirc-names-equal-p instead.
-
-Fri Jan 2 04:28:32 1998 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc-parse-words): Use zenirc-match-string instead
- of explicit call to substring.
- (zenirc-parse-firstword): Here also.
- (zenirc-server-002): Here also.
- (zenirc-server-251): Here also.
- (zenirc-server-255): Here also.
-
- * zenirc.el (zenirc-login): Send USER string before NICK.
-
- * zenirc-fill.el (zenirc-fill-mode): If no prefix arg, toggle
- current state of the mode.
-
- * zenirc.el (zenirc): Allow process status of either `open' or
- `run' to indicate a live process.
-
-Thu Dec 25 02:31:15 1997 Per Persson <pp@sno.pp.se>
-
- * zenirc.el, and so forth: Changed Eric Prestemons address to
- ecp@io.com instead of whatever it said before.
-
-Mon Oct 13 05:44:36 1997 Per Persson <pp@sno.pp.se>
-
- * zenirc.el (zenirc-source-list): s/gnu/splode/1
-
-Thu Sep 25 14:13:04 1997 Per Persson <pp@sno.pp.se>
-
- * zenirc.el (zenirc-bug-address): s/gnu/splode/1
-
-Mon Jun 23 05:59:53 1997 Faried Nawaz <fn@Hungry.COM>
-
- * zenirc-trigger.el (zenirc-trigger-register): Fixed typo in
- docstring.
-
-Tue Jun 10 19:47:13 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-format-privmsg-or-notice): Use
- (zenirc-channel-p) instead of other obscure checking.
- Also use (zenirc-names-equal-p) instead of (string-match).
-
-Sun May 4 18:50:11 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-trigger.el (zenirc-trigger-parse-sender): Fixed a bug
- which was triggered when a PRIVMSG used the widely unknown
- "user@server" format.
-
-Wed Apr 23 18:40:40 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * Version 2.110
-
- * zenirc.el (zenirc-toggle-channel): Didn't work properly if user
- mixed cases when joining channels.
- (zenirc-server-JOIN), (zenirc-server-PART): Use
- (zenirc-downcase-name) instead of (downcase).
-
-Sat Mar 29 02:13:03 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-notify.el (zenirc-server-303-notify): Didn't show that a
- certain nick stopped wasting time if the ISON query returned an
- empty string.
-
-Wed Mar 26 10:57:43 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-example.el: More information about zenirc-format.el.
-
-Mon Mar 17 10:14:01 1997 Faried Nawaz <fn@hungry.com>
-
- * Fixed numerous typos.
-
-Fri Mar 14 17:32:09 1997 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-yow-filter.el: New file.
-
-Fri Mar 14 17:32:09 1997 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-popup.el (zenirc-popup): Fix args to walk-windows.
-
-Wed Mar 12 10:06:31 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-example.el: Comments for the new variables. Made sure
- that all variables defaults to the same thing as zenirc.el does.
- New and fancier REGEXP for zenirc-signal-list.
-
- * zenirc.el (zenirc-whowas-on-401): New variable.
- (zenirc-server-401): Use it.
- (zenirc-delete-preceding-whitespaces): New Variable.
- (zenirc-send-line): Use it.
-
- * Updated "copyleft" statements in various files.
-
-Tue Mar 11 17:37:05 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-fill.el (zenirc-fill-outgoing): Changed from triple
- (string= to one (string-match. Also fixed two bugs where internal
- variable end wasn't really the real end. Added comments. Made it
- work together with (zenirc-fill-region). Learned how
- (narrow-to-region) actually works and fixed another bug.
-
-Mon Mar 10 02:14:23 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-example.el: Updated zenirc-fill.el comments.
-
- * zenirc-fill.el (zenirc-wrap-region): Back to what it looked like
- in 2.100.
- (zenirc-wrap-region-dynamic), (zenirc-wrap-region-static),
- (zenirc-fill-outgoing-mode), (zenirc-fill-outgoing): New
- functions.
- (zenirc-fill-outgoing-mode), (zenirc-fill-outgoing-prefix): New
- variables.
- (zenirc-fill-prefix), (zenirc-fill-static): New defaults.
-
-Sun Mar 9 20:38:49 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * Version 2.109
-
- * zenirc-fill.el (zenirc-fill-message-categories): Update it with
- the two new format types.
-
- * zenirc.el (zenirc-format-privmsg-or-notice): Add new format type
- called privmsg_nochannel/notice_nochannel.
- zenirc-always-show-channelname: New variable.
-
- * zenirc-example.el: New entries describing zenirc-trigger.el and
- zenirc-always-show-channelname.
-
-Mon Mar 3 03:09:38 1997 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-yow.el, zenirc-oink.el, zenirc-8ball.el,
- zenirc-fortran.el, zenirc-meditate.el: Total rewrite,
- using zenirc-trigger.el.
-
- * zenirc-trigger.el, zenirc-shop.el: New file.
-
-Mon Feb 24 11:33:21 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-notify.el (zenirc-server-302-notify): Don't show userhost
- reply if it doesn't contain any information.
-
-Mon Feb 3 17:02:42 1997 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-command-part): New command to cope with the
- new optional comment as of ircd 2.9.
-
-Wed Jan 29 18:44:10 1997 Ray Jones <rjones@pobox.com>
-
- * zenirc-example.el: Update (autoload comment to something which
- lets you start ZenIRC interactively.
-
-Fri Dec 20 02:19:06 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-random-nick.el (zenirc-change-nick-mode):
- s/zenirc-change-nick/zenirc-change-nick-mode/g
-
- * zenirc-yow.el: s/zenirc-send-yow/zenirc-yow-mode/g
-
- * zenirc-fill.el (zenirc-fill-mode): Changed default to nil.
-
- * zenirc-color.el (zenirc-color-mode): Changed default to nil.
-
-Sun Dec 15 07:46:00 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * Version 2.108
-
- * zenirc.el (zenirc-server-JOIN): Use zenirc-update-modeline.
-
- * zenirc-8ball.el (zenirc-8ball-mode): New function and
- buffer-local variable.
- (zenirc-server-PRIVMSG-8ball): Do nothing unless zenirc-8ball-mode
- is set.
- (zenirc-send-8ball): Removed.
-
-Wed Dec 4 09:12:28 1996 Greg A. Woods <woods@most.weird.com>
-
- * zenirc-doto.el: requires zenirc-command-queue.
-
- * zenirc-iwantop.el (zenirc-ctcp-query-IWANTOP): be gentle if an
- unknown channel is requested.
-
- * zenirc-notify.el: add missing newline at end of this file.
-
- * zenirc.el (zenirc-bug): use mail-header-separator.
- (zenirc-bug): reformat the message inserted in the body.
-
-Wed Oct 9 13:41:49 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-8ball.el (zenirc-random-8ball-strings): Linguistic attack.
-
-Tue Oct 8 22:12:48 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-8ball.el: New file.
-
- * zenirc-yow.el (zenirc-send-yow): New function.
- (zenirc-server-PRIVMSG-yow): Use it.
-
-Fri Aug 23 19:49:48 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-establish-server-connection): Need more
- defaults to work 100% of the time.
-
-Wed Aug 21 13:16:03 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-source-list): Added 'ftp.alfea.it'.
-
-Tue Aug 20 17:34:28 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * Version 2.107
-
-Sat Aug 10 20:41:02 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc-color.el (zenirc-command-color): You obviously don't use
- the same commands to make sure a color is a color under both Emacs
- and XEmacs.
-
-Wed Aug 7 03:14:41 1996 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc-establish-server-connection): Do not bind
- inhibit-quit to t. Instead, use a condition handler for `quit'.
- Fix args to `string-match' in `error' condition handler; regexp
- should be first.
- Do not call `string-match' with empty argument if IRCSERVER
- environment variable is not defined.
-
-Fri Aug 2 17:29:55 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-signal-p): Do not signal if message is matched
- in zenirc-ignore-list.
- (zenirc-source-list): Removed 'pfawww.pp.se' from source list.
-
-Mon Jul 29 03:58:02 1996 Per Persson <pp@gnu.ai.mit.edu>
-
- * GNU'ified <pp@solace.mh.se> and <pp@pfawww.pp.se> to
- <pp@gnu.ai.mit.edu>.
-
-Wed Jul 24 03:06:59 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-server-PART): Parse new comment part of PART,
- this is a new thing in ircd 2.9.1.
- (zenirc-lang-define-english-catalog): Updated all language scripts
- as well.
-
-Sun Jul 21 14:32:49 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el: Added a few comments.
-
-Tue Jul 2 10:18:44 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-send-line): Changed input-start to
- (copy-marker zenirc-process-mark).
-
- * Version 2.106
-
- * zenirc-color.el: Made it a part of the distribution.
-
-Mon Jul 1 11:26:43 1996 Per Persson <pp@pfawww.pp.se>
-
- * Version 2.105
-
- * zenirc.el (zenirc-ctcp-query-SOURCE): Didn't follow the CTCP
- spec.
-
-Tue Jun 18 01:08:07 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-parse-output): Moved a signal based check
- to (zenirc-signal) where it belongs.
-
-Mon Jun 17 20:56:08 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-parse-output): Updated to recognize new
- zenirc-beep-on-signal setting.
- (zenirc-beep-on-signal): New setting, 'always.
-
- * zenirc-example.el (zenirc-signal-list): Added an example.
- (zenirc-beep-on-signal): Updated.
-
-Tue Jun 11 13:28:18 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-complete.el (zenirc-complete-table): Made it buffer-local.
-
-Thu May 30 01:08:10 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-server-JOIN
- zenirc-lang-define-english-catalog): New 'join_mode which parses
- new 2.9 #channel^Gmode syntax.
-
- * zenirc-complete.el (zenirc-complete-cache-JOIN): Make it parse
- new 2.9 #channel^Gmode syntax.
-
-Wed May 29 09:42:17 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-color.el: New file.
- (zenirc-color-message): Colorized one char to many.
- (zenirc-color-install-message-catalogs zenirc-command-color): Made
- sure it doesn't try to add nonexistant colors.
- (zenirc-color-message-categories zenirc-color-alist
- zenirc-color-nonstandard-message-categories-p): Buffer-local.
-
- * zenirc.el (zenirc-server-215): Now shows "i" or "I" depending on
- the actual output from the server. Updated all language scripts.
-
- * zenirc-notify.el (zenirc-command-notify): Use
- zenirc-delete-case-insensitively to update the notify-list.
- (zenirc-command-notify): "/notify nick1 nick2" now works.
-
- * zenirc.el (zenirc-delete-case-insensitive): New
- function. Deletes elt from list case-insensitively.
-
- * Version 2.104
-
-Wed May 15 15:32:23 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-random-nick.el (zenirc-change-nick-interval
- zenirc-last-nick-change zenirc-change-nick
- zenirc-change-random-nick): Functions and variables to
- automatically change your nickname every
- zenirc-change-nick-interval amount of time. Surely, this must be
- one of the more annoying things I've ever written.
-
- * zenirc-ignore.el (zenirc-process-ignore
- zenirc-ignore-last-sender): When adding ignorees, add them with
- regexp quoting.
- (zenirc-remove-from-ignore-list): When deleting ignorees, check
- both partial string match (if string doesn't contain special
- regexp chars) and exact string match.
- (zenirc-ignore-determine-prefix): Didn't determine prefixes like
- it should, fixed.
-
-Sun May 12 02:12:05 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-notify.el (zenirc-command-notify-hook): Updated
- documentary string.
-
- * zenirc.el (zenirc-channel-list): Make sure all cells are
- downcase.
-
-Fri May 10 16:42:25 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-establish-server-connection): Didn't default
- to what it said it would default to.
-
-Thu May 9 11:01:45 1996 Per Persson <pp@pfawww.pp.se>
-
- * Version 2.103
-
- * zenirc.el (zenirc-toggle-channel): Uses zenirc-channel-list to
- toggle between channels. (original code by <vuori@sci.fi>)
- (zenirc-mode-map): Bound to C-cC-t.
- (zenirc-update-modeline): New function.
- (zenirc-toggle-channel zenirc-command-query): Use it.
-
-Wed May 8 09:48:27 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-select): Removed unused code.
- (zenirc-channel-list): New list of currently joined channels.
- (zenirc-server-JOIN zenirc-server-PART): Use it.
-
-Mon May 6 10:10:13 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-server-251 zenirc-server-255): Added
- string-matchs to conform with new 2.9 look.
- (zenirc-select): Bugged out when connecting to server in
- zenirc-server-alist without a defined port.
- When reusing old server, move it to the top of the alist.
- Don't connect to anything else then the given server.
-
-Sun May 5 20:27:08 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-lang-define-english-catalog): Missing string
- for numeric 201, added.
-
- * Version 2.102
-
- * zenirc-example.el (zenirc-ctcp-query-BOZOS):
- zenirc-display-string is now zenirc-message, changed.
-
- * zenirc-latin.el (zenirc-lang-define-catalog): Fixed typo.
-
-Sat May 4 16:53:36 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-ignore.el (zenirc-ignore-install-message-catalogs):
- New entry, ignore-new-entry. Changed ";;" to "[info]".
- (zenirc-process-ignore): Use ignore-new-entry.
- (zenirc-remove-from-ignore-list): Show list of ignorees after
- running internal matching.
- (zenirc-ignore-last-sender): New function.
-
- * zenirc.el (zenirc-privmsg-last-seen): New variable.
- (zenirc-format-privmsg-or-notice): Use it.
-
- * zenirc-example.el (zenirc-user-format): Unsupported, removed.
- (zenirc-fill): Updated to show example for 'static filling.
-
-Fri May 3 19:24:52 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-notify.el (zenirc-command-notify): Made it a bit smarter
- when handling upper and lower case strings.
- Disgard whitespace when matching strings.
- Added comments.
-
- * zenirc.el (zenirc-select): When not chosing the default, use
- supplied values for port and nick.
- If a new server is given, add it to global zenirc-server-alist.
- Added comments.
- (zenirc-format-privmsg-or-notice): Didn't see PRIVMSG/NOTICE to
- user@server as a message to one self.
-
-Wed May 1 04:55:16 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-source-list): Added eterna.com.au to the list
- of FTP sites. All hail BSF!
-
-Tue Apr 30 14:08:36 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-bug): Added certain space in document to
- conform with other Emacs thingies.
-
- * zenirc-example.el: Corrected a few documentary strings.
-
-Mon Apr 29 23:34:10 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-source-list): Once again changed.
-
-Sun Apr 28 00:03:09 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-fill.el (zenirc-fill-type): New way of filling, 'static.
- (zenirc-fill-static): New variable.
- (zenirc-wrap-region): Use it.
-
-Fri Apr 26 00:43:47 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-do-iwantop.el: Shouldn't exist, removed.
-
- * zenirc-example.el (zenirc-signal-list): Removed.
- Fixed typos.
-
- * zenirc.el (zenirc-source-list): Updated pointers on
- where to find the ZenIRC distribution.
- (zenirc-channel-p): Added + to the list of chars which can start a
- channel name.
- (zenirc-bug): Misplaced (interactive).
-
-Thu Apr 25 18:47:00 1996 Per Persson <pp@pfawww.pp.se>
-
- * Version 2.101
-
- * zenirc.el (zenirc-bug-address): New variable.
- (zenirc-bug): New function.
-
- * Changed default server from irc-2.mit.edu to irc.stealth.net.
-
- * zenirc-example.el: Added documentation on how to do things
- during server initializing, namely how to autojoin channels.
-
-Wed Apr 24 16:05:17 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el: Take care of numeric 477, ERR_NOCHANMODES.
-
- * zenirc.el (zenirc-timestamp): No timestamping by default.
- (zenric-source-list): Updated.
- (zenirc-ctcp-query-ECHO): New function, use it.
- (zenirc-emacs-variant): Removed duplicate Nemacs entry.
- (zenirc-time=): Typo caused the function not to work.
- (zenirc-ctcp-query-CLIENTINFO): Moved a ")" a few lines down, thus
- removing one of the naughty error messages you get while byte
- compiling.
-
-
-Sun Apr 21 01:04:59 1996 Per Persson <pp@pfawww.pp.se>
-
- * Version 2.100pl16, the version never released.
-
- * zenirc-example.el: Removed old unused variabels.
-
- * zenirc.el (zenic-name): unused, removed.
-
-Fri Apr 19 15:03:00 1996 Per Persson <pp@pfawww.pp.se>
-
- * Version 2.100pl15
-
-Wed Apr 17 12:26:38 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-example.el: Updated to mention all the new features of
- ZenIRC since the dawn of time.
-
- * zenirc.el: ZenIRC neglected zenirc-name, fixed.
-
-Tue Apr 16 13:06:36 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el: Take care of numeric 415, ERR_BADMASK
-
-Mon Apr 15 15:34:13 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el: numeric 262 shows servername and version.
-
- * zenirc.el: Take care of numeric 249, RPL_STATSZLINE
-
-Sun Apr 14 17:33:56 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el: Take care of numeric 437, ERR_UNAVAILRESOURCE
-
-Sat Apr 13 15:51:14 1996 Per Persson <pp@pfawww.pp.se>
-
- * Version 2.100pl14
-
- * zenirc.el (zenirc-timestamp-string): New function.
- (zenirc-timestamp): New variable.
- (zenirc-timestamp-prefix): New variable.
- (zenirc-timestamp-suffix): New variable.
- (zenirc-format-privmsg-or-notice): Use them.
-
- * zenirc.el: Take care of numeric 262, RPL_TRACEEND
-
-Thu Apr 11 18:47:46 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-command-ctcp): Sent a bogus space in queries.
-
- * Version 2.100pl13
-
- * zenirc-fill.el: Defaults to filling (with a prefix).
-
- * zenirc-history.el: new file, adds shell-like C-p and C-n on
- C-cC-p and C-cC-n.
-
-Tue Mar 26 13:57:38 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-fill.el (zenirc-wrap-region): Bugged out under emacs-18.
-
-Sun Mar 24 09:54:07 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-[language].el: Changed to conform with new idletime string.
-
- * zenirc-fill.el (zenirc-fill-type): New variable.
- (zenirc-wrap-region): Use it.
-
- * Version 2.100pl12
-
- * zenirc-notify.el (zenirc-server-302-notify): Bugged out when
- people left IRC faster then ZenIRC parsed the USERHOST parts.
-
- * zenirc.el (getenv "$IRCSERVER"): Not sufficent, bugged out on
- ircII'ish $IRCSERVER settings.
- (zenirc-ircserver-string->alist): Bugged out when $IRCSERVER had
- more then two servers in it.
-
- * Version 2.100pl11
-
- * zenirc.el (zenirc-select): Would bug out on zenirc-server-alist.
-
- * zenirc-notify.el (zenirc-command-notify): Would bug out if
- none of the notificated people was wasting time.
-
-Fri Mar 22 23:10:26 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-send-confirmation-in-echo-area-p): Removed,
- (zenirc-send-confirmation): set to "'message' does the same thing.
- (action-echo send-echo send-multi-echo): new entries in
- language catalog, update all functions to use them.
- zenirc-bork.el, zenirc-french.el, zenirc-latin.el,
- zenirc-finnish.el, zenirc-klingon.el, zenirc-swedish.el
- (action-echo send-echo send-multi-echo): Added.
-
-Thu Mar 21 11:49:50 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc.el (zenirc-server-317): Display idle time in
- hour:minute:second format.
- (zenirc-send-confirmation): New variable, defines whether ZenIRC
- should tell the user if it sends PRIVMSG/NOTICE to the server or
- not.
-
- * Version 2.100pl10
-
- * zenirc-ignore.el: S/ignorance/ignore/g once and for all.
-
- * zenirc-iwantop.el (zenirc-iwantop-alist): Fixed typo in
- documentation string.
- (zenirc-ctcp-query-IWANTOP): Added documentation on how to make
- ZenIRC see other CTCP's and act upon them.
-
-Thu Mar 14 00:19:20 1996 Henrik Bylund <heb@pfawww.pp.se>
-
- * zenirc.el (zenirc-lang-store-catalog-entry): Corrected typo
- zenirc-lang-current-langage -> language
-
-Thu Feb 29 10:26:55 1996 Per Persson <pp@pfawww.pp.se>
-
- * Version 2.100pl9
-
-Tue Jan 30 08:29:18 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-notify.el (zenirc-command-notify): Rewrote it.
-
-Thu Jan 25 09:59:24 1996 Per Persson <pp@pfawww.pp.se>
-
- * zenirc-notify.el (zenirc-server-302-notify): Added check so
- nothing gets printed if user exited between the USERHOST command
- and the USERHOST reply.
-
- * zenirc.el (zenirc-select): Added some different defaults to
- server, port and nickname, thus fixing a bug.
-
-Wed Jan 24 09:58:04 1996 Per Persson <pp@pfawww.pp.se>
-
- * Version 2.100pl8
-
- * zenirc.el (zenirc-login): Fixed it to conform with ircd's which
- violates RFC1459.
-
-Thu Nov 23 00:13:55 1995 Mr. Per Persson <pp@solace.mh.se>
-
- * zenirc.el (zenirc-ignorance-list): renamed to zenirc-ignore-list
-
-Sat Nov 11 03:04:58 1995 Mr. Per Persson <pp@solace.mh.se>
-
- * Version 2.100pl7
-
- * zenirc-make.el: For use with 'make'.
-
- * zenirc-bork.el: New 'Swedish Chef' language catalouge.
-
- * zenirc-ignore.el: Earlier known as zenirc-ignorance.el
- Renamed everything with 'ignorance' to 'ignore'.
-
- * zenirc.el (zenirc-command-server): new syntax,
- /server [servername [port [nickname]]]
- (zenirc-select): Only converts port to string if it's a string.
-
-Wed Aug 16 03:50:33 1995 Jason Bastek <jason@marilyn.oit.umass.edu>
-
- * Version 2.100.6
-
- * zenirc-ignorance.el: Better regexp checks, better working /unignore
-
-Tue Aug 15 15:24:59 1995 Mr. Per Persson <pp@solace.mh.se>
-
- * zenirc.el: Fixed broken /topic command.
-
-Tue Jul 11 05:43:04 1995 Internet Relay Chat Administrator <pp@solace.mh.se>
-
- * Version 2.100.5
-
- * zenirc-klingon.el: New Startrek Klingon language catalouge.
-
-Mon Jul 10 17:24:53 1995 Internet Relay Chat Administrator <pp@solace.mh.se>
-
- * zenirc.el (zenirc-command-char): new variable.
- (zenirc-command-commandchar): sets zenirc-command-char.
-
- * Version 2.100.4
-
-Mon Jul 10 17:21:37 1995 Jason Bastek <jason@marilyn.oit.umass.edu>
-
- * zenirc-ignorance.el: New code, ircII like.
-
-Sun Jul 9 17:32:13 1995 Internet Relay Chat Administrator <pp@solace.mh.se>
-
- * zenirc-fill.el (zenirc-command-resize): /resize [width], been
- missing this one a long time.
-
-Thu Jul 6 03:32:02 1995 Mr. Per Persson <pp@solace.mh.se>
-
- * zenirc.el (zenirc-command-kick): Somehow removed it in earlier
- version. How annoying.
-
-Fri Jun 30 06:33:03 1995 Internet Relay Chat Administrator <pp@solace.mh.se>
-
- * Version 2.100.3
-
- * zenirc.el (zenirc-self-insert-or-send-privmsg-last-sent/rec):
- Added check for emacs-version.
-
-Wed Jun 28 15:45:59 1995 Internet Relay Chat Administrator <pp@solace.mh.se>
-
- * Version 2.100.2
-
- * zenirc.el: Added /server command that uses zenirc-select.
-
- * Version 2.100.1
-
- * zenirc-ignorance.el: Added /ignore command which manipulates
- zenirc-ignorance-list.
-
- * zenirc.el (zenirc-select): Added completion on `server'
- as well as stuffing in a defaultish thing for `port' and
- `nick'.
-
- * zenirc-notify.el: Stripped out all the notify stuff from
- zenirc.el and put it in zenirc-notify.el as well as adding
- some user@host thingies.
-
-Sun Apr 23 03:31:35 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * Version 2.100
-
- * zenirc-meditate.el (zenirc-meditate-response-list): Add "Don't
- bother."
-
- * zenirc.el (zenirc-command-kick, zenirc-command-kill,
- zenirc-command-squit): Handle missing comments.
-
-Sat Apr 22 00:21:58 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc-message-length-limit): New constant.
- (zenirc-send-line): Completely rewritten.
- (zenirc-display-recipient-confirmation): Take new arg, the number
- of chunks in which message was sent.
- (zenirc-lang-define-english-catalog): New entry `send-multi'.
- (zenirc-send-confirmation-generic-echo-area-p): New variable.
- (zenirc-send-confirmation-generic): New function.
- (zenirc-command-privmsg-hook): New variable.
- (zenirc-command-privmsg): New function.
- (zenirc-command-m, zenirc-command-msg): Call zenirc-command-privmsg.
- (zenirc-send-confirmation-privmsg-hook): New variable.
- (zenirc-command-m, zenirc-send-line): Call it.
- (zenirc-send-confirmation-notice-hook): New variable.
- (zenirc-command-notice): Call it.
- (zenirc-send-confirmation-me-hook): New variable.
- (zenirc-command-me): Call it.
- (zenirc-command-action-hook): New variable.
- (zenirc-command-action): New function.
-
- * zenirc-latin.el: Change ctcp_action message from "action" to
- "actio".
-
-Fri Apr 21 18:36:56 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc-command-kick-hook, zenirc-command-kill-hook,
- zenirc-command-notice-hook, zenirc-command-squit-hook): New hooks.
- (zenirc-command-kick, zenirc-command-kill, zenirc-command-notice,
- zenirc-command-squit): New functions.
-
- * zenirc-complete.el (zenirc-complete-display-in-popup): Don't pop
- up a completion window if already visible.
- (zenirc-complete): Ignore case of input.
- When completing partially, preserve case of user's own input.
-
- * zenirc.el (zenirc-server-215): Show arg 8 (class), not 7
- (password) in RPL_STATSILINE reply. From pp@solace.mh.se.
- (zenirc-send-ctcp-errmsg-on-unknown): Fix quoting in docstring.
-
- * zenirc.el (zenirc-server-243): Display arg 3 (`O' or `o').
- Change suggested by pp@solace.mh.se.
- (zenirc-lang-define-english-catalog): Change entry for `243' to
- reflect new arg.
- * zenirc-latin.el, zenirc-swedish.el: Likewise.
-
-Sun Apr 9 06:05:27 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-meditate.el (zenirc-meditate-response-percentage):
- Decrease to 5.
- (zenirc-meditate): Use <, not <=.
-
- * zenirc-oink.el (zenirc-oink-response-percentage): New variable.
- (zenirc-oink): Use it.
-
- * zenirc-oink.el, zenirc-meditate: New files.
-
-Sun Apr 2 21:07:38 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc-establish-server-connection): Force redisplay
- before calling function to open network stream.
- Fix misplaced paren in error handler forms.
-
-Sat Apr 1 00:39:31 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-dcc.el (zenirc-command-dcc): Use intern-soft, not intern.
-
- * zenirc.el (zenirc-parse-output): Use intern-soft, not intern.
- (zenirc-do-command): Likewise.
- (zenirc-handle-ctcp): Likewise. Also rewritten.
- (zenirc-lang-set-current-language): Likewise.
- (zenirc-lang-retrieve-catalog-entry): Likewise.
- (zenirc-ctcp-query-CLIENTINFO): Likewise.
-
- * zenirc-iwantop.el (zenirc-ctcp-query-IWANTOP): Let channel elt
- of alist be a regexp.
-
-Fri Mar 31 19:07:20 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-iwantop.el: New file. Based on code from Eric Prestemon.
-
- * zenirc.el (zenirc-privmsg-last-rec, zenirc-privmsg-last-sent):
- Initialize default value with "".
- (zenirc-parse-firstword): Return nil if first string-match failed.
-
- * zenirc-netsplit.el (zenirc-netsplit-QUIT): Use
- zenirc-downcase-name on `split' and `nick' before adding them to
- table.
-
-Wed Mar 29 08:38:51 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-fill.el (zenirc-fill-mode): New function and buffer-local
- variable.
- (minor-mode-alist): Add entry for zenirc-fill-mode.
- (zenirc-fill-message): Do nothing unless zenirc-fill-mode is set.
-
- * zenirc-dcc.el (zenirc-dcc-chat-sentinel): Copy str from posn to
- match-beginning into line, not 0 to match-beginning.
-
- * zenirc.el (zenirc-establish-server-connection): Use integer
- representation of $IRCPORT if defined.
- (zenirc-server-MODE): For any nil elements of parsedmsg, pass ""
- to format instead.
- (zenirc-do-command): Pass command to server if hook is
- unbound or nil.
-
-Mon Mar 27 00:01:30 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * Version 2.99
-
- * zenirc-18.el (zenirc-force-mode-line-update): New function.
- * zenirc.el (zenirc-server-NICK): Force mode line update when nick
- changes.
-
- * zenirc-dcc.el (zenirc-dcc-get-default-directory): New variable.
- (zenirc-dcc-do-get-command): Use it.
- (zenirc-dcc-alist): Renamed from zenirc-dcc-list.
- All references changed.
- (zenirc-dcc-connect-function): New variable.
- (zenirc-dcc-open-network-stream): New function.
- (zenirc-dcc-catalog-entry): New macro.
- (zenirc-dcc-install-message-catalogs): New function.
- Call at load-time.
- (zenirc-dcc-member): New function.
- (zenirc-command-dcc): Call any zenirc-dcc-do-FOO-command, if fboundp.
- (zenirc-dcc-do-chat-command): Renamed from zenirc-do-dcc-chat.
- Rewritten.
- (zenirc-dcc-do-close-command): Renamed from zenirc-do-dcc-close.
- Rewritten.
- (zenirc-dcc-get-default-directory): New variable.
- (zenirc-dcc-do-get-command): Renamed from zenirc-do-dcc-get.
- Rewritten.
- (zenirc-dcc-do-list-command): Renamed from zenirc-do-dcc-list.
- Rewritten.
- (zenirc-dcc-query-handler-alist): New variable.
- (zenirc-ctcp-query-DCC): Use it to find function to dispatch.
- (zenirc-dcc-handle-ctcp-chat): Renamed from zenirc-handle-ctcp-chat.
- Rewritten.
- Always store most recent request; discard others.
- (zenirc-dcc-handle-ctcp-send): Renamed from zenirc-handle-ctcp-send.
- Use zenirc-names-equal-p to compare recipient and nick.
- Do not do type conversion on args placed in zenirc-dcc-list;
- use lazy evaluation later.
- Use message catalogs.
- Report error if dcc request is malformed.
- Mostly rewritten in other minor ways.
- (zenirc-dcc-get-file): Renamed from zenirc-get-file.
- Take new arg parent-proc.
- Set zenirc-dcc-parent-process buffer-local based on it.
- Switch file buffer to fundamental mode, make read-only.
- Save alist elt in zenirc-dcc-entry-data.
- Don't switch to new buffer; leave it buried.
- (zenirc-dcc-get-filter): Don't save match data; there is nothing
- to preserve.
- Don't use process mark; just append to end of buffer.
- Don't use save-excursion; just save and restore current buffer.
- (zenirc-dcc-get-sentinel): Rewritten.
- (zenirc-dcc-chat): Take new arg parent-proc.
- Set zenirc-dcc-parent-process based on it.
- Mostly rewritten.
- (zenirc-dcc-chat-buffer-name-format, zenirc-dcc-chat-mode-hook,
- zenirc-dcc-chat-connect-hook, zenirc-dcc-chat-exit-hook): New
- variables.
- (zenirc-dcc-chat-mode-map): Renamed from zenirc-dcc-mode-map.
- (zenirc-dcc-chat-send-line): Renamed from zenirc-dcc-send-line.
- Don't use process mark; use zenirc-process-mark instead.
- (zenirc-dcc-chat-mode): Renamed from zenirc-dcc-mode.
- Kill all local variables first thing.
- Set mode-line-process.
- Run zenirc-dcc-chat-mode-hook.
- (zenirc-dcc-chat-parse-output): Renamed from zenirc-dcc-parselines.
- (zenirc-dcc-unprocessed-output): Renamed from zenirc-partialline.
- (zenirc-dcc-chat-filter-hook): Put `zenirc-dcc-chat-parse-output'
- on it.
- (zenirc-dcc-chat-filter): Add new output to unprocessed output string.
- Do not call zenirc-dcc-chat-parse-output directly; just run hook.
- (zenirc-dcc-chat-sentinel): Rewritten.
-
-Sun Mar 26 18:45:09 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-dcc.el (zenirc-extract-host): Function deleted.
- * zenirc.el (zenirc-extract-host): Moved here.
- Simplified logic so as not to use any local variables.
- Preserve match data.
- (zenirc-extract-nick, zenirc-extract-userhost):
- Simplified logic so as not to use any local variables.
- (zenirc-emacs-variant): Recognize Epoch.
- (zenirc-match-string, zenirc-parse-n-words): New functions.
-
-Sat Mar 25 01:10:46 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc-in-input-p): Arg `proc' removed.
- Don't pass it to `>='.
-
- * zenirc-yow.el (zenirc-server-PRIVMSG-yow): Don't downcase `to'.
- Use zenirc-names-equal-p for comparison.
-
- * zenirc.el (zenirc-command-language): New function.
- (zenirc-command-language-hook): New variable.
- (zenirc-lang-set-current-language): Use zenirc-message.
- (nocatalog, newcatalog): New message catalog entries.
- (zenirc-lang-define-english-catalog): Define them.
-
- * zenirc.el (zenirc-server-333-hook): New variable.
- (zenirc-server-333): New function.
- (s333): New message catalog entry.
- (zenirc-lang-define-english-catalog): Define it.
- (zenirc-epoch-seconds-to-time): New function, from Charles Hannum.
-
- * zenirc-popup.el: Do not require backquote.
- Add aliases for compatibility with XEmacs.
- (zenirc-popup-map-windows): Macro deleted.
- (zenirc-popup): Renamed from old zenirc-popup-window function.
- Use walk-windows instead ofzenirc-popup-map-windows.
- (zenirc-popup-window, zenirc-popup-frame): New subroutines of
- zenirc-popup.
- (zenirc-popup-current-buffer, zenirc-window-end): Functions deleted.
- (zenirc-popup-available-frames): Renamed from zenirc-popup-any-frame.
- (zenirc-popup-make-new-frames): New variable.
- (zenirc-signal-popup): New function.
- Add it to zenirc-signal-hook instead of zenirc-popup-window.
-
- * zenirc.el (zenirc-format-privmsg-or-notice): Don't set
- zenirc-privmsg-last-rec unless message was from another user
- directly to user, not channel.
-
- * zenirc-18.el (zenirc-walk-windows, zenirc-window-end): New
- functions.
-
- * zenirc-complete.el (zenirc-complete): Use zenirc-process-mark,
- not process mark.
-
- * zenirc.el (zenirc-downcase-name): New function.
- (zenirc-names-equal-p): Use it.
- * zenirc-complete.el (zenirc-complete-cache,
- zenirc-complete-uncache): Likewise.
- * zenirc-format.el (zenirc-format-nickuserhost-fancy,
- zenirc-fancy-NICK, zenirc-fancy-352): Likewise.
- * zenirc-away.el (zenirc-server-301-fancy): Likewise.
- * zenirc-netsplit.el (zenirc-netsplit-JOIN): Likewise.
-
-Fri Mar 24 00:06:30 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc): If new buffer, call zenirc-mode first thing.
- (zenirc-mode): kill-all-local-variables.
- (zenirc-emacs-variant): New function.
- (zenirc-version): New constant.
- (zenirc-ctcp-query-VERSION): Display them, not RCS revision id.
-
-Thu Mar 23 18:37:10 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc-establish-server-connection): New function.
- (zenirc-ircserver-string->alist): New function.
- (zenirc-server-alist): Renamed from zenirc-IRCSERVER-alist.
- Do not initialize at load time.
- (zenirc): Do it here.
- Do not check for existence of `zenirc-process-connect'.
- Use `zenirc-establish-server-connection'.
- (zenirc-process-connect-function, zenirc-server-default,
- zenirc-port-default, zenirc-nick-default,
- zenirc-full-name-default, zenirc-user-login-name-default,
- zenirc-password-default): New variables.
- (zenirc-establish-server-connection): Use them.
- (connect-failed, connect-try, connect-abort): New message catalog
- entries.
- (zenirc-lang-define-english-catalog): Define them.
-
- * zenirc.el (zenirc-process-mark): New buffer-local variable.
- (zenirc): Initialize it.
- Use pop-to-buffer, not switch-to-buffer.
- (zenirc-message): Use point-marker to set current-point-mark.
- Use zenirc-process-mark instead of process mark.
- Allow proc argument to be either a process or a buffer.
- (zenirc-parse-output, zenirc-beginning-of-input-p,
- zenirc-in-input-p, zenirc-send-line, zenirc-insert-at-proc-mark):
- Here too.
-
- * zenirc.el (zenirc-sentinel): Do not move point here.
- Don't bother to save match data.
- (zenirc-parse-output): Renamed from zenirc-parselines.
- All callers changed.
- Do not compute length of remaining substring to generate
- `unparsed'; the substring function defaults to the end of string.
- (zenirc-parse-server-message): Renamed from zenirc-parse-servermsg.
- All callers changed.
-
-Wed Mar 22 20:13:28 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-yow.el (zenirc-yow-format-string): New function.
- (zenirc-server-PRIVMSG-yow, zenirc-command-yow): Use it.
- Use zenirc-message and save-match-data.
-
- * zenirc-random-away.el: New file from Eric Prestemon.
-
- * zenirc-fortran.el (zenirc-fortran-regexp, zenirc-fortran-rant,
- zenirc-fortran-response-type): New variables.
- (zenirc-fortran): Use them.
- Use zenirc-names-equal-p to compare nicknames.
- Save match data.
-
- * zenirc-doto.el (zenirc-doto-install-message-catalogs): New
- function. Call it at load time.
- (zenirc-command-dotowho, zenirc-command-op, zenirc-command-dotolinks,
- zenirc-command-dotolist): Use zenirc-message with appropriate
- catalog entry.
- (zenirc-doto-op-end): Renamed from zenirc-op-end.
- All callers changed.
-
- * zenirc.el (zenirc-names-equal-p): New function.
- (zenirc-server-NICK, zenirc-server-JOIN, zenirc-server-KICK,
- zenirc-server-PART, zenirc-format-privmsg-or-notice): Use it.
-
-Sat Mar 18 13:42:15 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-fill.el (zenirc-fill-region): Narrow to (1- point-max),
- then delete excess trailing newline.
- (zenirc-fill-message): funcall zenirc-fill-region-function.
-
- * zenirc.el (zenirc-command-query): Set current victim to just the
- first subsequent word, sans surrounding whitespace.
- (zenirc-message): If message is not defined in current catalog,
- check english catalog (this is temporary).
-
- * zenirc-netsplit.el (zenirc-netsplit-show-server-mode-changes-p):
- Renamed from `zenirc-netsplit-show-server-modechanges'.
- (zenirc-netsplit-list): Make local to all buffers at load time.
- (zenirc-netsplit-init): Function deleted.
- Don't add it to zenirc-startup-hook.
- (zenirc-netsplit-install-message-catalogs): New function.
- Run it at load time.
- (zenirc-netsplit-JOIN, zenirc-netsplit-timer, zenirc-netsplit-wholeft):
- Avoid needless traversals with nth on zenirc-netsplit-list.
- Use zenirc-message and catalog symbols instead of
- zenirc-display-string.
-
- * zenirc-signal.el: Renamed from zenirc-fancy-signal.el.
- Provide 'zenirc-signal.
- (zenirc-signal-privmsg): Renamed from `zenirc-fancy-signal'.
- Use `zenirc-message', not `message'.
- Change calling arguments appropriately.
- Compact message string to save valuable real estate in the echo area.
-
- * zenirc-stamp.el (zenirc-timestamp): Use zenirc-message, not
- zenirc-display-string.
-
- * zenirc-swedish.el: Renamed from zenirc-swedish-mode.el.
- Change provide to 'zenirc-swedish.
- Use zenirc-lang-define-catalog to create swedish message catalog.
-
- * zenirc-latin.el: Renamed from zenirc-latin-mode.el.
- Change provide to 'zenirc-latin.
- Use zenirc-lang-define-catalog to create latin message catalog.
-
- * zenirc-french.el: Renamed from zenirc-french-mode.el.
- Change provide to 'zenirc-french.
- Use zenirc-lang-define-catalog to create french message catalog.
-
- * zenirc-format.el: Renamed from zenirc-fancy-format.el.
- Change provide to 'zenirc-format.
- (zenirc-nickuserhost-list): Variable deleted.
- (zenirc-nickuserhost-table): New variable.
- (zenirc-format-nickuserhost-fancy): Save nick and nickuserhost
- pair in new hash table instead of in alist.
- (zenirc-fancy-NICK, zenirc-fancy-352): Here also.
- Do not run zenirc-format-nickuserhost-hook.
-
- * zenirc-away.el: Renamed from zenirc-fancy-away.el.
- Change provide to 'zenirc-away.
- (zenirc-fancy-away-user-alist): Variable deleted.
- (zenirc-away-table): New variable.
- (zenirc-server-301-fancy): Use new hash instead of alist.
- Use `zenirc-message' instead of `zenirc-display-string'.
- Change calling arguments appropriately.
-
- * zenirc-complete.el: Do not use backquotes in any macros.
- Do not require backquote.el.
- (zenirc-complete-cache-alist): Variable deleted.
- (zenirc-complete-table): New variable.
- Initialize at load time with list of server commands.
- (zenirc-complete-cache): Rewritten to intern in
- zenirc-complete-table.
- Set new symbol value to undowncased string.
- (zenirc-complete): On final completion, insert string with
- preserved case.
- (zenirc-complete-uncache): Set interned symbol in table to nil.
-
- * zenirc-complete.el (zenirc-complete-message): Function deleted.
- All callers changed to use `zenirc-message'.
- (zenirc-complete-wordlist): Alias deleted.
- All callers use `zenirc-parse-words' directly.
- (zenirc-complete-install-message-catalogs): New function using
- zenirc-lang-define-catalog.
- (zenirc-complete-install-messages): Function deleted.
- (zenirc-complete-word-boundary-regexp): Include carriage returns.
-
- * zenirc-complete.el (zenirc-complete-display-function): New variable.
- (zenirc-complete): Use it.
- (zenirc-complete-display-traditional,
- zenirc-complete-display-in-popup,
- zenirc-complete-display-in-echo-area,
- zenirc-complete-display-echo-area-or-traditional,
- zenirc-complete-display-echo-area-or-popup): New functions.
-
- * zenirc-complete.el (zenirc-complete-add-final-space-p): New variable.
- (zenirc-complete): Use it.
- Correct search for word boundaries.
- (zenirc-complete, zenirc-complete-cache-new-zenirc-commands):
- Use `boundp' to limit completions returned by `all-completions' and
- `try-completions' on `zenirc-complete-table'.
-
- * zenirc-complete.el (zenirc-complete-cache-NICK): New function.
- Add it to `zenirc-server-NICK-hook'.
- (zenirc-complete-cache-319, zenirc-complete-cache-353): Use
- `save-match-data'.
-
- * zenirc-fill.el: New file.
-
- * zenirc-18.el: New file.
- zenirc.el: Require it if appropriate.
-
- * zenirc.el (zenirc-display-string): Function deleted.
- (zenirc-message): New function, replacing zenirc-display-string.
- All callers changed.
- (zenirc-message-hook): New variable.
- (zenirc-text-list): Variable deleted.
- All refereces removed; let zenirc-message handle lookups.
- (zenirc-set-text-list-ent): Function deleted.
- (zenirc-lang-catalogs, zenirc-lang-obarray-size,
- zenirc-lang-current-language): New variables.
- (zenirc-lang-define-catalog, zenirc-lang-store-catalog-entry,
- zenirc-lang-retrieve-catalog-entry,
- zenirc-lang-set-current-language): New functions.
- (zenirc-lang-define-english-catalog): New function.
- Call at end of file.
-
- * zenirc.el (zenirc-insert-at-proc-mark): New function.
- (zenirc-send-privmsg-last-rec, zenirc-send-privmsg-last-sent):
- Insert "/msg [recipient]" at process mark, not at point.
- (zenirc-mode-map): Bind zenirc-send-privmsg-last-rec to "\C-cC-r",
- not "\C-cr".
- Bind zenirc-send-privmsg-last-sent to "\C-c\C-s", not "\C-cs".
- (zenirc-self-insert-or-send-privmsg-last-rec): New function.
- (zenirc-mode-map): Bind it to ":".
- (zenirc-self-insert-or-send-privmsg-last-sent): New function.
- (zenirc-mode-map): Bind it to ";".
-
- * zenirc.el (zenirc-local-variables): New variable.
- (zenirc-mode): Use it to initialize buffer-local variables.
- Remove interactive spec.
- Thoroughly frob mode-line-format.
-
- * zenirc.el (zenirc-command-*-hook, zenirc-ctcp-query-*-hook,
- zenirc-ctcp-reply-*-hook, zenirc-server-*-hook): Documentation
- strings removed. They were not particularly informative and took a
- lot of space.
-
- * zenirc.el: Removed all autoload cookies except for `zenirc'.
- Docstrings for most functions completely rewritten.
-
- * zenirc.el (zenirc-ignorance-list): Ignore messages with more
- than 4 CTCP strings.
- (zenirc-notify-list): Initialize to nil.
-
- * zenirc.el: All references to the following variables changed.
- (zenirc-current-server-name): Renamed from `zenirc-servername'
- (zenirc-server-modes): Renamed from `zenirc-servermodes'.
- (zenirc-server-name): Renamed from `zenirc-servername'.
- (zenirc-server-version): Renamed from `zenirc-serverversion'
- (zenirc-unprocessed-output): Renamed zenirc-partialline.
- (zenirc-user-full-name): Renamed from `zenirc-name'.
- (zenirc-user-modes): Renamed from `zenirc-usermodes'.
-
- * zenirc.el (zenirc): If given numeric prefix argument, switch to
- session in buffer named "*zenirc*<n>", or start one.
- (zenirc-active): Variable deleted.
- (zenirc): Check actual process status in buffer, if any.
- Do not disable blink-matching-paren. Let user do that on
- zenirc-mode-hook if desired.
- (zenirc-login): Renamed from zenirc-logon. Take process as argument.
- (zenirc): Call it with new process as argument.
- (zenirc-filter, zenirc-sentinel, zenirc-parselines,
- zenirc-extract-nick): Use save-match-data macro.
- (zenirc-in-input-p): Take optional proc argument.
- (zenirc-parse-words, zenirc-parse-firstword): Use save-match-data.
- Ignore leading and trailing whitespace.
- (zenirc-extract-userhost): New function.
- (zenirc-channel-p): Renamed from zenirc-channel-p.
- All callers changed.
- (zenirc-do-command): Use cond for readability.
-
- * zenirc.el (zenirc-delete, zenirc-member): Functions removed.
- * zenirc-18.el: Put them here.
- Make aliases for `delete' and `member'.
- All callers changed.
-
-Tue Jan 3 11:16:43 1995 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-popup.el (zenirc-window-end): New function.
- (zenirc-popup-window): Use it when `window-end' is undefined.
-
- * zenirc-popup.el (zenirc-map-windows): Renamed from `map-windows'.
- All callers changed.
- Add lisp indentation property.
-
- * zenirc-popup.el (zenirc-popup-mode): New variable and function.
- (zenirc-popup-window): Do nothing when zenirc-popup-mode is nil.
-
-Sun Sep 25 15:21:55 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added /oper command.
- Version 2.16 released.
-
-Wed Sep 21 03:04:46 1994 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-complete.el (top level): Require backquote.
- Don't install zenirc-complete-cache-nick on
- zenirc-format-nickuserhost-hook.
- Call zenirc-complete-install-messages.
- (zenirc-complete-nick-alist, zenirc-complete-server-alist,
- zenirc-complete-channel-alist, zenirc-complete-charkey-alist):
- Variables deleted.
- (zenirc-complete-cache-alist): Renamed from
- zenirc-complete-server-command-alist.
- (zenirc-complete-word-boundary-regexp,
- zenirc-command-complete-cache-hook,
- zenirc-command-complete-uncache-hook): New variables.
- (zenirc-complete-cache, zenirc-complete-uncache,
- zenirc-complete-cache-nick, zenirc-complete-uncache-nick):
- Rewritten as macros.
- (zenirc-complete-command-cache, zenirc-complete-command-uncache):
- New functions.
- (zenirc-complete-wordlist): New alias.
- (zenirc-complete): Use zenirc-complete-word-boundary-regexp instead of
- hardcoded word separator regexps.
- Remove all code associated with searching misc completion alists; all
- completions are in zenirc-complete-cache-alist.
- Move all messages into zenirc-text-list and use
- zenirc-complete-message to display messages.
- (zenirc-complete-install-messages, zenirc-complete-message): New
- functions.
- (zenirc-complete-cache-new-zenirc-commands): Renamed from
- zenirc-complete-get-zenirc-command-alist.
- Call zenirc-complete-cache instead of inlining code.
- (zenirc-complete-cache-server, zenirc-complete-uncache-server,
- zenirc-complete-cache-channel, zenirc-complete-uncache-channel):
- Functions deleted.
- (zenirc-complete-cache-312, zenirc-complete-cache-322,
- zenirc-complete-cache-352, zenirc-complete-cache-INVITE,
- zenirc-complete-cache-JOIN): Rewritten.
- (zenirc-complete-uncache-40x): renamed from
- zenirc-complete-uncache-401.
- (zenirc-complete-uncache-402): Function deleted.
- (zenirc-complete-cache-msg): New function.
- (zenirc-server-PRIVMSG-hook, zenirc-server-NOTICE-hook): Put
- zenirc-complete-cache-msg on these.
-
-Wed Sep 21 02:10:30 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-format-privmsg-or-notice): Fixed bug in compare
- of origin of privmsg/notice against name of server - was using
- string-match, which caused lossage when the nick was an invalid
- regular expression.
-
-Thu Sep 1 19:13:41 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc): Made zenirc-server buffer local.
- This way, the mode line displays the correct server in each buffer
- even if you run more than one instance of zenirc in an emacs that
- are connected to different servers.
-
-Tue Aug 23 00:40:58 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-dcc.el: Sometimes was dropping bits of incoming dcc chats.
- This was a scoping problem. Fixed it.
-
-Fri Jul 8 00:34:45 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-source-list): Deleted ohsaycan.ucc.american.edu.
-
-Thu Jun 30 23:48:04 1994 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-yow.el: New file.
-
-Wed Jun 29 08:23:29 1994 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc-beginning-of-input-p): Use = instead of
- `equal' and marker-position.
- Take optional arg proc.
- (zenirc-parse-servermsg): comment fix.
- (zenirc-display-recipient-confirmation): New function.
- (zenirc-send-line): Use it.
-
-Mon Jun 27 11:46:29 1994 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-complete.el (zenirc-cache-nick): If arg is not a nick,
- cache it as a server name.
-
-Sun Jun 26 11:58:18 1994 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-fancy-away.el: New file.
-
- * zenirc-latin-mode.el: Put all entries in an alist and loop through
- them, calling zenirc-set-text-list-ent.
- Also cleaned up the comments a little.
-
- * zenirc-complete.el: Total rewrite.
-
- * zenirc-popup.el (map-windows): Use memq, not member.
-
-Sat Jun 25 08:52:10 1994 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-dcc.el (zenirc-dcc-chat-filter-hook): New zenhook.
- (zenirc-dcc-chat-filter): Run it.
- Don't use save-excursion; save and restore current buffer with
- unwind-protect.
-
- * zenirc-popup.el (zenirc-popup-windows): Use let* for setting
- bigwin, min-height, and ratio.
- (ratio): If not a valid number, set to screen height of bigwin.
- Don't check window-start and don't recenter to middle of window;
- always (recenter -1) instead.
- (proc-mark): New variable.
-
-Fri Jun 24 03:58:44 1994 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-popup.el (zenirc-popup-window): Pass `nil' for minibuffer
- argument to map-windows.
-
- * zenirc-popup.el (zenirc-popup-window): Deleted local variables
- `window-alist' and `alist'.
- Set `found' (if appropriate) directly in map window body.
- Check that proc-mark is within window-start and window-end, rather than
- calling pos-visible-in-window-p.
-
- * zenirc.el (zenirc-filter): Do not use save-excursion; save and
- restore current buffer using unwind-protect.
-
- * zenirc-popup.el (zenirc-popup-window): Check pop-up-windows, not
- (not pop-up-windows).
-
- * zenirc-swedish-mode.el: Require 'zenirc.
- Provide 'zenirc-swedish-mode.
-
- * zenirc-stamp.el: Require 'zenirc.
- Provide 'zenirc-stamp.
-
- * zenirc-pjg.el: Require 'zenirc.
- Provide 'zenirc-pjg.
-
-Thu Jun 23 23:59:17 1994 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc-fortran.el: Require 'zenirc.
- Provide 'zenirc-fortran-mode.
-
- * zenirc-doto.el: Require 'zenirc.
- Provide 'zenirc-doto.
-
- * zenirc-netsplit.el: Require 'zenirc.
- Provide 'zenirc-netsplit.
-
- * zenirc-latin-mode.el: Require 'zenirc.
- Provide 'zenirc-latin-mode.
-
- * zenirc-french-mode.el: Require 'zenirc.
- Provide 'zenirc-french-mode.
-
- * zenirc-fancy-signal.el: Require 'zenirc.
- Provide 'zenirc-fancy-signal.
-
- * zenirc-fancy-format.el: Require 'zenirc.
- Provide 'zenirc-fancy-format.
-
- * zenirc-dcc.el: Require 'zenirc.
- Provide 'zenirc-dcc.
-
- * zenirc-complete.el: Require 'zenirc.
- Provide 'zenirc-complete.
-
- * zenirc-command-queue.el: Require 'zenirc.
-
- * zenirc-popup.el: New file.
-
- * zenirc.el (zenirc-parselines): Various reorganization of
- conditionals.
- Run signal hooks after everything else (particularly after
- zenirc-display-string, so that the message relevent to the signal
- is already in the buffer).
- Check that zenirc buffer actually has a window at all before calling
- pos-visible-in-window-p with a null window argument; if null, that
- compares pos in the currently selected window, which can never be
- correct.
- Provide 'zenirc.
-
- * zenirc.el (zenirc-recursive-match): Function deleted.
- (zenirc-string-match-list): New function.
- (zenirc-signal-p, zenirc-ignore-p): Use zenirc-string-match-list, not
- zenirc-recursive-match.
-
-Thu Jun 23 04:27:13 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-doto.el: New file.
-
- * zenirc.el (zenirc-sentinel): Insert a message into the zenirc
- buffer when the zenirc process dies.
- (zenirc-delete-hook): Use `zenirc-delete', not `delete'.
- (zenirc-timer-hook): Now run when possible instead of only once a
- minute & modified notify code to only check once a minute, instead of
- depending on the minimum zenirc-timer-hook calling interval of 60
- seconds. (This change made so zenirc-queue-command.el would be
- possible).
- Made zenirc-timer-hook be called for keyboard input events in
- addition to server message events.
-
- * zenirc-command-queue.el: New file.
-
-Tue Jun 21 19:31:56 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-french-mode.el, zenirc-latin-mode.el, zenirc-swedish-mode.el:
- Modified ctcp action string since arg order was changed in
- zenirc.el 2.7.
-
-Sun Jun 19 08:49:17 1994 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el (zenirc-text-list): Change `ctcp_action' format from
- "ACTION %s->%s: %s\n" to "[ACTION->%s] %s %s\n"
- (zenirc-ctcp-query-ACTION): Reorder arguments appropriately.
-
- * zenirc.el (zenirc-mode-hook): New zenhook.
- (zenirc-mode): Call it.
- Do not put a space between colon and process status in
- `mode-line-process'..
- Put `minor-mode-alist' after `mode-line-process' in
- `mode-line-format', so that mode line looks like
- "(ZenIRC:open Fill ...)."
-
- * zenirc.el (zenirc-display-string): New function.
-
- * zenirc.el (zenirc-add-hook): Adopted from v19.24 subr.el.
- New features include an optional arg `append', and if the hook's
- value is merely another symbol, convert it to a list.
- Also handle void variables reliably, by not calling eval.
- (zenirc-delete-hook): Adopted from 19.24 subr.el.
- Handle pathological arguments more robustly than previously.
- (zenirc-remove-hook): Defined as alias for zenirc-delete-hook.
- `remove-hook' is the analogous v19 function.
-
-Mon May 16 02:38:03 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added code to support zenirc-complete.el (and other
- hacks in the future).
-
-Sun May 15 16:17:02 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-netsplit.el: Fixed bug in regexp for server mode changes
- that prevented them from ever being hidden properly.
-
-Fri May 13 05:07:35 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-dcc.el: Fixed two bugs: match for /dcc chat in
- zenirc-dcc-list was not being done right, now it is.
- Made it so entry for zenirc-dcc-list gets deleted in event of
- networking errors.
-
-Thu May 12 16:23:17 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-complete.el: New file.
-
-Wed Apr 27 17:47:31 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-example.el (zenirc-format-nickuserhost-function): Changed
- to a hook.
-
- * zenirc-fancy-format.el, zenirc-fancy-signal.el: Changed
- zenirc-format-nickuserhost-function to a hook.
-
- * zenirc-dcc.el: Added DCC chat accept capability.
-
- * zenirc.el: Changed nick!user@host function to a zenhook called
- zenirc-format-nickuserhost-hook.
- Added docstring to zenirc-notify-list.
-
-Sat Mar 12 04:14:54 1994 Richard Todd <rmtodd@servalan.servalan.com>
-
- * zenirc-latin-mode.el: Misc. spelling fixes, changed to use 'cognomen'
- for 'nickname' throughout.
- Added comments.
-
-Fri Mar 11 19:28:08 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-netsplit.el: Made work well with multiple zenirc's in one
- emacs.
-
- * zenirc.el: Minor docstring and formatting changes.
- Fixed bug that allowed one to start two zenirc processes in one buffer.
- Fixed bug in input handling that caused a lisp error when you sent
- space-enter.
- Changed default signoff message from "" to "Started wasting time
- elsewhere".
- (zenirc-startup-hook): Renamed from zenirc-startup.
- (zenirc-exit-hok): New hook.
- (zenirc-active): New variable.
- (zenirc-mode): mode-line-format less verbose.
- (zenirc-sentinel): New function.
- (zenirc-run-hook): Return value of last hook run.
-
- * zenirc-netsplit.el: Fixed typographical error in the definition of
- zenirc-netsplit-show-server-modechanges.
-
-Thu Mar 10 23:25:20 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-netsplit.el: New file.
-
-Sat Mar 5 05:41:09 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added code to only call zenirc-signal-hook if the
- zenirc buffer is not visible.
- Strip leading \n's from text input into zenirc.
-
- * zenirc-stamp.el (zenirc-timestap): Added arg of "now".
-
-Fri Mar 4 23:57:34 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-text-list): Initialize with defvar, not setq.
- It is not changed much anymore.
- Added zenirc-text-list entry for a protocol violation.
- Changed definition of zenirc-message-vector from a setq to a defvar to
- make the emacs 19 byte compiler happy.
- Added mode-line display of current victim, nick, etc to zenirc-mode.
- Made it so that starting a new zenirc doesn't always create a new
- zenirc buffer.
- Changed zenirc to use zenirc-user-login-name instead of
- (user-login-name).
- Added "now" to arguments to zenirc-timer-hook subrs.
- Fixed incorrect argument to zenirc-server-PING
- Modified zenirc to handle protocol voilations in 002, 003, 251, and
- 255 server messages.
- Fixed incorrect argument to zenirc-server-303
-
- * zenirc.el (zenirc-pjg): Function removed.
- * zenirc-pjg.el: New file.
-
-Thu Mar 3 15:06:51 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-pjg.el: New file.
-
- * zenirc-latin-mode.el: New file.
-
-Mon Feb 28 19:00:06 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Fixed broken /msg
- Added french ftp site to CTCP SOURCE reply.
-
- * zenirc-french-mode.el: New file.
-
- * zenirc-swedish-mode.el: I had duplicated the contents of this file
- twice by appending the new version to the end rather than
- replacing the old code with it. This is now fixed.
-
-Sun Feb 27 19:36:27 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-example.el: Made changes for converting all old hooks to
- zenhooks.
-
- * zenirc-fortran.el: Updated to use new zenhooks for server
- messages.
-
- * zenirc-example.el: Added new format CTCP query hooks.
-
- * zenirc-ojnk.el: Changed from old style command hooks to new
- zenhooks.
-
- * zenirc.el: Turned off paren matching in the zenirc buffer.
-
- * zenirc-dcc.el, zenirc-fancy-format.el, zenirc-fancy-signal.el:
- Made changes for converting all old hooks to zenhooks.
-
- * zenirc.el: Removed duplicate entry for s203 in zenirc-text-list.
- (zenirc-format-nickuserhost-function): New function.
- Converted server messages from the old hook format to the new zenhooks.
- Renamed zenirc-startup-hook to zenirc-startup, because it's not a hook.
- Renamed zenirc-process-connect-hook to zenirc-process-connect,
- because it's not a hook.
- Renamed zenirc-logon-hook to zenirc-login, because it's not a hook.
- Changed all code that called zenirc-format-nickuserhost-hook to do a
- funcall of zenirc-format-nickuserhost-function.
- Deleted zenirc-init-hooks and zenirc-init-hook, as there are no
- more old style zenirc hooks for them to initialize.
-
- * zenirc-fancy-format.el: Updated to use new zenhooks for server
- messages.
-
- * zenirc.el: Added Mark Bailen to author list.
- Fixed out-of-order 318 reply.
- Added CTCP ping sending capabilities (/ping command and associated CTCP
- reply handlers).
- Minor variable name changes in /query code
- Added zenirc-signal-hook that gets called when a signal happens
- Added /quote command to send raw data to the server
- Converted CTCP query and reply strings from old hook format to new
- zenhooks .
- Made it so you can run multiple invocations of zenirc in the same
- buffer.
- Extensive changes to zenirc-send-line that fixed many input mode bugs
- Deleted zenirc-parse-ctcp and replaced calls to it to
- zenirc-parse-firstword.
-
- * zenirc-dcc.el: Added new format CTCP query hooks
-
- * zenirc-fancy-signal.el: New file.
-
- * zenirc.el: Changed piglet.cr.usgs.gov to gnu.ai.mit.edu everywhere.
- Added new zenhook mechanism for all zenirc-command-*-hooks.
- Changed zenirc-timer-hook to be initialized in the defvar.
- Moved some defuns around to be on the right page, or to
- alphabetize defuns.
- Added /ctcp command. Usage /ctcp victim foo bar sends ^AFOO bar^A
- to victim.
- Partially rewrote the /notify code in an attempt to understand it.
-
- * zenirc-dcc.el: Changed from old style command hooks to new zenhooks.
-
-Thu Feb 24 14:38:30 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-fortran.el: More revisionism - change `piglet.cr.usgs.gov'
- to `gnu.ai.mit.edu' in a couple places.
-
- * zenirc-ctcp-flood.el, zenirc-example.el, zenirc-fortran.el,
- zenirc-ojnk.el: Changed email address from piglet to gnu.
-
- * zenirc-dcc.el: Added more support for dcc chat (not finished yet)
- Changed email address from piglet to gnu.
-
- * zenirc-swedish-mode.el: Added updates from per persson.
- Changed email address from piglet to gnu.
-
- * zenirc-fancy-format.el, zenirc-stamp.el: Changed email address from
- piglet to gnu.
-
-Sun Feb 20 19:24:15 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-dcc.el: Added /dcc close subcommand to abort dcc transfers.
-
-Fri Feb 18 04:28:23 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-dcc.el: Made dcc get work. Started on dcc chat support.
-
- * zenirc.el: Fixed missing \n on a message.
- Added annoy pjg feature.
-
-Wed Feb 16 03:18:46 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Updated list of places zenirc is available from in
- zenirc-source-list.
- Added handlers for server numerics 202, 203, 208, 217, 221, 261.
- Improved handlers for server numerics 257, 258, 259.
- Added new variable, zenirc-timer-hook - this is a new "zenhook"
- that works similar to emacs 19 hooks.
- zenirc-timer-hook is called every few minutes by zenirc, so the
- client can schedule events.
- Added new variable, zenirc-debug-timer - used to debug zenirc's
- timer code.
- Deleted some commented code that called text-mode.
- Changed the buffer-local variable partialline to zenirc-partialline
- Fixed some unitialized buffer-locals that made trouble for emacs 19.
- Added a new buffer-local variable, zenirc-time-last-event, used to keep
- track of when zenirc-timer-hook has been called.
- Replaced code to call zenirc-command-notify-hook in various places with
- a call to zenirc-timer-handler in the main server message handling
- loop.
- Added zenirc-add-hook and zenirc-delete-hook to manipulate zenirc hook
- variables.
- Got some code from Kiwi IRC client to manipulate times since the
- epoch as lists of two ints (zenirc-time-to-int, zenirc-time=,
- zenirc-time<, and zenirc-time-diff).
- Wrote zenirc-timer-handler, the subroutine that schedules calls to
- zenirc-timer-hook.
- Added a timer hook, zenirc-notify-timer, which the client now uses
- to send "ISON" messages to the IRC server. Deleted code to call
- this directly from the PONG server message hook.
-
- * zenirc-stamp.el: New file.
-
-Tue Feb 8 20:50:06 1994 Per Persson <pp@solace.mh.se>
-
- * zenirc-ctcp-flood.el: Added legalese.
-
- * zenirc-example.el, zenirc-fortran.el: Added legalese.
-
- * zenirc-ojnk.el: New file.
-
- * zenirc.el: Changed server numeric 303 output to a more zenircish
- one, Currently Wasting time:
- Fixed a typo I made in the previous version which made zenirc barf.
-
- * zenirc.el: Added /ison as a command so you get the usual 303
- output instead of running the notify code.
-
-Tue Feb 8 03:09:32 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-dcc.el: Added legalese and /dcc command user interface.
- So far: /dcc get nick file, /dcc list.
-
- * zenirc-fancy-format.el, zenirc-swedish-mode.el: Added legalese.
-
- * zenirc.el: Added more autoload cookies.
- Corrected variable documentation for zenirc-server.
- Added new variable, zenirc-notify-list, which contains a list of
- strings that are nicks to do notification for.
- Added server message handlers for numerics 256, 257, 258, 259.
- Added display of server message 409, and fixed PING code so it doesn't
- generate these.
- Added /me command that sends CTCP actions to zenirc-current-victim.
- Removed call to text-mode that was deleting local variables and created
- the following buffer-local variables:
- zenirc-previous-ison - list of people you already recieved
- notification of.
- zenirc-ison-count - used as a counter to check ison every 5 server
- msgs.
- zenirc-serverversion - the version of the server you are using.
- zenirc-usermodes - the allowable modes for a user.
- zenirc-servermodes - the allowable modes for a channel.
- zenirc-servername - the server name of the server you are using.
- Made zenirc-parselines call zenirc-command-notify-hook every 5
- server msgs.
- fixed a bug in call zenirc-do-command that was occasionally
- passing extra \n's on the end of commands.
- Changed zenirc-parse-command to zenirc-parse-firstword, since it
- was used all over the place, not just in the command code.
- Added /notify command - can do /notify +nick to add to
- notification list, /notify -nick to remove, /notify list to get a
- list, and /notify to check current state.
- Added zenirc-isin-ison-list-p to check to see if a given nick is in an
- "ison" list.
- Modified zenirc-server-PING to call zenirc-command-notify-hook.
- Modified 001 reply handler to get your current nick (fixes zenirc bug
- when you log on and your initial nick is already taken)
- Added server 303 reply handler to display who is currently on irc from
- your notify list.
- Moved zenirc-extract-nick to the utility page.
- Added zenirc-member function that works like memq but uses equal
- instead of eq.
- Fixed minor bug in zenirc-delete.
- Made changes to zenirc-run-hook to stop running the hooks in a
- hooklist if one of the hooks set zenirc-run-next-hook to nil (it
- defaults to t).
- Added zenirc-parse-words which turns a line of the form "a b c" to
- ("a" "b" "c").
-
-Wed Feb 2 01:01:08 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-delete): New function from Noah.
- (zenirc-command-vector): Deleted. Nothing used it.
-
-Thu Jan 27 21:08:26 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-parse-command): Fixed bug that was stripping
- the last character off of the name of a command that had no
- subcommand.
-
-Tue Jan 25 05:21:16 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-dcc.el, zenirc.el: Added "copyleft" statement.
-
-Mon Jan 24 15:35:33 1994 Per Persson <pp@solace.mh.se>
-
- * zenirc.el: The final fix for ;; you got kicked function.
- Now it really does what it is supposed to do.
-
-Mon Jan 24 15:16:07 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-run-hook): New function from friedman.
- This is the beginning of better hook support for zenirc.
-
- * zenirc-dcc.el: Added code to manage zenirc-dcc-list.
-
- * zenirc-swedish-mode.el: ci -u zenirc-swedish-mode.el.
- Improved some of the formatting (believe it or not).
-
-Sun Jan 23 21:32:16 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-dcc.el: New file.
-
-Sat Jan 22 06:11:21 1994 Per Persson <pp@solace.mh.se>
-
- * zenirc.el: Fixed the broken zenirc-server-KICK so it displays
- what it is supposed to show when you get kicked from a channel.
-
-Tue Jan 18 17:52:28 1994 Per Persson <pp@solace.mh.se>
-
- * zenirc.el: Added handlers for server numerics 200, 201, 202, 203,
- 204, 205, 206, 208, 209, 211, 212, 213, 214, 215, 216, 218, 219, 241
- 242, 243, 244, 303 and a handler for server PONGs.
- Fixed zenirc-privmsg-last-recieved so it won't ever be set to a
- server name.
-
-Tue Jan 18 15:24:03 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Fixed bug in previous code - zenirc-privmsg-last-rec
- had to be set to the value of (zenirc-extract-nick from) so that
- nick!user@host never wound up in zenirc-privmsg-last-rec.
-
-Tue Jan 4 06:06:12 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-swedish-mode.el: Added spelling corrections from
- pp@solace.mh.se.
- Added silly comments from the splode-unit (friedman).
-
- * zenirc-swedish-mode.el: New file.
-
- * zenirc.el: Added C-cr and C-cs commands to do completion like
- `:' and `;' in Kiwi. (From pp@solace.mh.se.)
-
-Sun Jan 2 01:24:48 1994 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: ircd 2.6.16.0 and above appear to terminate server
- messages with CR NL instead of just NL. In zenirc-parselines, I
- added a check for this, and strip the CR in addition to the
- NL. When servers older han ircd 2.6.16 are not around, this should
- be fixed to remove the if test.
-
-Fri Dec 31 19:44:36 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-command-quit): New function.
- Added "/quit message"; before you had to "/quit :message" if you
- wanted `message' to contain spaces.
-
-Thu Dec 23 17:01:29 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added command hooks for /away and /topic.
-
-Sun Nov 28 18:25:29 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-parse-command): rewrote to parse commands into
- ("cmd" . "arguments") instead of fully parsing every word into an
- array element.
- (zenirc-do-command) modified to use the zenirc-parse-command
- described above.
- (zenirc-send-line): changed comment indicating this was temporary code;
- this doesn't seem to be the case anymore.
- (zenirc-format-nickuserhost): added comment indicating example
- replacements for this defun are in the client distribution.
- (zenirc-command-query): rewrote to use the new arguments passed from
- zenirc-do-command.
- (zenirc-command-m, zenirc-command-msg): wrote these to implement
- irc-II style /msg victim text and /m victim text commands.
- (zenirc-init-hooks): added hooks for zenirc-command-m and
- zenirc-command-msg.
-
-Thu Nov 11 22:42:21 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added diffs from friedman's version of 1.50 to do
- handle a list of server data. **I have not tested this code yet**.
- Fixed zenirc-server-KICK to show the person who kicked you correctly
- when you get kicked from a channel.
-
-Thu Nov 4 14:54:36 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: rmtodd added command parsing code.
- Checks for zenirc-command-WORD-hook.
- basic algorithm is:
- if user input does not start with `/', send to zenirc-current-victim
- if user input starts with `/':
- if fboundp zenirc-command-WORD-hook, where `WORD' is what
- follows the `/' then call it with process, argc, and argv (the
- last two similar to C) else pass it to the server.
-
-Sun Oct 24 17:02:36 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added handlers for server numerics 331, 351, 364,
- 365, 367, and 368.
-
-Tue Oct 19 04:34:51 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added 371 and 374 server replies.
- Fixed buglet in zenirc-server-PART that showed up when you parted
- several channels one after another.
-
-Tue Oct 19 02:30:13 1993 Richard Todd <rmtodd@servalan.servalan.com>
-
- * zenirc-fancy-format.el: Now hooks into the /who display, so you
- can do a who and load the nickuserhost list quickly with the
- people on your channel.
-
-Mon Oct 18 01:18:20 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: fixed zenirc-hostname defvar.
- Added defun of zenirc-set-text-list-ent from rmtodd.
- Added handlers for server numerics 381, 382, 391, 392, 393, 394,
- 395.
-
-Thu Oct 14 03:55:03 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: (zenirc) fixed check of zenirc-process-connect-hook.
-
- * zenirc.el: Added code to make zenirc proxy easier.
- (zenirc): if zenirc-process-connect-hook is fboundp, it will be
- called in place of open-network-stream.
- (zenirc-logon): added a hook, zenirc-logon-hook, which can be
- called in place of this function if it is fboundp.
-
-Wed Oct 13 07:02:30 1993 Charles Hannum <mycroft@gnu.ai.mit.edu>
-
- * zenirc-fancy-format.el (zenirc-format-nickuserhost-hook): Don't use
- table for server names.
-
- * zenirc.el: zenirc-servername: New variable.
- (zenirc-parse-servermsg): Default `from' to zenirc-servername if
- non-nil.
- (zenirc-server-PING): Use the host name in the argumet list.
- (zenirc-server-004): Record server name in zenirc-servername.
- (zenirc-extract-nick): Return nil if argument is a server name.
- (zenirc-format-privmsg-or-notice): Remove special case for local
- server.
-
-Wed Oct 13 05:10:42 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Fixed lame string compare.
- Last checkin hosed by NFS problem; this contains
- rmtodd@servalan.servalan.com's fix to the process filter.
-
-Tue Oct 12 22:14:19 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-ctcp-flood.el: Modified to send each message 10
- times. eat flaming ctpc, bozo!
-
- * zenirc-fortran-mode.el: Fixed bug in last mod, and added rcs info.
-
- * zenirc.el: Applied fix for "wrong side of point" errors that
- happened in zenirc-display-string when user was typing and
- output happened. contributed by rmtodd@servalan.servalan.com.
-
-Mon Oct 11 23:39:34 1993 Charles Hannum <mycroft@gnu.ai.mit.edu>
-
- * zenirc-fancy-format.el: Use (aref) rather than (nth).
-
- * zenirc.el: Use a statically allocated vector for parsing server
- messages, and don't break a line if a CR is typed in the middle.
-
-Mon Oct 11 22:33:46 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-fortran-mode.el: Updated to use aref instead of nth while
- handling server messages.
-
- * zenirc.el: Minor string formatting frobs (vague comment to annoy
- noah). [noah is appropriately annoyed. 1995-03-18]
- Added handlers for server messages 305, 324, 342.
- Fixed call of zenirc-format-nickuserhost-hook in
- zenirc-server-KICK.
-
- * zenirc-fancy-format.el: Added zenirc-server-NICK-hook to track nick
- changes and not display nick!user@host if possible.
-
- * zenirc.el: fixed bug in CTCP SOURCE display.
-
-Mon Oct 11 01:33:49 1993 Charles Hannum <mycroft@gnu.ai.mit.edu>
-
- * zenirc.el: Fix 322, KICK, and WALLOPS.
-
- * zenirc-fancy-format.el: Move entries to the front of the alist
- as they are used. Also, only call assoc once.
-
-Sun Oct 10 21:24:16 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-fortran.el: Modified to work with new internal servermsg
- scheme.
-
- * zenirc.el: Minor comment update (intentionally vague comment to
- annoy noah). [noah is appropriately annoyed 1995-03-18]
- Added server message handlers for 302, 445, 446, 451, 462, 463, 464,
- 467, 483, 491, 501, 502. Added hook for 465.
-
- * zenirc.el (zenirc-logon): Added support for PASS command on connect.
- (zenirc-server-NICK): Added nick tracking of your current nickname.
- (zenirc-channelp): Utility routine to determine if a string is a
- nickname or a channel name.
- (various places): Changed semantics of zenirc-current-victim - "no
- victim" is now nil instead of "". This fixes a bug that showed up
- if the user starts banging return immediately on connect.
- Added server message handlers for: MODE, KICK, 407, 413, 414, 422,
- 423, 424, 431, 432, 433, 436, 441, and 444.
-
- * zenirc.el (zenirc-parse-servermsg) changed to return (msgtype
- from arg1...argn) instead of (msgtype from (arg1...argn).
- This required a rewrite of server message handlers:
- ERROR, INVITE JOIN KILL NICK NOTICE PART PING PRIVMSG QUIT TOPIC
- WALLOPS 001 002 003 004 251 252 253 254 255 301 306 311 312 313
- 314 315 317 318 319 321 322 323 332 341 352 353 366 369 372 375
- 376 401 402 403 404 405 406 409 411 412 421 442 443 461 465 471
- 472 473 474 475 481 482.
- (zenirc-server-314): Added.
-
-Sat Oct 9 22:19:56 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc-ctcp-flood.el, zenirc-example.el, zenirc-fortran.el:
- New files.
-
- * zenirc-fancy-format.el: New file.
-
- * zenirc.el: Added CTCP PING query handler.
-
- * zenirc.el: Added mycroft@ai.mit.edu as co-author.
- Deleted RCS log from source code.
- Changed CTCP SOURCE reply to point to brrcrftp.
- Changed defvar of zenirc-text-list to a setq. Otherwise changing
- this while developing is a hassle. Can be changed back when code
- is stable.
- Added improved zenirc-parse-servermsg, from mycroft
- Added error message when you try to send text and you don't have a
- zenirc-current-victim.
- Added display of emacs-version to CTCP VERSION replies.
-
-Fri Oct 8 05:22:28 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Moved zenirc-startup-hook to a more useful place.
- Minor bugfixes in CTCP code.
- Many speedups added as suggested by mycroft.gnu.ai.mit.edu.
- Removed broken zenirc-match defun, and replaced instances with
- properly working case insensitive code as suggested by mycroft.
- Added zenirc-startup-hook.
- Made hooks actually work properly for server messages, etc. so you
- don't have to modify zenirc.el anymore.
-
-Mon Oct 4 01:38:27 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Minor bugfixes in string formatting and ctcp code.
-
-Sat Oct 2 02:09:25 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Fixed format string in /who list reply.
-
-Fri Oct 1 02:58:48 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Fixed display of user in PART servermsg handler.
-
-Wed Sep 29 00:28:22 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Cleaned up version data and a few odds and ends for
- ALPHA1 release.
-
- * zenirc.el: Rewrote CLIENTINFO ctcp to be smaller and user
- extensible.
-
-Tue Sep 28 20:16:31 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added CTCP query handlers for ACTION, CLIENTINFO,
- ERRMSG, FINGER, SOURCE TIME, USERINFO, and VERSION.
- Added hook code for CTCP.
- Added "message sent to" display to the input handler.
- Cleaned up CTCP code.
-
-Mon Sep 27 23:43:08 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added temporary input parser, so you don't have to
- type "PRIVMSG #chan :foo" to talk to the current channel.
-
- * zenirc.el: Added save of match data around process-filter,
- deleted save of match data in various other places in the source.
-
-Sun Sep 12 22:52:40 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Modified message and notice handling to support ctcp
- Currently, just send ctcp errmsg to all ctcp queries.
-
- * zenirc.el (zenirc-format-nickuserhost): wrote code to handle a
- case the IRC protocol spec says "doesn't happen".
-
-Mon Sep 6 01:22:10 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Changed "notify" to "signal", and added a rudimentary
- signal subroutine.
-
-Sun Sep 5 05:04:42 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added 253 numeric and support for a "notify" feature
- like Kiwi has.
-
-Wed Sep 1 04:08:54 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added "fnord" to zenirc-ignorance-list.
-
-Sun Aug 29 17:37:01 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Fixed 332 numeric handler.
- Added zenirc-ignore and zenirc-ignorance-list, so client can now
- ignore annoying things.
-
-Sat Aug 28 03:46:27 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added numerics 369, 405, 406, 409, 465.
- Added comments.
-
-Fri Aug 27 13:43:25 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added support for 482 numeric, corrected some
- spelling errors.
-
-Mon Aug 16 00:38:44 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added handlers for numerics 411, 471, 472, 473, 474,
- 475, and 481.
-
-Sun Aug 15 18:16:08 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added INVITE server message handler.
-
-Sat Aug 14 23:48:20 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added handlers for server messages KILL, WALLOPS
- (untested), 341, 404, 412, 422, 442, 443, and 461.
-
- * zenirc.el: Added handlers for server numerics 306 and 403
-
- * zenirc.el: Added numeric handlers for server numerics 001, 002,
- 003, 004, 252, 254, 255, 372, 375, 376.
-
-Fri Aug 13 05:57:32 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added code to handle servermsg 251.
-
-Fri Jul 23 20:23:37 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added support for 315, 317, and 352 numerics.
-
-Wed Jul 21 14:41:51 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added code to handle NICK server message.
-
-Sun Jul 18 15:36:55 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Finished PART and JOIN, added a bunch of numerics,
- wrote (zenirc-match).
-
- * zenirc.el: (zenirc-format-nickuserhost) Fixed hook call.
- Worked JOIN & PART server message handlers.
-
- * zenirc.el (zenirc-format-nickuserhost-hook): New variable.
- Added handlers for server message types NOTICE, PRIVMSG, numerics
- 401 and 402.
-
-Sat Jul 17 23:01:19 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Some general cleanup of comments in
- zenirc-parse-servermsg Added new servermsg handling routines for
- ERROR, PART, TOPIC (unfinished), numerics 321, 322, 323, and 332.
-
- * zenirc.el (zenirc-parse-servermsg): extended to parse servermsg
- arguments also servermsg hook routines - modified to understand
- new output from zenirc-parse-servermsg.
-
-Thu Jul 8 02:22:55 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Deleted zenirc-instring. Code now uses string-match
- everywhere.
- Many minor bugfixes.
- Rewrote zenirc-parse-servermsg.
- Added some new hooks for server messages.
-
-Sat Jul 3 02:42:25 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-text-list): New variable.
- This is an alist of all text output by zenirc, so it can be
- internationalized or customized.
-
-Wed Jun 30 05:35:01 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Changed some instances of zenirc-instring to
- string-match.
-
-Mon Jun 28 20:29:54 1993 Eric Prestemon <ecp@gnu.ai.mit.edu>
-
- * zenirc.el: Now handles host:port correctly in IRCSERVER.
-
-Sat Jun 19 00:37:12 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Lots of general cleanup, bux fixes.
- wrote temporary servermessage parser routine.
-
-Tue Jun 15 12:30:20 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-parselines): rewrote code to jump to server
- message handler to call zenirc-server-MSGTYPE-hook.
- (zenirc-parse-servermsg): started to write this subroutine.
-
-Sun Jun 13 02:56:09 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-filter): Call zenirc-parselines, which
- breaks up a block of text from the server into lines.
-
-Thu Jun 10 01:43:27 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-parse-servermsg): worked some on parsing
- server messages. Realized that data coming from the zenirc process
- is not coming a line at a time, and it needs to be blocked into
- lines before calling zenirc-parse-servermsg.
-
-Wed Jun 9 04:55:48 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-filter): thought of a better way to make
- zenirc-filter work.
-
- * zenirc.el (zenirc-filter): I made this function call a function
- based on the server message type. If there is no handler, call
- zenirc-display-string.
-
- * zenirc.el (zenirc-logon): Added send of NICK and USER commands
- to IRC server on connect.
-
-Fri Jun 4 05:27:44 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el (zenirc-logon): started to write, got tired, went to
- bed instead.
-
- * zenirc.el: Added code to parse IRCSERVER environment variable.
-
-Thu Jun 3 08:19:19 1993 Noah Friedman <friedman@prep.ai.mit.edu>
-
- * zenirc.el: Add autoload cookies.
- Differentiate between process filter and buffer display routine
- Initialize zenirc-mode-map at load-time, not in zenirc-mode
- (zenirc): Don't create a new *zenirc* process unless prefix arg is
- given.
- Without prefix arg, just switch to initial zenirc process.
- (zenirc): Don't bother making `zenirc-process' buffer-local. You
- don't want to rely on it anyway. Use let instead.
- (zenirc-send-line): Cleaned up.
-
-Thu Jun 3 02:16:35 1993 Ben Mesander <ben@gnu.ai.mit.edu>
-
- * zenirc.el: Added stuff to make scrolling work right from
- meditate.el.
-
- * zenirc.el: New file.
+++ /dev/null
-;;; zenirc-18.el --- compatibility functions for Emacs 18
-
-;;; Copyright (C) 1994, 1995 Noah S. Friedman
-;;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc.
-
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: friedman@prep.ai.mit.edu
-;; Keywords: extensions, zenirc
-;; Created: 1995-01-01
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; This file mainly just defines functions used by zenirc which don't exist
-;; in emacs 18, but do exist in emacs 19. Everything here is original with
-;; the author unless indicated otherwise.
-
-;; TODO: Fix a current-time[-string].
-
-;;; Code:
-
-\f
-;; From GNU Emacs 19.27 subr.el
-(defmacro zenirc-save-match-data (&rest body)
- "Execute the BODY forms, restoring the global value of the match data."
- (let ((original (make-symbol "match-data")))
- (list
- 'let (list (list original '(match-data)))
- (list 'unwind-protect
- (cons 'progn body)
- (list 'store-match-data original)))))
-
-(or (fboundp 'save-match-data)
- (fset 'save-match-data 'zenirc-save-match-data))
-
-\f
-;; From emacs 19.29 window.el
-(defun zenirc-walk-windows (proc &optional minibuf all-frames)
- "Cycle through all visible windows, calling PROC for each one.
-PROC is called with a window as argument.
-
-Optional second arg MINIBUF t means count the minibuffer window even
-if not active. MINIBUF nil or omitted means count the minibuffer iff
-it is active. MINIBUF neither t nor nil means not to count the
-minibuffer even if it is active.
-
-Several frames may share a single minibuffer; if the minibuffer
-counts, all windows on all frames that share that minibuffer count
-too. Therefore, when a separate minibuffer frame is active,
-`walk-windows' includes the windows in the frame from which you
-entered the minibuffer, as well as the minibuffer window. But if the
-minibuffer does not count, only windows from WINDOW's frame count.
-
-third arg ALL-FRAMES is ignored in emacs 18; it exists solely for
-compatibility with emacs 19."
- ;; If we start from the minibuffer window, don't fail to come back to it.
- (if (window-minibuffer-p (selected-window))
- (setq minibuf t))
- (let* ((walk-windows-start (selected-window))
- (walk-windows-current walk-windows-start))
- (while (progn
- (setq walk-windows-current
- (next-window walk-windows-current minibuf))
- (funcall proc walk-windows-current)
- (not (eq walk-windows-current walk-windows-start))))))
-
-(or (fboundp 'walk-windows)
- (fset 'walk-windows 'zenirc-walk-windows))
-
-\f
-(defun zenirc-delete (elt list)
- "Delete by side effect any occurrences of ELT as a member of LIST.
-The modified LIST is returned. Comparison is done with `equal'.
-If the first member of LIST is ELT, deleting it is not a side effect;
-it is simply using a different list.
-Therefore, write `(setq foo (delete element foo))'
-to be sure of changing the value of `foo'."
- (let ((p list)
- (l (cdr list)))
- (while l
- (if (equal elt (car l))
- (setcdr p (cdr l))
- (setq p (cdr p)))
- (setq l (cdr l))))
- (if (equal elt (car list))
- (cdr list)
- list))
-
-(or (fboundp 'delete)
- (fset 'delete 'zenirc-delete))
-
-\f
-(defun zenirc-force-mode-line-update (&optional all)
- "Force the mode-line of the current buffer to be redisplayed.
-With optional non-nil ALL then force then force redisplay of all mode-lines."
- (if all (save-excursion (set-buffer (other-buffer))))
- (set-buffer-modified-p (buffer-modified-p)))
-
-(or (fboundp 'force-mode-line-update)
- (fset 'force-mode-line-update 'zenirc-force-mode-line-update))
-
-\f
-(defun zenirc-member (x y)
- "Return non-nil if ELT is an element of LIST. Comparison done with `equal'.
-The value is actually the tail of LIST whose car is ELT."
- (while (and y (not (equal x (car y))))
- (setq y (cdr y)))
- y)
-
-(or (fboundp 'member)
- (fset 'member 'zenirc-member))
-
-\f
-;; In emacs 19, the window end is managed internally and getting it is done
-;; with a builtin function. In emacs 18, we have to search for it by
-;; scanning forward until point is no longer "visible".
-
-(defun zenirc-window-end (&optional window)
- "Return position at which display currently ends in WINDOW."
- (or window (setq window (selected-window)))
- (let ((orig-buf (current-buffer))
- point-max)
- (set-buffer (window-buffer window))
- (setq point-max (point-max))
- (set-buffer orig-buf)
- (cond
- ((pos-visible-in-window-p point-max window)
- point-max)
- (t
- (let ((incr (min (* (window-width window) (window-height window))
- (- point-max (window-start window))))
- (end (window-start window)))
- (while (not (zerop (setq incr (/ incr 2))))
- (while (and (< end point-max)
- (pos-visible-in-window-p end window))
- (setq end (+ end incr)))
- (setq end (- end incr)))
- (1+ end))))))
-
-(or (fboundp 'window-end)
- (fset 'window-end 'zenirc-window-end))
-
-\f
-(provide 'zenirc-18)
-
-;;; zenirc-18.el ends here
+++ /dev/null
-;;; zenirc-8ball.el --- magic 8 ball for ZenIRC
-
-;; Copyright (C) 1996 Mark S Bailen
-;; Copyright (C) 1997 Noah Friedman
-
-;; Bozo: Mark S Bailen
-;; Maintainer: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Keywords: zenirc, extensions, magic, 8ball
-;; Created: 1996-10-4
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; Code hacked from Noah's zenirc-yow.el and Eric's zenirc-random-away.el
-;; Rewritten 1997-03-03 by Noah to use zenirc-trigger.el.
-
-;;; Code:
-
-(require 'zenirc)
-(require 'zenirc-trigger)
-
-(defconst zenirc-8ball-prefix "magic 8-ball says ====>")
-
-(defconst zenirc-8ball-responses
- '("CERTAINLY"
- "DEFINITELY NOT"
- "MAYBE"
- "NO"
- "REPLY HAZY, TRY AGAIN LATER"
- "YES"))
-
-(defun zenirc-8ball ()
- (concat zenirc-8ball-prefix " "
- (nth (random (length zenirc-8ball-responses))
- zenirc-8ball-responses)))
-
-(zenirc-trigger-register "8ball" 'zenirc-8ball "\\b8 ball\\b")
-
-(provide 'zenirc-8ball)
-
-;;; zenirc-8ball.el ends here
+++ /dev/null
-;;; zenirc-away.el --- fancy away processing for ZenIRC
-
-;;; Copyright (C) 1994 Noah S. Friedman
-;;; Copyright (C) 1998 Per Persson
-
-;;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;;; Maintainer: pp@sno.pp.se
-;;; Keywords: zenirc, extensions, oink
-;;; Created: 1994-06-26
-
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, you can either send email to this
-;;; program's maintainer or write to: The Free Software Foundation,
-;;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; This package reduces the number of times you see a user's /away message.
-;;; The first time you see that user's /away, the usual thing happens.
-;;; Subsequent /away messages are suppressed until the user changes it.
-
-;;; Code:
-
-(require 'zenirc)
-
-;; 101 buckets should be a reasonable size for most people (remember to use
-;; a prime number to get good hashing characteristics).
-;; This is not the total number of nicks you can cache, but just the number
-;; of "buckets" in which nicks can be stored. If you talk to thousands
-;; and thousands of people it might help to increase the size of this
-;; table, but even then it isn't necessary.
-(defvar zenirc-away-table (make-vector 101 0)
- "Association list of nicknames and their /away messages.
-zenirc-server-301-fancy suppresses the display of /away messages if
-you've already seen them.")
-
-(defun zenirc-server-301-fancy (proc parsedmsg)
- "Display /away message if you haven't seen it already."
- (let* ((from (zenirc-extract-nick (aref parsedmsg 3)))
- (text (aref parsedmsg 4))
- (nicksym (intern (zenirc-downcase-name from) zenirc-away-table))
- (cached (and (boundp nicksym) (symbol-value nicksym))))
- (cond ((and cached (string= text cached)))
- (t
- (set nicksym text)
- (zenirc-message proc 's301 from text)))))
-
-(defun zenirc-server-301-signal-p (proc parsedmsg)
- "Allow signals on /away message if you haven't seen it already."
- (if (string= (aref parsedmsg 0) "301")
- (let* ((from (zenirc-extract-nick (aref parsedmsg 3)))
- (text (aref parsedmsg 4))
- (nicksym (intern (zenirc-downcase-name from) zenirc-away-table))
- (cached (and (boundp nicksym) (symbol-value nicksym))))
- (if (and cached (string= text cached))
- (setq zenirc-run-next-hook nil)))))
-
-(provide 'zenirc-away)
-
-(zenirc-remove-hook 'zenirc-server-301-hook 'zenirc-server-301)
-(zenirc-add-hook 'zenirc-server-301-hook 'zenirc-server-301-fancy)
-(zenirc-add-hook 'zenirc-signal-hook 'zenirc-server-301-signal-p)
-
-;;; zenirc-away.el ends here
+++ /dev/null
-;;; zenirc-bork.el --- Swedish Chef message catalog for ZenIRC
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1998 Per Persson
-
-;; Author: Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions
-;; Created: 95-07-28
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; "I am Svedish Chef of Burg. Prepaur to bey Assimilatedy."
-;;; "Borg borg borg!"
-
-;;; Code:
-(require 'zenirc)
-
-(zenirc-lang-define-catalog
- 'bork
- '((s001 . "[inffu] Yuoo ere-a vesteeng teeme-a. Bork Bork Bork!")
- (s002 . "[inffu] Yuoor IRC serfer is %s roonneeng ircd ferseeun %s")
- (s003 . "[inffu] Thees serfer ves creeted %s")
- (s200 . "[inffu] %s (%s) Leenk -> %s")
- (s202 . "[inffu] %s H.S. -> %s")
- (s203 . "[inffu] %s Hmmm -> IP eddress: %s")
- (s204 . "[inffu] %s Oper -> %s")
- (s205 . "[inffu] %s User -> %s")
- (s206 . "[inffu] %s Serf -> %s %s %s %s ")
- (s208 . "[inffu] %s %s -> %s")
- (s209 . "[inffu] %s Cles -> %s = %s")
- (s211 . "[inffu] %s lenk up %s sec\nSent: %s/%s, Rcvd: %s/%s, SendQ: %s")
- (s212 . "[inffu] %s\t->\tteemes: %s\tbytes: %s")
- (s213 . "[inffu] C hst/nme/prt/cls: %s/%s/%s/%s")
- (s214 . "[inffu] N hst/nme/prt/cls: %s/%s/%s/%s")
- (s215 . "[inffu] %s hust/neme-a/cless:\t%s/%s/%s")
- (s216 . "[inffu] K hust/userneme-a:\t%s/%s")
- (s217 . "[inffu] Q %s/%s/%s/%s/%s")
- (s218 . "[inffu] Cless: %s Peeng freq: %s Conn.freq: %s Mex Leenks: %s Sendq: %s")
- (s219 . "[inffu] Ind ooff /stets.")
- (s221 . "[inffu] Yuoor coorrent user mude-a is: %s")
- (s241 . "[inffu] LEEF hustmesk/dept:\t\t%s/%s")
- (s242 . "[inffu] %s")
- (s243 . "[inffu] %s neeckneme-a/user@hust:\t%s/%s")
- (s244 . "[inffu] HOoB hustmesk/serferneme-a:\t%s/%s")
- (s251 . "[inffu] Zeere-a ere-a %s/%s feesible-a/infeesible-a users oon %s serfers.")
- (s252 . "[inffu] Zeere-a ere-a %s mejur dveebs oonleene-a.")
- (s253 . "[inffu] Zeere-a ere-a %s unknoon cunnecshuns.")
- (s254 . "[inffu] Zeere-a ere-a %s chunnels")
- (s255 . "[inffu] Zeere-a ere-a %s cleeents und %s serfers cunnected tu thees serfer")
- (s256 . "[inffu] Edmeenistretife-a inffurmeshun fur %s:")
- (s257 . "[inffu] %s")
- (s258 . "[inffu] %s")
- (s259 . "[inffu] %s")
- (s261 . "[inffu] %s Feele-a -> %s %s")
- (s301 . "[inffu] %s is evey: %s")
- (s302 . "[inffu] userhust: %s")
- (s303 . "[inffu] Coorrently vesteeng teeme-a: %s")
- (s305 . "[inffu] Yuoo ere-a nu lunger evey")
- (s306 . "[inffu] Yuoo ere-a evey")
- (s311 . "[inffu] %s (%s@%s) is %s")
- (s312 . "[inffu] %s isves useeng serfer %s (%s)")
- (s313 . "[inffu] %s is a mejur dveeb.")
- (s314 . "[inffu] %s (%s@%s) ves %s")
- (s315 . "[inffu] Ind ooff /vhu.")
- (s317 . "[inffu] %s hes beee idle-a %s")
- (s318 . "[inffu] Ind ooff /vhuees.")
- (s319 . "[inffu] %s is on: %s")
- (s321 . "[inffu] Chunnel Users Tupeec")
- (s322 . "[inffu] %-15s %-5s %s")
- (s323 . "[inffu] Ind ooff /leest.")
- (s324 . "[inffu] Mude-a fur %s is %s %s")
- (s331 . "[inffu] %s hes nu tupeec")
- (s332 . "[inffu] %s tupeec: %s")
- (s333 . "[inffu] %s tupeec set by %s et %s")
- (s341 . "[inffu] Yuoo ere-a infeeting %s tu %s")
- (s342 . "[inffu] Yuoo ere-a eskeeng %s tu veste-a teeme-a")
- (s351 . "[inffu] Ferseeun: %s %s %s")
- (s352_header . "[inffu] Neeckneme-a Stet Neme-a ooff Chunnel User@hust (Hup cuoont Neme-a)")
- (s352 . "[inffu] %-9s %-3s %-15s %s@%s (%s)")
- (s353 . "[inffu] Users on %s: %s")
- (s364 . "[inffu] %s %s %s")
- (s365 . "[inffu] Ind ooff /leenks")
- (s367 . "[inffu] %s bun %s")
- (s368 . "[inffu] Ind ooff bunleest")
- (s371 . "[inffu] %s")
- (s372 . "[motd] %s")
- (s375 . "[motd] Messege-a Ooff Zee Dey:")
- (s376 . "[motd] End ooff mutd")
- (s381 . "[inffu] You are now a major dweeb")
- (s382 . "[inffu] Rehesheeng: %s")
- (s391 . "[inffu] Teeme-a fur serfer %s: %s")
- (s392 . "[inffu] Usereed Termeenel Hust")
- (s393 . "[inffu] %s")
- (s395 . "[inffu] Nubudy lugged oon")
- (s401 . "[inffu] Nu sooch neeck/chunnel: %s")
- (s402 . "[inffu] Nu sooch serfer: %s")
- (s403 . "[inffu] Noo suuch choonnel: %s")
- (s404 . "[inffu] Yuoo cunnut send tu %s.")
- (s405 . "[inffu] Tuu muny chunnels: %s")
- (s406 . "[inffu] Serfer hes nu recurd ooff neeckneme-a: %s")
- (s407 . "[inffu] Doopleecete-a receepients. Nu messege-a sent: %s")
- (s409 . "[inffu] Nu ooreegin speceeffied.")
- (s411 . "[inffu] Nu receepient geefee.")
- (s412 . "[inffu] Nu text tu send.")
- (s413 . "[inffu] Nu tuplefel dumeeen: %s")
- (s414 . "[inffu] Veeldcerd in tuplefel dumeeen: %s")
- (s421 . "[inffu] Thees luuks leeke-a spem tu me-a: %s. Bork Bork Bork!")
- (s422 . "[inffu] Nu mutd (fleme-a mejur dveeb leested in /edmeen)")
- (s423 . "[inffu] Nu edmeen inffu. Ignurunt mejur dveeb roonneeng serfer.")
- (s431 . "[inffu] Nu neeckneme-a geefee")
- (s432 . "[inffu] Infeleed neeckneme-a: %s")
- (s433 . "[inffu] Neeckneme-a elreedy in use-a: %s")
- (s436 . "[inffu] Neeck culleesiun keell: %s")
- (s441 . "[inffu] %s is nut oon %s")
- (s442 . "[inffu] Yuoo ere-a nut oon %s.")
- (s443 . "[inffu] %s is elreedy oon chunnel %s.")
- (s444 . "[inffu] %s is nut lugged in")
- (s445 . "[inffu] Sume-a mejur dveeb vun't let yuoo du soommun")
- (s446 . "[inffu] Sume-a mejur dveeb vun't let yuoo du /users")
- (s451 . "[inffu] Yuoo hefe-a nut regeestered")
- (s461 . "[inffu] Nut inuoogh peremeters: %s")
- (s462 . "[inffu] Yuoo mey nut reregeester")
- (s463 . "[inffu] Sume-a fesceest mejur dveeb veell nut let yuoo cunnect")
- (s464 . "[inffu] Pessvurd is incurrect")
- (s465 . "[inffu] Yuoo ere-a nut ellooed tu use-a thees serfer.")
- (s467 . "[inffu] Key fur %s is elreedy set.")
- (s471 . "[inffu] Cunnut jueen %s (user leemit reeched).")
- (s472 . "[inffu] s is un unknoon mude-a cherecter.")
- (s473 . "[inffu] Cunnut jueen %s (infeete-a oonly).")
- (s474 . "[inffu] Cunnut jueen %s (bun).")
- (s475 . "[inffu] Cunnut jueen %s (chunnel key).")
- (s481 . "[inffu] Yuoo ere-a nut a beeg inuoogh dveeb tu du thet.")
- (s482 . "[inffu] Yuoo ere-a nut a pooermunger fur %s.")
- (s483 . "[inffu] Dooh. Yuoo cunnut keell a serfer")
- (s491 . "[inffu] Nu mejur dveebs ellooed frum yuoor hust")
- (s501 . "[inffu] Unknoon user mude-a fleg")
- (s502 . "[inffu] Cunnut chunge-a mude-a fur oozeer users")
- (action . "(sent tu %s)")
- (action-echo . "(sent tu %s)")
- (connect-failed . "[irrur] Cuooldn't cunnect tu %s purt %d, reesun: %s")
- (connect-try . "[inffu] Cunnecteeng tu %s purt %d...")
- (connect-abort . "[inffu] Eburted ettempt tu cunnect tu un irc serfer.")
- (ctcp_action . "[ecshun->%s] %s %s") ; ctcp ACTION display
- (ctcp_clientinffu . "[qooery] CLIENTINFO frum %s tu %s")
- (ctcp_errmsg . "[qooery] IRRMSG frum %s tu %s")
- (ctcp_finger . "[qooery] FINGER frum %s tu %s")
- (ctcp_ping . "[qooery] PING frum %s tu %s")
- (ctcp_ping_reply . "[reply] PING: %s is %s secunds evey")
- (ctcp_source . "[qooery] SOOoRCE frum %s tu %s")
- (ctcp_time . "[qooery] TIME frum %s tu %s")
- (ctcp_userinffu . "[qooery] USERINFFU from %s to %s")
- (ctcp_version . "[qooery] FERSION frum %s tu %s")
- (debug . "[debug] %s")
- (error . "[%s] %s")
- (invite . "[inffu] %s infeetes yuoo tu %s.")
- (join_you . "[inffu] Jueening chunnel: %s")
- (join . "[inffu] %s hes jueened %s")
- (kick . "[inffu] %s hes beee keecked frum %s by %s")
- (kick_you . "[inffu] Yuoo hefe-a beee keecked frum %s by %s")
- (kill . "[inffu] Yuoo hefe-a beee keelled: %s")
- (mode . "[inffu] %s hes chunged mude-a fur %s: %s")
- (nick . "[inffu] %s hes chunged neeck tu %s")
- (newcatalog . "[inffu] Coorrent messege-a cetelug set tu %s")
- (nocatalog . "[error] Nu messege-a cetelug deffeened fur %s")
- (nosend . "[inffu] yuoo hefe-a nu coorrent feectim tu send tu")
- (notice . "{%s%s} %s")
- (notice_you . "{%s} %s")
- (now_qooerying . "[inffu] Coorrent feectim is %s.")
- (part_you . "[inffu] Leefeeng: %s (%s)") ; your part from channel message
- (part . "[inffu] %s hes lefft %s (%s)")
- (pong . "[inffu] %s seys oojnk")
- (privmsg . "<%s%s> %s")
- (privmsg_you . "*%s* %s")
- (protocol_violation . "[irrur] Zee fullooeeng leene-a is in feeuleshun ooff zee IRC prutucul.\n[irrur] Pleese-a tell zee serfer edmeenistretur:\n%s: %s")
- (query . "[qooery] frum %s tu %s cuntent %s")
- (qyery_unknown . "is un unknoon CTCP qooery")
- (query_unbalanced . "[UNBALANCED qooery] um %s tu %s cuntent %s")
- (query_unbalanced_reply . "is un unbelunced CTCP quuery")
- (quit . "[inffu] %s stupped vesteeng teeme-a: %s")
- (reply . "[reply] frum %s tu %s cuntent %s")
- (reply_unbalanced . "[UNBELENCED reply] frum %s tu %s cuntent %s")
- (send . "(sent tu %s)")
- (send-echo . "(sent tu %s)")
- (send-multi . "(sent tu %s in %d perts)")
- (send-multi-echo . "(sent tu %s in %d perts)")
- (sentinel . "\nZenIRC inded et %s")
- (server . "[serfer] %s")
- (signal . "[seegnel in %s]")
- (topic . "[inffu] %s chunged zee tupeec oon %s tu: %s")
- (wallops . "-%s- %s")
- ))
-
-(provide 'zenirc-bork)
-
-;;; zenirc-bork.el ends here
+++ /dev/null
-;;; zenirc-color.el --- color messages in zenirc
-
-;; Copyright (C) 1996 John Wiegley
-;; Copyright (C) 1996, 1998 Per Persson
-
-;; Author: John Wiegley <johnw@borland.com>
-;; Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc,extensions
-;; Created: 1996-05-22
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; This ZenIRC extensions allows you to colorize input from specific
-;;; sources. Use the "/color #victim <COLOR>" command to start
-;;; colorizing a certain victim's output.
-
-;;; Code:
-
-(require 'zenirc)
-
-(defun zenirc-color-install-message-catalogs ()
- (zenirc-lang-define-catalog 'english
- '((color-lame-args . "[info] %s: not enough arguments.")
- (color-nonexistant . "[info] %s is not an allowed color.")
- (color-not-found . "[info] %s: not found in color list."))))
-
-(defvar zenirc-color-mode nil
- "*If non-nil, then color messages fitting `zenirc-color-message-categories'.
-This is buffer-local.")
-(make-variable-buffer-local 'zenirc-color-mode)
-
-(defvar zenirc-color-region-function 'zenirc-colorize-region
- "*Function to use for coloring.")
-
-(defvar zenirc-facename-index 1
- "Used for creating new zenirc face names")
-
-(defvar zenirc-color-alist
- '()
- "*A list of elements, each of which is (REGEXP FACE), where both are
-strings. Any string containing REGEXP in the output will have it's face
-property set to FACE.")
-(make-variable-buffer-local 'zenirc-color-alist)
-
-(defvar zenirc-color-message-categories
- '(privmsg privmsg_you notice notice_you ctcp_action)
- "*ZenIRC message categories to color. This should be a list
-consisting of symbols corresponding to the type of messages in the
-message catalog which should be colored. For example, private
-messages (`privmsg') and notices (`notice') are good choices.
-
-If this variable is set to `t', then all messages are colored.
-If this variable is set to `nil', then no messages are colored.")
-(make-variable-buffer-local 'zenirc-color-message-categories)
-
-(defvar zenirc-color-nonstandard-message-categories-p nil
- "If non-nil, then color messages that are not in a standard category.
-That is, color messages which did not originate from the message catalog,
-and thus have no category symbol.")
-(make-variable-buffer-local 'zenirc-color-nonstandard-message-categories-p)
-
-;; Check whether a given color really exists as a color.
-(defun zenirc-color-name-p (color)
- (let ((version (emacs-version)))
- (cond ((string-match "XEmacs" version)
- (valid-color-name-p color))
- ((string-match "GNU" version)
- (x-color-defined-p color))
- (t
- nil))))
-\f
-(defun zenirc-color-mode (&optional prefix)
- "Enable or disable colorization of irc messages.
-
-A negative prefix argument disables this mode.
-No argument or any non-negative argument enables it.
-
-The user may also enable or disable this mode simply by setting the
-variable of the same name."
- (interactive "P")
- (cond
- ((null prefix)
- (setq zenirc-color-mode (not zenirc-color-mode)))
- ((>= (prefix-numeric-value prefix) 0)
- (setq zenirc-color-mode t))
- (t
- (setq zenirc-color-mode nil)))
- (cond ((not (interactive-p)))
- (zenirc-color-mode
- (message "zenirc-color-mode is enabled"))
- (t
- (message "zenirc-color-mode is disabled")))
- zenirc-color-mode)
-
-(defvar zenirc-face nil)
-
-(defun zenirc-colorize-region (beg end)
- (interactive "r")
- (save-match-data
- (save-excursion
- (goto-char beg)
- (mapcar
- (function
- (lambda (elem)
- (if (re-search-forward (car elem) end t)
- (put-text-property beg end 'face (car (cdr elem))))))
- zenirc-color-alist))))
-
-(defun zenirc-color-message (proc sym string)
- (and zenirc-color-mode
- (cond ((eq zenirc-color-message-categories t))
- ((null sym)
- zenirc-color-nonstandard-message-categories-p)
- ((memq sym zenirc-color-message-categories))
- (t nil))
- (funcall zenirc-color-region-function (point-min) (- (point-max) 1))))
-
-\f
-(defvar zenirc-command-color-hook '(zenirc-command-color))
-
-;; /color #victim <color>
-(defun zenirc-command-color (proc cmd)
- (let* ((arg (zenirc-parse-firstword (cdr parsedcmd)))
- (victim (format "%s" (car arg)))
- (color (cdr arg)))
- (if (or (string= "" victim)
- (string= "" color))
- (zenirc-message proc 'color-lame-args "/color")
- (if (zenirc-color-name-p color)
- (let ((newface (make-symbol
- (concat "zenirc-color-face-"
- (number-to-string zenirc-facename-index)))))
- (setq zenirc-facename-index (1+ zenirc-facename-index))
- (copy-face 'default newface)
- (set-face-foreground newface color)
- (setq zenirc-color-alist
- (cons (list victim newface)
- zenirc-color-alist)))
- (zenirc-message proc 'color-nonexistant color)))))
-\f
-(defvar zenirc-command-uncolor-hook '(zenirc-command-uncolor))
-
-;; /uncolor #victim
-(defun zenirc-command-uncolor (proc cmd)
- (let* ((arg (zenirc-parse-firstword (cdr parsedcmd)))
- (victim (format "%s" (car arg))))
- (if (string= "" victim)
- (zenirc-message proc 'color-lame-args "/uncolor"))
- (let ((pointer zenirc-color-alist) last found)
- (while pointer
- (if (string= (car (car pointer)) victim)
- (progn
- (setq found t)
- (if (= (length zenirc-color-alist) 1)
- (setq zenirc-color-alist nil)
- (if last
- (setcdr last (cdr pointer))
- (setq zenirc-color-alist (cdr pointer))))))
- (setq last pointer)
- (setq pointer (cdr pointer)))
- (if (not found)
- (zenirc-message proc 'color-not-found victim)))))
-\f
-(provide 'zenirc-color)
-
-(zenirc-add-hook 'zenirc-message-hook 'zenirc-color-message)
-
-(or (assq 'zenirc-color-mode minor-mode-alist)
- (setq minor-mode-alist
- (cons (list 'zenirc-color-mode " Zcolor") minor-mode-alist)))
-
-(zenirc-color-install-message-catalogs)
-
-;;; zenirc-color.el ends here
+++ /dev/null
-;;;
-;;;
-;;; zenirc-command-queue.el --- Schedule commands for ZenIRC.
-
-;;; Copyright (C) 1993, 1994 Ben A. Mesander
-
-;;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;;; Maintainer: ben@gnu.ai.mit.edu
-;;; Keywords: extensions
-;;; Created: 1994/07/20
-
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, you can either send email to this
-;;; program's maintainer or write to: The Free Software Foundation,
-;;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; ircd 2.8 implements something called "flood control" that knocks you
-;;; off of IRC if you send commands at a rate faster than .5 lines/sec.
-;;; This ZenIRC module implements a queue of commands to be sent to the
-;;; server and attempts to send them at a rate slower than this. In addition,
-;;; you can place lisp code to be executed in the queue (to allow for
-;;; synchronization, like "execute this lisp code after all these lines have
-;;; been sent to the server".) The queue is stored as a simple list in
-;;; zenirc-command-queue. Note that since ZenIRC is event driven, commands
-;;; may be executed no faster than the server PING time (which is usually
-;;; several minutes).
-
-;;; Code:
-
-(require 'zenirc)
-
-;;;###autoload
-(defvar zenirc-command-queue nil "List of commands to send to server")
-
-;;;###autoload
-(defvar zenirc-last-command-queue-exec '(0 0)) ; time last cmd sent to server
-
-(zenirc-add-hook 'zenirc-timer-hook 'zenirc-handle-command-queue)
-
-;;
-;; queue a command to be sent to the server
-;;
-;;;###autoload
-(defun zenirc-queue-command (command)
- (setq zenirc-command-queue (cons command zenirc-command-queue)))
-
-;;
-;; figure out how many commands to send to the server
-;;
-;;;###autoload
-(defun zenirc-handle-command-queue (proc now)
- (let ((interval (zenirc-time-diff now zenirc-last-command-queue-exec)))
- (and zenirc-command-queue
- (cond
- ;; 8 or more seconds have passed - send four commands
- ((zenirc-time< '(0 7) interval)
- (zenirc-exec-command-queue proc now 4))
- ;; six or seven seconds have passed - send three commands
- ((zenirc-time< '(0 5) interval)
- (zenirc-exec-command-queue proc now 3))
- ;; four or five seconds have passed - send two commands
- ((zenirc-time< '(0 3) interval)
- (zenirc-exec-command-queue proc now 2))
- ;; two or three seconds have passed - send one command
- ((zenirc-time< '(0 1) interval)
- (zenirc-exec-command-queue proc now 1))))))
-
-;;
-;; remove commands from the queue, and send them to the server
-;; execute NUM items from zenirc-command-queue that involve sending a message
-;; to the server - any number of lisp forms in zenirc-command-queue may be
-;; executed (lisp forms also don't reset the last exec time).
-;;
-;;;###autoload
-(defun zenirc-exec-command-queue (proc now num)
- (let ((len) (qentry)
- (sent-to-server 0))
- (while (and zenirc-command-queue (<= sent-to-server num))
- (if (listp
- (setq entry (nth (1- (setq len (length zenirc-command-queue)))
- zenirc-command-queue)))
- (eval entry)
- (process-send-string proc entry)
- (setq sent-to-server (1+ sent-to-server)
- zenirc-last-command-queue-exec now))
- ;; remove from queue
- (if (eq len 1)
- (setq zenirc-command-queue nil)
- (setcdr (nthcdr (- len 2) zenirc-command-queue) nil)))))
-
-(provide 'zenirc-command-queue)
-
-;;; End of zenirc-command-queue.el
+++ /dev/null
-;;; zenirc-complete.el --- complete commands, nicknames, etc. in ZenIRC
-
-;; Copyright (C) 1994, 1995 Noah S. Friedman
-;; Copyright (C) 1998 Per Persson
-
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, completion, extensions, oink
-;; Created: 1994-06-26
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; This code was inspired by the zenirc completion code written
-;; by Per Persson <pp@@solace.mh.se>, but is a new implementation.
-
-;; I tied into a lot of hooks to make caching of nicks, channels, servers,
-;; etc. fairly insidious. I think I've covered most of the useful ones;
-;; some server messages, like KICK, don't really need their own completion
-;; cache hooks because you can only see them on channels you've joined,
-;; and the JOIN and 353 hooks already cache all the nicknames.
-
-;; Putting the cache function on zenirc-format-nickuserhost-hook isn't
-;; very reliable. Depending on load order, other functions which add to
-;; the hook might get called first and set zenirc-run-next-hook to nil.
-;; That hook is intended just used to return a formatted nickname.
-
-;; TODO: Add new hooks to add/delete nicks to/from cache.
-
-;;; Code:
-
-\f
-(require 'zenirc)
-
-(defvar zenirc-complete-add-final-space-p t
- "*If non-nil, add a trailing space after unique completions.
-This is consistent with the behavior of completion in general, as a
-way of making it clear that the word is fully completed. However, if you
-frequently add punctuation to completed words and the additional whitespace
-is annoying, set this to nil.")
-
-(defvar zenirc-complete-display-function
- 'zenirc-complete-display-echo-area-or-popup
- "*Function to call to display matches for partial completions.
-This function receives a list of completions as returned by
-`all-completions'.")
-
-(defvar zenirc-complete-word-boundary-regexp "[ \t\n\r]"
- "*Regexp matching word boundaries in the ZenIRC buffer.
-The regular expression should probably be a single character class list of
-characters which are not considered part of a word, and thus server as a
-boundary. Whitespace is a good terminator; `#', `&', `/', etc. are not
-good choices because that would prevent the possibility of completing
-channel or command names.")
-
-(defvar zenirc-command-complete-cache-hook '(zenirc-complete-command-cache)
- "*Hook to call when a /complete-cache command is issued in ZenIRC.
-This adds a word to the list of known completions in ZenIRC.
-The syntax of the command is: /complete-cache word")
-
-(defvar zenirc-command-complete-uncache-hook '(zenirc-complete-command-uncache)
- "*Hook to call when a /complete-uncache command is issued in ZenIRC.
-This removes a word from the list of known completions in ZenIRC.
-The syntax of the command is: /complete-uncache word")
-
-;; 307 buckets should be a reasonable size for most people (remember to use
-;; a prime number to get good hashing characteristics).
-;; This is not the total number of completions you can cache, but just the
-;; number of "buckets" in which symbols can be stored. If you regularly do
-;; `/who *' and `/list *' to get all the channels and nicks on IRC,
-;; increasing the size of this table might be helpful but is not necessary.
-;; (As of March 1995, there are typically 5000 users, 2000 channels on IRC.)
-(defvar zenirc-complete-table (make-vector 307 0)
- "Accumulated completion table for ZenIRC.
-This table can include nicknames, channel names, server names, etc.
-
-Completion is case-insensitive since there cannot be two nicknames, channel
-names, etc. which differ only by case in zenirc. However, when completing
-a name uniquely, the case of the cached word is preserved.")
-(make-variable-buffer-local 'zenirc-complete-table)
-
-;; Initialize table with server commands; these are defined by IRC servers
-;; but may not necessarily have any hooks in ZenIRC. We could get these
-;; from the IRC server but it's too slow.
-(let ((l '("/admin" "/away" "/close" "/connect" "/die" "/dns" "/error"
- "/hash" "/help" "/info" "/invite" "/ison" "/join" "/kick"
- "/kill" "/links" "/list" "/lusers" "/mode" "/motd" "/names"
- "/nick" "/note" "/notice" "/oper" "/part" "/pass" "/ping"
- "/pong" "/privmsg" "/quit" "/rehash" "/restart" "/server"
- "/squit" "/stats" "/summon" "/time" "/topic" "/trace" "/user"
- "/userhost" "/users" "/version" "/wallops" "/who" "/whois"
- "/whowas")))
- (while l
- (set (intern (car l) zenirc-complete-table) (car l))
- (setq l (cdr l))))
-
-\f
-;; The following macros are caching interfaces; they do
-;; canonicalization, checking for previous caching, etc.
-
-;; Note that you can't call macros directly with apply, so you can't put
-;; these macros directly on hooks (zenirc-run-hook calls apply on the
-;; symbols in the hook). If this package were only intended to work under
-;; Emacs 19, defsubst could have been used instead.
-
-(defmacro zenirc-complete-cache (s)
- (list 'set (list 'intern
- (list 'zenirc-downcase-name s)
- 'zenirc-complete-table) s))
-
-;; You cannot actually unintern symbols from an obarray, but you can
-;; make them unbound.
-(defmacro zenirc-complete-uncache (s)
- (list 'makunbound (list 'intern
- (list 'zenirc-downcase-name s)
- 'zenirc-complete-table)))
-
-(defmacro zenirc-complete-cache-nick (s)
- (list 'zenirc-complete-cache (list 'or (list 'zenirc-extract-nick s) s)))
-
-(defmacro zenirc-complete-uncache-nick (s)
- (list 'zenirc-complete-uncache (list 'or (list 'zenirc-extract-nick s) s)))
-
-\f
-;;; Interactive interface: /complete-cache and /complete-uncache
-
-(defun zenirc-complete-command-cache (proc words)
- (cond
- ((or (null words)
- (string= "" (cdr words)))
- (zenirc-message proc 'complete-cache-no-wordlist))
- (t
- (let ((wordlist (zenirc-parse-words (cdr words))))
- (while wordlist
- (zenirc-complete-cache (car wordlist))
- (setq wordlist (cdr wordlist)))
- (zenirc-message proc 'complete-cache-added (cdr words))))))
-
-(defun zenirc-complete-command-uncache (proc words)
- (cond
- ((or (null words)
- (string= "" (cdr words)))
- (zenirc-message proc 'complete-cache-no-wordlist))
- (t
- (let ((wordlist (zenirc-parse-words (cdr words))))
- (while wordlist
- (zenirc-complete-uncache (car wordlist))
- (setq wordlist (cdr wordlist)))
- (zenirc-message proc 'complete-cache-removed (cdr words))))))
-
-\f
-(defun zenirc-complete ()
- "Complete the current word at point for ZenIRC.
-This completion cache comes from `zenirc-complete-table'.
-
-Channel names, nicknames, server names, etc. are cached as ZenIRC happens
-upon them; initially there are none to choose from."
- (interactive)
- (let* ((completion-ignore-case t)
- (bow (save-excursion
- (if (re-search-backward zenirc-complete-word-boundary-regexp
- zenirc-process-mark t)
- (1+ (match-beginning 0))
- zenirc-process-mark)))
- (eow (save-excursion
- (if (re-search-forward zenirc-complete-word-boundary-regexp
- (point-max) t)
- (match-beginning 0)
- (point-max))))
- (orig-word (buffer-substring bow eow))
- (word (zenirc-downcase-name orig-word))
- completion-list completion)
- (cond
- ((string= word "")
- (zenirc-message nil 'complete-not-on-word))
- (t
- ;; Don't check for new commands unless actually trying to complete a
- ;; command name.
- (and (eq (string-to-char word) ?/)
- (zenirc-complete-cache-new-zenirc-commands))
- (setq completion-list
- (all-completions word zenirc-complete-table 'boundp))
- (cond
- ((null completion-list)
- (zenirc-message nil 'complete-cant-find word))
- ;; faster than (= (length completion-list) 1)
- ((null (cdr completion-list))
- (delete-region bow eow)
- (goto-char bow)
- ;; unique completion. Insert the original string, rather than the
- ;; key, in case the string has mixed case.
- (insert (symbol-value (intern (car completion-list)
- zenirc-complete-table)))
- (if zenirc-complete-add-final-space-p
- (insert " ")
- (zenirc-message nil 'complete-unique)))
- ((and (stringp (setq completion
- (try-completion word zenirc-complete-table
- 'boundp)))
- (not (string= word completion)))
- ;; This completion is just a partial match.
- ;; Don't delete partial match already typed, just add new chars.
- ;; This is to preserve the case of the letters typed so far since
- ;; no proper change in case has been decided yet.
- (goto-char eow)
- (insert (substring completion (length word))))
- ;; If we get this far, the partial completion so far is ambiguous.
- ;; If completion-auto-help (a standard user option) is non-nil, show
- ;; a table of possible completions.
- (completion-auto-help
- (funcall zenirc-complete-display-function
- (all-completions word zenirc-complete-table 'boundp)))
- (t
- (zenirc-message nil 'complete-not-unique)))))))
-
-;; Find all commands defined in ZenIRC itself, and attempt to add them to
-;; the cache. Each command FOO has a zenirc-command-FOO-hook, so look for
-;; those symbols and extract FOO. Don't actually consider them commands
-;; unless the hook is bound; zenirc itself has to intern symbols whenever
-;; it gets a command /foo, even if /foo isn't a command, and those interned
-;; symbols are nonsense.
-;; The return value of this function isn't meaningful.
-(defun zenirc-complete-cache-new-zenirc-commands ()
- ;; all-completions is vastly faster than mapatoms + a lisp function.
- (let ((completions (all-completions "zenirc-command-" obarray 'boundp))
- name)
- (save-match-data
- (while completions
- (cond
- ((string-match "^zenirc-command-\\(.*\\)-hook$" (car completions))
- (setq name (concat "/" (substring (car completions)
- (match-beginning 1)
- (match-end 1))))
- (zenirc-complete-cache name)))
- (setq completions (cdr completions))))))
-
-;; TODO: add other languages besides english
-(defun zenirc-complete-install-message-catalogs ()
- (zenirc-lang-define-catalog 'english
- '((complete-cache-no-wordlist . "[error] No completion cache.")
- (complete-cache-added . "[info] Added to completion cache: %s")
- (complete-cache-removed . "[info] Removed from completion cache: %s")
- (complete-cache-unknown . "[error] Not in cache: %s")
- (complete-cache-known . "[info] Already in cache: %s")
- (complete-not-on-word . "No word at point")
- (complete-cant-find . "Can't find completion for \"%s\"")
- (complete-not-unique . "Next char not unique")
- (complete-unique . "Unique completion"))))
-
-\f
-;;; Various methods to display completions
-
-(defun zenirc-complete-display-traditional (completions)
- (with-output-to-temp-buffer " *Completions*"
- ;; Since we're not using the minibuffer for completions, don't do
- ;; the fancy completion setup emacs 19 uses to make mouse clicks
- ;; return a completion; it just doesn't work here. Bind
- ;; completion-setup-hook to nil.
- (let (completion-setup-hook)
- (display-completion-list completions))))
-
-;; This is similar to zenirc-complete-display-in-traditional except that
-;; the new window is created by taking screen space from the zenirc window,
-;; rather than stealing some other buffer's window. Plus, the window is
-;; made no larger than necessary to display all completions, with half the
-;; zenirc window height being the maximum allowed.
-(defun zenirc-complete-display-in-popup (completions)
- (let* ((orig-buffer (current-buffer))
- (orig-win (selected-window))
- (buf (get-buffer-create " *Completions*"))
- (win (get-buffer-window buf))
- (lines 0))
- (unwind-protect
- (progn
- (set-buffer buf)
- (erase-buffer)
- (let ((standard-output buf)
- (completion-setup-hook nil))
- (display-completion-list completions))
-
- ;; count number of lines
- (goto-char (point-min))
- (save-match-data
- (while (search-forward "\n" nil t)
- (setq lines (1+ lines))))
-
- (cond ((null win)
- (split-window orig-win
- (max (/ (window-height) 2)
- (- (window-height) lines)))
- (select-window (next-window))
- (switch-to-buffer buf)
- (goto-char (point-min)))))
- (select-window orig-win)
- (set-buffer orig-buffer))))
-
-;; Always display completions in the minibuffer. Note that excessively
-;; long lines will get truncated.
-(defun zenirc-complete-display-in-echo-area (completions)
- (message "%s" (mapconcat 'identity completions " ")))
-
-;; Display completions in the minibuffer if it will fit.
-;; Otherwise, use traditional completion display.
-(defun zenirc-complete-display-echo-area-or-traditional (completions)
- (let ((s (mapconcat 'identity completions " ")))
- (if (> (length s) (window-width (minibuffer-window)))
- (zenirc-complete-display-traditional completions)
- (message "%s" s))))
-
-;; Display completions in the minibuffer if it will fit.
-;; Otherwise, use popup completion display.
-(defun zenirc-complete-display-echo-area-or-popup (completions)
- (let ((s (mapconcat 'identity completions " ")))
- (if (> (length s) (window-width (minibuffer-window)))
- (zenirc-complete-display-in-popup completions)
- (message "%s" s))))
-
-\f
-;;; Cache nick and channel from invitations
-
-(defun zenirc-complete-cache-INVITE (proc parsedmsg)
- (zenirc-complete-cache-nick (aref parsedmsg 1))
- (zenirc-complete-cache (aref parsedmsg 3)))
-
-(zenirc-add-hook 'zenirc-server-INVITE-hook 'zenirc-complete-cache-INVITE)
-
-\f
-;; Cache nick and channel from JOIN replies.
-
-(defun zenirc-complete-cache-JOIN (proc parsedmsg)
- (zenirc-complete-cache-nick (aref parsedmsg 1))
- (if (string-match "\a" (aref parsedmsg 2))
- (zenirc-complete-cache (substring (aref parsedmsg 2) 0
- (- (match-end 0) 1)))
- (zenirc-complete-cache (aref parsedmsg 2))))
-
-(zenirc-add-hook 'zenirc-server-JOIN-hook 'zenirc-complete-cache-JOIN)
-
-\f
-;; Cache new nick from NICK change.
-
-(defun zenirc-complete-cache-NICK (proc parsedmsg)
- (zenirc-complete-cache-nick (aref parsedmsg 2)))
-
-(zenirc-add-hook 'zenirc-server-NICK-hook 'zenirc-complete-cache-NICK)
-
-\f
-;; Cache nick and channel from PRIVMSGs and NOTICEs
-
-(defun zenirc-complete-cache-msg (proc parsedmsg)
- (zenirc-complete-cache-nick (aref parsedmsg 1))
- (zenirc-complete-cache (aref parsedmsg 2)))
-
-(zenirc-add-hook 'zenirc-server-PRIVMSG-hook 'zenirc-complete-cache-msg)
-(zenirc-add-hook 'zenirc-server-NOTICE-hook 'zenirc-complete-cache-msg)
-
-\f
-;; [312] Cache nick and server names from /whois replies
-
-(defun zenirc-complete-cache-312 (proc parsedmsg)
- (zenirc-complete-cache-nick (aref parsedmsg 3))
- (zenirc-complete-cache (aref parsedmsg 4)))
-
-(zenirc-add-hook 'zenirc-server-312-hook 'zenirc-complete-cache-312)
-
-\f
-;; [319] Cache channel list from /whois replies
-
-(defun zenirc-complete-cache-319 (proc parsedmsg)
- (save-match-data
- (let ((str (aref parsedmsg 4))
- chan)
- (while (string-match "\\(#\\|&\\)\\([^ \t#&]*\\)" str)
- (setq chan (substring str (match-beginning 1) (match-end 2)))
- (zenirc-complete-cache chan)
- (setq str (substring str (match-end 2)))))))
-
-(zenirc-add-hook 'zenirc-server-319-hook 'zenirc-complete-cache-319)
-
-\f
-;; [322] Cache channel names from /list replies
-
-(defun zenirc-complete-cache-322 (proc parsedmsg)
- ;; Channel `*' means private (we don't know the name); don't cache that.
- (or (string= (aref parsedmsg 3) "*")
- (zenirc-complete-cache (aref parsedmsg 3))))
-
-(zenirc-add-hook 'zenirc-server-322-hook 'zenirc-complete-cache-322)
-
-\f
-;; [352] Cache nick, server, and channel names from /who replies
-
-(defun zenirc-complete-cache-352 (proc parsedmsg)
- (zenirc-complete-cache (aref parsedmsg 3))
- (zenirc-complete-cache (aref parsedmsg 6))
- (zenirc-complete-cache-nick (aref parsedmsg 7)))
-
-(zenirc-add-hook 'zenirc-server-352-hook 'zenirc-complete-cache-352)
-
-\f
-;; [353] Cache nicknames from list after channel join (or NAMES command)
-
-(defun zenirc-complete-cache-353 (proc parsedmsg)
- (save-match-data
- (let ((str (aref parsedmsg 5))
- name)
- (while (string-match "\\([^ \t@]+\\)" str)
- (setq name (substring str (match-beginning 1) (match-end 1)))
- ;; I think it's safe not to use zenirc-complete-cache-nick here
- ;; because the supplied nicks here don't include !user@host.
- (zenirc-complete-cache name)
- (setq str (substring str (match-end 1)))))))
-
-(zenirc-add-hook 'zenirc-server-353-hook 'zenirc-complete-cache-353)
-
-\f
-;; [401] Remove invalid nick or channel from cache
-;; [402] Remove invalid server from cache
-;; [403] (No such channel) remove channel from cache
-
-(defun zenirc-complete-uncache-40x (proc parsedmsg)
- (zenirc-complete-uncache-nick (aref parsedmsg 3)))
-
-;; I chose not enable these hooks for now, although I defined the function,
-;; because nicks often go away due to netsplits, and uncaching them is
-;; simply annoying. Perhaps people will give feedback to the contrary.
-;(zenirc-add-hook 'zenirc-server-401-hook 'zenirc-complete-uncache-40x)
-;(zenirc-add-hook 'zenirc-server-403-hook 'zenirc-complete-uncache-40x)
-;(zenirc-add-hook 'zenirc-server-402-hook 'zenirc-complete-uncache-40x)
-
-\f
-(provide 'zenirc-complete)
-
-(define-key zenirc-mode-map "\t" 'zenirc-complete)
-(zenirc-complete-install-message-catalogs)
-
-;; zenirc-complete.el ends here
+++ /dev/null
-;;;
-;;;
-;;; zenirc-ctcp-flood.el --- aggresively boze at people with CTCP
-
-;;; Copyright (C) 1993, 1994 Ben A. Mesander
-
-;;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;;; Maintainer: ben@gnu.ai.mit.edu
-;;; Keywords: extensions
-;;; Created: 1993/06/03
-
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, you can either send email to this
-;;; program's maintainer or write to: The Free Software Foundation,
-;;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; Code:
-
-(require 'zenirc)
-
-(defun zenirc-ctcp-flood (target number)
- (interactive "sTarget: \nnNumber of times: ")
- (let ((i 0) (proc (get-buffer-process (current-buffer))))
- (while (< i number)
- (setq i (1+ i))
- (process-send-string
- proc (concat "PRIVMSG " target ","target ","target ","target ","target ","target ","target ","target ","target ","target " :\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\C-aA\C-a\n")))))
-
-(provide 'zenirc-ctcp-flood)
\ No newline at end of file
+++ /dev/null
-;;; zenirc-dcc.el --- CTCP DCC module for ZenIRC
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1995 Noah S. Friedman
-;; Copyright (C) 1998 Per Persson
-
-;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Noah Friedman <friedman@prep.ai.mit.edu>
-;; Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, extensions
-;; Created: 1994-01-23
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; DCC `send' isn't yet implemented because emacs does not provide server
-;; sockets. One way to get around this would be to write a small C or perl
-;; program to do the listening and interface it with emacs.
-
-;; This file is divided into 4 sections:
-;; * Variables related to all DCC operations
-;; * Misc utility macros and functions
-;; * Interactive command handling
-;; * Server message handling (i.e. messages from remote users)
-;; * GET handling
-;; * CHAT handling
-
-;;; Code:
-
-(require 'zenirc)
-
-;; zenirc-dcc-alist looks like:
-;; (("nick!user@host" GET proc-or-nil ip-address port size filename)
-;; ("nick!user@host" CHAT proc-or-nil ip-address port))
-(defvar zenirc-dcc-alist nil)
-
-(defvar zenirc-verbose-dcc t)
-
-;; This function takes all the usual args as open-network-stream, plus one
-;; more: the entry data from zenirc-dcc-alist for this particular process.
-;; Emacs 18 cannot open-network-stream on IP numbers, so instead the
-;; hostname from the nick must be used; of course, these may not equivalent,
-;; but there's nothing that can be done about that. Use emacs 19.
-(defvar zenirc-dcc-connect-function 'zenirc-dcc-open-network-stream)
-
-\f
-;;; Section 2: Misc macros and utility functions
-
-(defmacro zenirc-dcc-catalog-entry (sym)
- `(zenirc-lang-retrieve-catalog-entry ,sym))
-
-(defun zenirc-dcc-install-message-catalogs ()
- (zenirc-lang-define-catalog 'english
- '((dcc-chat-discarded . "[dcc] note: previous chat request from %s discarded.\n")
- (dcc-chat-ended . "[dcc] chat with %s ended %s: %s\n")
- (dcc-chat-no-request . "[dcc] chat request from %s not found.\n")
- (dcc-chat-offered . "[dcc] chat offered by %s\n")
- (dcc-chat-privmsg . "=%s= %s\n")
- (dcc-closed . "[dcc] Closed %s from %s%s\n")
- (dcc-command-undefined . "[dcc] no such subcommand: %s\n")
- (dcc-ctcp-errmsg . "`%s' is not a DCC subcommand known to this client.")
- (dcc-ctcp-unknown . "[info] unknown dcc subcommand `%s' from %s\n")
- (dcc-get-bytes-received . "[dcc] %s: %d bytes received.")
- (dcc-get-complete . "[dcc] file %s transfer complete (%d bytes).\n")
- (dcc-get-file-exists . "[dcc] File %s exists. Overwrite? ")
- (dcc-get-file-too-long . "[dcc] %s: File longer than sender claimed; aborting transfer.")
- (dcc-get-filename . "[dcc] Local filename (default %s): ")
- (dcc-get-notfound . "[error] %s hasn't offered %s for DCC transfer.\n")
- (dcc-list-end . "[dcc] End of list.\n")
- (dcc-list-head . "[dcc] From Type Active Size Filename\n")
- (dcc-list-item . "[dcc] %-9s %4s %-6s %4s %s\n")
- (dcc-list-line . "[dcc] ---- ---- ------ ---- --------\n")
- (dcc-malformed . "[dcc] error: %s sent malformed `%s' request: %s\n")
- (dcc-privileged-port . "[dcc] possibly bogus request: %s is a privileged port.\n")
- (dcc-request-bogus . "[dcc] bogus dcc `%s' from user %s\n")
- (dcc-send-offered . "[dcc] file %s offered by user %s (size %s)\n")
- )))
-
-;; Return the elt of alist which contains nick and type, e.g.
-;; (zenirc-dcc-member "noah!friedman@prep.ai.mit.edu" 'CHAT zenirc-dcc-alist)
-;; => ("noah!friedman@prep.ai.mit.edu" CHAT <proc> <ipaddr> <port>)
-(defun zenirc-dcc-member (nick type &optional alist)
- (or alist (setq alist zenirc-dcc-alist))
- (let ((nicklen (length nick))
- (nickuserhostp (save-match-data
- (string-match "!" nick)))
- (elt nil)
- (result nil))
- (while alist
- (setq elt (car alist))
- (setq alist (cdr alist))
- (cond ((and nickuserhostp
- (eq (car (cdr elt)) type)
- (zenirc-names-equal-p (car elt) nick))
- (setq result elt)
- (setq alist nil))
- ((and (zenirc-names-equal-p (zenirc-extract-nick (car elt)) nick)
- (eq (car (cdr elt)) type))
- (setq result elt)
- (setq alist nil))))
- result))
-
-;; msa wrote this nifty little frob to convert an n-byte integer to a packed
-;; string.
-(defun zenirc-packed-int (value count)
- (if (> count 0)
- (concat (zenirc-packed-int (/ value 256) (1- count))
- (char-to-string (% value 256)))
- ""))
-
-(defun zenirc-dcc-open-network-stream (procname buffer addr port entry)
- (and (string-lessp emacs-version "19")
- (setq addr (zenirc-extract-host (car entry))))
- (open-network-stream procname buffer addr port))
-
-\f
-;;; Section 3: Interactive command handling
-
-(defvar zenirc-command-dcc-hook '(zenirc-command-dcc))
-
-(defvar zenirc-dcc-get-default-directory nil
- "*Default directory for incoming DCC file transfers.
-If this is nil, then the current value of `default-directory' is used.")
-
-;; parser for /dcc command. This figures out the dcc subcommand and calls
-;; the appropriate routine to handle it.
-;; The function dispatched should be named "zenirc-dcc-do-FOO-command",
-;; where FOO is one of `close', `get', `list', etc.
-(defun zenirc-command-dcc (proc parsedcmd)
- (let* ((cmd (zenirc-parse-firstword (cdr parsedcmd)))
- (fn (intern-soft (concat "zenirc-dcc-do-" (car cmd) "-command"))))
- (if (and fn (fboundp fn))
- (funcall fn proc cmd)
- (zenirc-message proc 'dcc-command-undefined (car cmd)))))
-
-(defun zenirc-dcc-do-chat-command (proc subcommand)
- (let* ((nick (car (zenirc-parse-firstword (cdr subcommand))))
- (elt (zenirc-dcc-member nick 'CHAT)))
- (if elt
- (zenirc-dcc-chat elt proc)
- (zenirc-message proc 'dcc-chat-no-request nick))))
-
-;; /dcc close type nick
-;; both type and nick are optional, but type must be specified if nick is.
-(defun zenirc-dcc-do-close-command (proc subcommand)
- (let* ((tmp (zenirc-parse-n-words 2 (cdr subcommand)))
- (type (if (string= "" (car tmp))
- nil
- (intern (upcase (car tmp)))))
- (nick (car (cdr tmp)))
- (alist zenirc-dcc-alist)
- (elt nil))
- (while alist
- (setq elt (car alist))
- (setq alist (cdr alist))
-
- (cond
- ;; Skip this elt if a type was specified and this one doesn't match.
- ((and type
- (not (eq (car (cdr elt)) type))))
- ((or (string= nick "")
- (zenirc-names-equal-p nick (zenirc-extract-nick (car elt))))
-
- ;; Delete process if it exists.
- (setq tmp (nth 2 elt))
- (and (processp tmp)
- (delete-process tmp))
-
- (setq zenirc-dcc-alist (delq elt zenirc-dcc-alist))
- (zenirc-message proc 'dcc-closed
- (car (cdr elt))
- (zenirc-extract-nick (car elt))
- (if (eq (car (cdr elt)) 'SEND)
- (concat ", file " (nth 6 elt))
- "")))))))
-
-(defun zenirc-dcc-do-get-command (proc parsedcmd)
- (let* ((tmp (zenirc-parse-n-words 2 (cdr parsedcmd)))
- (nick (car tmp))
- (filename (car (cdr tmp)))
- (elt (zenirc-dcc-member nick 'GET)))
- (if elt
- (let* ((msg (zenirc-dcc-catalog-entry 'dcc-get-filename))
- (file (read-file-name (format msg (file-name-nondirectory
- filename))
- (or zenirc-dcc-get-default-directory
- default-directory)
- (file-name-nondirectory filename))))
-
- (cond ((file-exists-p file)
- (if (yes-or-no-p (format (zenirc-dcc-catalog-entry
- 'dcc-get-file-exists)
- file))
- (zenirc-dcc-get-file elt file proc)
- (zenirc-message proc 'dcc-get-cmd-aborted
- nick filename)))
- (t
- (zenirc-dcc-get-file elt file proc))))
- (zenirc-message proc 'dcc-get-notfound nick filename))))
-
-;; this is the handler for the /dcc list command - it lists the current state
-;; of zenirc-dcc-alist in an easy to read manner.
-(defun zenirc-dcc-do-list-command (proc parsedcmd)
- (let ((alist zenirc-dcc-alist)
- size elt)
- (zenirc-message proc 'dcc-list-head)
- (zenirc-message proc 'dcc-list-line)
- (while alist
- (setq elt (car alist))
- (setq alist (cdr alist))
-
- (setq size (nth 5 elt))
- (cond ((null size)
- (setq size ""))
- ((string= size "")
- (setq size "unknown")))
-
- (zenirc-message proc 'dcc-list-item
- (zenirc-extract-nick (car elt))
- (nth 1 elt)
- (if (processp (nth 2 elt))
- (process-status (nth 2 elt))
- "no")
- size
- (or (nth 6 elt) "")))
- (zenirc-message proc 'dcc-list-end)))
-
-\f
-;;; Section 4: Server message handling (i.e. messages from remote users)
-
-;; Hook variable for CTCP DCC queries
-(defvar zenirc-ctcp-query-DCC-hook '(zenirc-ctcp-query-DCC))
-
-(defvar zenirc-dcc-query-handler-alist
- '(("SEND" . zenirc-dcc-handle-ctcp-send)
- ("CHAT" . zenirc-dcc-handle-ctcp-chat)))
-
-;; zenirc-ctcp-query-DCC is the function called when a CTCP DCC
-;; request is detected by the client. It examines the DCC subcommand,
-;; and either calls the appropriate routine for that subcommand, or
-;; sends a ctcp errmsg to the sender.
-(defun zenirc-ctcp-query-DCC (proc parsedctcp from to)
- (let* ((cmd (car (zenirc-parse-firstword (cdr parsedctcp))))
- (handler (cdr (assoc cmd zenirc-dcc-query-handler-alist))))
- (if handler
- (funcall handler proc parsedctcp from to)
- (let ((fmt (zenirc-dcc-catalog-entry 'dcc-ctcp-errmsg)))
- (zenirc-ctcp-errmsg nil from to (concat "DCC " cmd)
- (format fmt cmd) proc)
- (and zenirc-verbose-ctcp
- (zenirc-message proc 'dcc-ctcp-unknown cmd
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)))))))
-
-;; This is called a CTCP DCC SEND subcommand is sent to the client.
-;; It extracts the information about the dcc request and adds it to
-;; zenirc-dcc-alist.
-(defun zenirc-dcc-handle-ctcp-send (proc parsedctcp from to)
- (let ((str (cdr parsedctcp))
- (sender (zenirc-run-hook 'zenirc-format-nickuserhost-hook from))
- ;; filename ipaddr port size(optional)
- (regexp "^SEND \\([^ ]+\\) \\([0-9]+\\) \\([0-9]+\\) *\\([0-9]*\\)")
- localfile filename ip port size)
- (if (not (zenirc-names-equal-p to zenirc-nick t))
- ;; DCC SEND requests must be sent to you, and you alone.
- (zenirc-message proc 'dcc-request-bogus 'SEND sender)
- (cond
- ((string-match regexp str)
- (setq filename (zenirc-match-string 1 str))
- (setq ip (zenirc-match-string 2 str))
- (setq port (zenirc-match-string 3 str))
- (setq size (zenirc-match-string 4 str))
-
- ;; a warning really should also be sent
- ;; if the ip address != the host the dcc sender is on.
- (zenirc-message proc 'dcc-send-offered filename sender
- (if (string= size "") "unknown" size))
-
- (and (< (string-to-int port) 1025)
- (zenirc-message proc 'dcc-privileged-port port))
-
- (setq zenirc-dcc-alist
- (cons (list from 'GET nil ip port size filename)
- zenirc-dcc-alist)))
- (t
- (zenirc-message proc 'dcc-malformed sender 'SEND str))))))
-
-(defun zenirc-dcc-handle-ctcp-chat (proc parsedctcp from to)
- (let* ((str (cdr parsedctcp))
- (sender (zenirc-run-hook 'zenirc-format-nickuserhost-hook from))
- ;; ipaddr port
- (regexp "^CHAT +chat +\\([0-9.]+\\) +\\([0-9]+\\)")
- (elt (zenirc-dcc-member from 'CHAT))
- ip port)
- ;; DCC CHAT requests must be sent to you, and you alone.
- (if (not (zenirc-names-equal-p to zenirc-nick t))
- (zenirc-message proc 'dcc-request-bogus 'CHAT sender)
- (cond ((string-match regexp str)
- (setq ip (zenirc-match-string 1 str))
- (setq port (zenirc-match-string 2 str))
-
- ;; A warning really should also be sent if the ip
- ;; address != the host the dcc sender is on.
- (zenirc-message proc 'dcc-chat-offered sender)
- (and (< (string-to-int port) 1025)
- (zenirc-message proc 'dcc-privileged-port port))
-
- (cond (elt
- (setcar (nthcdr 3 elt) ip)
- (setcar (nthcdr 4 elt) port)
- (zenirc-message proc 'dcc-chat-discarded sender))
- (t
- (setq zenirc-dcc-alist (cons (list from 'CHAT nil ip port)
- zenirc-dcc-alist)))))
- (t
- (zenirc-message proc 'dcc-malformed sender 'CHAT str))))))
-
-\f
-;;; Section 5: GET handling
-
-;; zenirc-dcc-get-file does the work of setting up a transfer from the remote
-;; client to the local one over a tcp connection. This involves setting
-;; up a process filter and a process sentinel, and making the connection.
-(defun zenirc-dcc-get-file (entry file parent-proc)
- (let* ((obuf (current-buffer))
- (buffer (generate-new-buffer (file-name-nondirectory file)))
- proc)
- (unwind-protect
- (progn
- (set-buffer buffer)
- (fundamental-mode)
- (setq mode-line-process '(":%s"))
- (setq buffer-read-only t)
- (set-visited-file-name file)
- (make-local-variable 'zenirc-dcc-parent-process)
- (setq zenirc-dcc-parent-process parent-proc)
- (make-local-variable 'zenirc-dcc-entry-data)
- (setq zenirc-dcc-entry-data entry)
- (make-local-variable 'zenirc-dcc-size)
- (setq zenirc-dcc-size (nth 5 entry))
- (make-local-variable 'zenirc-dcc-byte-count)
- (setq zenirc-dcc-byte-count 0)
- (setq proc
- (funcall zenirc-dcc-connect-function
- "zenirc-dcc-get" buffer
- (nth 3 entry) (string-to-int (nth 4 entry)) entry))
- (set-process-buffer proc buffer)
- (set-process-filter proc 'zenirc-dcc-get-filter)
- (set-process-sentinel proc 'zenirc-dcc-get-sentinel)
- (setcar (nthcdr 2 entry) proc))
- (set-buffer obuf))))
-
-;; This is the process filter for transfers from other clients to this one.
-;; It reads incoming bytes from the network and stores them in the DCC
-;; buffer, and sends back the replies after each block of data per the DCC
-;; protocol spec. Well not really. We write back a reply after each read,
-;; rather than every 1024 byte block, but nobody seems to care.
-(defun zenirc-dcc-get-filter (proc str)
- (let ((obuf (current-buffer)))
- (unwind-protect
- (progn
- (set-buffer (process-buffer proc))
- (setq buffer-read-only nil)
- (goto-char (point-max))
- (insert str)
-
- (setq zenirc-dcc-byte-count (+ (length str) zenirc-dcc-byte-count))
- (and zenirc-verbose-dcc
- (zenirc-message nil 'dcc-get-bytes-received
- (file-name-nondirectory buffer-file-name)
- zenirc-dcc-byte-count))
- (cond
- ((and (numberp zenirc-dcc-size)
- (> zenirc-dcc-byte-count zenirc-dcc-size))
- (zenirc-message nil 'dcc-get-file-too-long
- (file-name-nondirectory buffer-file-name))
- (delete-process proc))
- (t
- (process-send-string
- proc (zenirc-packed-int zenirc-dcc-byte-count 4)))))
- (setq buffer-read-only t)
- (set-buffer obuf))))
-
-
-;; This is the process sentinel for CTCP DCC SEND connections.
-;; It shuts down the connection and notifies the user that the
-;; transfer is complete.
-(defun zenirc-dcc-get-sentinel (proc event)
- (let ((obuf (current-buffer)))
- (unwind-protect
- (progn
- (set-buffer (process-buffer proc))
- (delete-process proc)
- (setq buffer-read-only nil)
- (setq zenirc-dcc-alist (delq zenirc-dcc-entry-data zenirc-dcc-alist))
- (zenirc-message zenirc-dcc-parent-process 'dcc-get-complete
- (file-name-nondirectory buffer-file-name)
- (buffer-size))
- (save-buffer))
- (set-buffer obuf))))
-
-\f
-;;; Section 6: CHAT handling
-
-(defvar zenirc-dcc-chat-buffer-name-format "ZenIRC-DCC-%s")
-
-(defvar zenirc-dcc-chat-mode-hook nil)
-(defvar zenirc-dcc-chat-connect-hook nil)
-(defvar zenirc-dcc-chat-exit-hook nil)
-
-(defvar zenirc-dcc-chat-filter-hook '(zenirc-dcc-chat-parse-output)
- "*Hook to run after doing parsing (and possible insertion) of DCC messages.")
-
-(defvar zenirc-dcc-chat-mode-map '()
- "Sparse keymap for zenirc-dcc-mode")
-(cond ((not zenirc-dcc-chat-mode-map)
- (setq zenirc-dcc-chat-mode-map (make-sparse-keymap))
- (define-key zenirc-dcc-chat-mode-map "\n" 'zenirc-dcc-chat-send-line)
- (define-key zenirc-dcc-chat-mode-map "\r" 'zenirc-dcc-chat-send-line)))
-
-(defun zenirc-dcc-chat-mode ()
- "Major mode for wasting time via DCC chat."
- (interactive)
- (kill-all-local-variables)
- (setq mode-line-process '(":%s"))
- (setq mode-name "ZenIRC-DCC-Chat")
- (setq major-mode 'zenirc-dcc-chat-mode)
- (use-local-map zenirc-dcc-chat-mode-map)
- (zenirc-run-hook 'zenirc-dcc-chat-mode-hook))
-
-(defun zenirc-dcc-chat-send-line ()
- "Send current line to other client."
- (interactive)
- (end-of-line)
- (insert "\n")
- (let ((proc (get-buffer-process (current-buffer)))
- (string (buffer-substring zenirc-process-mark (point))))
- (set-marker zenirc-process-mark (point))
- (process-send-string proc string)))
-
-(defun zenirc-dcc-chat (entry parent-proc)
- (let* ((nick (zenirc-extract-nick (car entry)))
- (buffer (generate-new-buffer
- (format zenirc-dcc-chat-buffer-name-format
- (zenirc-extract-nick (car entry)))))
- proc)
- (pop-to-buffer buffer)
- (zenirc-dcc-chat-mode)
- (make-local-variable 'zenirc-dcc-parent-process)
- (setq zenirc-dcc-parent-process parent-proc)
- (make-local-variable 'zenirc-dcc-from)
- (setq zenirc-dcc-from nick)
- (make-local-variable 'zenirc-dcc-entry-data)
- (setq zenirc-dcc-entry-data entry)
- (make-local-variable 'zenirc-dcc-unprocessed-output)
- (setq zenirc-dcc-unprocessed-output "")
- (make-local-variable 'zenirc-process-mark)
- (setq zenirc-process-mark (set-marker (make-marker) (point-max)))
- (setq proc
- (funcall zenirc-dcc-connect-function
- "zenirc-dcc-chat" buffer
- (nth 3 entry) (string-to-int (nth 4 entry)) entry))
- (set-process-buffer proc buffer)
- (set-process-filter proc 'zenirc-dcc-chat-filter)
- (set-process-sentinel proc 'zenirc-dcc-chat-sentinel)
- (setcar (nthcdr 2 entry) proc)
- (zenirc-run-hook 'zenirc-dcc-chat-connect-hook proc)))
-
-(defun zenirc-dcc-chat-filter (proc str)
- (let ((orig-buffer (current-buffer)))
- (unwind-protect
- (progn
- (set-buffer (process-buffer proc))
- (setq zenirc-dcc-unprocessed-output
- (concat zenirc-dcc-unprocessed-output str))
- (zenirc-run-hook 'zenirc-dcc-chat-filter-hook proc
- zenirc-dcc-unprocessed-output))
- (set-buffer orig-buffer))))
-
-(defun zenirc-dcc-chat-parse-output (proc str)
- (save-match-data
- (let ((posn 0)
- line)
- (while (string-match "\n" str posn)
- (setq line (substring str posn (match-beginning 0)))
- (setq posn (match-end 0))
- (zenirc-message proc 'dcc-chat-privmsg zenirc-dcc-from line))
- (setq zenirc-dcc-unprocessed-output (substring str posn)))))
-
-(defun zenirc-dcc-chat-sentinel (proc event)
- (let ((buf (current-buffer))
- (tm (current-time-string)))
- (unwind-protect
- (progn
- (set-buffer (process-buffer proc))
- (delete-process proc)
- (setq zenirc-dcc-alist (delq zenirc-dcc-entry-data zenirc-dcc-alist))
- (zenirc-run-hook 'zenirc-dcc-chat-exit-hook proc)
- (zenirc-message zenirc-dcc-parent-process 'dcc-chat-ended
- zenirc-dcc-from tm event)
- (zenirc-message proc 'dcc-chat-ended
- zenirc-dcc-from tm event))
- (set-buffer buf))))
-
-\f
-(provide 'zenirc-dcc)
-
-(zenirc-dcc-install-message-catalogs)
-
-;;; zenirc-dcc.el ends here
+++ /dev/null
-;;; zenirc-doto.el --- do things to who, list, links replies
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1998 Per Persson
-
-;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions
-;; Created: 1994/07/22
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; Code:
-
-(require 'zenirc)
-(require 'zenirc-command-queue)
-
-(defun zenirc-doto-install-message-catalogs ()
- (zenirc-lang-define-catalog 'english
- '((doto-lame-args . "[info] %s: lame argument(s)."))))
-
-\f
-;; WHO reply handlers
-;; example: send everyone on IRC a DCC chat request from the
-;; telnet port of a pentagon computer.
-;; /dotowho 0 (process-send-string proc (concat "PRIVMSG " (aref whoreply 7)
-;; " :\C-aDCC CHAT chat 2261613455 23\C-a\n"))
-
-;; 315 (end of who) handler
-(defun zenirc-do-to-who-end (proc parsedmsg)
- (zenirc-delete-hook 'zenirc-server-352-hook 'zenirc-do-to-who)
- (zenirc-delete-hook 'zenirc-server-315-hook 'zenirc-do-to-who-end)
- (setq zenirc-run-next-hook nil))
-
-;; 352 (who reply) handler
-;; proc is the zenirc process.
-;; whoreply is the parsed server message array.
-(defun zenirc-do-to-who (proc whoreply)
- (zenirc-do-to-who-function proc whoreply)
- (setq zenirc-run-next-hook nil))
-
-;; command interface
-;; /dotowho #victims (lisp-form)
-;; lisp-form can use "proc", which will be set to the zenirc process
-;; and "whoreply" which will be a parsed servermessage array containing
-;; a 352 reply.
-(defvar zenirc-command-dotowho-hook '(zenirc-command-dotowho))
-
-(defun zenirc-command-dotowho (proc parsedcmd)
- (let* ((arg (zenirc-parse-firstword (cdr parsedcmd)))
- (victim (car arg))
- (command (cdr arg)))
- (if (or (string= "" victim)
- (string= "" command))
- (zenirc-message proc 'doto-lame-args "/dotowho"))
- (zenirc-dotowho victim (read command))))
-
-;; programmatic interface
-(defun zenirc-dotowho (victim command)
- (fset 'zenirc-do-to-who-function (list 'lambda '(proc whoreply) command))
- (zenirc-add-hook 'zenirc-server-315-hook 'zenirc-do-to-who-end)
- (zenirc-add-hook 'zenirc-server-352-hook 'zenirc-do-to-who)
- (process-send-string proc (concat "WHO " victim "\n")))
-
-\f
-;; example of using who
-;; /op channel - op everyone on a channel
-(defvar zenirc-op-list nil)
-
-(defvar zenirc-command-op-hook '(zenirc-command-op))
-
-(defun zenirc-command-op (proc parsedcmd)
- (let ((victim (cdr parsedcmd)))
- (if (string= victim "")
- (zenirc-message proc 'doto-lame-args "/op")
- (setq zenirc-op-list nil)
- (zenirc-dotowho
- victim
- '(if (not (string-match "@" (aref whoreply 8)))
- (setq zenirc-op-list (cons (aref whoreply 7) zenirc-op-list))))
- (zenirc-add-hook 'zenirc-server-315-hook 'zenirc-doto-op-end))))
-
-(defun zenirc-doto-op-end (proc parsedmsg)
- (let* ((channel (aref parsedmsg 3))
- (oplen (length zenirc-op-list))
- (triples (* 3 (/ oplen 3)))
- (remainder (% oplen 3))
- (i 0)
- (nicks nil))
- (while (< i triples)
- (setq nicks (concat (nth i zenirc-op-list) " "
- (nth (1+ i) zenirc-op-list) " "
- (nth (+ 2 i) zenirc-op-list) "\n"))
- (process-send-string proc (concat "mode " channel " +ooo " nicks))
- (setq i (+ 3 i)))
- (cond
- ((eq remainder 2)
- (setq nicks (concat (nth (- oplen 2) zenirc-op-list) " "
- (nth (1- oplen) zenirc-op-list) "\n"))
- (process-send-string proc (concat "mode " channel " +oo " nicks)))
- ((eq remainder 1)
- (process-send-string
- proc (concat "mode " channel " +o "
- (nth (1- oplen) zenirc-op-list) "\n"))))
- (zenirc-delete-hook 'zenirc-server-315-hook 'zenirc-op-end)))
-
-\f
-;; server link stuff
-
-;; 365 (end of links) handler
-(defun zenirc-do-to-links-end (proc parsedmsg)
- (zenirc-delete-hook 'zenirc-server-364-hook 'zenirc-do-to-links)
- (zenirc-delete-hook 'zenirc-server-365-hook 'zenirc-do-to-links-end)
- (setq zenirc-run-next-hook nil))
-
-;; 364 (links reply) handler
-;; proc is the zenirc process.
-;; linksreply is the parsed server message array.
-(defun zenirc-do-to-links (proc linksreply)
- (zenirc-do-to-links-function proc linksreply)
- (setq zenirc-run-next-hook nil))
-
-;; command interface
-;; /dotolinks (lisp-form)
-;; lisp-form can use "proc", which will be set to the zenirc process
-;; and "linksreply" which will be a parsed servermessage array containing
-;; a 364 reply.
-(defvar zenirc-command-dotolinks-hook '(zenirc-command-dotolinks))
-
-(defun zenirc-command-dotolinks (proc parsedcmd)
- (let ((arg (cdr parsedcmd)))
- (if (string= "" arg)
- (zenirc-message proc 'doto-lame-args "/dotolinks")
- (zenirc-dotolinks (read arg)))))
-
-;; programmatic interface
-(defun zenirc-dotolinks (command)
- (fset 'zenirc-do-to-links-function (list 'lambda '(proc linksreply) command))
- (zenirc-add-hook 'zenirc-server-365-hook 'zenirc-do-to-links-end)
- (zenirc-add-hook 'zenirc-server-364-hook 'zenirc-do-to-links)
- (process-send-string proc "LINKS\n"))
-
-(defvar zenirc-command-serverversions-hook '(zenirc-server-versions))
-(defun zenirc-server-versions (proc parsedcmd)
- (zenirc-dotolinks '(zenirc-queue-command (concat "VERSION "
- (aref linksreply 4)
- "\n"))))
-
-\f
-;; Do things to /list reply
-;; 321 RPL_LISTSTART
-;; 322 RPL_LIST
-;; 323 RPL_LISTEND
-;; Example: set the topic of every channel on irc to be AT&T YOU WILL
-;; while talking on #twilight_zone
-;; /dotolist (if (not (string= (aref listreply 3) "*")) (progn
-;; (zenirc-queue-command (concat "JOIN " (aref listreply 3) "\n"))
-;; (zenirc-queue-command '(setq zenirc-current-victim "#twilight_zone"))
-;; (zenirc-queue-command (concat "TOPIC " (aref listreply 3)
-;; " :AT&T YOU WILL!!!!\n")) (zenirc-queue-command (concat "PART "
-;; (aref listreply 3) "\n"))))
-
-;; 323 (end of list) handler
-(defun zenirc-do-to-list-end (proc parsedmsg)
- (zenirc-delete-hook 'zenirc-server-322-hook 'zenirc-do-to-list)
- (zenirc-delete-hook 'zenirc-server-323-hook 'zenirc-do-to-list-end)
- (setq zenirc-run-next-hook nil))
-
-;; 322 (list reply) handler
-;; proc is the zenirc process.
-;; listreply is the parsed server message array.
-(defun zenirc-do-to-list (proc listreply)
- (zenirc-do-to-list-function proc listreply)
- (setq zenirc-run-next-hook nil))
-
-;; 321 (list start) handler
-(defun zenirc-do-to-list-start (proc parsedmsg)
- (zenirc-delete-hook 'zenirc-server-321-hook 'zenirc-do-to-list-start)
- (setq zenirc-run-next-hook nil))
-
-;; command interface
-;; /dotolist (lisp-form)
-;; lisp-form can use "proc", which will be set to the zenirc process
-;; and "listreply" which will be a parsed servermessage array containing
-;; a 322 reply.
-(defvar zenirc-command-dotolist-hook '(zenirc-command-dotolist))
-
-(defun zenirc-command-dotolist (proc parsedcmd)
- (let* ((arg (cdr parsedcmd)))
- (if (string= "" arg)
- (zenirc-message proc 'doto-lame-args "/dotolist"))
- (zenirc-dotolist (read arg))))
-
-;; programmatic interface
-(defun zenirc-dotolist (command)
- (fset 'zenirc-do-to-list-function (list 'lambda '(proc listreply) command))
- (zenirc-add-hook 'zenirc-server-323-hook 'zenirc-do-to-list-end)
- (zenirc-add-hook 'zenirc-server-322-hook 'zenirc-do-to-list)
- (zenirc-add-hook 'zenirc-server-321-hook 'zenirc-do-to-list-start)
- (process-send-string proc "LIST\n"))
-
-(provide 'zenirc-doto)
-
-(zenirc-doto-install-message-catalogs)
-
-;;; End of zenirc-doto.el
+++ /dev/null
-;;; zenirc-eval.el --- join the "mi emacs es tu emacs" club
-
-;; Copyright (C) 1997, 1998 Ray Jones
-
-;; Author: Ray Jones <rjones@pobox.com>
-;; Maintainer: rjones@pobox.com
-;; Keywords: zenirc, extensions, eval, oink
-;; Created: 1998-01-09
-
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; Whip me, beat me, make my emacs calculate primes via church
-;; numerals.
-
-;; WARNING WARNING WARNING WARNING WARNING WARNING WARNING
-;;
-;; *** DO NOT RUN THIS CODE UNLESS YOU KNOW WHAT IT DOES ***
-;;
-;; Running this code could be hazardous to your emacs, your files,
-;; the machine you're using, and several other things you may not
-;; wish to expose to the ministrations of random lusers, particularly
-;; in the IRC world. You have been warned.
-;;
-;; WARNING WARNING WARNING WARNING WARNING WARNING WARNING
-
-;;; Code:
-
-(require 'zenirc)
-(require 'zenirc-trigger)
-
-(defun zenirc-eval (&optional msg)
- ;; parse out the (e)valuable bit
- (string-match "(eval \\(.*\\))" msg)
-
- ;; provide a modicum of protection from malicious parties.
- ;; NB it can be circumvented via a similar expression.
- (let ((kill-emacs-hook
- #'(lambda () (error "kill-emacs called from zenirc-eval"))))
- (condition-case err
- (let ((res (prin1-to-string (eval (read (match-string 1 msg))))))
- (if (string= "" res)
- "OJNK!"
- res))
- (error (format "Error: %s" err)))))
-
-(zenirc-trigger-register "eval" 'zenirc-eval "(eval \\(.*\\))" t)
-
-;;; zenirc-eval.el ends here.
-
+++ /dev/null
-;;;
-;;;
-;;; zenirc-example.el --- Example customizations for zenirc.el
-
-;;; Copyright (C) 1993, 1994 Ben A. Mesander
-;;; Copyright (C) 1993, 1994, 1996, 1997, 1998 Per Persson
-
-;;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;;; Per Persson <pp@sno.pp.se>
-;;; Maintainer: Per Persson <pp@sno.pp.se>
-;;; Keywords: extensions
-;;; Created: 1993/06/03
-
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, you can either send email to this
-;;; program's maintainer or write to: The Free Software Foundation,
-;;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; A good way to use this is to add something like
-;; (autoload 'zenirc "/home/pp/.zenirc-example" "Major mode to waste time" t)
-;; to your ~/.emacs file. Then edit and copy this file there. If you do that
-;; you also need to uncomment the last line of this file.
-
-;; if the autoload says ".zenirc-example", the file needs to be named
-;; ".zenirc-example.el", this is probably the best way for you to name
-;; it. (sure, go ahead and rename it, don't blame me).
-
-;; Also take a look on all the different scripts not mentioned in this file,
-;; they might give you something you'll love.
-
-;;; Code:
-
-;; this is a list of IRC servers you use
-;; it consists of servername, portnumber, password, nickname, username
-(setq zenirc-server-alist
- '(("irc.funet.fi")
- ("cs-pub.bu.edu" 6666)
- ("irc.stealth.net" 6667 nil "ben" "oedipus rpc.rexd")))
-
-;; this is what you reply to CTCP USERINFO
-(setq zenirc-userinfo "Oink.")
-
-;; this is a list of annoying things to ignore. This list ignores
-;; messages from nickserv, anything with the word "fnord" in it,
-;; messages from the major dweeb craig and everything with more then
-;; four CTCPs in it.
-(setq zenirc-ignore-list
- '("^:NickServ!Nickserv@hpsystem2.informatik.tu-muenchen.de" "fnord"
- "^:craig!craig@netsys1.netsys.com"
- "\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a"))
-
-;; zenirc can beep when it notices something,
-;; nil -> never beep
-;; t -> beep when message not seen
-;; 'always -> beep on all signals
-(setq zenirc-beep-on-signal nil)
-
-;; with zenirc-beep-on-signal turned on,
-;; this will make zenirc beep when it sees a ^G ala ircII and when you recieve
-;; a private PRIVMSG
-;(setq zenirc-signal-list '("\a"
-; "^\\([^ ]\\)* PRIVMSG [^#&+]\\([^ ]\\)* :"))
-
-;; this is how you want ZenIRC to send confirmations
-;; "nil" is no confirmation
-;; "t" is confirmation in buffer
-;; "'message" is confirmation in echo area
-(setq zenirc-send-confirmation t)
-
-;; if you want timestamps on PRIVMSG/NOTICE or not
-;; with default prefix and suffix it looks like
-;; *ben[13:31]* lets have some fun
-;; <ben#twilight_zone[13:32]> SLUGS AND KNIGHTS! SLUGS AND KNIGTS!
-(setq zenirc-timestamp nil
- zenirc-timestamp-prefix "["
- zenirc-timestamp-suffix "]")
-
-;; in ircII, the channelname isn't shown in PRIVMSGs if you're currently
-;; talking to the channel, setting zenirc-always-show-channelname to nil
-;; gives you the same effect.
-(setq zenirc-always-show-channelname nil)
-
-;; if WHOIS returns no-such-nick, setting this variable to t will make
-;; the client automaticall issue an WHOWAS command
-(setq zenirc-whowas-on-401 nil)
-
-;; setting this variable to t will make ZenIRC remove preceding whitespaces
-;; before a command, that is;
-;; /whois omnion
-;; will turn in to;
-;; /whois omnion
-;; but;
-;; oink!
-;; will turn in to;
-;; oink!
-;; yeah, there's no difference there.
-(setq zenirc-delete-preceding-whitespaces nil)
-
-;; if you want ZenIRC to send out ERRMSG on bogus CTCP queries
-(setq zenirc-send-ctcp-errmsg-on-unknown t)
-;; if you awnt ZenIRC to send out ERRMSG on unbalanced CTCP queries
-(setq zenirc-send-ctcp-errmsg-on-unbalanced t)
-
-;; if you want ZenIRC to tell you when send out CTCP replies
-(setq zenirc-verbose-ctcp t)
-
-;; what ZenIRC replies on CTCP FINGER
-(setq zenirc-fingerdata
- (format "%s <%s@%s>" (user-full-name) (user-real-login-name)
- (system-name)))
-
-;; commandkey in ZenIRC
-(setq zenirc-command-char ?/)
-
-;;; use the following to surpress AWAY info if seen more then once
-
-;(load-library "zenirc-away")
-
-;;; use the following to make ZenIRC queue commands for you, to get around
-;;; stupid flood controls
-
-;(load-library "zenirc-command-queue")
-
-;;; use the following to have tab-completion in ZenIRC
-
-;(load-library "zenirc-complete")
-
-;;; use the following to be able to act upon DCC CHAT and DCC SEND requests
-
-;(load-library "zenirc-dcc")
-
-;;; use the following to make ZenIRC fill incoming messages for you
-
-;; if ZenIRC should fill incoming lines
-;(setq zenirc-fill-mode t)
-;; if ZenIRC should fill outgoing lines
-;(setq zenirc-fill-outgoing-mode t)
-;; how ZenIRC should fill things
-;; (zenirc-wrap-region) adds zenirc-fill-prefix on each line
-;(setq zenirc-fill-region-function 'zenirc-wrap-region)
-;(setq zenirc-fill-prefix " ")
-;; (zenirc-wrap-region-dynamic) adds spaces at beginning of line,
-;; depending on length of first word
-;(setq zenirc-fill-region-function 'zenric-wrap-region-dynamic)
-;; (zenirc-wrap-region-static) adds spaces uses zenirc-fill-static
-;; columns to the left to display <nick#channel> and the rest to
-;; actual messages.
-;(setq zenirc-fill-region-function 'zenirc-wrap-region-static)
-;(setq zenirc-fill-static 26)
-;(load-library "zenirc-fill")
-
-;;; use the following to make ZenIRC format things like no-other-client
-;;; is able to. the first time a nick is seen, it's shown as
-;;; `nick!user@host'... after the first time it's just shown as `nick'
-;;; until the `user@host' part changes.
-
-;(load-library "zenirc-format")
-
-;;; use the following to get history functions on C-cC-p and C-cC-n
-
-;(load-library "zenirc-history")
-
-;;; use the following to get an ircII like /ignore command
-
-;(load-library "zenirc-ignore")
-
-;;; use the following to make ZenIRC output netsplits/netjoins nicer
-
-;(load-library "zenirc-netsplit")
-
-;;; use the following to get an ircII like /notify command
-
-;; a list of notificated people
-;(setq zenirc-notify-list
-; '("oddy" "piker" "flashman"))
-;(load-library "zenirc-notify")
-
-;;; use the following to make ZenIRC popup buffers when things happen
-
-;(load-library "zenirc-popup")
-
-;;; use the following if you want ZenIRC to act automatically when it
-;;; sees a certain string in a PRIVMSG. if this sounds interesting, read
-;;; the comments in zenirc-trigger.el and take a look at zenirc-yow.el,
-;;; zenirc-oink.el, zenirc-meditate.el, zenirc-8ball.el, zenirc-shop.el
-;;; and zenirc-fortran.el
-
-;(load-library "zenirc-trigger")
-
-;; the following is an example of how to do something during initializing a
-;; server connection. 001 is the first thing the server sends to a client
-;; after the client sends USER and NICK.
-;;
-;; :pfawww.pp.se 001 Omnion :Welcome to the Internet Relay Network Omnion
-;;
-;; current code from Eric Prestemon <ecp@io.com>
-
-(defvar zenirc-startup-channels-alist '(("debian" . "#debian")
- ("uoknor.edu" . nil)
- (".*" . "#perl"))
- "*Pairs of server and channels.
-server is a regexp
-channels is a comma separated string of channels to join during
- startup where nil means none")
-
-(defun zenirc-startup-join (proc parsedmsg)
- (let ((channelpairs (copy-alist zenirc-startup-channels-alist)))
- (while channelpairs
- (if (string-match (car (car channelpairs)) zenirc-server)
- (progn
- (if (cdr (car channelpairs))
- (process-send-string proc
- (concat "JOIN "
- (cdr (car channelpairs))
- "\n")))
- (setq channelpairs nil))
- (setq channelpairs (cdr channelpairs))))))
-
-(zenirc-add-hook 'zenirc-server-001-hook 'zenirc-startup-join)
-
-;;
-;; the following is an example of adding a new ctcp reply type to zenirc.
-;; in this case, it is "BOZOS", which returns a list of people who have
-;; been bozotic with me
-;;
-
-;; create a hook to be called and assign it a default value
-(defvar zenirc-ctcp-query-BOZOS-hook '(zenirc-ctcp-query-BOZOS))
-
-(setq zenirc-clientinfo-list
-'((ACTION . "ACTION contains action descriptions for atmosphere")
-;; this is the addition to the default list
- (BOZOS . "BOZOS returns a list of people who have been bozotic with me")
- (CLIENTINFO . "CLIENTINFO gives information about available CTCP commands")
- (ERRMSG . "ERRMSG returns error messages")
- (PING . "PING returns the arguments it receives")
- (FINGER . "FINGER shows real name, and login name of user (idle time is not yet implemented in ZenIRC)")
-;; sojge sure is a wordy bastard.
- (SOURCE . "takes 0 arguments and returns a description of where to find the source code of the client. The description is made up out of zero or more lines followed by an end marker. Every line is a CTCP reply with the SOURCE keyword, a space, the name of a FTP-server, a colon, a directory name, a colon, and 0 or more file names. If no file names are given, all the files in the named directory are needed. The end marker contains just the keyword.")
- (TIME . "TIME tells you the time on the user's host")
- (USERINFO . "USERINFO returns user settable information")
- (VERSION . "VERSION shows client type, version, and environment")))
-
-;; note addition of BOZOS--------------*****
-(setq zenirc-clientinfo-string "ACTION BOZOS CLIENTINFO ERRMSG FINGER PING SOURCE TIME USERINFO VERSION :Use CLIENTINFO <COMMAND> to get more specific information")
-
-;;
-;; this is the handler for a CTCP BOZOS query
-;;
-(defun zenirc-ctcp-query-BOZOS (proc parsedctcp from to)
- ;; if verbose ctcp is on, tell the user we got the query
- (if zenirc-verbose-ctcp
- (zenirc-message
- proc
- (format "[info] responding to BOZOS query from %s to %s\n"
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from) to)))
- ;; send a reply to the BOZOS query
- (process-send-string
- proc
- (concat "NOTICE " (zenirc-extract-nick from)
- " :\C-aBOZOS phone poxav veep noah rmtodd dmarcher lila neil notused laura w jason belladona mycroft amazin CHRISTIAN omnion fn vuori nap\C-a\n")))
-
-;; this is the second last line of the file, the next line is the last one
-(require 'zenirc)
\ No newline at end of file
+++ /dev/null
-;;; zenirc-fill.el --- fill messages in zenirc
-
-;; Copyright (C) 1995 Noah S. Friedman
-;; Copyright (C) 1995, 1996, 1997, 1998 Per Persson
-
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions
-;; Created: 1995-03-16
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-;;; Code:
-
-(require 'zenirc)
-
-(defvar zenirc-fill-mode nil
- "*If non-nil, then fill messages fitting `zenirc-fill-message-categories'.
-This is buffer-local.")
-(make-variable-buffer-local 'zenirc-fill-mode)
-
-(defvar zenirc-fill-region-function 'zenirc-wrap-region
- "*Function to use for filling.")
-
-(defvar zenirc-fill-prefix " | "
- "*String for filling to insert at front of new lines, or nil for none.")
-
-(defvar zenirc-fill-static 12
- "*How many chars into first the line the first word should end.
-This will look totally ridicolous if you don't strip away !user@host from
-PRIVMSG and NOTICE")
-
-(defvar zenirc-fill-column (- (window-width) 2)
- "*Column beyond which line-wrapping should happen in zenirc buffers.")
-
-(defvar zenirc-fill-message-categories
- '(privmsg privmsg_you notice notice_you privmsg_nochannel
- notice_nochannel ctcp_action)
- "*ZenIRC message categories to fill as paragraphs.
-This should be a list consisting of symbols corresponding to the type of
-messages in the message catalog which should be filled as paragraphs.
-For example, private messages (`privmsg') and notices (`notice') are good
-choices.
-
-If this variable is set to `t', then all messages are filled.
-If this variable is set to `nil', then no messages are filled.")
-
-(defvar zenirc-fill-nonstandard-message-categories-p nil
- "If non-nil, then fill messages that are not in a standard category.
-That is, fill messages which did not originate from the message catalog,
-and thus have no category symbol.")
-
-\f
-(defun zenirc-fill-mode (&optional prefix)
- "Enable or disable line wrapping of irc messages.
-
-A negative prefix argument disables this mode.
-A non-negative prefix argument enables it.
-If no prefix argument is given, toggle the current state of the mode.
-
-The user may also enable or disable this mode simply by setting the
-variable of the same name."
- (interactive "P")
- (cond
- ((null prefix)
- (setq zenirc-fill-mode (not zenirc-fill-mode)))
- ((>= (prefix-numeric-value prefix) 0)
- (setq zenirc-fill-mode t))
- (t
- (setq zenirc-fill-mode nil)))
- (cond ((not (interactive-p)))
- (zenirc-fill-mode
- (message "zenirc-fill-mode is enabled"))
- (t
- (message "zenirc-fill-mode is disabled")))
- zenirc-fill-mode)
-
-;; "normal" filling function.
-(defun zenirc-fill-region (beg end win-width)
- (let* ((fill-prefix zenirc-fill-prefix)
- (fill-column zenirc-fill-column))
- (fill-region-as-paragraph (point-min) (1- (point-max))))
- ;; this filling function adds an unnecessary newline.
- (goto-char (point-max))
- (delete-char -1))
-
-;; This is like the normal filling routines except that it doesn't squash
-;; whitespace (except at line breaks). This will make ascii barphics and
-;; other random spaced crap easier to see.
-(defun zenirc-wrap-region (beg end win-width)
- (interactive "r")
- (save-match-data
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (let* ((ws "[ \t]")
- (prefix-length (length zenirc-fill-prefix))
- (fill-column (max (or zenirc-fill-column
- (- win-width 2))
- prefix-length))
- line-beg)
- (goto-char beg)
- (while (< (point) (point-max))
- (beginning-of-line)
- (setq line-beg (+ (point) prefix-length))
- (cond ((< fill-column (- (point-max) (point)))
- (forward-char fill-column)
- (cond ((or (memq (char-after (point)) '(32 ?\t))
- (re-search-backward ws line-beg t)
- (re-search-forward ws (point-max) t))
- (just-one-space)
- (delete-char -1)
- (insert "\n" (or zenirc-fill-prefix "")))
- (t
- (goto-char (point-max)))))
- (t
- (goto-char (point-max))))))))))
-
-;; This adds whitespaces before the first word on every line but the first
-;; one to match up with the length of the first word on the first line.
-(defun zenirc-wrap-region-dynamic (beg end win-width)
- (interactive "r")
- (save-match-data
- (save-excursion
- (save-restriction
- ;; trim trailing whitespace
- (goto-char (- end 1))
- (just-one-space)
- (if (< (+ beg 1) (point))
- (delete-char -1))
- (setq end (point))
-
- (narrow-to-region beg end)
- (goto-char beg)
- (let* ((ws "[ \t]")
- ; set the length of the prefix
- (prefix-length
- (or (and (search-forward " " end t)
- (- (match-end 0) beg))
- 0))
-
- ; how many columns zenirc-wrap-region should keep inside
- (fill-column (max (or zenirc-fill-column
- (- win-width 2))
- (or prefix-length 0)))
- line-beg)
- (goto-char beg)
- ; start wrapping of the actual message, after first word
- (while (< (point) (point-max))
- (beginning-of-line)
- (setq line-beg (+ (point) prefix-length))
- (cond ((< fill-column (- (point-max) (point)))
- (forward-char fill-column)
- (cond ((or (memq (char-after (point)) '(32 ?\t))
- (re-search-backward ws line-beg t)
- (re-search-forward ws (point-max) t))
- ; remove all spaces before adding newline
- (just-one-space)
- (delete-char -1)
- (insert
- "\n"
- (make-string prefix-length
- (string-to-char " "))))
- (t
- (goto-char (point-max)))))
- (t
- (goto-char (point-max))))))))))
-
-;; This adds whitespaces before the first word on every line so that the
-;; second word on the first line and the first word on every other line
-;; match up with all the other lines (not just in this region).
-(defun zenirc-wrap-region-static (beg end win-width)
- (interactive "r")
- (save-match-data
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (goto-char beg)
- (let* ((ws "[ \t]")
- ; set the length of the prefix
- (prefix-length
- (and (search-forward " " end t)
- (- (match-end 0) beg)))
- ; how many columns zenirc-wrap-region should keep inside
- (fill-column (max (or zenirc-fill-column
- (- win-width 2))
- prefix-length))
- line-beg)
- (goto-char beg)
- (if (<= prefix-length zenirc-fill-static)
- (progn
- (insert (make-string
- (- zenirc-fill-static prefix-length)
- (string-to-char " ")))
- ; update the length of the prefix, as it is static
- (setq prefix-length zenirc-fill-static)))
- ; start wrapping of the actual message, after first word
- (while (< (point) (point-max))
- (beginning-of-line)
- (setq line-beg (+ (point) prefix-length))
- (cond ((< fill-column (- (point-max) (point)))
- (forward-char fill-column)
- (cond ((or (memq (char-after (point)) '(32 ?\t))
- (re-search-backward ws line-beg t)
- (re-search-forward ws (point-max) t))
- ; remove all spaces before adding newline
- (just-one-space)
- (delete-char -1)
- (insert
- "\n"
- (make-string zenirc-fill-static
- (string-to-char " "))))
- (t
- (goto-char (point-max)))))
- (t
- (goto-char (point-max))))))))))
-
-
-(defvar zenirc-window-last-width 80)
-(defun zenirc-fill-message (proc sym string)
- (let* ((w (and proc
- (get-buffer-window (process-buffer proc) t)))
- (win-width (if w
- (setq zenirc-window-last-width (window-width w))
- zenirc-window-last-width)))
- (and zenirc-fill-mode
- (cond ((eq zenirc-fill-message-categories t))
- ((null sym)
- zenirc-fill-nonstandard-message-categories-p)
- ((memq sym zenirc-fill-message-categories))
- (t nil))
- (funcall zenirc-fill-region-function
- (point-min) (point-max) win-width))))
-\f
-(defvar zenirc-fill-outgoing-mode nil
- "*If non-nil, then fill outgoing PRIVMSG/NOTICEs.
-This is buffer-local.")
-(make-variable-buffer-local 'zenirc-fill-outgoing-mode)
-
-(defvar zenirc-fill-outgoing-prefix "-> "
- "*What do add before outgoing lines.")
-
-(defun zenirc-fill-outgoing-mode (&optional prefix)
- "Enable or disable line wrapping of outgoing PRIVMSG/NOTICEs.
-
-A negative prefix argument disables this mode.
-No argument or any non-negative argument enables it.
-
-The user may also enable or disable this mode simply by setting the
-variable of the same name."
- (interactive "P")
- (cond
- ((null prefix)
- (setq zenirc-fill-outgoing-mode (not zenirc-fill-outgoing-mode)))
- ((>= (prefix-numeric-value prefix) 0)
- (setq zenirc-fill-outgoing-mode t))
- (t
- (setq zenirc-fill-outgoing-mode nil)))
- (cond ((not (interactive-p)))
- (zenirc-fill-outgoing-mode
- (message "zenirc-fill-outgoing-mode is enabled"))
- (t
- (message "zenirc-fill-outgoing-mode is disabled")))
- zenirc-fill-outgoing-mode)
-
-(defun zenirc-fill-outgoing (beg end str)
- (if zenirc-fill-outgoing-mode
- (save-excursion
- (goto-char beg)
- ; if the outgoing line isn't a command, just insert the prefix
- (if (not (= (aref str 0) zenirc-command-char))
- (progn
- (insert zenirc-fill-outgoing-prefix)
- (save-restriction
- (narrow-to-region beg end)
- (funcall zenirc-fill-region-function
- beg end (window-width))))
- (let
- ; if the outgoing line was a command, parse out the
- ; actual command and the argument/text.
- ((command (car (zenirc-parse-firstword
- (substring str 1))))
- (text (cdr (zenirc-parse-firstword str))))
- (cond
- ; if the command was one of 'm', 'msg' or 'privmsg',
- ; do some fanzy parsing and change the line a bit.
- ((string-match "\\(^m$\\|^msg$\\|^privmsg$\\)" command)
- (delete-region beg end)
- (insert zenirc-fill-outgoing-prefix
- "*" (car (zenirc-parse-firstword text)) "* "
- (cdr (zenirc-parse-firstword text)))
- (save-restriction
- (narrow-to-region beg end)
- (funcall zenirc-fill-region-function
- beg end (window-width)))))))
-)))
-
-\f
-(defvar zenirc-command-resize-hook '(zenirc-command-resize))
-
-;; /resize [width]
-(defun zenirc-command-resize (proc cmd)
- (if (string= (cdr cmd) "")
- (setq zenirc-fill-column (- (window-width) 2))
- (setq zenirc-fill-column (cdr cmd))))
-\f
-(provide 'zenirc-fill)
-
-(zenirc-add-hook 'zenirc-message-hook 'zenirc-fill-message)
-(zenirc-add-hook 'zenirc-send-line-hook 'zenirc-fill-outgoing)
-
-(or (assq 'zenirc-fill-mode minor-mode-alist)
- (setq minor-mode-alist
- (cons (list 'zenirc-fill-mode " Zfill") minor-mode-alist)))
-
-;;; zenirc-fill.el ends here
-
+++ /dev/null
-;;; zenirc-finnish.el --- Finnish message catalog for ZenIRC
-
-;; Copyright (C) 1995 Valtteri Vuorikoski
-;; Copyright (C) 1998 Per Persson
-
-;; Author: Valtteri Vuorikoski <vuori@sci.fi>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions
-;; Created: 1995/05/23
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; If you're using emacs 19, loading iso-ascii.el or doing
-;; M-x standard-display-european on X displays makes 8-bit characters
-;; easier to see.
-
-;;; Code:
-
-(require 'zenirc)
-
-(zenirc-lang-define-catalog
- 'finnish
- '((s001 . "[info] Hukkaat aikaasi.")
- (s002 . "[info] Irkkiserverisi on %s ajaen ircd-versiota %s")
- (s003 . "[info] Tämä serveri luotiin %s")
- (s200 . "[info] %s (%s) Linkki -> %s") ; Version reply from /trace
- (s202 . "[info] %s H.S. -> %s")
- (s203 . "[info] %s Hmmm -> IP-osoite: %s") ; Unknown connection
- (s204 . "[info] %s Oper -> %s") ; Operator connection
- (s205 . "[info] %s Käyttäjä -> %s") ; User connection
- (s206 . "[info] %s Serveri -> %s %s %s %s ") ; Server connection
- (s208 . "[info] %s %s -> %s") ; New type connection
- (s209 . "[info] %s Luokka -> %s = %s") ; What the classes means
- (s211 . "[info] %s linkki ylhäällä %s sek\nLähetetty: %s/%s, Vastaanotettu: %s/%s, SendQ: %s")
- (s212 . "[info] %s\t->\ttimes: %s\tbytes: %s") ; Command stats
- (s213 . "[info] C kone/nimi/port/luok: %s/%s/%s/%s") ; C-lines
- (s214 . "[info] N kone/nimi/port/luok: %s/%s/%s/%s") ; N-lines
- (s215 . "[info] %s kone/nimi/luokka:\t%s/%s/%s") ; I-lines
- (s216 . "[info] K kone/käyttäjä:\t%s/%s") ; K-lines
- (s217 . "[info] Q %s/%s/%s/%s/%s") ; Q-lines
- (s218 . "[info] Luokka: %s Ping-taajuus: %s Connectaustaajuus: %s Max Linkkkejä: %s SendQ: %s") ; Y-lines
- (s219 . "[info] /statsien loppu.")
- (s221 . "[info] User-moodisi on: %s")
- (s241 . "[info] LEAF-serverin hostmaski/syvyys:\t\t%s/%s") ; L-lines
- (s242 . "[info] %s") ; Uptime of server
- (s243 . "[info] %s nickki/käyttäjä@kone:\t%s/%s") ; O-lines
- (s244 . "[info] HUB hostmaski/serveri:\t%s/%s") ; H-lines
- (s251 . "[info] %s/%s näkyvää/näkymätöntä käyttäjää %s:llä serverillä.")
- (s252 . "[info] %s isoa moloa linjalla.")
- (s253 . "[info] %s tuntematonta yhteyttä.")
- (s254 . "[info] %s kannua")
- (s255 . "[info] %s clienttiä and %s serveriä yhteydessä tähän serveriin")
- (s256 . "[info] Administratiivinen informaatio %s:lle:") ; /admin line 1
- (s257 . "[info] %s") ; /admin line 2
- (s258 . "[info] %s") ; /admin line 3
- (s259 . "[info] %s") ; /admin line 4
- (s261 . "[info] %s Tiedosto -> %s %s") ; Logfile trace
- (s301 . "[info] %s on pois: %s")
- (s302 . "[info] userhost: %s") ; userhost reply
- (s303 . "[info] Tällä hetkellä aikaa hukkaamassa: %s") ; ison reply
- (s305 . "[info] Et ole enää poissa")
- (s306 . "[info] Olet poissa")
- (s311 . "[info] %s (%s@%s) on %s") ; user part of /whois list
- (s312 . "[info] %s käyttää serveriä %s (%s)")
- (s313 . "[info] %s on Iso Molo.") ; /whois operator status
- (s314 . "[info] %s (%s@%s) oli %s") ; user part of /whowas list
- (s315 . "[info] /who:n loppu.")
- (s317 . "[info] %s on iDLaillut %s") ; /whois idle time
- (s318 . "[info] /whois:in loppu.")
- (s319 . "[info] %s on kannuilla: %s") ; channel part of whois data
- (s321 . "[info] Kannu Populaa Otsikko") ; header for LIST cmd
- (s322 . "[info] %-15s %-5s %s") ; each channel in LIST cmd
- (s323 . "[info] /listin loppu.") ; trailer for LIST cmd
- (s324 . "[info] Moodi kannulle %s on %s %s") ; channel mode
- (s331 . "[info] %s:llä ei ole otsikkoa") ; no topic message
- (s332 . "[info] %s otsikko: %s") ; topic message
- (s333 . "[info] %s:n asetti %s kello %s") ; topic set time
- (s341 . "[info] Kutsuit %s:n kanavalle %s") ; invite reply
- (s342 . "[info] Pyydät %s:ää hukkaamaan aikaansa") ; summon reply
- (s351 . "[info] Versio: %s %s %s") ; version reply
- (s352_header . "[info] Nickki Stat Kanavan nimi Käyttäjä@kone (Hopseja Nimi)") ; header for /who list reply
- (s352 . "[info] %-9s %-3s %-15s %s@%s (%s)") ; /who list reply
- (s353 . "[info] Käyttäjiä kannulla %s: %s") ; displayed after channel join
- (s364 . "[info] %s %s %s") ; /links reply
- (s365 . "[info] /linksin loppu") ; end of /links reply
- (s367 . "[info] %s banni %s") ; banlist reply
- (s368 . "[info] Bannilistan loppu") ; end of banlist reply
- (s371 . "[info] %s") ; info reply
- (s372 . "[motd] %s") ; message of the day
- (s375 . "[motd] Päivän viesti:") ; start of motd
- (s376 . "[motd] Päivän viestin loppu") ; displayed at end of motd
- (s381 . "[info] Olet nyt Iso Molo") ; irc op status
- (s382 . "[info] Poltan hashista: %s") ; rehash server msg
- (s391 . "[info] Aika serveriltä %s: %s") ; TIME reply
- (s392 . "[info] Tili Terminaali Kone") ; header for users rpl
- (s393 . "[info] %s") ; body of users rpl
- (s395 . "[info] Ei ketään kotona") ; nobody for users rpl
- (s401 . "[info] Ei moista nickkiä/kannua: %s") ; there is no such nick/chan
- (s402 . "[info] Ei moista serveriä: %s") ; there is no such server
- (s403 . "[info] Ei moista kanavaa: %s") ; there is no such channel
- (s404 . "[info] Et voi lähettää %s:lle.") ; you can't send to channel
- (s405 . "[info] Liian monta kanavaa: %s") ; too many channels
- (s406 . "[info] Serverillä ei ole tietoa nickistä: %s") ; no whowas data
- (s407 . "[info] Liian monta vastaanottajaa. Viestiä ei lähetetty: %s") ; user@host
- (s409 . "[info] Alkuperää ei määritelty.") ; ping error reply
- (s411 . "[info] Ei vastaanottajaa.") ; no recipient given
- (s412 . "[info] Ei mitään lähetettävää.") ; you didn't send anything.
- (s413 . "[info] Ei toplevel-domainia: %s") ; no toplevel domain spec
- (s414 . "[info] Villikortti toplevel-domainissa: %s") ; wild toplevel
- (s421 . "[info] Tämä näyttää minusta purkitetulta lihalta: %s") ; you sent server spam
- (s422 . "[info] Ei motdia (liekitä /adminissa mainittua Isoa Moloa)")
- (s423 . "[info] Ei admin-infoa. Vihjeetön Iso Molo ajaa serveriä.")
- (s431 . "[info] Ei nickkiä annettu") ; you didn't provide a nick
- (s432 . "[info] Invalidi nickki: %s")
- (s433 . "[info] Nickki jo käytössä: %s")
- (s436 . "[info] Nickkitörmäysmurhatappo: %s")
- (s441 . "[info] %s ei ole kannulla %s") ; can't do it to those not present
- (s442 . "[info] Et ole kannulla %s.") ; you can't do that dave.
- (s443 . "[info] %s on jo kannulla %s.") ; invite error
- (s444 . "[info] %s ei ole loggautunut sisään") ; SUMMON reply
- (s445 . "[info] Iso Molo ei anna sinun summonoida")
- (s446 . "[info] Iso Molo ei anna sinun nähdä /usereita")
- (s451 . "[info] Et ole rekisteröitynyt") ; gotta do the USER NICK thing
- (s461 . "[info] Ei tarpeeksi parametrejä: %s") ; as 421
- (s462 . "[info] Et voi rekisteröityä uudelleen") ; cannot USER twice
- (s463 . "[info] Fasistisika-Iso Molo ei anna sinun käyttää tätä serveriä")
- (s464 . "[info] Väärä salasana") ; bad PASS command
- (s465 . "[info] Sinulla ei ole lupaa käyttää tätä serveriä.") ; creep
- (s467 . "[info] Avain kanavalle %s on jo asetettu") ; chan key set already
- (s471 . "[info] Et voi joinata %s:lle (luuserilimiitti saavutettu).") ; too many ppl
- (s472 . "[info] %s on tuntematon moodi.") ; duh
- (s473 . "[info] Et voi joinata %s:lle (hommaa invite).") ; fascist nerds
- (s474 . "[info] Et voi joinata %s:lle %s (bannattu).") ; you're banned
- (s475 . "[info] Et voi joinata %s:lle (väärä avainsana).") ; bad key
- (s481 . "[info] Et ole tarpeeksi Iso Molo tehdäksesi tuota.") ; oper only
- (s482 . "[info] Et ole voimansiirtokone %s:llä.") ; chanop needed
- (s483 . "[info] Et voi tappaa serveriä. Doh!") ; can't kill a server
- (s491 . "[info] Isoja Moloja ei sallita sinun koneeltasi") ; no o-line
- (s501 . "[info] Tuntematon moodilippu") ; you did something silly
- (s502 . "[info] Et voi vaihtaa toisten käyttäjien moodia") ; as above
- (action . "(lähetetty %s:lle)") ; ctcp action sent
- (action-echo . "(lähetetty %s:lle)") ; ctcp action sent
- (connect-failed . "[error] En voinut connectata %s:n porttiin %d, koska: %s")
- (connect-try . "[info] Connectailen %s:n porttiin %d...")
- (connect-abort . "[info] Konnektaus serveriin abortoitu.")
- (ctcp_action . "[action->%s] %s %s") ; ctcp ACTION display
- (ctcp_clientinfo . "[query] CLIENTINFO %s:ltä %s:lle")
- (ctcp_errmsg . "[query] ERRMSG %s:ltä %s:lle")
- (ctcp_finger . "[query] FINGER %s:ltä %s:lle")
- (ctcp_ping . "[query] PING %s:ltä %s:lle")
- (ctcp_ping_reply . "[reply] PING: %s on %s sekunnin matkan päässä")
- (ctcp_source . "[query] SOURCE %s:ltä %s:lle")
- (ctcp_time . "[query] TIME %s:ltä %s:lle")
- (ctcp_userinfo . "[query] USERINFO %s:ltä %s:lle")
- (ctcp_version . "[query] VERSION %s:ltä %s:lle")
- (debug . "[debug] %s") ; displayed by debugging code
- (error . "[%s] %s") ; server error message
- (invite . "[info] %s kutsuu sinut %s:lle.") ; invite
- (join_you . "[info] Joinaan kannulle: %s")
- (join . "[info] %s on joinannut %s:lle")
- (kick . "[info] %s on potkittu kanavalta %s %s:n toimesta") ; someone was peeved
- (kick_you . "[info] Sinut on potkittu %s:ltä %s:n toimesta") ; loser
- (kill . "[info] Sinut on raukkamaisesti tapettu: %s") ; your time is up.
- (mode . "[info] %s on vaihtanut moodia %s:lle: %s") ; MODE change
- (nick . "[info] %s on vaihtanut nickkiä: %s") ; nick change
- (newcatalog . "[info] Viestikatalogi asetettu %s:ksi")
- (nocatalog . "[error] Ei viestikatalogia määritelty %s:lle")
- (nosend . "[info] Sinulla ei ole uhria jolle lähettää") ; msg not sent
- (notice . "{%s%s} %s") ; NOTICE
- (notice_you . "{%s} %s") ; NOTICE sent to your nick
- (notify_list . "[info] Tämänhetkinen ajanhukkaajalistasi: %s")
- (notify_on . "[info] tunnistettu %s aikaa hukkaamassa.")
- (notify_off . "[info] tunnen, että %s on lopettanut ajanhukkaamisen.")
- (now_querying . "[info] Tämänhetkinen uhrisi on %s.") ; /query foo
- (part_you . "[info] Häivyn: %s (%s)") ; your part from channel message
- (part . "[info] %s on häipynyt %s:ltä (%s)") ; part from channel message
- (pong . "[info] %s sanoo ojnk.") ; pong message from server
- (privmsg . "<%s%s> %s") ; PRIVMSG
- (privmsg_you . "*%s* %s") ; PRIVMSG sent to your nick
- (protocol_violation . "[error] Tämä rivi ei ole IRC-protokollan mukainen.\n[error] Valita serverin administraattorille:\n%s: %s")
- (query . "[query] %s:ltä %s:lle sisältö %s") ; ctcp query
- (query_unknown . "on tuntematon CTCP-viesti")
- (query_unbalanced . "[epätasapainoinen ctcp] %s:ltä %s:lle sisältö %s")
- (query_unbalanced_reply . "on epätasapainoinen CTCP-viesti")
- (quit . "[info] %s lopetti ajanhukkaamisen: %s") ; user signoff
- (reply . "[reply] %s:ltä %s:lle sisältö %s") ; ctcp reply
- (reply_unbalanced . "[epätasapainoinen vastaus] %s:ltä %s:lle sisältö %s")
- (send . "(lähetetty %s:lle)") ; you sent a message/notice
- (send-echo . "(lähetetty %s:lle)") ; you sent a message/notice
- (sentinel . "\nZenIRC lopetettu aikaan %s") ; process sentinel message
- (server . "[server] %s") ; unknown server message
- (signal . "[signaali %s]") ; signal in echo area
- (topic . "[info] %s vaihtoi otsikon kanavalla %s: %s") ; topic message
- (wallops . "-%s- %s") ; WALLOPS notice
- ))
-
-(provide 'zenirc-finnish)
-
-;;; zenirc-finnish.el ends here
\ No newline at end of file
+++ /dev/null
-;;; zenirc-format.el --- format nick!user@host for zenirc
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1995 Noah S. Friedman
-
-;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Charles Hannum <mycroft@gnu.ai.mit.edu>
-;; Richard Todd <rmtodd@essex.ecn.uoknor.edu>
-;; Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: friedman@prep.ai.mit.edu
-;; Keywords: zenirc, extensions
-;; Created: 1993/06/03
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; Format nick!user@host info the first time you see someone as
-;; nick!user@host and thereafter as just nick. Nick changes are detected
-;; and handled correctly.
-
-;; This was rewritten 1995-03-18 by friedman to use a hash table instead of
-;; an alist.
-
-;;; Code:
-
-(require 'zenirc)
-
-;; 101 buckets should be a reasonable size for most people (remember to use
-;; a prime number to get good hashing characteristics).
-;; This is not the total number of nicks you can cache, but just the number
-;; of "buckets" in which nicks can be stored. If you talk to thousands
-;; and thousands of people it might help to increase the size of this
-;; table, but even then it isn't necessary.
-(defvar zenirc-nickuserhost-table (make-vector 101 0)
- "Table used to store nicknames and corresponding nick!user@host.")
-
-(defun zenirc-format-nickuserhost-fancy (nickuserhost)
- (let ((nick (zenirc-extract-nick nickuserhost)))
- (if nick
- (let* ((nicksym (intern (zenirc-downcase-name nick)
- zenirc-nickuserhost-table))
- (cached (and (boundp nicksym)
- (symbol-value nicksym))))
- ; possible BUG
- (setq zenirc-run-next-hook nil)
- (set nicksym nickuserhost)
- (and cached
- (string= cached nickuserhost)
- (setq nickuserhost nick)))))
- nickuserhost)
-
-(zenirc-add-hook 'zenirc-format-nickuserhost-hook
- 'zenirc-format-nickuserhost-fancy)
-
-(defun zenirc-fancy-NICK (proc parsedmsg)
- (let* ((userhost (zenirc-extract-userhost (aref parsedmsg 1)))
- (to (aref parsedmsg 2)))
- (set (intern (zenirc-downcase-name to) zenirc-nickuserhost-table)
- (concat to "!" userhost))))
-
-(zenirc-add-hook 'zenirc-server-NICK-hook 'zenirc-fancy-NICK)
-
-;; Also hook into the /who display.
-;; (added by rmtodd, rewritten by friedman)
-(defun zenirc-fancy-352 (proc parsedmsg)
- ;; If the 3 arg is "Channel", this is the header.
- ;; One wonders why the header isn't a different numeric.
- (or (string= (aref parsedmsg 3) "Channel")
- (let* ((nick (aref parsedmsg 7))
- (nickuserhost (concat nick "!" (aref parsedmsg 4) "@"
- (aref parsedmsg 5)))
- (nicksym (intern (zenirc-downcase-name nick)
- zenirc-nickuserhost-table)))
- (set nicksym nickuserhost))))
-
-\f
-(zenirc-add-hook 'zenirc-server-352-hook 'zenirc-fancy-352)
-
-(provide 'zenirc-format)
-
-;; zenirc-format.el ends here
+++ /dev/null
-;;; zenirc-fortran.el --- emulate F-BOT FORTRAN bot program with ZenIRC
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1997 Noah Friedman
-
-;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Maintainer: ben@gnu.ai.mit.edu
-;; Keywords: extensions
-;; Created: 1993/06/03
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; Example hook code to override something internal to zenirc.
-;; Also a good example of a server message hook.
-
-;; From ben@gnu.ai.mit.edu Tue May 11 08:12:27 1993
-;; Newsgroups: alt.irc
-;; From: ben@gnu.ai.mit.edu (Ben A. Mesander)
-;; Subject: Re: introducing ZENBOT 1.0!!!! (Bot-lovers)
-;; Summary: FORTRAN BOTZ RULE!!!!!!111
-;; In-Reply-To: christian@hopper.Virginia.EDU's message of Mon, 10 May 1993 23:43:42 GMT
-;; Date: Tue, 11 May 1993 04:44:42 GMT
-;; Nntp-Posting-Host: gnu.ai.mit.edu
-;; Organization: The phedz.
-;;
-;; Hah. Leper.
-;;
-;; ircII bots are for weenies. Even C bots are slow on supercomputer
-;; architectures. On a Cray, FORTRAN is much faster than C, due to the
-;; architecture of the machine. Therefore I - piglet3 - the GENIUS
-;; MASTERMIND of IRC have written a FORTRAN bot. This bot is guaranteed
-;; to be faster than any C bot if run on a Cray II or above. I am sure
-;; the irCOPS want to keep this technology secret, but I - piglet3 - am
-;; going to reveal the SECRET OF FAST BOTS ON IRC RIGHT IN THIS POSTING!
-;;
-;; Unlike Christian's RESTRICTIVE licensing agreement, my bot is in the
-;; PUBLIC DOMAIN! If you want to use it and claim you wrote it, PLEASE DO!
-;;
-;; The source comes in three files, a Makefile (yes, Christian's bot had
-;; NO MAKEFILE! IT WAS HARD TO INSTALL!), a FORTRAN source code file, and
-;; a small C code interface to the UNIX operating system. Those of you
-;; running operating systems besides UNIX should have no trouble writing
-;; the network interface routines in FORTRAN instead of C.
-;;
-;; Future releases of this program will be installable via GNU Configure,
-;; thus making installation even easier. The FORTRAN-C calling interface
-;; is assumed to be BSD-style, for those of you who really want to compile
-;; it.
-;;
-;; ---Makefile---cut here---
-;; CC=gcc
-;; F77=f77
-;;
-;; bot: bot.o sock.o
-;; $(F77) bot.o sock.o -o bot
-;;
-;; bot.o: bot.f
-;; $(F77) -c bot.f
-;;
-;; sock.o: sock.c
-;; $(CC) -c sock.c
-;; ---bot.f---cut here---
-;; CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-;; C
-;; C FORTRAN BOT PROGRAM FOR IRC II
-;; C
-;; C BY BEN MESANDER
-;; C BEN@GNU.AI.MIT.EDU
-;; C
-;; C THIS PROGRAM IS IN THE PUBLIC DOMAIN
-;; CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
-;;
-;; PROGRAM FBOT
-;; CHARACTER*80 SERVER, CHANEL, NICK, NAME, USER, HOST
-;;
-;; C YOU MUST CUSTOMIZE THESE VARIABLES
-;; NICK='F-BOT'
-;; NAME='EXPERIMENTAL FORTRAN IRC-II BOT PROGRAM'
-;; USER='BEN'
-;; HOST='GNU.AI.MIT.EDU'
-;;
-;; PRINT *,'ENTER NAME OF IRC-SERVER TO USE:'
-;; READ(*,'(A)') SERVER
-;; PRINT *,'ENTER NAME OF CHANNEL TO JOIN:'
-;; READ(*,'(A)') CHANEL
-;;
-;; I=OPSOCK(SERVER)
-;; IF (I.EQ.1) THEN
-;; PRINT *,'UNABLE TO CONNECT TO IRC-SERVER'
-;; STOP
-;; ENDIF
-;;
-;; I=WRSOCK('NICK '//NICK)
-;; IF (I.EQ.1) THEN
-;; PRINT *,'UNABLE TO WRITE IRC-NICK TO SERVER'
-;; STOP
-;; ENDIF
-;;
-;; I=WRSOCK('USER '//USER(1:INDEX(USER,' ')-1)//'@'//HOST(1:
-;; + INDEX(HOST,' ')-1)//' 1 1 :'//NAME)
-;; IF (I.EQ.1) THEN
-;; PRINT *,'UNABLE TO WRITE IRC-NAME TO SERVER'
-;; STOP
-;; ENDIF
-;;
-;; CALL EATMTD()
-;; CALL BOTTY(CHANEL,NICK,USER,HOST)
-;; CALL CLSOCK()
-;; STOP
-;; END
-;;
-;; SUBROUTINE EATMTD()
-;; C PURPOSE - TO EAT THE MOTD
-;; CHARACTER*513 INLINE
-;;
-;; 10 CONTINUE
-;; I=RDSOCK(INLINE)
-;; IF (I.EQ.1) THEN
-;; PRINT *,'ERROR WHILE READING MOTD'
-;; STOP
-;; ENDIF
-;; IF ((INDEX(INLINE,'End of /MOTD').EQ.0).OR.
-;; + (INDEX(INLINE,'376').NE.0)) GOTO 10
-;; RETURN
-;; END
-;;
-;; SUBROUTINE BOTTY(CHANEL, NICK, USER, HOST)
-;; CHARACTER*80 CHANEL, NICK, USER, HOST
-;; C PURPOSE - TO BE BOTTY
-;; CHARACTER*513 INLINE
-;;
-;; I=WRSOCK('JOIN '//CHANEL)
-;; IF (I.EQ.1) THEN
-;; PRINT *,'ERROR WHILE JOINING CHANNEL'
-;; STOP
-;; ENDIF
-;;
-;; 20 CONTINUE
-;; INLINE=''
-;; I=RDSOCK(INLINE)
-;; IF (I.EQ.1) THEN
-;; PRINT *,'ERROR READING FROM IRC-SERVER'
-;; STOP
-;; ENDIF
-;;
-;; IF (INDEX(INLINE,'PING').EQ.1) THEN
-;; I=WRSOCK('PONG '//HOST)
-;; IF (I.EQ.1) THEN
-;; PRINT *,'ERROR WHILE PONGING'
-;; STOP
-;; ENDIF
-;; GOTO 20
-;; ENDIF
-;;
-;; IF (INDEX(INLINE,'FORTRAN').NE.0) THEN
-;; I=WRSOCK('PRIVMSG '//CHANEL(:INDEX(CHANEL,' ')-1)//
-;; + ' :YES I AM REALLY WRITTEN IN 3L33T FORTRAN-77!!!!!!!')
-;; IF (I.EQ.1) THEN
-;; PRINT *,'ERROR WRITING 3L33T MESSAGE TO IRC-SERVER'
-;; STOP
-;; ENDIF
-;; GOTO 20
-;; ENDIF
-;;
-;; IF (INDEX(INLINE,'PHONE IS A SLUT').NE.0) RETURN
-;;
-;; GOTO 20
-;; RETURN
-;; END
-;;
-;; ---sock.c---cut here---
-;; /*
-;; * rudimentary C socket I/O routines for FORTRAN bot.
-;; *
-;; * Ben Mesander
-;; * ben@gnu.ai.mit.edu
-;; *
-;; * this code is in the public domain
-;; */
-;;
-;; #include <stdio.h>
-;; #include <sys/types.h>
-;; #include <sys/socket.h>
-;; #include <netinet/in.h>
-;; #include <netdb.h>
-;; #define IRCPORT 6667
-;;
-;; int sock; /* socket to connect to server */
-;;
-;; /*
-;; * open a socket to the irc server on "hostname"
-;; */
-;;
-;; int opsock_(char *fhostname, int fhostnamelen)
-;; {
-;; char *hostname;
-;; int i;
-;; struct sockaddr_in addr;
-;; struct hostent *h;
-;;
-;; if (NULL == (hostname = (char *)malloc(fhostnamelen+1))) {
-;; return 1;
-;; }
-;; strncpy(hostname, fhostname, fhostnamelen+1);
-;; for(i=0;i<strlen(hostname);i++) {
-;; if (' ' == *(hostname+i)) {
-;; *(hostname+i)='\0';
-;; break;
-;; }
-;; }
-;;
-;; if (NULL == (h = gethostbyname(hostname))) {
-;; return 1;
-;; }
-;; addr.sin_family = AF_INET;
-;; addr.sin_port = IRCPORT;
-;; bcopy(h->h_addr, (char *)&addr.sin_addr, h->h_length);
-;; bzero((char *)addr.sin_zero, sizeof(addr.sin_zero));
-;;
-;; if ( 0 > (sock = socket(AF_INET, SOCK_STREAM, 0))) {
-;; return 1;
-;; }
-;;
-;; if ( 0 > connect(sock, &addr, sizeof(addr))) {
-;; return 1;
-;; }
-;;
-;; return(0);
-;; }
-;;
-;; int clsock_(void)
-;; {
-;; close(sock);
-;; }
-;;
-;; int rdsock_(char *buf, int buflen)
-;; {
-;; int i;
-;;
-;; for (i=0; i<513; i++) {
-;; if (1 != read(sock,buf+i,1)) {
-;; return 1;
-;; }
-;; if ('\n' == *(buf+i)) {
-;; return 0;
-;; }
-;; }
-;; return 0;
-;; }
-;;
-;; int wrsock_(char *buf, int buflen)
-;; {
-;; int i;
-;;
-;; for (i=0; i<buflen; i++) {
-;; if (1 != write(sock, buf+i, 1)) {
-;; return 1;
-;; }
-;; }
-;; if (1 != write(sock, "\n", 1)) {
-;; return 1;
-;; }
-;; return 0;
-;; }
-;;
-;; ---end of file---
-;;
-;; --Ben
-;; ben@gnu.ai.mit.edu
-;; oink.
-
-;; Thanks to zenirc-trigger.el, this elisp module has been reduced to a
-;; one-liner, but the real live fortran above is too eleet to stop
-;; distributing.
-
-;;; Code:
-
-(require 'zenirc-trigger)
-
-(zenirc-trigger-register "fortran"
- "YES I AM REALLY WRITTEN IN 3L33T FORTRAN 77!!!!!!!!!111"
- "\\bfortran\\b")
-
-(provide 'zenirc-fortran)
-
-;; zenirc-fortran.el ends here
+++ /dev/null
-;;; zenirc-french.el --- French message catalog for ZenIRC
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1998 Per Persson
-
-;; Author: Nicolas Pioch <Nicolas.Pioch@enst.fr> (Nap)
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions
-;; Created: 1994/02/28
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; If you're using emacs 19, loading iso-ascii.el or doing
-;; M-x standard-display-european on X displays makes 8-bit characters
-;; easier to see.
-
-;;; Code:
-
-(require 'zenirc)
-
-(zenirc-lang-define-catalog 'french
- '((join_you . "[info] Entrée dans %s.")
- (join . "[info] %s entre dans %s.")
- (s001 . "[info] Vous perdez votre temps.") ; welcome to irc message
- ;; server name & version # msg
- (s002 . "[info] Votre serveur IRC est %s, version %s.")
- (s003 . "[info] Serveur crée %s.") ; when the server was built
- ;; # users on connect message
- (s251 . "[info] %s louzeurs visibles et %s invisibles sur %s serveurs.")
- (s252 . "[info] %s crétins sont en ligne.") ; irc operators msg
- (s253 . "[info] %s connexions non identifiées.") ; unk connects msg
- (s254 . "[info] %s groupes.") ; number of channels
- ;; # of clients and servers
- (s255 . "[info] %s clients et %s serveurs connectés sur ce serveur.")
- (s301 . "[info] %s est absent: %s") ; someone is away
- (s302 . "[info] identification: %s.") ; userhost reply
- (s305 . "[info] Vous n'êtes plus marqué absent.")
- (s306 . "[info] Vous êtes marqué absent.")
- (s311 . "[info] %s (%s@%s) est %s") ; user part of /whois list
- (s312 . "[info] %s sur le serveur %s (%s)") ; server part of /whois list
- (s313 . "[info] %s est un crétin.") ; /whois operator status
- (s314 . "[info] %s (%s@%s) était %s.") ; user part of /whowas list
- (s315 . "[info] Fin de /who.") ; end of /who list replies
- (s318 . "[info] Fin de /whois.") ; end of /whois list replies
- (s317 . "[info] %s a été inactif %s") ; /whois idle time
- (s319 . "[info] %s participe à: %s") ; channel part of whois data
- (s321 . "[info] Groupes\tLouzeurs\tSujet") ; header for LIST cmd
- (s322 . "[info] %s\t%s\t%s") ; each channel in LIST cmd
- (s323 . "[info] Fin de /list.") ; trailer for LIST cmd
- (s324 . "[info] Mode de %s: %s %s.") ; channel mode
- (s331 . "[info] %s n'a pas de sujet.") ; no topic message
- (s332 . "[info] %s sujet: %s") ; topic message
- (s341 . "[info] Vous invitez %s dans %s.") ; invite reply
- (s342 . "[info] Vous incitez %s à perdre son temps.") ; summon reply
- (s351 . "[info] Version: %s %s %s.") ; version reply
- ; header for /who list reply
- (s352_header . "[info] Pseudo Etat Nom du Groupe login et machine Nom")
- (s352 . "[info] %-9s %-3s %-15s %s@%s (%s)") ; /who list reply
- (s353 . "[info] Louzeurs sur %s: %s") ; displayed after channel join
- (s364 . "[info] %s %s %s") ; /links reply
- (s365 . "[info] Fin de /links.") ; end of /links reply
- (s367 . "[info] %s interdit à %s.") ; banlist reply
- (s368 . "[info] Fin de liste d'interdiction.") ; end of banlist reply
- (s371 . "[info] %s") ; info reply
- (s372 . "[motd] %s") ; message of the day
- (s375 . "[motd] Message du jour:") ; start of motd
- (s376 . "[motd] Fin de message.") ; displayed at end of motd
- (s381 . "[info] Vous etes maintenant un crétin total.") ; irc op status
- (s382 . "[info] Rechargement: %s") ; rehash server msg
- (s391 . "[info] Heure sur le serveur %s: %s.") ; TIME reply
- (s392 . "[info] Login Terminal Machine") ; header for users rpl
- (s393 . "[info] %s") ; body of users rpl
- (s395 . "[info] Personne n'est connecté.") ; nobody for users rpl
- (s401 . "[info] Louzeur ou groupe inconnu: %s.") ; no such nick/chan
- (s402 . "[info] Serveur inconnu: %s.") ; there is no such server
- (s403 . "[info] Groupe inconnu: %s.") ; there is no such channel
- (s404 . "[info] Impossible d'écrire à %s.") ; can't send to channel
- (s405 . "[info] Trop de groupes: %s.") ; too many channels
- (s406 . "[info] Le serveur ne se souvient plus de %s.")
- ;; user@host
- (s407 . "[info] Destinataires dupliqués, message non envoyé: %s")
- (s411 . "[info] Destinataire manquant.") ; no recipient given
- (s412 . "[info] Texte manquant.") ; you didn't send anything.
- (s413 . "[info] Domaine manquant: %s") ; no toplevel domain spec
- (s414 . "[info] Domaine invalide: %s.") ; wild toplevel
- (s421 . "[info] Charabia: %s.")
- (s422 . "[info] Certains crétins sont trop ignorants pour créer un mot de bienvenue.")
- (s423 . "[info] Les crétins de %s sont trop ignorants pour fournir les informations administratives.")
- (s431 . "[info] Pseudonyme manquant.") ; you didn't provide a nick
- (s432 . "[info] Pseudonyme invalide: %s.") ; invalid nick
- (s433 . "[info] Pseudonyme %s déja utilisé.") ; invalid nick
- (s436 . "[info] Collision de pseudonymes: %s.") ; nickicide
- (s441 . "[info] %s n'est pas sur %s.") ; can't do it to those not present
- (s442 . "[info] Vous n'êtes pas sur %s.") ; you can't do that dave.
- (s443 . "[info] %s est déjà sur %s.") ; invite error
- (s444 . "[info] %s n'est pas connecté.") ; SUMMON reply
- (s445 . "[info] Un quelconque crétin vous refuse l'usage de /summon.")
- ;; disabld users
- (s446 . "[info] Un quelconque crétin vous refuse l'usage de /users.")
- ;; gotta do the USER NICK thing
- (s451 . "[info] Vous n'êtes pas encore enregistré.")
- (s461 . "[info] Paramètres insuffisants: %s") ; same as 421
- (s462 . "[info] Vous ne pouvez pas vous enregistrer à nouveau.")
- (s463 . "[info] Un quelconque crétin fasciste vous empêche de vous connecter.")
- (s464 . "[info] Le mot de passe ne semble pas valable.") ; bad PASS command
- (s465 . "[info] Vous n'êtes pas autorisé à utiliser ce serveur.")
- ;; chan key set already
- (s467 . "[info] Il y a déjà une clé sur %s.")
- (s471 . "[info] Impossible de rentrer sur %s (limite atteinte).")
- (s472 . "[info] Mode %s inconnu.") ; duh
- (s473 . "[info] Impossible de rentrer sur %s (sur invitation).")
- (s474 . "[info] Impossible de rentrer sur %s (interdit d'acces).")
- ;; bad key
- (s475 . "[info] Impossible de rentrer sur %s (clé invalide).")
- (s481 . "[info] Vous n'êtes pas encore assez crétin pour cela.")
- ;; chanop needed
- (s482 . "[info] Vous n'êtes pas assez puissant sur %s.")
- (s483 . "[info] Hep! Vous ne pouvez pas tuer un serveur.")
- (s491 . "[info] Pas de crétins connus sur votre site.") ; no o-line
- (s501 . "[info] Mode utilisateur inconnu.") ; you did something silly
- (s502 . "[info] Vous ne pouvez pas changer le mode de quelqu'un d'autre.")
- (ctcp_action . "[action->%s] %s %s") ; ctcp ACTION display
- (ctcp_clientinfo . "[interrogation] CLIENTINFO de %s sur %s.")
- (ctcp_errmsg . "[interrogation] ERRMSG de %s sur %s.")
- (ctcp_finger . "[interrogation] FINGER de %s sur %s.")
- (ctcp_ping . "[interrogation] PING de %s sur %s.")
- (ctcp_source . "[interrogation] SOURCE de %s sur %s.")
- (ctcp_time . "[interrogation] TIME de %s sur %s.")
- (ctcp_userinfo . "[interrogation] USERINFO de %s sur %s.")
- (ctcp_version . "[interrogation] VERSION de %s sur %s.")
- (debug . "[debug] %s") ; displayed by debugging code
- (error . "[%s] %s") ; server error message
- (invite . "[info] %s vous invite à perdre du temps sur %s.") ; invite
- (kick . "[info] %s a été éjecté de %s par %s.")
- (kick_you . "[info] Vous avez été éjecté de %s par %s.")
- (kill . "[info] Vous avez été tué: %s.") ; your time is up.
- (mode . "[info] %s a changé le mode sur %s: %s.") ; MODE change
- (nick . "[info] %s a changé de pseudo pour %s.") ; nick change
- (nosend . "[info] Pas de victime pour ce message.") ; msg not sent
- (notice . "{%s%s} %s") ; NOTICE
- (notice_you . "{%s} %s") ; NOTICE sent to your nick
- (now-querying . "[info] Victime: %s.") ; /query foo
- (part_you . "[info] Départ de: %s (%s)") ; your part from channel message
- (part . "[info] %s quitte %s (%s)") ;part from channel message
- (privmsg . "<%s%s> %s") ; PRIVMSG
- (privmsg_you . "*%s* %s") ; PRIVMSG sent to your nick
- (query . "[interrogation] de %s sur %s, contenu %s.") ; ctcp query
- (query_unknown . "commande CTCP inconnue.") ; we don't grok this
- (query_unbalanced . "[mauvaise interrogation] de %s vers %s, contenu %s.")
- (query_unbalanced_reply . "mauvaise réponse CTCP.") ; odd number of ^A's
- (quit . "[info] %s arrête de perdre du temps: %s") ; user signoff
- (reply . "[reponse] de %s sur %s, contenu %s.") ; ctcp reply
- (reply_unbalanced . "[mauvaise réponse] de %s sur %s, contenu %s.")
- (send . "(envoyé sur %s)") ; you sent a message/notice
- (send-action . "(envoyé sur %s)") ; you sent a message/notice
- (server . "[serveur] %s") ; unknown server message
- (signal . "[signal dans %s]") ; signal in echo area
- (topic . "[info] %s a changé le sujet sur %s pour: %s") ; topic message
- (wallops . "-%s- %s") ; WALLOPS notice
- ))
-
-(provide 'zenirc-french)
-
-;;; zenirc-french.el ends here
+++ /dev/null
-;;; zenirc-history.el --- keep a history of commands in ZenIRC
-
-;; Copyright (C) 1996, 1998 Per Persson
-
-;; Author: Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, history
-;; Created: 96-04-11
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; Code:
-
-\f
-(require 'zenirc)
-
-
-;; default is "/server" because that's probably the first thing you want to do
-(defvar zenirc-history-list '("/server")
- "A list of commands run by the user.")
-(make-variable-buffer-local 'zenirc-history-list)
-
-;; hairy variables to keep track of commands
-(defvar zenirc-history-list-backward nil)
-(make-variable-buffer-local 'zenirc-history-list-backward)
-(defvar zenirc-history-list-forward nil)
-(make-variable-buffer-local 'zenirc-history-list-forward)
-(defvar zenirc-history-list-current nil)
-(make-variable-buffer-local 'zenirc-history-list-current)
-
-;; reset hairy variables when a new command is sent to the server
-(defun zenirc-history-command (foo bar command)
- (setq zenirc-history-list-backward nil
- zenirc-history-list-forward nil
- zenirc-history-list-current nil
- zenirc-history-list (cons command zenirc-history-list)))
-\f
-;; step up one entry in the history list
-(defun zenirc-history-backward ()
- (interactive)
- (if (not zenirc-history-list-backward)
- ; initialize variables if their reset
- (setq zenirc-history-list-backward zenirc-history-list
- zenirc-history-list-current
- (buffer-substring zenirc-process-mark (point-max))
- zenirc-history-list-forward zenirc-history-list-forward))
- ; remove contents of line
- (beginning-of-line)
- (if (not (= (point) (point-max)))
- (delete-backward-char (- (point) (point-max))))
- ; insert previous command
- (insert (car zenirc-history-list-backward))
- ; update hairy variabels
- (setq zenirc-history-list-forward (cons
- zenirc-history-list-current
- zenirc-history-list-forward)
- zenirc-history-list-current (car zenirc-history-list-backward)
- zenirc-history-list-backward (cdr zenirc-history-list-backward)))
-
-;; step down one entry in the history list
-(defun zenirc-history-forward ()
- (interactive)
- (if (not zenirc-history-list-forward)
- ; reset variables
- (setq zenirc-history-list-backward nil
- zenirc-history-list-forward nil)
- ; remove contents of line
- (beginning-of-line)
- (if (not (= (point) (point-max)))
- (delete-backward-char (- (point) (point-max))))
- ; insert next command
- (insert (car zenirc-history-list-forward))
- ; update hairy variables
- (setq zenirc-history-list-backward (cons
- zenirc-history-list-current
- zenirc-history-list-backward)
- zenirc-history-list-current (car zenirc-history-list-forward)
- zenirc-history-list-forward (cdr zenirc-history-list-forward))))
-\f
-(provide 'zenirc-history)
-
-(zenirc-add-hook 'zenirc-send-line-hook 'zenirc-history-command)
-
-(define-key zenirc-mode-map "\M-p" 'zenirc-history-backward)
-(define-key zenirc-mode-map "\M-n" 'zenirc-history-forward)
-
-;; zenirc-history.el ends here
+++ /dev/null
-;;; zenirc-ignore.el -- ignore module for zenirc.
-
-;; Copyright (C) 1995, 1996 jason@marilyn.oit.umass.edu
-;; Copyright (C) 1995, 1996, 1998 Per Persson
-
-;; Author: Jason Bastek <jason@marilyn.oit.umass.edu>
-;; Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, ignorance
-;; Created: 96-04-11
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; Code:
-
-\f
-
-;; usage: /ignore [string] {all,message,dcc,ctcp,notice,action}
-;; /unignore [string]
-
-(require 'zenirc)
-
-(defun zenirc-ignore-install-message-catalogs ()
- (zenirc-lang-define-catalog 'english
- '((ignore-start-list . "[info] current ignoramuses:")
- (ignore-list . "[info] %s")
- (ignore-end-list . "[info] (end of list)")
- (ignore-new-entry . "[info] now ignoring %s")
- (ignore-bad-command . "[info] bad ignore command.")
- (ignore-bad-keyword . "[info] unknown ignore keyword: %s")
- (ignore-usage . "[info] usage: /ignore thing {all,message,dcc,ctcp,notice,action}")
- )))
-
-;; this is not buffer local by default, with zenirc-ignore.el it makes
-;; more sense to have it buffer local
-(make-variable-buffer-local 'zenirc-ignore-list)
-
-(defvar zenirc-command-ignore-hook '(zenirc-process-ignore))
-(defvar zenirc-command-unignore-hook '(zenirc-remove-from-ignore-list))
-
-(defun zenirc-process-ignore (proc parsedcmd)
- "Add someone to the list of ignoramuses."
- (let ((lst (zenirc-parse-words (cdr parsedcmd))))
- (cond ((> (length lst) 2)
- (zenirc-message proc 'ignore-bad-command))
- ((= (length lst) 2)
- (let* ((thing-to-ignore (regexp-quote (car lst)))
- (ignore-keyword (car (cdr lst)))
- (ignore-prefix
- (zenirc-ignore-determine-prefix thing-to-ignore))
- (ignore-keyword
- (zenirc-ignore-determine-keyword ignore-keyword))
- (ignore-string (concat ignore-prefix " " ignore-keyword)))
- (if (null ignore-keyword)
- (zenirc-message proc 'ignore-bad-keyword
- ignore-keyword)
- (zenirc-message proc 'ignore-new-entry ignore-string)
- (setq zenirc-ignore-list
- (cons ignore-string zenirc-ignore-list)))))
- ((= (length lst) 1)
- (zenirc-message proc 'ignore-usage))
- (t
- (zenirc-ignore-display-ignore-list proc)))))
-
-(defun zenirc-ignore-determine-prefix (str)
- "Take the first thing typed by the user at an /ignore command, and
-figure out what it's supposed to translate to. For now, this means
-that if the string doesn't look like a hostname, it's treated as a
-nickname. Otherwise, it's treated as a hostname."
- (cond ((string-match "!" str) ;; nick!user@host, don't touch it
- str)
- ((string-match "@" str)
- (concat "^:.*!.*" str))
- (t
- (concat "^:" str "!.*@.*"))))
-
-(defun zenirc-ignore-determine-keyword (str)
- "Take the second thing typed by the user at an /ignore command, and
-figure out what it translates to. For now, it can be one of:
-
- all message dcc ctcp notice action
-
-This returns nil if the keyword was unknown."
- (interactive)
- (let ((keyword
- (cond ((string= str "all") "")
- ((string= str "message") "PRIVMSG")
- ((string= str "dcc") "PRIVMSG[^:]+:\ 1DCC")
- ((string= str "ctcp") "PRIVMSG[^:]+:\ 1")
- ((string= str "notice") "NOTICE")
- ((string= str "action") "PRIVMSG[^:]+:\ 1ACTION")
- (t nil))))
- keyword))
-
-(defun zenirc-ignore-display-ignore-list (proc)
- "show the current ignore list."
- (zenirc-message proc 'ignore-start-list)
- (let ((lst zenirc-ignore-list))
- (while lst
- (progn (zenirc-message proc 'ignore-list (car lst))
- (setq lst (cdr lst))))
- (zenirc-message proc 'ignore-end-list)))
-
-;; this removes string from zenirc-ignore-list in two cases
-;; 1) if the string is an exact match
-;; 2) if the string doesn't include any special regexp chars and it is
-;; a partial match
-;; the reason to this is withheld because of two reasons
-;; 1) the explanation would be to long
-;; 2) it works
-(defun zenirc-remove-from-ignore-list (proc parsedcmd)
- "Remove someone from the ignore list."
- (let ((lst (zenirc-parse-words (cdr parsedcmd))))
- (while lst
- (let ((someone (car lst)))
- (zenirc-ignore-for-each
- zenirc-ignore-list
- '(lambda (x)
- (if (or (string-equal someone x)
- (string-match (regexp-quote someone) x))
- (setq zenirc-ignore-list (delq x zenirc-ignore-list)))))
- (setq lst (cdr lst))))
- (zenirc-ignore-display-ignore-list proc)))
-
-(defun zenirc-ignore-for-each (lst proc)
- (if lst
- (progn (funcall proc (car lst))
- (zenirc-ignore-for-each (cdr lst) proc))))
-
-(define-key zenirc-mode-map "\C-c\C-i" 'zenirc-ignore-last-sender)
-
-;; this code was originally written by
-;; Richard Todd <rmtodd@essex.ecn.uoknor.edu>
-(defun zenirc-ignore-last-sender ()
- (interactive)
- (let ((ignoree (zenirc-extract-userhost zenirc-privmsg-last-seen)))
- (zenirc-message (current-buffer) 'ignore-new-entry ignoree)
- (setq zenirc-ignore-list (cons (regexp-quote ignoree) zenirc-ignore-list))))
-
-(provide 'zenirc-ignore)
-
-(zenirc-ignore-install-message-catalogs)
-
-;; zenirc-ignore.el ends here
+++ /dev/null
-;;; zenirc-iwantop.el --- IWANTOP ctcp for granting channel operator bits
-
-;; Copyright (C) 1995 Eric Prestemon
-;; Copyright (C) 1995, 1996 Per Persson
-
-;; Author: Eric Prestemon <ecp@io.com>
-;; Noah Friedman <friedman@prep.ai.mit.edu>
-;; Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, extensions
-;; Created: 1995-03-31
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-;;; Code:
-
-(require 'zenirc)
-
-(defvar zenirc-iwantop-alist nil
- "*Association list of channel names and users allowed to be channel-opped.
-That is, when someone sends you an IWANTOP ctcp, they are checked against
-this alist to see if your client should automatically op them.
-
-Each channel name and user is treated as a regular expression.
-More than one user can be listed for each channel.
-
-Here is an example:
-
- (setq zenirc-iwantop-alist
- '((\"#twilight_zone\" \"pjg@.*.buffalo.edu\" \"trillian!.*kei.com\")
- (\"#bondage\" \".*\")))
-
-This will allow anyone to be opped, anywhere:
-
- (setq zenirc-iwantop-alist '((\".*\" \".*\")))
-")
-
-; If you want ZenIRC to see other things then just IWANTOP, do stuff like
-; (setq zenirc-ctcp-query-LICKMYPENIS-hook '(zenirc-ctcp-query-IWANTOP))
-; in your .emacs or wherever.
-(defvar zenirc-ctcp-query-IWANTOP-hook '(zenirc-ctcp-query-IWANTOP))
-
-(defun zenirc-ctcp-query-IWANTOP (proc parsedctcp from to)
- (save-match-data
- (let ((case-fold-search t)
- (sender (zenirc-extract-nick from))
- (nick (zenirc-run-hook 'zenirc-format-nickuserhost-hook from))
- (channel (car (zenirc-parse-firstword (cdr parsedctcp))))
- (fmt-failed "NOTICE %s :Oink!\n")
- (fmt-sorry "NOTICE %s :Missing #channel argument!\n")
- (fmt-mode "MODE %s +o %s\n")
- (alist zenirc-iwantop-alist)
- (list nil))
-
- (and zenirc-verbose-ctcp
- (zenirc-message proc 'query nick to
- (concat (car parsedctcp) " " (cdr parsedctcp))))
-
- (cond ((or (null channel)
- (not (zenirc-channel-p channel)))
- (process-send-string proc (format fmt-sorry sender)))
- (t
- ;; Do a zenirc-downcase-name even though case-fold-search is t
- ;; because extra characters are translated to conform with
- ;; RFC1459.
- (setq channel (zenirc-downcase-name channel))
- (while alist
- (and (string-match (zenirc-downcase-name (car (car alist)))
- channel)
- (progn
- ;; skip the first elt of the car of alist, since
- ;; that's just the channel name regexp
- (setq list (cdr (car alist)))
- (setq alist nil)))
- (setq alist (cdr alist)))
-
- ;; if verbose ctcp is on, tell the user we got the query
- (if (and list (zenirc-string-match-list from list))
- (process-send-string proc (format fmt-mode channel sender))
- (process-send-string proc (format fmt-failed sender))))))))
-
-(provide 'zenirc-iwantop)
-
-;;; zenirc-iwantop.el ends here
+++ /dev/null
-;;; zenirc-klingon.el
-;;; Waste time on Internet Relay Chat with badly translated Klingon.
-
-;;; Copyright (C) 1993, 1994 Ben A. Mesander
-;;; Copyright (C) 1998 Per Persson
-
-;; Author: David M. Archer <dmarcher@gnu.ai.mit.edu>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions, zenirc
-;; Created: 1995-05-07
-
-;; $Id: zenirc-klingon.el,v 1.1.1.1 1998-10-07 11:21:31 jareth Exp $
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; Code:
-
-(require 'zenirc)
-
-(zenirc-lang-define-catalog
- 'klingon
- '((s001 . "[De'] batlhlIj bIchIlqu'lI'") ; wasting time
- (s002 . "[De'] %s tengchaH QumwI'qoqvam lo' %s") ; server is
- (s003 . "[De'] %s ghItlh tengchaH QumwI'qoqvam") ; ??
- (s200 . "[De'] %s (%s) rarwI' -> %s") ; Version jangwI' from /trace
- (s202 . "[De'] %s H.S. -> %s")
- (s203 . "[De'] %s Sovbe'wI' -> IP address: %s") ; Unknown connection
- (s204 . "[De'] %s DenIb Qatlh -> %s") ; Operator connection
- (s205 . "[De'] %s lo'wI' -> %s") ; User connection
- (s206 . "[De'] %s tengchaH QumwI'qoq -> %s %s %s %s ") ; Server connection
- (s208 . "[De'] %s %s -> %s") ; New type connection
- (s209 . "[De'] %s buv -> %s = %s") ; What the classes means
- (s211 . "[De'] %s rartaH lup %s\nSent: %s/%s, Rcvd: %s/%s, SendQ: %s")
- (s212 . "[De'] %s\t->\ttimes: %s\tbytes: %s") ; Command stats
- (s213 . "[De'] C hst/nme/prt/cls: %s/%s/%s/%s") ; C-lines
- (s214 . "[De'] N hst/nme/prt/cls: %s/%s/%s/%s") ; N-lines
- (s215 . "[De'] %s host/name/class:\t%s/%s/%s") ; I-lines
- (s216 . "[De'] K host/username:\t%s/%s") ; K-lines
- (s217 . "[De'] Q %s/%s/%s/%s/%s") ; Q-lines
- (s218 . "[De'] Class: %s Ping freq: %s Conn.freq: %s Max Links: %s Sendq: %s") ; Y-lines
- (s219 . "[De'] /stats pItlh")
- (s221 . "[De'] %s soHbeHwI'")
- (s241 . "[De'] LEAF hostmask/depth:\t\t%s/%s") ; L-lines
- (s242 . "[De'] %s") ; Uptime of server
- (s243 . "[De'] O pongname/user@host:\t%s/%s") ; O-lines
- (s244 . "[De'] HUB hostmask/servername:\t%s/%s") ; H-lines
- (s251 . "[De'] naDev tengchaHmay QumwI'meyqoq %s lo'lI' lo'wI'pu' So'be' je %s lo'wI'pu' So' %s tu'lu'")
- (s252 . "[De'] naDev DenIbya'pu' Qatlh %s tu'lu'") ; # opers
- (s253 . "[De'] naDev rarwI' Sovbe' %s tu'lu'") ; # links ?
- (s254 . "[De'] naDev Se'mey %s tu'lu'") ; # channels
- (s255 . "[De'] naDev lo'WI'pu' %s je tengchaHmay QumwI'meyqoq %s tengchaH QumwI'qoqvam rartaH tu'lu'")
- (s256 . "[De'] De' loH %s:") ; /admin line 1
- (s257 . "[De'] %s") ; /admin line 2
- (s258 . "[De'] %s") ; /admin line 3
- (s259 . "[De'] %s") ; /admin line 4
- (s261 . "[De'] %s File -> %s %s") ; Logfile trace
- (s301 . "[De'] %s naDevDaq ghaHbe': %s") ; away
- (s302 . "[De'] userhost: %s") ; userhost jangwI'
- (s303 . "[De'] batlhlIj chIlqu'lI' %s") ; ison (losing honor)
- (s305 . "[De'] naDevDaq soHbe'") ; you are not here
- (s306 . "[De'] naDevDaq soH") ; you are here
- (s311 . "[De'] %s (%s@%s) %s ghaH") ; user part of /whois list
- (s312 . "[De'] %s tengchaH Qumwl'qoq lo'lI' %s (%s) ghaH")
- (s313 . "[De'] %s DenIbya' Qatlh ghaH") ; /whois operator status
- (s314 . "[De'] %s (%s@%s) %s ghaHta'law'") ; user part of /whowas list
- (s315 . "[De'] /who pItlh")
- (s317 . "[De'] %s has been idle %s") ; /whois idle time
- (s318 . "[De'] /whois pItlh")
- (s319 . "[De'] %s lo'lI' Se'mey %sghaH") ; channel part of whois data
- (s321 . "[De'] Se' lo'wI'pu' qech") ; header for LIST cmd
- (s322 . "[De'] %-15s %-5s %s") ; each channel in LIST cmd
- (s323 . "[De'] /list pItlh") ; trailer for LIST cmd
- (s324 . "[De'] %s 'oHbeHwI' %s %s") ; channel mode
- (s331 . "[De'] %s Se' 'oHbe' qech") ; no topic message
- (s332 . "[De'] %s qech: %s") ; topic message
- (s333 . "[De'] %s qech %s ghaHbeHta' %s") ; topic set time
- (s341 . "[De'] %s DarI'meH %s") ; invite
- (s342 . "[De'] %s Datlhob batlh chIl") ; summon (ask to lose honor)
- (s351 . "[De'] tengchaH QumwI'qoq lo': %s %s %s") ; version jangwI'
- (s352_header . "[De'] pong Dotlh Se' lo'wI'@'ejyo' (toghwI' chuq pong)") ; header for /who list jangwI\'
- (s352 . "[De'] %-9s %-3s %-15s %s@%s (%s)") ; /who list jangwI\'
- (s353 . "[De'] %s lo'wI'pu' %s") ; displayed after Bahnhof eintritt
- (s364 . "[De'] %s %s %s") ; /links
- (s365 . "[De'] /links pItlh") ; end of /links
- (s367 . "[De'] %s ghImwI' %s") ; banlist
- (s368 . "[De'] QonoS ghImwI' pItlh") ; end of banlist
- (s371 . "[De'] %s") ; De'
- (s372 . "[motd] %s") ; message of the day
- (s375 . "[motd] jabbI'ID'a' tengchaH QumwI'qoqvam:") ; start of motd
- (s376 . "[motd] motd pItlh") ; displayed at end of motd
- (s381 . "[De'] DenIbya' Qatlh soH") ; you are an oper
- (s382 . "[De'] Hujqa'lI': %s") ; rehash server msg
- (s391 . "[De'] %s tengchaH QumwI'qoqvam poH: %s") ; server's time
- (s392 . "[De'] png QumwI' 'ejDo'") ; header for users rpl
- (s393 . "[De'] %s") ; body of users rpl
- (s395 . "[De'] lo'wI'pu' pagh") ; nobody for users rpl
- (s401 . "[De'] pong joq Se' not: %s") ; there is no such pong/chan
- (s402 . "[De'] tengchaH QumwI'qoq not: %s") ; there is no such server
- (s403 . "[De'] Se' not: %s") ; there is no such Bahnhof
- (s404 . "[De'] %s DangeHlaHbe'") ; can't send to channel.
- (s405 . "[De'] tlhaqlIj chu'Ha'lu'pu': %s") ; you're on too many channels
- (s406 . "[De'] %s pong Sovbe'wI'") ; no whowas data
- (s407 . "[De'] HevwI' rap ngeHHa'lu'pu': %s") ; user@host
- (s409 . "[De'] mung nobHa'ta'") ; ping error
- (s411 . "[De'] HevwI' nobHa'ta'") ; no recipient given
- (s412 . "[De'] mu' nobHa'ta'") ; you didn't send anything.
- (s413 . "[De'] No toplevel domain: %s") ; no toplevel domain spec
- (s414 . "[De'] Wildcard in toplevel domain: %s") ; wild toplevel
- (s421 . "[De'] jIHtaHbogh naDev vISovbe': %s") ; you sent server spam
- (s422 . "[De'] motd not (DenIbya' Qatlh tIbach /admin)")
- (s423 . "[De'] loH De' not. (DenIbya' Qatlh yIchup HoH'egh)")
- (s431 . "[De'] pong not") ; you didn't provide a name
- (s432 . "[De'] pong qab: %s")
- (s433 . "[De'] pong lo'lI'vIS: %s")
- (s436 . "[De'] pong paw': %s")
- (s441 . "[De'] %s not %s") ; can't do it to those not present
- (s442 . "[De'] %s Se' Dalo'be'") ; not on channel
- (s443 . "[De'] %s lo'pa' Se' %s.") ; invite error
- (s444 . "[De'] %s naDev not") ; SUMMON jangwI\'
- (s445 . "[De'] DenIbya' Qatlh Duchaw'Ha' /summon")
- (s446 . "[De'] DenIbya' Qatlh Duchaw'Ha' /users")
- (s451 . "[De'] SuSovbe'pu'") ; gotta do the USER pong thing
- (s461 . "[De'] jIHtaHbogh naDev vISovbe': %s") ; as 421
- (s462 . "[De'] bItlhobbe' cha'logh") ; cannot USER twice
- (s463 . "[De'] DenIbya' Qatlh Dararbe'qu'") ; cannot connect
- (s464 . "[De'] jISaHbe'") ; bad PASS command
- (s465 . "[De'] DenIbya' Qatlh Dararbe'qu'") ; creep
- (s467 . "[De'] %s ngoq naDev") ; chan key set already
- (s471 . "[De'] %s Damuvbe'qu' (lo'wI' vuS)") ; too many ppl
- (s472 . "[De'] bIlughbe': %s") ; duh
- (s473 . "[De'] %s Damuvbe'qu' (rI'Se'neH)") ; fascist nerds
- (s474 . "[De'] %s Damuvbe'qu' (ghImwI')") ; you're banned
- (s475 . "[De'] %s Damuvbe'qu' (ngoq qab)") ; bad key
- (s481 . "[De'] DenIbya' Qatlh soHbe'") ; oper only
- (s482 . "[De'] verengan soHbe'") ; chanop needed
- (s483 . "[De'] nuqneH") ; can't kill a server
- (s491 . "[De'] DenIbya' Qatlhpu' naDevbe'") ; no o-line
- (s501 . "[De'] bIlughbe'") ; you did something silly
- (s502 . "[De'] bIlughbe'") ; as above
- (action . "(%s Davengta')") ; ctcp action sent
- (action-echo . "(%s Davengta')") ; ctcp action sent
- (connect-failed . "[Qagh] rarwI' mevlu'ta' %s %d not QIj: %s")
- (connect-try . "[De'] jol chu'lu' %s %d")
- (connect-abort . "[De'] rarwI' mevlu'ta'")
- (ctcp_action . "[vang->%s] %s %s") ; ctcp ACTION display
- (ctcp_clientinfo . "[yu'wI'] CLIENTINFO %s lIghaH %s")
- (ctcp_errmsg . "[yu'wI'] ERRMSG %s lIghaH %s")
- (ctcp_finger . "[yu'wI'] FINGER %s lIghaH %s")
- (ctcp_ping . "[yu'wI'] PING %s lIghaH %s")
- (ctcp_ping_reply . "[jangwI'] PING %s Duchuqlaw' lup %s")
- (ctcp_source . "[yu'wI'] SOURCE %s lIghaH %s")
- (ctcp_time . "[yu'wI'] TIME %s lIghaH %s")
- (ctcp_username . "[yu'wI'] USERNAME %s lIghaH %s")
- (ctcp_version . "[yu'wI'] VERSION %s lIghaH %s")
- (debug . "[reghuluS 'Iwghargh DaHoHlI'] %s"); displayed by debug code
- (error . "[%s] %s") ; server error message
- (invite . "[De'] %s DurI'lI' %s.") ; invite (you are being hailed)
- (join_you . "[De'] %s Damuvta'")
- (join . "[De'] %s muvta' %s")
- (kick . "[De'] %s: %s vo'ta' %s") ; someone was peeved
- (kick_you . "[De'] %s Duvo'ta' %s") ; loser
- (kill . "[De'] HovDaq lupqu'ta': %s") ; you've been killed (transported into star!)
- (mode . "[De'] %s ghaHbeHchoH %s: %s") ; MODE change
- (nick . "[De'] %s pong ghaHchoH %s") ; pong change
- (newcatalog . "[De'] vIjatlhlaH %s")
- (nocatalog . "[Qagh] vIjatlhlaHbe' %s")
- (nosend . "[De'] romuluSngan Daghajbe'") ; msg not sent
- (notice . "{%s%s} %s") ; NOTICE
- (notice_you . "{%s} %s") ; NOTICE sent to your pong
- (notify_list . "[De'] QonoS ghoq: %s")
- (notify_on . "[De'] %s batlhlchaj chIlqu'lI'")
- (notify_off . "[De'] %s batlhlchaj chIlqu'lI'be'")
- (now_querying . "[De'] %s romuluSnganlI' DaghajchoH") ; /query foo
- (part_you . "[De'] %s Damejta' (%s)") ;
- (part . "[De'] %s mejta' %s (%s)") ; part from Bahnhof message
- (pong . "[De'] %s chuS") ; pong message from server
- (privmsg . "<%s%s> %s") ; PRIVMSG
- (privmsg_you . "*%s* %s") ; PRIVMSG sent to your pong
- (protocol_violation . "[error] The following line is in violation of the IRC protocol.\n[error] Please tell the server administrator:\n%s: %s")
- (query . "[yu'wI'] %s lIghaH %s ngaSwI': %s") ; ctcp yu'wI'
- (query_unknown . "CTCP yu'wI' not")
- (query_unbalanced . "[tlhaQ Yu'WI'] %s lIghaH %s ngaSwI': %s")
- (query_unbalanced_reply . "CTCP tlhaQ Yu'WI'")
- (quit . "[De'] %s lupta': %s") ; user signoff
- (reply . "[jangwI'] %s lIghaH %s ngaSwI': %s") ; ctcp jangwI'
- (reply_unbalanced . "[tlhaQ JangwI'] %s lIghaH %s ngaSwI': %s")
- (send . "(%s DangeHta')") ; you sent a message/notice
- (send-echo . "(%s DangeHta')") ; you sent a message/notice
- (sentinel . "\nZenIRC Hegh: %s") ; process sentinel message
- (server . "[QumwI'] %s") ; unknown server message
- (signal . "[%s DurI'lI']") ; signal in echo area
- (topic . "[De'] %s choHta' qech %s: %s") ; topic message
- (wallops . "-%s- %s") ; WALLOPS notice
- ))
-
-(provide 'zenirc-klingon)
-
-;;; zenirc-klingon.el ends here
-
-;;; notes:
-
-; lupta' transport (done)
-; Se' frequency
-; Se'mey frequencies
-; DenIbya' Qatlh / Denlbya'pu' Qatlh
-; naDev DenIbya'pu' Qatlh tu'lu' here (Denlbya'pu') notice(indef)
-; tengchaH space station
-; QumwI' communications device
-; qoq (so-called)
-
-; rarwI' "that which connects" link
-; Sovbe'wI' "that which is not known" unknown
-
-; tengchaH QumwI'qoq server
-; tengchaH QumwI'qoqvam this server
-; tengchaHmay Qumwl'meyqoq servers
-
-; ngeHHa'lu'pu' nothing sent.
-
-; ghaH him/her
-; lo'wI' user (one who uses) lo'wI'pu' (users)
-; pItlh done
-; ghImwI' ban (that which exiles)
-; soHbeHwI' your mode
-
-; muv join muvta' (has joined)
-
-
-;HIja' yes
-;ghobe' no
-;toH Well! Aha!
-;chay' How did this happen? / What's going on?
-;jIyajbe' I don't understand.
-;jISaHbe' I don't care.
-;qay'be' No problem!
-;tlhIngan Hol DajatIh'a' Do you speak Klingon?
-;tlhIngan Hol vIjatIhlaHbe' I cannot speak Klingon.
-;tlhIngan Hol vIjatIhlaH I can speak Klingon.
-;jIleSnIS I need rest.
-;bIleSnIS You need rest.
-;lu' Ok.
-;naDev qaS wanI' ramqu' There's nothing happening here.
-;naDev vo' yIghoS Go away!
-;nuqneH What do you want? (greeting)
-;bIjatlh' e' ylmev Shut up.
-;naDev tlhInganpu' tu'lu' There are Klingons around here.
+++ /dev/null
-;;; zenirc-latin.el --- Latin message catalog for ZenIRC
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1998 Per Persson
-
-;; Author: Richard Todd <rmtodd@servalan.servalan.com>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions
-;; Created: 1994-02-28
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; "i like latin-mode, it's like operating a trojan horse or something."
-;; -- Dave Archer <dmarcher@acsu.buffalo.edu>
-
-;; "with zenirc-latin-mode, a netsplit reminds me of the part in carmina
-;; burana where everyone's drinking." -- Dave Archer
-
-;; "god, i love the latin mode.. makes me feel like caligula" -- James Price
-
-;;; Code:
-
-(require 'zenirc)
-
-(zenirc-lang-define-catalog 'latin
- '((join_you . "[info] Apud %s iniis.") ; your channel join message
- (join . "[info] %s apud %s iniit.") ; channel join message
- (s001 . "[info] Tempus tuum perdis.") ; welcome to irc message
- (s002 . "[info] Servum IRC tuum %s (%s) est.") ; server name & version #
- (s003 . "[info] Diem %s servum factum est.") ; when the server was built
- (s211 . "[info] %s connectio %s momentibus erat.\nMissi : %s/%s, Recepti: %s/%s, Mittendi: %s")
- (s212 . "[info] %s\t->\ttempus: %s\tbytes: %s") ; command stats
- (s215 . "[info] %s machina/nomen:\t%s/%s") ; I-lines
- (s216 . "[info] K machina/nomen clientis:\t%s/%s") ; K-lines
- (s219 . "[info] /stats perfectus est.") ; end of /stats
- (s221 . "[info] Tuus modus %s nunc est.") ; user mode
- (s241 . "[info] LEAF hostmask/altitudo:\t\t%s/%s") ; L-lines
- (s243 . "[info] %s cognomen/login@machina:\t%s/%s") ; O-lines or o-lines
- (s244 . "[info] HUB hostmask/nomen servi:\t%s/%s") ; H-lines
- ;; # users on connect message
- (s251 . "[info] %s clientes visibiles et %s clientes invisibles apud %s serva sunt.")
- (s252 . "[info] %s nothi pravi adsunt.") ; irc operators msg
- (s253 . "[info] %s conjunctiones incognitae sunt.") ; unk connects msg
- (s254 . "[info] %s fora sunt.") ; number of channels
- ;; # of clients and servers
- (s255 . "[info] %s clientes et %s serva huic servo loquiuntur.")
- (s256 . "[info] Descriptio procurationis %s:") ; admin info
- (s301 . "[info] %s abest: %s") ; someone is away
- (s302 . "[info] identificatio: %s.") ; userhost reply
- (s303 . "[info] Tempus perdit nunc: %s") ; ison reply
- (s305 . "[info] Nuntio te non abesse.")
- (s306 . "[info] Nuntio te abesse.")
- (s311 . "[info] %s (%s@%s) %s est.") ; user part of /whois list
- (s312 . "[info] %s apud servum %s (%s)") ; server part of /whois list
- (s313 . "[info] %s nothus pravus est.") ; /whois operator status
- (s314 . "[info] %s (%s@%s) %s erat.") ; user part of /whowas list
- (s315 . "[info] /who perfectus est.") ; end of /who list replies
- (s318 . "[info] /whois perfectus est.") ; end of /whois list replies
- (s317 . "[info] %s per %s quietus erat.") ; /whois idle time
- (s319 . "[info] %s adest in: %s") ; channel part of whois data
- (s321 . "[info] Forum\tQuot Clientes?\tRes") ; header for LIST cmd
- (s322 . "[info] %s\t%s\t%s") ; each channel in LIST cmd
- (s323 . "[info] /list perfectus est.") ; trailer for LIST cmd
- (s324 . "[info] Modus %s: %s %s.") ; channel mode
- (s331 . "[info] %s nullam rem habet.") ; no topic message
- (s332 . "[info] Res %s : %s") ; topic message
- (s341 . "[info] %s in %s invitas.") ; invite reply
- (s342 . "[info] %s tempus perdere rogas.") ; summon reply
- (s351 . "[info] Version: %s %s %s.") ; version reply
- ;; header for /who list reply
- ;; Bleah, Latin doesn't really have a good short word for 'nickname', so
- ;; we'll invent one.
- (s352_header . "[info] Cognomen Status Nomen Fori Login et Machina Nomen")
- (s352 . "[info] %-9s %-3s %-15s %s@%s (%s)") ; /who list reply
- (s353 . "[info] Homines in %s: %s") ; displayed after channel join
- (s364 . "[info] %s %s %s") ; /links reply
- (s365 . "[info] /links perfectus est.") ; end of /links reply
- (s367 . "[info] %s interdicit %s.") ; banlist reply
- (s368 . "[info] Tabula interdictionum perfecta est.") ; end of banlist
- (s371 . "[info] %s") ; info reply
- (s372 . "[motd] %s") ; message of the day
- (s375 . "[motd] Nuntius hodiernus:") ; start of motd
- (s376 . "[motd] Nuntius hodiernus perfectus est.") ; end of motd
- (s381 . "[info] Nunc nothus pravus est.") ; irc op status
- ;; Yeah, right, like there's a word for `rehash' in Latin.
- (s382 . "[info] Rehashit: %s")
- (s391 . "[info] Dies apud servum %s: %s.") ; TIME reply
- (s392 . "[info] Login Terminal Machina") ; header for users rpl
- (s393 . "[info] %s") ; body of users rpl
- (s395 . "[info] Nemo adest.") ; nobody for users rpl
- (s401 . "[info] %s nec cognomen nec forum est.") ; no such nick/chan
- (s402 . "[info] Servum %s nescio.") ; there is no such server
- (s403 . "[info] Forum %s nescio.") ; there is no such channel
- (s404 . "[info] %s loqui non potes.") ; you can't send to channel
- (s405 . "[info] Plura fora quam loqui potes: %s.") ; too many channels
- (s406 . "[info] %s servum nescit.") ; no whowas data
- (s407 . "[info] Receptores duplices ; nuntium non misit: %s") ; user@host
- (s411 . "[info] Nullus receptor adfuit.") ; no recipient given
- (s412 . "[info] Nullus nuntius adfuit.") ; you didn't send anything.
- (s413 . "[info] Nullum regnum supremum adfuit: %s") ; no toplevel domain
- (s414 . "[info] Regnum vitiosum est: %s.") ; wild toplevel
- (s421 . "[info] Stercus est: %s.") ; you sent server spam
- (s422 . "[info] Quidam nothus pravus imperitus est; nuntium hodiernum non fecit.")
- (s423 . "[info] Quidam nothus pravus imperitus est; procurationem non descripsit.")
- (s431 . "[info] Nullus cognomen adfuit.") ; you didn't provide a nick
- (s432 . "[info] Cognomen vitiosum est: %s.") ; invalid nick
- (s433 . "[info] Aliquis cognomen %s iam utebatur.") ; invalid nick
- (s436 . "[info] Concursus cognominum: %s.") ; nickicide
- (s441 . "[info] %s in %s non est.") ; can't do it to those not present
- (s442 . "[info] In %s non es.") ; you can't do that dave.
- (s443 . "[info] %s iam in %s est.") ; invite error
- (s444 . "[info] %s non conjunctus est.") ; SUMMON reply
- ;; disabled summon
- (s445 . "[info] Te /summon uti aliqui nothus pravus non permittit.")
- ;; disabld users
- (s446 . "[info] Te /users uti aliqui nothus pravus non permittit.")
- (s451 . "[info] Nondum perscripsit.") ; gotta do the USER NICK thing
- (s461 . "[info] Parum parameteres: %s")
- (s462 . "[info] Non perscriptere iterum potes.") ; cannot USER twice
- ;; server refuses this client
- (s463 . "[info] Te connectere aliqui nothus pravus cerritus non permittit.")
- (s464 . "[info] Tessera vitiosa est.") ; bad PASS command
- (s465 . "[info] Hoc servam uti non tibi licet.") ; creep
- (s467 . "[info] Tessera huius fori iam adest.") ; chan key set already
- (s471 . "[info] Apud %s inire non potes (plures clientes).")
- (s472 . "[info] Modum %s nescio.") ; duh
- (s473 . "[info] Apud %s inire non potes (nulla invitatio est).")
- (s474 . "[info] Apud %s inire non potes. Interdiceris.") ; you're banned
- (s475 . "[info] Apud %s inire non potes (tesseram non habes).")
- (s481 . "[info] Hic solum nothos pravos licet.") ; oper only
- (s482 . "[info] Censor %s non es.")
- (s483 . "[info] Eh! Servum caedere non potes!") ; can't kill a server
- (s491 . "[info] Nulli nothi pravi ab tua machina permissi sunt.")
- (s501 . "[info] Hanc modum nescio.") ; you did something silly
- (s502 . "[info] Modum alii mutare non potes.") ; as above
- (ctcp_action . "[actio->%s] %s %s")
- (ctcp_clientinfo . "[quaestio] CLIENTINFO ab %s ad %s.")
- (ctcp_errmsg . "[quaestio] ERRMSG ab %s ad %s.")
- (ctcp_finger . "[quaestio] FINGER ab %s ad %s.")
- (ctcp_ping . "[quaestio] PING ab %s ad %s.")
- (ctcp_ping_reply . "[reponsum] PING %s %s momentibus abest.")
- (ctcp_source . "[quaestio] SOURCE ab %s ad %s.")
- (ctcp_time . "[quaestio] TIME ab %s ad %s.")
- (ctcp_userinfo . "[quaestio] USERINFO ab %s ad %s.")
- (ctcp_version . "[quaestio] VERSION ab %s ad %s.")
- (debug . "[debug] %s") ; displayed by debugging code
- (error . "[%s] %s") ; server error message
- (invite . "[info] %s te apud %s invitat.") ; invite
- (kick . "[info] %s de %s ejectum est per %s.") ; someone was peeved
- (kick_you . "[info] De %s ejectum es per %s.") ; loser
- (kill . "[info] Caesus es: %s.") ; your time is up.
- (mode . "[info] %s modum de %s mutavit: %s") ; MODE change
- (nick . "[info] %s cognomen mutavit ad %s.") ; nick change
- (nosend . "[info] Nulla victima in nuntios habes.") ;
- (notice . "{%s%s} %s") ; NOTICE
- (notice_you . "{%s} %s") ; NOTICE sent to your nick
- (notify_list . "[info] Ei quos exspectas: %s") ;
- (notify_on . "[info] %s tempus perdere videbam.") ;
- (notify_off . "[info] %s tempus perdere non iam video.") ;
- (now_querying . "[info] Victima: %s.") ; /query foo
- (part_you . "[info] Exis de: %s (%s)") ; your part from channel message
- (part . "[info] %s exiit de %s (%s)") ;part from channel message
- (privmsg . "<%s%s> %s") ; PRIVMSG
- (privmsg_you . "*%s* %s") ; PRIVMSG sent to your nick
- (query . "[quaestio] ab %s ad %s, res %s.") ; ctcp query
- (query_unknown . "Mandatum CTCP ignotum.") ; we don't grok this
- (query_unbalanced . "[mala quaestio] ab %s ad %s, res %s.")
- (query_unbalanced_reply . "Malum reponsum CTCP.") ; odd number of ^A's
- (quit . "[info] %s tempus perdere intermisit: %s") ; user signoff
- (reply . "[reponsum] ab %s ad %s, res %s.") ; ctcp reply
- (reply_unbalanced . "[malum reponsum] ab %s ad %s, res %s.") ; weird
- (send . "(ad %s missus est)") ; you sent a message/notice
- (send-echo . "(ad %s missus est)") ; you sent a message/notice
- (server . "[servum] %s") ; unknown server message
- (signal . "[signum in %s]") ; signal in echo area
- (topic . "[info] %s res %s mutavit: %s") ; topic message
- (wallops . "-%s- %s") ; WALLOPS notice
- ))
-
-(provide 'zenirc-latin)
-
-;; zenirc-latin.el ends here
+++ /dev/null
-;;; zenirc-make --- a hack to set the load path for byte-compiling
-
-;; Copyright (C) 1995, 1996 Per Persson
-
-;; Author: Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, make
-;; Created: 1995-06-26
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; Code:
-
-(setq load-path (cons "." load-path))
-
-;;; zenirc-make.el ends here
\ No newline at end of file
+++ /dev/null
-;;; zenirc-meditate.el --- admonish others for disturbing your meditation
-
-;; Copyright (C) 1995, 1997 Noah S. Friedman
-
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, extensions
-;; Created: 1995-04-09
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-;;; Code:
-
-(require 'zenirc-trigger)
-
-(defconst zenirc-meditate-response-percentage 1)
-
-(defconst zenirc-meditate-response-list
- '("Activity through inactivity."
- "Don't bother."
- "Enlightenment does not come from typing."
- "Enlightenment does not require a keyboard."
- "Hair will grow on your palms if you keep typing."
- "Meditate, or die."
- "Once a student typed too much and died."
- "Stop fidgeting, you're bothering the others."
- "The keyboard is sure to block your mind."
- "Will you stop the infernal racquet and meditate!?"
- "Your fingers will destroy your meditation."
- "Your keyboard is not the path to enlightenment."
- "Your typing detracts from your enlightenment."))
-
-(defun zenirc-meditate ()
- (and (< (random 1000) zenirc-meditate-response-percentage)
- (nth (random (length zenirc-meditate-response-list))
- zenirc-meditate-response-list)))
-
-(zenirc-trigger-register "meditate" 'zenirc-meditate "^.")
-
-(provide 'zenirc-meditate)
-
-;; zenirc-meditate.el ends here
+++ /dev/null
-;;; zenirc-netsplit.el --- hide excessive spew from netsplits
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1995 Noah S. Friedman
-;; Copyright (C) 1998 Per Persson
-
-;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Eric Prestemon <ecp@io.com>
-;; Noah Friedman <friedman@prep.ai.mit.edu>
-;; Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, extensions
-;; Created: 1993/03/10
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; This script attempts to supress excessive signon/offs and mode changes
-;; due to netsplits.
-
-;;; Code:
-
-(require 'zenirc)
-
-(defvar zenirc-netsplit-show-server-mode-changes-p nil
- "Set to t to enable display of server mode changes.")
-
-(defvar zenirc-netsplit-debug nil
- "Set to t in order to enable debugging messages in the netsplit code")
-
-;; this is a list of the form
-;; (("a.b.c.d e.f.g" (time stamp) first-join "nick1" ... "nickn") ...)
-;; where first-join is t or nil, depending on whether or not the first
-;; join from that split has been detected or not.
-(defvar zenirc-netsplit-list nil)
-(make-variable-buffer-local 'zenirc-netsplit-list)
-
-(defvar zenirc-command-wholeft-hook '(zenirc-netsplit-wholeft))
-
-(zenirc-add-hook 'zenirc-server-JOIN-hook 'zenirc-netsplit-JOIN)
-(zenirc-add-hook 'zenirc-server-MODE-hook 'zenirc-netsplit-MODE)
-(zenirc-add-hook 'zenirc-server-QUIT-hook 'zenirc-netsplit-QUIT)
-(zenirc-add-hook 'zenirc-timer-hook 'zenirc-netsplit-timer)
-
-;; TODO: add messages for other languages
-(defun zenirc-netsplit-install-message-catalogs ()
- (zenirc-lang-define-catalog 'english
- '((netsplit . "[info] netsplit: %s")
- (netsplit-join . "[info] netjoin: %s")
- (netsplit-wholeft . "[info] split: %s missing: %s %s")
- )))
-
-;; show/don't show rejoins
-(defun zenirc-netsplit-JOIN (proc parsedmsg)
- (let ((nick (zenirc-downcase-name (zenirc-extract-nick (aref parsedmsg 1))))
- (list zenirc-netsplit-list)
- elt)
- (while list
- (setq elt (car list))
- (setq list (cdr list))
- (if (member nick (nthcdr 3 elt))
- (progn
- (setq zenirc-run-next-hook nil)
- (if (not (car (cdr (cdr elt))))
- (progn
- (zenirc-message proc 'netsplit-join (car elt))
- (setcar (nthcdr 2 elt) t)))
- ;; need to remove this nick, perhaps the whole entry here.
- ;; Note that by removing the nick now, we can't tell if further
- ;; join messages (for other channels) should also be
- ;; suppressed.
- (if (null (nthcdr 4 elt))
- (setq zenirc-netsplit-list (delq elt zenirc-netsplit-list))
- (delete nick elt)))))))
-
-;; hide mode changes from servers
-(defun zenirc-netsplit-MODE (proc parsedmsg)
- (save-match-data
- ;; regexp matches things with a . in them, and no ! or @ in them.
- (cond ((string-match "^[^@!]+\\.[^@!]+$" (aref parsedmsg 1))
- (and zenirc-netsplit-debug
- (zenirc-message proc "[debug] server mode change.\n"))
- (or zenirc-netsplit-show-server-mode-changes-p
- (setq zenirc-run-next-hook nil))))))
-
-;; detect netsplits
-(defun zenirc-netsplit-QUIT (proc parsedmsg)
- (save-match-data
- (let* ((split (zenirc-downcase-name (aref parsedmsg 2)))
- (nick (zenirc-downcase-name (zenirc-extract-nick (aref parsedmsg 1))))
- ass)
- ;; look for arguments of the form host.name.1 host.name.2
- (if (string-match "^[^ ]+\\.[^ ]+ [^ ]+\\.[^ ]+$" split)
- (progn
- (setq zenirc-run-next-hook nil)
- (setq ass (assoc split zenirc-netsplit-list))
- (if ass
- ;; element for this netsplit exists already
- (setcdr (nthcdr 2 ass) (cons nick (nthcdr 3 ass)))
- ;; element for this netsplit does not yet exist
- (setq zenirc-netsplit-list
- (cons (list split
- (zenirc-time-to-int (current-time-string))
- nil
- nick)
- zenirc-netsplit-list))
- (zenirc-message proc 'netsplit split)))))))
-
-;; clean cruft from zenirc-netsplit-list older than 10 minutes
-(defun zenirc-netsplit-timer (proc now)
- (let ((list zenirc-netsplit-list)
- elt)
- (while list
- (setq elt (car list))
- (setq list (cdr list))
- (and (zenirc-time< '(0 600) (zenirc-time-diff now (car (cdr elt))))
- (setq zenirc-netsplit-list (delq elt zenirc-netsplit-list))))))
-
-;; show who's gone
-(defun zenirc-netsplit-wholeft (proc parsedcmd)
- (let ((list zenirc-netsplit-list)
- elt)
- (while list
- (setq elt (car list))
- (setq list (cdr list))
- (zenirc-message proc 'netsplit-wholeft
- (car elt)
- (mapconcat 'identity (nthcdr 3 elt) " ")
- (if (car (cdr (cdr elt)))
- "(joining)"
- "")))))
-
-(provide 'zenirc-netsplit)
-
-(zenirc-netsplit-install-message-catalogs)
-
-;;; zenirc-netsplit.el ends here
+++ /dev/null
-;;; zenirc-notify.el --- Notifies you when people signon/off
-
-;; Copyright (C) 1995, 1996, 1997, 1998 Per Persson
-
-;; Author: Per Persson <pp@sno.pp.se>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, notify, extensions
-;; Created: 1995-03-30
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; TODO: If notifee joins channel, don't show notification.
-
-;;; Code:
-
-(require 'zenirc)
-
-(defvar zenirc-notify-list '()
- "*A list of nicknames that you want to watch for on IRC.")
-
-(defvar zenirc-notify-interval '(0 60)
- "*Time between ISON's sent to server.")
-
-(defvar zenirc-last-notify '(0 0)
- "Time previous ISON sent.")
-(make-variable-buffer-local 'zenirc-last-notify)
-
-(zenirc-add-hook 'zenirc-timer-hook 'zenirc-notify-timer)
-
-;; used with notify code to see if we did /ison or not
-(defvar zenirc-manual-ison nil)
-(make-variable-buffer-local 'zenirc-manual-ison)
-
-;; people you previously recieved notification of
-(defvar zenirc-previous-ison nil)
-(make-variable-buffer-local 'zenirc-previous-ison)
-
-;; should you get a user@host reply on notify?
-(defvar zenirc-userhost-on-notify t)
-(make-variable-buffer-local 'zenirc-userhost-on-notify)
-
-(defvar zenirc-userhost-by-notify nil)
-(make-variable-buffer-local 'zenirc-userhost-by-notify)
-
-(defvar zenirc-command-notify-hook '(zenirc-command-notify)
- "*Hook to call when a /notify command is issued in ZeniIRC.
-
-The syntax of the command is: /notify victim.
-This toggles the presence of `victim' in your notify-list.
-If no victim is specified, you will see your notify-list instead.")
-
-; hooks to make zenirc aware of the notify code.
-(defvar zenirc-command-ison-hook '(zenirc-command-ison))
-(defvar zenirc-command-userhost-hook '(zenirc-command-userhost))
-
-(defun zenirc-notify-install-message-catalogs ()
- (zenirc-lang-define-catalog 'english
- '((notify_list . "[info] Your current notify list: %s")
- (notify_on . "[info] detected %s wasting time.")
- (notify_off . "[info] detected that %s stopped wasting time.")
- (notify_current . "[info] Notificated people wasting time: %s")
- )))
-
-(defun zenirc-notify-timer (proc now)
- "Call zenirc-command-notify-hook with arguments that cause it to send an
-ISON message to the server. This is used to notice when people in the notify
-list have come on or off of IRC."
- (if (zenirc-time< zenirc-notify-interval
- (zenirc-time-diff now zenirc-last-notify))
- (progn
- (zenirc-run-hook 'zenirc-command-notify-hook proc
- '("notify" . "%auto"))
- (setq zenirc-last-notify now))))
-
-\f
-;; /notify handler
-;;
-;; *** NOTE ***
-;; this is also called from the zenirc event handling code
-;;
-(defun zenirc-command-notify (proc parsedcmd)
- (let ((arg (cdr parsedcmd)))
- (if (string-equal "" arg)
- ; output list of notificated people (online)
- (progn
- (if (not zenirc-previous-ison)
- (zenirc-message proc 'notify_current "")
- (zenirc-message proc 'notify_current zenirc-previous-ison))
- (zenirc-message proc 'notify_list
- (mapconcat 'identity zenirc-notify-list " ")))
- (if (not (string-match "%" arg))
- ; add or remove nick from zenirc-notify-list
- (progn
- (setq arg (zenirc-parse-words arg))
- (while arg
- (if (zenirc-string-match-list (car arg) zenirc-notify-list)
- (setq zenirc-notify-list (zenirc-delete-case-insensitive
- (car arg) zenirc-notify-list))
- (setq zenirc-notify-list (cons (car arg) zenirc-notify-list)))
- (setq arg (cdr arg)))
- ; output new list of notificated people
- (zenirc-message proc 'notify_list
- (mapconcat 'identity zenirc-notify-list " "))))
- (if zenirc-notify-list
- ; if automated, check to see if anything has changed
- (process-send-string
- proc
- (concat "ISON "
- (mapconcat 'identity zenirc-notify-list " ") "\n"))))))
-
-;; /ison nick1 [nick2 [nick3...]]
-(defun zenirc-command-ison (proc parsedcmd)
- (process-send-string proc
- (concat "ISON " (cdr parsedcmd) "\n"))
- (setq zenirc-manual-ison 1))
-
-;; /userhost nick1 [nick2 [nick3...]]
-(defun zenirc-command-userhost (proc parsedcmd)
- (process-send-string proc (concat "USERHOST " (cdr parsedcmd) "\n"))
- (setq zenirc-userhost-by-notify nil))
-
-(defun zenirc-server-303-notify (proc parsedmsg)
- (let* ((ison-list (zenirc-parse-words (aref parsedmsg 3))))
- ; check if user issued /ison and don't want the notify code to execute
- (if zenirc-manual-ison
- (progn
- (zenirc-message proc 's303 (aref parsedmsg 3))
- (setq zenirc-manual-ison nil))
- (let ((new-list ison-list)
- (old-list zenirc-previous-ison))
- ; check if a certain nick wasn't seen the last time
- (while new-list
- (if (not (member (car new-list)
- zenirc-previous-ison))
- ; check if user wants user@host displayed.
- (if zenirc-userhost-on-notify
- (progn
- (process-send-string
- proc
- (concat "USERHOST " (car new-list) "\n"))
- (setq zenirc-userhost-by-notify t))
- (zenirc-message proc 'notify_on (car new-list))))
- (setq new-list (cdr new-list)))
- ; check if a certain nick was seen the last time
- (while old-list
- (if (not (member (car old-list)
- ison-list))
- (zenirc-message proc 'notify_off (car old-list)))
- (setq old-list (cdr old-list))))
- (setq zenirc-previous-ison ison-list))))
-
-(defun zenirc-server-302-notify (proc parsedmsg)
- (if zenirc-userhost-by-notify
- ; go on, sue me for being lazy and using @ for this check.
- ; --pp
- ; if you understand why I do this check, you deserve a nice
- ; reward. took me about 10 minutes to figure it out myself.
- ; --pp
- (if (string-match "@" (aref parsedmsg 3))
- (zenirc-message proc 'notify_on (aref parsedmsg 3)))
- (zenirc-message proc 's302 (aref parsedmsg 3))))
-
-\f
-(provide 'zenirc-notify)
-
-(zenirc-notify-install-message-catalogs)
-
-(zenirc-remove-hook 'zenirc-server-303-hook 'zenirc-server-303)
-(zenirc-add-hook 'zenirc-server-303-hook 'zenirc-server-303-notify)
-(zenirc-remove-hook 'zenirc-server-302-hook 'zenirc-server-302)
-(zenirc-add-hook 'zenirc-server-302-hook 'zenirc-server-302-notify)
-
-;;; zenirc-notify.el ends here
+++ /dev/null
-;;; zenirc-oink.el --- auto-oink
-
-;; Copyright (C) 1995, 1997 Noah S. Friedman
-
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: friedman@prep.ai.mit.edu
-;; Keywords: zenirc, extensions
-;; Created: 1995-04-09
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-;;; Code:
-
-(require 'zenirc-trigger)
-
-(defconst zenirc-oink-response-percentage 1)
-
-(defconst zenirc-oink-response-list
- '("oink"
- "oink!"
- "oink."
- "bozoink"
- "oinkage"
- "knio"
- "you will be in your oink soon"
- "don't say oink"
- ":1 s/oink/oink oink/g; b 1"
- ;; the oink combinator
- "(define oink (lambda (oink?) ((lambda (oink) (oink? (lambda (oink!) ((oink oink) oink!)))) (lambda (oink) (oink? (lambda (oink!) ((oink oink) oink!)))))))"))
-
-(defun zenirc-oink ()
- (and (< (random 1000) zenirc-oink-response-percentage)
- (nth (random (length zenirc-oink-response-list))
- zenirc-oink-response-list)))
-
-(zenirc-trigger-register "oink" 'zenirc-oink "oink\\|knio")
-
-(provide 'zenirc-oink)
-
-;; zenirc-oink.el ends here
\ No newline at end of file
+++ /dev/null
-;;; zenirc-ojnk.el --- Send ojnks - example of adding commands to zenirc
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-
-;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Maintainer: ben@gnu.ai.mit.edu
-;; Keywords: extensions
-;; Created: 1993/06/03
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; Examples of defining your own commands in zenirc.
-;; Modeled after ircII code by dmarcher@autarch.acsu.buffalo.edu
-
-;; /ojnk victim & /ojnkflood victim
-
-;; OJNK is the sound a PJGLET makes.
-
-;;; Code:
-
-(require 'zenirc)
-
-(defvar zenirc-command-ojnk-hook '(zenirc-command-ojnk))
-(defvar zenirc-command-ojnkflood-hook '(zenirc-command-ojnkflood))
-
-;; /ojnk victim
-(defun zenirc-command-ojnk (proc cmd)
- (process-send-string
- proc (concat "PRIVMSG " (cdr cmd)
- " :\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\n")))
-
-;; /ojnkflood victim
-(defun zenirc-command-ojnkflood (proc cmd)
- (process-send-string
- proc (concat "PRIVMSG " (cdr cmd)
- " :\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\C-aOJNK! ^. .^\C-a\C-aOJNK! ( @ )\C-a\C-aOJNK! ojnk!\C-a\n")))
-
-(provide 'zenirc-ojnk)
-
-;;; zenirc-ojnk.el ends here
+++ /dev/null
-;;;
-;;;
-;;; zenirc-pjg.el
-;;; Automatically annoy Zen Internet Relay Chat client
-;;;
-;;; Copyright (C) 1993, 1994 Ben A. Mesander
-;;;
-;;; Author: Ben Mesander <ben@gnu.ai.mit.edu>
-;;; Maintainer: ben@gnu.ai.mit.edu
-;;; Keywords: extensions
-;;; Created: 1994/02/28
-;;;
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, you can either send email to this
-;;; program's maintainer or write to: The Free Software Foundation,
-;;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-;;;
-;;; Commentary:
-;;;
-;;; OJNK
-;;;
-;;;
-;;; Code:
-
-(require 'zenirc)
-
-(defvar zenirc-pjg-interval '(0 600))
-(defvar zenirc-last-pjg '(0 0))
-(zenirc-add-hook 'zenirc-timer-hook 'zenirc-pjg)
-(defun zenirc-pjg (proc now)
- (if (zenirc-time< zenirc-pjg-interval
- (zenirc-time-diff now zenirc-last-pjg))
- (progn
- (process-send-string
- proc "PRIVMSG pjg :fascist pjg.\n")
- (setq zenirc-last-pjg now))))
-
-(provide 'zenirc-pjg)
-
-;;; zenirc-pjg.el ends here
+++ /dev/null
-;;; zenirc-popup.el --- pop up zenirc buffer window on signal
-
-;; Copyright (C) 1994, 1995 Noah S. Friedman
-
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: friedman@prep.ai.mit.edu
-;; Keywords: extensions
-;; Created: 1994-06-23
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; After loading this package, any signal detected by regexps in
-;; zenirc-signal-alist will cause zenirc to check if the message was
-;; visible in any of the windows on visible frames (or, if running emacs
-;; 18, on the single X or terminal frame it supports). If not, it splits
-;; the largest visible window (according to various parameters; see the
-;; variables below) and displays the portion of the zenirc buffer with the
-;; most recently inserted message.
-
-;; This is done rather than moving point in an existing window (if any
-;; show the zenirc buffer at all) because it is assumed that if you are
-;; elsewhere in the buffer, it is for a reason. Likewise, it doesn't take
-;; over other windows, but creates a new one.
-
-;; This functionality can be disabled at any time by disabling
-;; zenirc-popup-mode. This variable can be made buffer-local, but it is
-;; not by default.
-
-;; You can also choose to create new frames instead of splitting windows.
-
-;; Note that throughout this program, the Emacs "frame" terminology is
-;; used. Lucid never switched to the "frame" nomenclature adopted by Emacs
-;; after the two sets of sources diverged; it uses "screen" instead. To
-;; ensure that this library works in both versions, this program uses its
-;; own aliases for the various frame/screen operations. However, all
-;; variables and functions defined here use the Emacs terminology.
-
-;;; Code:
-
-\f
-(require 'zenirc)
-
-(defvar zenirc-popup-mode t
- "*If non-nil, then display buried zenirc when messages appear.")
-
-(defvar zenirc-popup-ratio 4
- "*Reciprocal proportion of a window to use up when splitting windows.
-This value should be an integer greater than zero.
-
-This variable is used to determine how much of an old window to use
-for the new one. The reciprocal is used, so a value of 1 causes the window
-to appear full-screen, 2 makes the window half of the screen, 3 makes it
-one third, etc.
-
-See the documentation for the function `zenirc-popup-window' for more info.")
-
-(defvar zenirc-popup-min-height (default-value 'window-min-height)
- "*Minimum height of popup windows, expressed as an integer.
-When splitting windows, zenirc-popup-ratio is used to determined its size.
-However, the actual height of the new window will be no less than the
-number of lines specified by zenirc-popup-min-height or window-min-height,
-whichever is larger.
-
-If pop-up-windows is nil, no windows will pop up at all.
-
-See the documentation for the function `zenirc-popup-window' for more info.")
-
-(defvar zenirc-popup-available-frames 'visible
- "*Value used to determine which frames to search for buffer windows.
-
-This variable determines which frames will be searched to see if a
-buffer is already visible in a window. It may be set as follows:
-
-* If `t', then search all frames.
-* If `nil', search only current frame.
-* If `visible', search all frames which are visible
- (i.e. not iconified or completely obscured).
-* If `0', search all visible or iconified frames.
-* If set to a specific frame object, consider only that frame.
- This is useful if you have a dedicated frame for that process.
-
-Multiple frames only exist in emacs 19; if using emacs 18, the value of
-this variable doesn't matter.")
-
-(defvar zenirc-popup-make-new-frames nil
- "*If `t' and it is possible to make a new frame to display buffer, do so.
-The following conditions must be met in order to make a new frame:
-
-* Both this variable and `pop-up-frames' must be non-`nil'.
-* No other frame must currently have a window displaying the end of
- process output for the buffer in question.
-* It must be possible to create new frames, i.e. in a window system
- and in a version of emacs which supports multiple frames.
-
-If you enable the creation of new frames, you may also want to set
-`zenirc-popup-available-frames' to `t' or `visible' so all interesting frames
-can be searched first.")
-
-\f
-(defun zenirc-popup-mode (&optional prefix)
- "Enable or disable window popups for a zenirc buffer.
-
-A negative prefix argument disables this mode.
-No argument or any non-negative argument enables it.
-
-The user may also enable or disable this mode simply by setting the
-variable of the same name.
-
-This function does nothing to install window-popups for any process; it
-only determines whether the popup routines will do anything if installed."
- (interactive "P")
- (setq zenirc-popup-mode (>= (prefix-numeric-value prefix) 0))
- (cond ((not (interactive-p)))
- (zenirc-popup-mode
- (message "zenirc-popup-mode is enabled"))
- (t
- (message "zenirc-popup-mode is disabled")))
- zenirc-popup-mode)
-
-\f
-(defun zenirc-popup (object &optional mark)
- "Find a window displaying buffer with output from a process, or create one.
-The following describes the arguments to this function:
-
-* OBJECT (required)
- A process object, a buffer, or a buffer name. If a process, the process
- should have a buffer associated with it where its output normally goes.
-
-* MARK (optional)
- A marker or a symbol of a variable containing a marker representing the
- end of the process output, which indicates what portion of the buffer it
- is desirable to see.
- Usually this will be the process-mark for the process associated with
- OBJECT; that is the default if not specified. If no process exists for
- OBJECT and no marker is specified, the default is the end of the buffer
- associated with OBJECT.
- If MARK is a symbol, it may be a buffer-local variable containing some
- other arbitrary marker that will be assumed to be the end marker for that
- buffer. This may be useful if you have buffers used to interact with a
- process, but which isn't the primary \"process buffer\".
-
-If no windows currently display the relevant buffer, or some do but the
-point of insertion for new output isn't visible in them (perhaps because
-the window is scrolled to a prior region), zenirc-popup finds the largest
-visible window and splits it, putting the buffer in the new window at a
-point showing the new text.
-
-`zenirc-popup-ratio' is used to determine how much of the old window to use
-for the creation of a new one. However, the actual height of the new
-window will be no less than the number of lines specified by
-`zenirc-popup-min-height' or `window-min-height', whichever is larger.
-
-If `pop-up-windows' or `zenirc-popup-mode' are nil, no windows will pop up.
-The former is an emacs-wide variable; the latter affects only this function."
- (let* ((orig-window (selected-window))
- (orig-buffer (current-buffer))
- (proc (cond ((processp object)
- object)
- ((or (bufferp object)
- (stringp object))
- (get-buffer-process object))))
- (buffer (cond ((processp object)
- (process-buffer object))
- ((bufferp object)
- object)
- ((stringp object)
- (get-buffer object))))
- marker pop-up-p found)
-
- (unwind-protect
- (progn
- ;; marker symbol, zenirc-popup-mode, and other zenirc-*
- ;; parameters may be buffer-local, so do everything in the
- ;; context of the potential buffer to be popped.
- (set-buffer buffer)
-
- (setq pop-up-p (and zenirc-popup-mode pop-up-windows))
- (setq marker (cond ((null mark)
- (process-mark proc))
- ((markerp mark)
- mark)
- ((symbolp mark)
- (symbol-value mark))
- (t
- (point-max))))
-
- (cond
- (pop-up-p
- (walk-windows (function (lambda (win)
- (and (not found)
- (eq (window-buffer win) buffer)
- (<= marker (window-end win))
- (>= marker (window-start win))
- (setq found t))))
- nil zenirc-popup-available-frames)
-
- (cond
- ((and (not found)
- zenirc-popup-make-new-frames
- window-system
- (boundp 'pop-up-frames)
- pop-up-frames
- (fboundp 'zenirc-make-frame))
- (zenirc-popup-frame buffer marker))
- ((not found)
- (zenirc-popup-window buffer marker))))))
- (select-window orig-window)
- (set-buffer orig-buffer))))
-
-;; This function should only be called when the popup-buffer is
-;; current; otherwise, buffer-local zenirc-* parameters may not be in
-;; effect when referenced.
-(defun zenirc-popup-window (buffer marker)
- (let* ((bigwin (if (fboundp 'zenirc-make-frame)
- (get-largest-window zenirc-popup-available-frames)
- (get-largest-window)))
- (min-height (max window-min-height
- zenirc-popup-min-height))
- (ratio (cond
- ((and (natnump zenirc-popup-ratio)
- (> zenirc-popup-ratio 0))
- zenirc-popup-ratio)
- ;; Choose some ratio too big to be useful.
- (t (window-height bigwin)))))
-
- (split-window bigwin
- (min (- (window-height bigwin) min-height)
- (- (window-height bigwin)
- (/ (window-height bigwin) ratio))))
-
- (select-window (next-window bigwin 'no-minibuf))
- ;; Must use switch-to-buffer to make permanent selection of buffer
- ;; to display in new window.
- (switch-to-buffer buffer)
- (goto-char marker)
- (recenter -1)))
-
-(defun zenirc-popup-frame (buffer marker)
- (let ((frame (zenirc-make-frame))
- (orig-frame (zenirc-selected-frame)))
- (zenirc-select-frame frame)
- (set-buffer buffer)
- (goto-char marker)
- (recenter -1)
- (zenirc-select-frame orig-frame)))
-
-(defun zenirc-signal-popup (proc string)
- (let ((orig-buffer (current-buffer))
- marker)
- (unwind-protect
- (progn
- (set-buffer (process-buffer proc))
- (setq marker zenirc-process-mark))
- (set-buffer orig-buffer))
- (zenirc-popup proc marker)))
-
-\f
-;;; Ensure smooth operation in both Emacs and XEmacs/Lucid.
-;;; Don't just alias frame equivalent functions because that may
-;;; potentially confuse other programs.
-
-(cond ((fboundp 'make-frame)
- ;; Emacs 19
- (defalias 'zenirc-make-frame 'make-frame)
- (defalias 'zenirc-select-frame 'select-frame)
- (defalias 'zenirc-selected-frame 'selected-frame))
-
- ((fboundp 'make-screen)
- ;; XEmacs
- (defalias 'zenirc-make-frame 'make-screen)
- (defalias 'zenirc-select-frame 'select-screen)
- (defalias 'zenirc-selected-frame 'selected-screen)))
-
-(provide 'zenirc-popup)
-
-(zenirc-add-hook 'zenirc-signal-hook 'zenirc-signal-popup)
-
-;; zenirc-popup.el ends here
+++ /dev/null
-;;; zenirc-prime-p.el --- flag prime numbers
-
-;; Copyright (C) 1997, 1998 Ray Jones
-
-;; Author: Ray Jones <rjones@pobox.com>
-;; Maintainer: rjones@pobox.com
-;; Keywords: zenirc, extensions, oink, "mmmm, primes"
-;; Created: 1997-11-13
-
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.
-
-;;; Commentary: mmm, primes
-
-;;; Code:
-
-(require 'zenirc)
-(require 'zenirc-trigger)
-
-;; the method to find primes isn't fancy, just the sieve of erasthonese
-
-(defvar *zenirc-prime-list* '(2)
- "List of numbers already determined to be prime.")
-(defvar *zenirc-prime-list-end* *zenirc-prime-list*
- "Last pair in *zenirc-prime-list*, kept for efficiency reasons.")
-
-(defconst *zenirc-recent-count* 10
- "Number of primes to remember in *zenirc-recent-primes*.")
-(defvar *zenirc-recent-primes* (make-list *zenirc-recent-count* 0)
- "Primes recently seen, kept to keep from flagging the same prime over and over.")
-
-(defvar *zenirc-next-test* 3
- "Smallest number not yet tested for insertion into *zenirc-prime-list*.")
-
-;; lest this get really out of control
-(defconst *zenirc-max-to-store* 10000
- "Maximum value to ever insert into *zenirc-prime-list*.")
-
-(defun zenirc-primep (n)
- (if (< n *zenirc-max-to-store*)
- (if (<= *zenirc-next-test* n)
- (zenirc-expand-prime-list n)
- (member n *zenirc-prime-list*))
- (let ((test-limit (truncate (sqrt n)))
- (l *zenirc-prime-list*)
- (lastmod 1))
- ;; if *zenirc-max-to-store* is less than (sqrt most-positive-fixnum),
- ;; this could expand the list more than *zenirc-max-to-store* should
- ;; allow.
- (zenirc-expand-prime-list test-limit)
- (while (and l
- (not (= lastmod 0))
- (<= (car l) test-limit))
- (setq lastmod (mod n (car l)))
- (setq l (cdr l)))
- (not (= lastmod 0)))))
-
-(defun zenirc-expand-prime-list (n)
- (while (<= *zenirc-next-test* n)
- (let ((test-limit (truncate (sqrt *zenirc-next-test*)))
- (l *zenirc-prime-list*)
- (lastmod 1))
- (while (and (not (= lastmod 0))
- (<= (car l) test-limit))
- (setq lastmod (mod *zenirc-next-test* (car l)))
- (setq l (cdr l)))
- (if (not (= lastmod 0))
- (progn
- (setcdr *zenirc-prime-list-end* `(,*zenirc-next-test*))
- (setq *zenirc-prime-list-end* (cdr *zenirc-prime-list-end*)))))
- (setq *zenirc-next-test* (+ 1 *zenirc-next-test*)))
- (= (car *zenirc-prime-list-end*) n))
-
-
-(defun zenirc-primep-filter (str)
- (let ((num (string-to-int str)))
- (if (and (not (member num *zenirc-recent-primes*))
- (zenirc-primep num))
- (progn
- (setq *zenirc-recent-primes* (cons num *zenirc-recent-primes*))
- (setcdr (nthcdr (- *zenirc-recent-count* 1) *zenirc-recent-primes*) nil)
- (format "%s is prime." str))
- nil)))
-
-(zenirc-trigger-register "primep" 'zenirc-primep-filter
- "[1-9][0-9][0-9][0-9]*" t)
-
-;;; zenirc-prime-p.el ends here.
-
+++ /dev/null
-;;; zenirc-random-away.el
-
-;; Copyright (C) 1995 Eric Prestemon
-
-;; Author: Eric Prestemon <ecp@io.com>
-;; Maintainer: eric@american.edu
-;; Keywords: zenirc, extensions
-;; Created: 1995-01-04
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-;;; Code:
-
-(require 'zenirc)
-
-(defvar zenirc-random-away-strings
- '("I've felt better, but it cost more."
- "I want to be the one with the most cake."
- "Someday you will ache like I ache."
- "Do you have the time to listen to me whine?"
- "Neurotic in my head no doubt about it."
- "Oh what a feeling when we're dancing on the ceiling."
- "What's so funny about peace, love, and understanding?")
- "*List of strings to use for /away messages")
-
-(defun zenirc-random-away (proc parsedmsg)
- "Change away message to a new thing."
- (and (not (zenirc-channel-p (aref parsedmsg 2)))
- (process-send-string proc
- (concat "AWAY :"
- (nth (random (length zenirc-random-away-strings))
- zenirc-random-away-strings)
- "\n"))))
-
-(zenirc-add-hook 'zenirc-server-PRIVMSG-hook 'zenirc-random-away t)
-
-(provide 'zenirc-random-away)
-
-;;; zenirc-random-away.el ends here
+++ /dev/null
-;;;
-;;;
-;;; zenirc-random-nick.el --- Choose random nicks for ZenIRC
-
-;;; Copyright (C) 1994 Ben A. Mesander
-;;; Copyright (C) 1994, 1996, 1997 Per Persson
-
-;;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;;; Per Persson <pp@sno.pp.se>
-;;; Maintainer: pp@sno.pp.se
-;;; Keywords: extensions
-;;; Created: Sun Aug 14 20:20:05 MDT 1994
-
-;;; This program is free software; you can redistribute it and/or modify
-;;; it under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 2, or (at your option)
-;;; any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;; GNU General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with this program; if not, you can either send email to this
-;;; program's maintainer or write to: The Free Software Foundation,
-;;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;; This is really annoying.
-
-;;; Code:
-
-(require 'zenirc)
-
-(random t)
-
-;; note- the rfc lies about valid characters in nicks.
-;; it appears the allowed character set is:
-;; [0-9][A-^][a-|] and - and _
-;; 0-9 and - cannot start a nick
-
-(defun zenirc-random-nick-char ()
- (let ((c (abs (random 69)))) ; mmm, 69
- (cond ((= 0 c) "_")
- ((< c 10) (char-to-string (+ c 47))) ; 0-9
- ((< c 40) (char-to-string (+ c 55))) ; A-^
- (t (char-to-string (+ c 57)))))) ; a-|
-
-(defun zenirc-random-nick-string (numchars)
- (let ((i 1) (str (zenirc-random-nick-char)))
- (if (< numchars 0)
- ""
- (while (and (< (string-to-char str) 58) ; can't start with
- (> (string-to-char str) 47)) ; [0-9]
- (setq str (zenirc-random-nick-char)))
- (while (< i numchars)
- (setq str (concat str (zenirc-random-nick-char)))
- (setq i (1+ i)))
- str)))
-
-(defun zenirc-random-nick ()
- (setq zenirc-nick (zenirc-random-nick-string 9)))
-\f
-;;; Code to automatically change nickname every now and then, this is
-;;; _really_ annoying. mmm, annoying code.
-;;;
-;;; <poxaV> yes, i agree, it's annoying.
-;;;
-(defvar zenirc-change-nick-interval '(0 600)
- "How often to change your random nickname. The default is 600
-seconds or 10 minutes.")
-(make-variable-buffer-local 'zenirc-change-nick-interval)
-
-(defvar zenirc-last-nick-change '(0 0)
- "The time the last change was made in a ZenIRC buffer.")
-(make-variable-buffer-local 'zenirc-last-nick-change)
-
-;; Should this really be optional? B-)
-(defvar zenirc-change-nick-mode nil
- "If zenirc-random-nick should change nickname automatically.")
-(make-variable-buffer-local 'zenirc-change-nick-mode)
-
-(defun zenirc-change-random-nick (proc now)
- "Change nickname in the specified process PROC every
-zenirc-change-nick-interval seconds."
- (if zenirc-change-nick-mode
- (if (zenirc-time< zenirc-change-nick-interval
- (zenirc-time-diff now zenirc-last-nick-change))
- (progn
- (process-send-string proc (concat
- "NICK "
- (zenirc-random-nick-string 9)
- "\n"))
- (setq zenirc-last-nick-change now)))))
-\f
-(zenirc-add-hook 'zenirc-timer-hook 'zenirc-change-random-nick)
-(zenirc-add-hook 'zenirc-mode-hook 'zenirc-random-nick)
-
-(provide 'zenirc-random-nick)
-
-;;; End of zenirc-random-nick.el
+++ /dev/null
-;;; zenirc-signal.el --- Fancy signal formatting for ZenIRC
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1998 Per Persson
-
-;; Author: Mark Bailen <msbailen@msbdcolka.cr.usgs.gov>
-;; Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions
-;; Created: 1993/06/03
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; This code detects if the message that triggered the signal was
-;; a PRIVMSG, and if so, formats it differently. Otherwise, it calls
-;; the regular zenirc-signal-hook subroutine(s).
-
-;;; Code:
-
-(require 'zenirc)
-
-(defun zenirc-signal-privmsg (proc msg)
- (let ((pmsg (zenirc-parse-server-message msg)))
- (cond ((string= "PRIVMSG" (aref pmsg 0))
- (zenirc-message nil "[%s] %s->%s: %s"
- (buffer-name)
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook
- (aref pmsg 1))
- (aref pmsg 2)
- (aref pmsg 3))
- (setq zenirc-run-next-hook nil)))))
-
-(provide 'zenirc-signal)
-
-(zenirc-add-hook 'zenirc-signal-hook 'zenirc-signal-privmsg)
-
-;; zenirc-signal.el ends here
+++ /dev/null
-;;; zenirc-stamp.el --- timestamping for ZenIRC
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-
-;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Maintainer: ben@gnu.ai.mit.edu
-;; Keywords: extensions
-;; Created: 1993/06/03
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; This code is meant as a demonstration of how to use the ZenIRC
-;; hook mechanism and timer code to cause ZenIRC to do something at a
-;; regular interval.
-
-;;; Code:
-
-(require 'zenirc)
-
-(defvar zenirc-timestamp-interval '(0 600)
- "How often to insert timestamps into the ZenIRC buffer. The default
-is 600 seconds or 10 minutes. The value of this variable is a 32 bit
-integer, expressed as a list of two 16 bit values, ie, the default
-value of 600 seconds is expressed as (0 600).")
-
-(defvar zenirc-last-timestamp '(0 0)
- "The time the last timestamp was inserted into the ZenIRC buffer.
-You shouldn't have to frob this yourself.")
-
-(defun zenirc-timestamp (proc now)
- "Insert a timestamp into the the ZenIRC buffer specified by the
-process PROC every zenirc-timestamp-interval seconds."
- (if (zenirc-time< zenirc-timestamp-interval
- (zenirc-time-diff now zenirc-last-timestamp))
- (progn
- (zenirc-message proc (concat "[time] " (current-time-string) "\n"))
- (setq zenirc-last-timestamp now))))
-
-(provide 'zenirc-stamp)
-
-(zenirc-add-hook 'zenirc-timer-hook 'zenirc-timestamp)
-
-;; zenirc-stamp.el ends here
+++ /dev/null
-;;; zenirc-swedish.el --- Swedish message catalog for ZenIRC
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1993, 1994, 1995, 1996, 1998 Per Persson
-
-;; Author: Per Persson <pp@sno.pp.se>
-;; Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions
-;; Created: 1993/06/03
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; "it's like operating a nazi sub or something."
-;; --Ben A. Mesander <ben@gnu.ai.mit.edu>
-
-;; If you're using emacs 19, loading iso-ascii.el or doing
-;; M-x standard-display-european on X displays makes 8-bit characters
-;; easier to see.
-
-;;; Code:
-
-(require 'zenirc)
-
-(zenirc-lang-define-catalog
- 'swedish
- '((join_you . "[info] Du deltar nu i mötet: %s")
- (join . "[info] %s deltar nu i mötet %s")
- (s001 . "[info] Du kastar bort tid.") ; welcome to irc message
- ;; server name & version # msg
- (s002 . "[info] Din IRK server är %s och kör IRKD version %s")
- ;; when the server was built
- (s003 . "[info] Den här IRK servern skapades %s")
- ;; # users on connect message
- (s251 . "[info] Det finns %s synliga och %s osynliga klienter på %s serverar.")
- (s200 . "[info] %s Länk -> version: %s") ; Version reply from /trace
- (s202 . "[info] %s H.S. -> %s") ; Trace handshake
- (s203 . "[info] %s Hmmm -> IP address: %s") ; Unknown connection
- (s204 . "[info] %s Oper -> %s") ; Operator connection
- (s205 . "[info] %s Klie -> %s") ; User connection
- (s206 . "[info] %s Serv -> %s %s %s %s ") ; Server connection
- (s208 . "[info] %s %s -> %s") ; New type connection
- (s209 . "Klas -> %s = %s") ; What the classes means
- ;; Linkinfo
- (s211 . "[info] %s länk har varit uppe %s sekunder\nSänt %s/%s, Mottagit %s/%s, SändKö: %s")
- (s212 . "[info] %s\t->\tgånger: %s\tbytes: %s") ; Command stats
- (s213 . "[info] C msk/nam/prt/kls: %s/%s/%s/%s") ; C-lines
- (s214 . "[info] N msk/nam/prt/kls: %s/%s/%s/%s") ; N-lines
- (s215 . "[info] %s maskin/namn:\t%s/%s") ; I-lines
- (s216 . "[info] K maskin/användarnamn:\t%s/%s") ; K-lines
- (s217 . "[info] Q %s/%s/%s/%s/%s") ; Q-lines
- ;; Y-lines
- (s218 . "[info] Klass: %s Ping frek: %s Länk frek: %s Max länkar: %s SändKö: %s")
- (s219 . "[info] Slut på /stats.") ; End of /stats I guess
- (s221 . "[info] Din nuvarande status är: %s") ; user mode
- (s241 . "[info] LÖV maskinmask/djup:\t\t%s/%s") ; L-lines
- (s242 . "[info] %s") ; Uptime of server
- (s243 . "[info] %s smeknamn/användare@maskin:\t%s/%s") ; O- or o-lines
- (s244 . "[info] GREN maskinmask/servernamn:\t%s/%s") ; H-lines
- ;; # users on connect message
- (s251 . "[info] Det finns %s synliga och %s osynliga klienter på %s serverar.")
- (s252 . "[info] Det finns %s verkliga nollor aktiva.") ; irc operators msg
- (s253 . "[info] Det finns %s okända uppkopplingar.") ; unk connects msg
- (s254 . "[info] Det finns %s möten.") ; number of channels
- ;; # of clients and servers
- (s255 . "[info] Det finns %s klienter och %s servrar uppkopplade till den här servern.")
- (s256 . "[info] Administrativ information för %s:") ; /admin line 1
- (s257 . "[info] %s") ; line 2 of admin information
- (s258 . "[info] %s") ; line 3 of admin information
- (s259 . "[info] %s") ; line 4 of admin information
- (s261 . "[info] %s Fil -> %s %s") ; Logfile trace
- (s301 . "[info] %s är borta: %s") ; someone is away
- (s302 . "[info] användaraddress: %s") ; userhost reply
- (s303 . "[info] ` %s' slösar för närvarande tid.")
- (s305 . "[info] Du är nu tillbaka.")
- (s306 . "[info] Du är borta.")
- (s311 . "[info] %s (%s@%s) är %s") ; user part of /whois list
- ;; server part of /whois list
- (s312 . "[info] %s använder servern %s (%s)")
- (s313 . "[info] %s är en verklig nolla.") ; /whois operator status
- (s314 . "[info] %s (%s@%s) var %s") ; user part of /whowas list
- (s315 . "[info] Slut på /who") ; end of /who list replies
- (s318 . "[info] Slut på /whois") ; end of /whois list replies
- (s317 . "[info] %s har varit inaktiv %d") ; /whois idle time
- (s319 . "[info] %s är på: %s") ; channel part of whois data
- (s321 . "[info] Möte\tAnvändare\tRubrik") ; header for LIST cmd
- (s322 . "[info] %s\t%s\t%s") ; each channel in LIST cmd
- (s323 . "[info] Slut på /list") ; trailer for LIST cmd
- (s324 . "[info] Status för %s är %s %s") ; channel mode
- (s331 . "[info] %s har ingen rubrik.") ; no topic message
- (s332 . "[info] %s rubrik: %s") ; topic message
- (s341 . "[info] Du inbjuder %s till %s") ; invite reply
- (s342 . "[info] Du ber %s att kasta bort tid.") ; summon reply
- (s351 . "[info] Version: %s %s %s") ; version reply
- ;; header for /who list reply
- (s352_header . "[info] Smeknamn Stat Namn av Möte Användare@adress Namn")
- (s352 . "[info] %-9s %-3s %-15s %s@%s (%s)") ; /who list reply
- (s353 . "[info] Klienter på %s: %s") ; displayed after channel join
- (s364 . "[info] %s %s %s") ; /links reply
- (s365 . "[info] slut på /links") ; end of /links reply
- (s367 . "[info] %s portningar %s") ; banlist reply
- (s368 . "[info] slut på portningslistan.") ; end of banlist reply
- (s371 . "[info] %s") ; info reply
- (s372 . "[motd] %s") ; message of the day
- (s375 . "[motd] Dagens meddelande:") ; start of motd
- (s376 . "[motd] Slut på dm.") ; displayed at end of motd
- (s381 . "[info] Du är nu en verklig nolla.") ; irc op status
- (s382 . "[info] Åter brädgårdar: %s") ; rehash server msg
- (s391 . "[info] Lokal tid på servern %s är: %s") ; TIME reply
- (s392 . "[info] Användar# Terminal Address") ; header for users rpl
- (s393 . "[info] %s") ; body of users rpl
- (s395 . "[info] Ingen är påloggad.") ; nobody for users rpl
- ;; there is no such nick/chan
- (s401 . "[info] Det finns inget sådant smeknamn/möte: %s")
- (s402 . "[info] Ingen server med det namnet: %s") ; no such server
-
- (s403 . "[info] Inget möte med det namnet: %s") ; no such channel
- (s404 . "[info] Du kan inte sända till %s") ; can't send to channel
- (s405 . "[info] Du deltar redan i tio möten: %s") ; too many channels
- ;; no whowas data
- (s406 . "[info] Något sådant smeknamn finns inte i serverns databas: %s")
- ;; user@host
- (s407 . "[info] Dubbla mottagare. Inget meddelande sänt: %s")
- (s409 . "[info] Ingen sändare given.") ; ping error reply
- (s411 . "[info] Ingen mottagare given.") ; no recipient given
- (s412 . "[info] Ingen text att sända.") ; you didn't send anything.
- (s413 . "[info] Ingen toppnivå domain: %s") ; no toplevel domain spec
- (s414 . "[info] Jokertecken i toppnivå domain: %s")
- (s421 . "[info] Det här ser ut som nonsens för mig: %s")
- (s422 . "[info] Någon verklig nolla har inte tillräckligt hög IQ för att ha en dm fil.")
- (s423 . "[info] Någon verklig nolla på %s är ignorant nog att inte lägga upp administrations info.")
- (s431 . "[info] Inget smeknamn givet.") ; you didn't provide a nick
- (s432 . "[info] Ogiltigt smeknamn: %s") ; invalid nick
- (s433 . "[info] Smeknamnet %s används redan.") ; invalid nick
- (s436 . "[info] Smeknamns kollision: %s") ; nickicide
- ;; can't do it to those not present
- (s441 . "[info] %s är deltar inte i %s")
- (s442 . "[info] Du är deltar inte i %s") ; you can't do that dave.
- (s443 . "[info] %s deltar redan i mötet %s") ; invite error
- (s444 . "[info] %s är inte påloggad.") ; SUMMON reply
- (s445 . "[info] Någon verklig nolla låter dig inte använda /summon")
- (s446 . "[info] Någon verklig nolla låter dig inte använda /users")
- (s451 . "[info] Du har inte registrerat dig.")
- (s461 . "[info] Inte nog med parametrar: %s") ; as 421
- (s462 . "[info] Du får inte registrera dig flera gånger.")
- (s463 . "[info] Någon fascistisk nolla låter dig inte koppla upp dig.")
- (s464 . "[info] Passordet är inkorrekt.") ; bad PASS command
- (s465 . "[info] Du är inte omtyckt på den här server, byt genast ditt kräk.")
- ;; chan key set already
- (s467 . "[info] Nyckeln är redan satt för %s")
- ;; too many ppl
- (s471 . "[info] Du kan inte delta i %s (användar antalet överskridit).")
- (s472 . "[info] %s är en okänd status flagga.") ; duh
- (s473 . "[info] Du kan inte delta i %s (måste vara inbjuden).")
- (s474 . "[info] Du kan inte delta i %s (portad).") ; you're banned
- (s475 . "[info] Du kan inte delta i %s (fel kanal nyckel).") ; bad key
- (s481 . "[info] Du är inte en verklig nolla.") ; oper only
- (s482 . "[info] Du är inte nog mäktig att %s") ; chanop needed
- ;; can't kill a server
- (s483 . "[info] Blä, du kan inte döda en server.")
- ;; no o-line
- (s491 . "[info] Inga verkliga nollor tillåtna från din address.")
- (s501 . "[info] Okänd klient status flagga.")
- (s502 . "[info] Kan inte ändra status för andra klienter.")
- (action . "(skickat till %s=")
- (action-echo . "(skickat till %s)")
- (ctcp_action . "[action->%s] %s %s")
- (ctcp_clientinfo . "[fråga] CLIENTINFO från %s till %s")
- (ctcp_errmsg . "[fråga] ERRMSG från %s till %s")
- (ctcp_finger . "[fråga] FINGER från %s till %s")
- (ctcp_ping . "[fråga] PING från %s till %s")
- (ctcp_source . "[fråga] SOURCE från %s till %s")
- (ctcp_time . "[fråga] TIME från %s till %s")
- (ctcp_userinfo . "[fråga] USERINFO från %s till %s")
- (ctcp_version . "[fråga] VERSION från %s till %s")
- (debug . "[debug] %s") ; displayed by debugging code
- (error . "[%s] %s") ; server error message
- (invite . "[info] %s tycker att du borde komma till %s") ; invite
- (kick . "[info] %s har blivit sparkad från %s av %s")
- (kick_you . "[info] Du har blivit sparkad från %s av %s")
- (kill . "[info] Du har blivit mördad: %s") ; your time is up.
- (mode . "[info] %s har ändrat statusen för %s: %s") ; MODE change
- (nick . "[info] %s har bytt smeknamn till %s") ; nick change
- (nosend . "[info] du har inget nuvarande offer att sända till.")
- (notice . "{%s%s} %s") ; NOTICE
- (notice_you . "{%s} %s") ; NOTICE sent to your nick
- (notify_list . "[info] Din nuvarande radar lista: %s")
- (notify_on . "[info] Aha! %s slösar viktig tid.")
- (notify_off . "[info] Aha! %s slutade slösa viktig tid.")
- (now-querying . "[info] Nuvarande offer är %s") ; /query foo
- (part_you . "[info] Lämnar: %s (%s)") ; your part from channel message
- (part . "[info] %s har lämnat %s (%s)") ; part from channel message
- (pong . "[info] %s säger ojnk.")
- (privmsg . "<%s%s> %s") ; PRIVMSG
- (privmsg_you . "*%s* %s") ; PRIVMSG sent to your nick
- (query . "[fråga] från %s till %s innehållande %s") ; ctcp query
- (query_unknown . "är en okänd CTCP fråga.")
- (query_unbalanced . "[OBALANCERAD fråga] från %s till %s innehållande %s")
- (query_unbalanced_reply . "är en obalancerad CTCP fråga.")
- (quit . "[info] %s slutade slösa viktig tid: %s") ; user signoff
- (reply . "[svar] från %s till %s innehållande %s") ; ctcp reply
- (reply_unbalanced . "[OBALANCERAT svar] från %s till %s innehållande %s")
- (send . "(skickat till %s)") ; you sent a message/notice
- (send-echo . "(skickat till %s)") ; you sent a message/notice
- (server . "[server] %s") ; unknown server message
- (signal . "[signal i %s]") ; signal in echo area
- (topic . "[info] %s bytte rubriken för %s till: %s") ; topic message
- (wallops . "-%s- %s") ; WALLOPS notice
- ))
-
-(provide 'zenirc-swedish)
-
-;;; zenirc-swedish.el ends here
+++ /dev/null
-;;; zenirc-trigger.el
-
-;; Copyright (C) 1997 Noah S. Friedman
-;; Copyright (C) 1997, 1998 Per Persson
-
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: zenirc, extensions, oink
-;; Created: 1997-03-01
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; Use this package to define "triggers" regexps.
-;; For example, you can define a function /time and specify a regexp that
-;; sends the current time whenever someone asks "what time is it?":
-;;
-;; (zenirc-trigger-register "time" 'current-time-string "what time is it\\?")
-;;
-;; You can also use the /trigger command in the *zenirc* buffer:
-;;
-;; /trigger set time "what time is it\\?" current-time-string
-;;
-;; People have defined more interesting triggers such as horoscopes, zippy
-;; quotes, etc.
-
-;;; Code:
-
-(require 'zenirc)
-(require 'backquote)
-
-(defvar zenirc-trigger-table nil)
-(defvar zenirc-command-trigger-hook '(zenirc-command-trigger))
-
-;; Changing this to NOTICE will generally avoid loops from other clients
-;; that also load this. But that's less fun.
-(defconst zenirc-trigger-response-type "PRIVMSG")
-
-(defun zenirc-trigger-register (name response &optional regexp pass-string)
- "Define a trigger named NAME, that runs RESPONSE when REGEXP is seen,
-passing the matched-string if PASS-STRING is true.
-When a string mathcing REGEXP is detected in a zenirc buffer, the function
-RESPONSE is called with no arguments by default, or with the matched string
-if PASS-STRING is non-nil. That function should return a string
-which is to be sent to the originator of the message matching REGEXP.
-It may instead return a list of strings, in which case each string is
-sent as a separate message.
-
-NAME can be used as a key for changing, deleting, activating, and
-deactivating the trigger via /trigger subcommands."
- (zenirc-trigger-make-command name response)
- (and regexp
- (zenirc-trigger-set-trigger name regexp response pass-string)))
-
-;;; Users shouldn't generally need to make use of anything below here.
-
-(defun zenirc-trigger-make-command (name response)
- (let* ((symname (format "zenirc-command-%s" name))
- (cmdsym (intern symname))
- (cmdhook (intern (concat symname "-hook"))))
- (zenirc-add-hook cmdhook cmdsym)
- (fset cmdsym
- (` (lambda (proc victim)
- (zenirc-trigger-send-fn-result proc victim '(, response)))))))
-
-(defun zenirc-trigger-set-trigger (name regexp response &optional pass-string)
- (and (stringp name)
- (setq name (intern name)))
- (let ((elt (assq name zenirc-trigger-table)))
- (cond (elt
- (setcar (nthcdr 1 elt) t)
- (setcar (nthcdr 2 elt) regexp)
- (setcar (nthcdr 3 elt) response)
- (setcar (nthcdr 4 elt) pass-string))
- (t
- (setq zenirc-trigger-table
- (cons (list name t regexp response pass-string)
- zenirc-trigger-table))))))
-
-;; Returns nil if the named trigger doesn't exist, t otherwise.
-(defun zenirc-trigger-activate (name state)
- (and (stringp name) (setq name (intern name)))
- (let ((elt (assq name zenirc-trigger-table)))
- (cond (elt
- (setcar (nthcdr 1 elt) state)
- t)
- (t nil))))
-
-(defun zenirc-trigger-enable (name)
- (zenirc-trigger-activate name t))
-
-(defun zenirc-trigger-disable (name)
- (zenirc-trigger-activate name nil))
-
-\f
-(defun zenirc-server-PRIVMSG-trigger (proc parsedmsg)
- (save-match-data
- (let ((case-fold-search t)
- (trigger-table zenirc-trigger-table)
- regexp fn)
- (while trigger-table
- (cond ((nth 1 (car trigger-table))
- (setq regexp (nth 2 (car trigger-table)))
- (and regexp
- (string-match regexp (aref parsedmsg 3))
- (let ((victim (zenirc-trigger-parse-sender parsedmsg))
- (msg (zenirc-trigger-response
- (nth 3 (car trigger-table))
- (and (nth 4 (car trigger-table))
- (match-string 0 (aref parsedmsg 3))))))
- (zenirc-trigger-send-response proc victim msg)))))
- (setq trigger-table (cdr trigger-table))))))
-
-(defun zenirc-trigger-parse-sender (parsedmsg)
- (let ((from (aref parsedmsg 2)))
- (cond ((zenirc-names-equal-p from zenirc-nick)
- (zenirc-extract-nick (aref parsedmsg 1)))
- (t from))))
-
-(defun zenirc-trigger-response (fn msg)
- (cond ((stringp fn) fn)
- (t (if msg
- (funcall fn msg)
- (funcall fn)))))
-
-(defun zenirc-trigger-send-fn-result (proc victim fn &optional msg)
- (setq victim (cdr victim))
- (cond ((or (null victim)
- (string= "" victim))
- (setq victim zenirc-current-victim)))
- (zenirc-trigger-send-response proc victim (zenirc-trigger-response fn msg)))
-
-(defun zenirc-trigger-send-response (proc victim msg)
- (cond ((stringp msg)
- (zenirc-message proc 'trigger-sent victim msg)
- (process-send-string proc (concat zenirc-trigger-response-type
- " " victim " :" msg "\n")))
- (t
- (while msg
- (zenirc-message proc 'trigger-sent victim (car msg))
- (process-send-string proc
- (concat zenirc-trigger-response-type
- " " victim " :" (car msg) "\n"))
- (setq msg (cdr msg))))))
-
-\f
-;; Parser for /trigger command. This figures out the trigger subcommand
-;; and calls the appropriate routine to handle it.
-;; The function dispatched should be named "zenirc-trigger-do-FOO-command",
-;; where FOO is one of `list', `set', `enable', `disable', etc.
-;; With no arguments, lists available subcommands.
-(defun zenirc-command-trigger (proc parsedcmd)
- (let* ((cmd (zenirc-parse-firstword (cdr parsedcmd)))
- (fn (intern-soft (concat "zenirc-trigger-do-" (car cmd) "-command"))))
- (cond ((and fn (fboundp fn))
- (funcall fn proc cmd))
- ((null (car cmd))
- (zenirc-message proc 'trigger-subcommands
- (mapconcat 'identity
- (zenirc-trigger-subcommand-list)
- ", ")))
- (t
- (zenirc-message proc 'trigger-command-undefined (car cmd))))))
-
-;; Returns a list of defined subcommands to /trigger.
-(defun zenirc-trigger-subcommand-list ()
- (save-match-data
- (let* ((prefix "zenirc-trigger-do-")
- (suffix "-command")
- (re (concat suffix "$")))
- (sort (mapcar (function (lambda (s)
- (substring s (length prefix)
- (- (length suffix)))))
- (all-completions prefix obarray
- (function
- (lambda (s)
- (string-match re (symbol-name s))))))
- 'string-lessp))))
-
-(defun zenirc-trigger-do-list-command (proc args)
- (let ((table zenirc-trigger-table))
- (zenirc-message proc 'trigger-list-head)
- (zenirc-message proc 'trigger-list-line)
- (while table
- (zenirc-message proc 'trigger-list-item
- (nth 0 (car table))
- (nth 1 (car table))
- (prin1-to-string (nth 2 (car table)))
- (prin1-to-string (nth 3 (car table))))
- (setq table (cdr table)))
- (zenirc-message proc 'trigger-list-end)))
-
-(defun zenirc-trigger-do-set-command (proc args)
- (let* ((parsed1 (zenirc-parse-firstword (cdr args)))
- (name (car parsed1))
- (parsed2 (read-from-string (cdr parsed1)))
- (regexp (car parsed2))
- (fn (car (read-from-string (substring (cdr parsed1)
- (cdr parsed2))))))
- (zenirc-trigger-register name fn regexp)
- (zenirc-message proc 'trigger-enable name)))
-
-(defun zenirc-trigger-do-delete-command (proc args)
- (let ((names (zenirc-parse-words (cdr args)))
- (known nil)
- (unknown nil)
- elt)
- (while names
- ;; If intern-soft returns nil, assq will return nil.
- (setq elt (assq (intern-soft (car names)) zenirc-trigger-table))
- (if (null elt)
- (setq unknown (cons (car names) unknown))
- (setq zenirc-trigger-table (delq elt zenirc-trigger-table))
- (setq known (cons (car names) known)))
- (setq names (cdr names)))
- (and known
- (zenirc-message proc 'trigger-deleted (nreverse known)))
- (and unknown
- (zenirc-message proc trigger-undefined (nreverse unknown)))))
-
-(defun zenirc-trigger-do-enable-command (proc args)
- (zenirc-trigger-do-activation proc (cdr args) t))
-
-(defun zenirc-trigger-do-disable-command (proc args)
- (zenirc-trigger-do-activation proc (cdr args) nil))
-
-(defun zenirc-trigger-do-activation (proc args state)
- (let ((msg (if state 'trigger-enable 'trigger-disable))
- (names (zenirc-parse-words args))
- (known nil)
- (unknown nil))
- (while names
- (if (zenirc-trigger-activate (car names) state)
- (setq known (cons (car names) known))
- (setq unknown (cons (car names) unknown)))
- (setq names (cdr names)))
- (and known
- (zenirc-message proc msg (nreverse known)))
- (and unknown
- (zenirc-message proc trigger-undefined (nreverse unknown)))))
-
-\f
-(provide 'zenirc-trigger)
-
-(zenirc-lang-define-catalog 'english
- '((trigger-sent . "[trigger] Sent to %s: %s")
- (trigger-enable . "[info] Triggers enabled: %s")
- (trigger-disable . "[info] Triggers disabled: %s")
- (trigger-deleted . "[info] Triggers deleted: %s")
- (trigger-undefined . "[info] Undefined triggers: %s")
- (trigger-list-head . "[trigger] Name On? Regexp Function")
- (trigger-list-line . "[trigger] ---- --- ------ --------")
- (trigger-list-item . "[trigger] %-10s %-3s %-15s %s")
- (trigger-list-end . "[trigger] End of list.")
- (trigger-subcommands . "[info] Trigger subcommands: %s")
- (trigger-command-undefined . "[info] undefined trigger command: %s")))
-
-(zenirc-add-hook 'zenirc-server-PRIVMSG-hook
- 'zenirc-server-PRIVMSG-trigger 'append)
-
-;;; zenirc-trigger.el ends here
-
+++ /dev/null
-;;; zenirc-yow-filter.el --- neutralize yowage
-
-;; Copyright (C) 1997 Noah S. Friedman
-
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: friedman@prep.ai.mit.edu
-;; Keywords: zenirc, extensions, oink, yow
-;; Created: 1997-02-10
-
-;; $Id: zenirc-yow-filter.el,v 1.1.1.1 1998-10-07 11:21:31 jareth Exp $
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; I estimate that loading this file grows emacs' permanent
-;; heap by about 650K.
-
-;;; Code:
-
-(require 'zenirc)
-
-(or (boundp 'yow-vector)
- (boundp 'yow-file)
- (load "yow"))
-
-(defconst zenirc-yow-filter-table nil)
-
-(defun zenirc-yow-filter-table-snarf (&optional file)
- (let ((table (make-vector 509 0))
- (yowfile (or file
- (and (boundp 'yow-file)
- yow-file)
- (concat data-directory "yow.lines")))
- (buf (generate-new-buffer " *Yow!*"))
- (snarf-buf (function
- (lambda ()
- (goto-char (point-min))
- (while (progn
- (skip-chars-forward " \t\n\r\f")
- (not (eobp)))
- (intern (buffer-substring (prog1
- (point)
- (search-forward "\0"))
- (1- (point)))
- table))))))
- (save-excursion
- (save-match-data
- (set-buffer buf)
- (setq buffer-undo-list t)
- (insert-file-contents yowfile)
- (search-forward "\0")
- (delete-region (point-min) (point))
- (while (re-search-forward "\n" nil t)
- (delete-char -1))
- (funcall snarf-buf)
- (goto-char (point-min))
- (while (re-search-forward "[ \t\n\r\f]+" nil t)
- (replace-match " "))
- (funcall snarf-buf)))
- (kill-buffer buf)
- table))
-
-(defun zenirc-yow-filter (proc parsedmsg)
- (or zenirc-yow-filter-table
- (setq zenirc-yow-filter-table (zenirc-yow-filter-table-snarf)))
- (cond ((intern-soft (aref parsedmsg 3) zenirc-yow-filter-table)
- (and zenirc-debug-ignore
- (zenirc-message proc 'debug (format "Ignored: %s" parsedmsg)))
- (setq zenirc-run-next-hook nil))))
-
-(zenirc-add-hook 'zenirc-server-PRIVMSG-hook 'zenirc-yow-filter)
-(zenirc-add-hook 'zenirc-server-NOTICE-hook 'zenirc-yow-filter)
-
-(provide 'zenirc-yow-filter)
-
-;;; zenirc-yow-filter.el ends here.
+++ /dev/null
-;;; zenirc-yow.el --- important pinheadery for ZenIRC
-
-;; Copyright (C) 1994, 1995, 1997 Noah S. Friedman
-;; Copyright (C) 1996 Per Persson
-
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: friedman@prep.ai.mit.edu
-;; Keywords: zenirc, extensions, oink, yow
-;; Created: 1994-06-30
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; ANN JILLIAN'S HAIR makes LONI ANDERSON'S HAIR look like
-;; RICARDO MONTALBAN'S HAIR!
-
-;;; Code:
-
-(require 'zenirc-trigger)
-
-;; v18 yow.el didn't have a `provide'
-(or (fboundp 'yow) (load "yow"))
-
-;; Strip newlines and excess whitespace from string.
-(defun zenirc-yow-format-string (s)
- (save-match-data
- (cond ((string-match "[ \t\n\r][ \t\n\r]+" s)
- (let ((orig-buffer (current-buffer))
- (temp-buffer (generate-new-buffer " *Yow*")))
- (unwind-protect
- (progn
- (set-buffer temp-buffer)
- ;; don't make undo records in temp buffer
- (let ((buffer-undo-list t))
- (insert s)
- (goto-char (point-min))
- (while (re-search-forward "[ \t\n\r]+" nil t)
- (replace-match " "))
- (setq s (buffer-substring (point-min) (point-max)))))
- (set-buffer orig-buffer)
- (kill-buffer temp-buffer))))))
- s)
-
-(defun zenirc-yow ()
- (zenirc-yow-format-string (yow)))
-
-(zenirc-trigger-register "yow" 'zenirc-yow "\\byow\\b")
-
-(provide 'zenirc-yow)
-
-;;; zenirc-yow.el ends here
+++ /dev/null
-;;; zenirc.el --- Waste time on Internet Relay Chat (ZenIRC client)
-
-;; Copyright (C) 1993, 1994 Ben A. Mesander
-;; Copyright (C) 1993, 1994, 1995 Noah S. Friedman
-;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998 Per Persson
-
-;; Author: Ben A. Mesander <ben@gnu.ai.mit.edu>
-;; Noah Friedman <friedman@prep.ai.mit.edu>
-;; Per Persson <pp@sno.pp.se>
-;; Major contributors:
-;; Charles Hannum <mycroft@gnu.ai.mit.edu>
-;; Richard Todd <rmtodd@essex.ecn.uoknor.edu>
-;; Eric Prestemon <ecp@io.com>
-;; Mark Bailen <msbailen@msbdcolka.cr.usgs.gov>
-;; Jason Bastek <jason@marilyn.oit.umass.edu>
-;; Ray Jones <rjones@pobox.com>
-;; Maintainer: pp@sno.pp.se
-;; Keywords: extensions, zenirc
-;; Created: 1993-06-03
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;; <vuori> The first Lisp-interpreter of the People's Republic
-;; of China, Lisp-130, was written for a Chinese
-;; minicomputer at the Shenyang Science Academy's
-;; processing automation department in 1980. It was an
-;; implementation of Lisp 1.5, which include 94
-;; functions programmed in assembler.
-;;
-;; -- Eero Hyvänen, Juko Seppänen: Lisp-world 2, the
-;; development of Lisp-languages and systems.
-;;
-;; <fn> 1960-03-14 LISP introduced,
-
-;;; Code:
-
-;; Current version of ZenIRC.
-(defconst zenirc-version "2.112")
-
-(and (string= (substring emacs-version 0 2) "18")
- (require 'zenirc-18))
-
-\f
-;;; User options
-
-(defvar zenirc-buffer-name "*zenirc*"
- "*Basic buffer name for Zen Internet Relay Chat.")
-
-(defvar zenirc-userinfo "Oink."
- "*Reply to USERINFO ctcp.")
-
-(defvar zenirc-ignore-list
- '(;; Ignore messages with more than four CTCP strings
- "\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a[^\C-a]*\C-a"
- )
- "*Patterns of messages from server to ignore.
-This should be a list of regular expressions that match IRC protocol messages.
-For example, if you wanted to ignore all messages from `foo@bar.com', put
-\"PRIVMSG [^!]+!foo@bar\\\\.com \" in the list.")
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;
-;;; BEEP. (Female voice:) Hi Tony, this is Sheila. I can't stop
-;;; thinking about you. When can we get together? I want to grab
-;;; you and undress you and then BEEP
-;;;
-;;; -- From the "Canonical List of Anwering Machine Messages."
-;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar zenirc-signal-list '()
- "*List of regular expressions which cause signal notification.")
-
-(defvar zenirc-beep-on-signal nil
- "*If t, beep on signals when not seen.
-If 'always, beep on all signals.")
-
-(defvar zenirc-send-confirmation t
- "*If nil, don't confirm sent PRIVMSG/NOTICE.
-If t, confirm sent PRIVMSG/NOTICE in the process buffer.
-If 'message, confirm sent PRIVMSG/NOTICE in the echo area.
-
-The confirmation looks like \"(sent to #emacs)\".")
-
-(defvar zenirc-timestamp nil
- "*If nil, don't timestamp messages.
-If t, timestamp messages.")
-
-(defvar zenirc-timestamp-prefix "["
- "*What to add before the timestamp string")
-
-(defvar zenirc-timestamp-suffix "]"
- "*What do add after the timestamp string")
-
-(defvar zenirc-always-show-channelname t
- "*If nil, don't show channelname in PRIVMSG/NOTICE when it's the same as
-zenirc-current-victim.
-If t, always show channelnames in PRIVMSG/NOTICE (when appropriate).")
-
-(defvar zenirc-delete-preceding-whitespaces nil
- "*Whether ZenIRC should delete any whitespaces before the first word
-before sending it off to the server.")
-
-(defvar zenirc-whowas-on-401 nil
- "*Wheter ZenIRC should issue a WHOWAS command if WHOIS returns no nick.")
-
-(defvar zenirc-send-ctcp-errmsg-on-unknown t
- "*If non-`nil', reply to unknown CTCP queries with an ERRMSG reply.
-
-The IRC protocol requires that each query requires a separate error reply,
-yet most server implementations will close your connection if you send too
-many messages at once (\"flooding\"). This gives malicious users a way to
-disconnect you from IRC, but setting this variable to `nil' will prevent it
-by simply not replying to invalid CTCP requests.
-
-See also `zenirc-send-ctcp-errmsg-on-unbalanced'.")
-
-(defvar zenirc-send-ctcp-errmsg-on-unbalanced t
- "*If non-`nil', reply to unbalanced CTCP queries with an ERRMSG reply.
-See the documentation for `zenirc-send-ctcp-errmsg-on-unknown' for further
-information on why it may be useful to set this to `nil'.")
-
-(defvar zenirc-verbose-ctcp t
- "*Should ZenIRC tell you when you send CTCP replies to people?")
-
-(defvar zenirc-fingerdata
- (format "%s <%s@%s>" (user-full-name) (user-real-login-name) (system-name))
- "*CTCP FINGER reply data.")
-
-(defvar zenirc-command-char ?/
- "*Char that begins a command at the beginning of a line")
-\f
-;;; IRC connection-related variables.
-
-(defvar zenirc-server-alist nil
- "*Association list of port/password/nick info for each server.
-This is initialized via `zenirc-ircserver-string->alist' the first time you
-start a zenirc session.")
-
-(defvar zenirc-ircserver-environment-variable-name "IRCSERVER"
- "*Name of environment variable containing server/port info.
-This variable is used by `zenirc-ircserver-string->alist'.
-It is user-settable so that you can potentially define different
-environment variables for different clients.")
-
-;; Give a default for this since there's no easy way of guessing a server
-;; name if you don't know any.
-(defvar zenirc-server-default "irc.stealth.net"
- "*Server to use if no other is specified.
-See `zenirc-server-alist' and `zenirc-establish-server-connection'.")
-
-(defvar zenirc-nick-default nil
- "*Nickname to use if no other is specified.
-See `zenirc-server-alist' and `zenirc-establish-server-connection'.")
-
-(defvar zenirc-password-default nil
- "*Default server password to use if no other is specified.
-See `zenirc-server-alist' and `zenirc-establish-server-connection'.")
-
-(defvar zenirc-port-default nil
- "*Default server port to use if no other is specified.
-See `zenirc-server-alist' and `zenirc-establish-server-connection'.")
-
-(defvar zenirc-user-full-name-default nil
- "*Default full name used to describe yourself on irc.
-See `zenirc-establish-server-connection'.")
-
-(defvar zenirc-user-login-name-default nil
- "*Default user name to use if no other is specified.
-See `zenirc-server-alist' and `zenirc-establish-server-connection'.")
-
-(defvar zenirc-process-connect-function 'open-network-stream
- "*Function used to establish server connection.
-This is called by `zenirc-establish-server-connection' and should take the
-same arguments normally given to `open-network-stream'.
-This function can be used to make proxy connections.")
-
-\f
-;;; Misc variables of interest.
-;;; Most of these are reasonable for users to modify.
-
-(defconst zenirc-message-length-limit 450
- "Maximum length of messages that can be sent on a single line.
-
-Actually, this isn't really the length of the message the client is allowed
-to send; it includes cruft that might be added by the server and over which
-you have little knowledge or control. For example, if your system is not
-configured so that gethostname returns the FQDN for your host, the
-calculations in zenirc-send-multi-line may be off from what the server
-considers is your hostname. Another way in which it can fail is if your
-host name is shorter than the corresponding IP address and the server
-failed to resolve your hostname.
-
-In light of these possibilities, this constant is set to 450 even though
-the theoretical maximum allowed is 512 according to RFC1459.")
-
-(defvar zenirc-mode-map '()
- "*Sparse keymap for zenirc-mode")
-(cond
- ((null zenirc-mode-map)
- (setq zenirc-mode-map (make-sparse-keymap))
- (define-key zenirc-mode-map "\n" 'zenirc-send-line)
- (define-key zenirc-mode-map "\C-m" 'zenirc-send-line)
- (define-key zenirc-mode-map "\C-c\C-t" 'zenirc-toggle-channel)
- (define-key zenirc-mode-map "\C-c\C-r" 'zenirc-send-privmsg-last-rec)
- (define-key zenirc-mode-map "\C-c\C-s" 'zenirc-send-privmsg-last-sent)
- (define-key zenirc-mode-map ":" 'zenirc-self-insert-or-send-privmsg-last-rec)
- (define-key zenirc-mode-map ";"
- 'zenirc-self-insert-or-send-privmsg-last-sent)))
-
-;; These strings should be in the format "ftp-server:directory:file".
-(defvar zenirc-source-list
- '("ftp.splode.com:/pub/zenirc:zenirc.tar.gz")
- "Where to retrieve ZenIRC from.")
-
-;; Existing client messages are recycled here where possible, as it makes
-;; it more likely that other clients will format them correctly.
-(defvar zenirc-clientinfo-list
- '((ACTION . "ACTION contains action descriptions for atmosphere")
- (CLIENTINFO
- . "CLIENTINFO gives information about available CTCP commands")
- (ECHO . "ECHO returns string sent by other person")
- (ERRMSG . "ERRMSG returns error messages")
- (FINGER . "FINGER shows real name, and login name of user")
- (PING . "PING returns the arguments it receives")
- ;; sojge sure is a wordy bastard.
- ;; The description is made up out of zero or more lines followed by an
- ;; end marker.
- ;; Every line is a CTCP reply with the SOURCE keyword, a space, the
- ;; name of a FTP-server, a colon, a directory name, a colon, and 0 or
- ;; more file names.
- ;; If no file names are given, all the files in the named directory are
- ;; needed. The end marker contains just the keyword.
- (SOURCE . "SOURCE Where to find the source code for this client")
- (TIME . "TIME tells you the time on the user's host")
- (USERINFO . "USERINFO returns user settable information")
- (VERSION . "VERSION shows client type, version, and environment"))
- "*Association list of CLIENTINFO CTCP help strings")
-
-(defvar zenirc-clientinfo-string "ACTION CLIENTINFO ECHO ERRMSG FINGER PING SOURCE TIME USERINFO VERSION :Use CLIENTINFO <COMMAND> to get more specific information"
- "*CLIENTINFO Help string, showing list of CTCP commands supported")
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;
-;;; "I wish this video had some explosions. That would be cool."
-;;; "Heh heh henh hmm heh. It does have some explosions. Heh henh hmm."
-;;; "Faries grant wishes. Huh huh heh huh hunh."
-;;;
-;;; -- Beavis & Butthead
-;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;; debugging variables. for the adventurous.
-(defvar zenirc-debug-mainloop nil)
-(defvar zenirc-debug-ignore nil)
-(defvar zenirc-debug-signal nil)
-(defvar zenirc-debug-ctcp nil)
-(defvar zenirc-debug-commands nil)
-(defvar zenirc-debug-timer nil)
-(defvar zenirc-bug-address "zenirc-bug@splode.com")
-
-\f
-;;; local state variables.
-;;; It's probably not useful for the user to change these, unless necessary
-;;; for particular extensions.
-
-(defvar zenirc-server nil)
-(make-variable-buffer-local 'zenirc-server)
-
-(defvar zenirc-port nil)
-(make-variable-buffer-local 'zenirc-port)
-
-(defvar zenirc-password nil)
-(make-variable-buffer-local 'zenirc-password)
-
-(defvar zenirc-nick nil)
-(make-variable-buffer-local 'zenirc-nick)
-
-(defvar zenirc-user-login-name nil)
-(make-variable-buffer-local 'zenirc-user-login-name)
-
-(defvar zenirc-user-full-name nil)
-(make-variable-buffer-local 'zenirc-user-full-name)
-
-;; The name the current IRC server calls itself.
-;; This can differ from `zenirc-server' if one is just a network alias of
-;; the other.
-(defvar zenirc-current-server-name nil)
-(make-variable-buffer-local 'zenirc-current-server-name)
-
-;; current channel or luser, or nil
-(defvar zenirc-current-victim nil)
-(make-variable-buffer-local 'zenirc-current-victim)
-
-;; variables to store the nick you last sent to or that last sent to you
-(defvar zenirc-privmsg-last-rec "")
-(make-variable-buffer-local 'zenirc-privmsg-last-rec)
-
-(defvar zenirc-privmsg-last-sent "")
-(make-variable-buffer-local 'zenirc-privmsg-last-sent)
-
-;; remember last person we saw a privmsg from.
-(defvar zenirc-privmsg-last-seen nil)
-(make-variable-buffer-local 'zenirc-privmsg-last-seen)
-
-;; a list of channels the client is on
-(defvar zenirc-channel-list '())
-(make-variable-buffer-local 'zenirc-channel-list)
-
-;; We use this marker instead of the process mark, because the latter goes
-;; away when a process exits, which is a gratuitous nuisance.
-(defvar zenirc-process-mark nil)
-(make-variable-buffer-local 'zenirc-process-mark)
-
-;; unprocessed data read from socket
-(defvar zenirc-unprocessed-output nil)
-(make-variable-buffer-local 'zenirc-unprocessed-output)
-
-;; standard vector into which parsed messages are stashed, to avoid
-;; consing new vectors each time.
-(defvar zenirc-message-vector (make-vector 12 nil))
-(make-variable-buffer-local 'zenirc-message-vector)
-
-;; allowed server modes (set in 004 reply)
-(defvar zenirc-server-modes nil)
-(make-variable-buffer-local 'zenirc-server-modes)
-
-;; server version (set in 004 reply)
-(defvar zenirc-server-version nil)
-(make-variable-buffer-local 'zenirc-server-version)
-
-(defvar zenirc-time-last-event nil)
-(make-variable-buffer-local 'zenirc-time-last-event)
-
-;; allowed user modes (set in 004 reply)
-(defvar zenirc-user-modes nil)
-(make-variable-buffer-local 'zenirc-user-modes)
-
-\f
-;;; Standard hooks
-
-;; TODO: implement "filters" and turn this into one.
-(defvar zenirc-format-nickuserhost-hook
- '(identity)
- "*List of filters used to format nicknames in displayed messages.")
-
-(defvar zenirc-mode-hook nil
- "*Hook to run at the end of zenirc-mode.")
-
-(defvar zenirc-startup-hook nil
- "*Hook run before establishing a server connection.")
-
-(defvar zenirc-exit-hook nil
- "*Hook to run when zenirc exits.")
-
-(defvar zenirc-connect-hook nil
- "*Hook to run registering with an IRC server.")
-
-(defvar zenirc-timer-hook nil
- "*Timer hook variable.")
-
-(defvar zenirc-signal-hook '(zenirc-signal)
- "*Signal hook variable.")
-
-(defvar zenirc-message-hook nil
- "*Hook to run whenever a message is inserted in the zenirc buffer.
-The buffer is narrowed to the region containing the newly-inserted text,
-and is called with two arguments: the process (if known) and the unmodified
-string. This string may not match exactly what is currently in the buffer,
-since functions on this hook can easily modify the latter.")
-
-;; Hooks for various server commands.
-;; These are commands that the user types, e.g. "/quit" (the best command
-;; of all!). For any given command CMD, the hook zenirc-command-CMD-hook
-;; is run. If the user types a command for which there is no hook, the
-;; command is passed directly to the server.
-(defvar zenirc-command-away-hook '(zenirc-command-away))
-(defvar zenirc-command-action-hook '(zenirc-command-action))
-(defvar zenirc-command-command-char-hook '(zenirc-command-command-char))
-(defvar zenirc-command-ctcp-hook '(zenirc-command-ctcp))
-(defvar zenirc-command-kick-hook '(zenirc-command-kick))
-(defvar zenirc-command-kill-hook '(zenirc-command-kill))
-(defvar zenirc-command-language-hook '(zenirc-command-language))
-(defvar zenirc-command-m-hook '(zenirc-command-m))
-(defvar zenirc-command-me-hook '(zenirc-command-me))
-(defvar zenirc-command-msg-hook '(zenirc-command-msg))
-(defvar zenirc-command-notice-hook '(zenirc-command-notice))
-(defvar zenirc-command-oper-hook '(zenirc-command-oper))
-(defvar zenirc-command-part-hook '(zenirc-command-part))
-(defvar zenirc-command-ping-hook '(zenirc-command-ping))
-(defvar zenirc-command-privmsg-hook '(zenirc-command-privmsg))
-(defvar zenirc-command-query-hook '(zenirc-command-query))
-(defvar zenirc-command-quit-hook '(zenirc-command-quit))
-(defvar zenirc-command-quote-hook '(zenirc-command-quote))
-(defvar zenirc-command-server-hook '(zenirc-command-server))
-(defvar zenirc-command-squit-hook '(zenirc-command-squit))
-(defvar zenirc-command-topic-hook '(zenirc-command-topic))
-
-;; Hooks run after various kinds of messages are sent
-;; These hooks get several args: a process, a format specifier to use if
-;; the message sent had to be sent in multiple chunks, and format specifier
-;; to use if the entire message fit in one line, the recipient, and the
-;; number of chunks actually sent.
-;; See zenirc-send-confirmation-generic for an example.
-(defvar zenirc-send-confirmation-privmsg-hook
- '(zenirc-send-confirmation-generic))
-(defvar zenirc-send-confirmation-notice-hook
- '(zenirc-send-confirmation-generic))
-(defvar zenirc-send-confirmation-me-hook '(zenirc-send-confirmation-generic))
-(defvar zenirc-send-line-hook nil
- "*Hook run after a line of input is sent to the server.
-Functions on this hook get three args: two integers specifying the
-beginning and ending points in the buffer containing the text sent, and a
-string representing the formatted text actually sent to the server (the
-main difference is that embedded newlines are mapped to spaces).")
-
-;; Hooks run to generate replies to CTCP queries.
-(defvar zenirc-ctcp-reply-PING-hook '(zenirc-ctcp-reply-PING))
-(defvar zenirc-ctcp-query-ACTION-hook '(zenirc-ctcp-query-ACTION))
-(defvar zenirc-ctcp-query-CLIENTINFO-hook '(zenirc-ctcp-query-CLIENTINFO))
-(defvar zenirc-ctcp-query-ECHO-hook '(zenirc-ctcp-query-ECHO))
-(defvar zenirc-ctcp-query-ERRMSG-hook '(zenirc-ctcp-query-ERRMSG))
-(defvar zenirc-ctcp-query-FINGER-hook '(zenirc-ctcp-query-FINGER))
-(defvar zenirc-ctcp-query-PING-hook '(zenirc-ctcp-query-PING))
-(defvar zenirc-ctcp-query-SOURCE-hook '(zenirc-ctcp-query-SOURCE))
-(defvar zenirc-ctcp-query-TIME-hook '(zenirc-ctcp-query-TIME))
-(defvar zenirc-ctcp-query-USERINFO-hook '(zenirc-ctcp-query-USERINFO))
-(defvar zenirc-ctcp-query-VERSION-hook '(zenirc-ctcp-query-VERSION))
-
-;; Hooks run in response to messages from the server.
-;; For any message of type TYPE, the hook zenirc-server-TYPE-hook is run.
-(defvar zenirc-server-ERROR-hook '(zenirc-server-ERROR))
-(defvar zenirc-server-INVITE-hook '(zenirc-server-INVITE))
-(defvar zenirc-server-JOIN-hook '(zenirc-server-JOIN))
-(defvar zenirc-server-KICK-hook '(zenirc-server-KICK))
-(defvar zenirc-server-KILL-hook '(zenirc-server-KILL))
-(defvar zenirc-server-MODE-hook '(zenirc-server-MODE))
-(defvar zenirc-server-NICK-hook '(zenirc-server-NICK))
-(defvar zenirc-server-NOTICE-hook '(zenirc-server-NOTICE))
-(defvar zenirc-server-PART-hook '(zenirc-server-PART))
-(defvar zenirc-server-PING-hook '(zenirc-server-PING))
-(defvar zenirc-server-PONG-hook '(zenirc-server-PONG))
-(defvar zenirc-server-PRIVMSG-hook '(zenirc-server-PRIVMSG))
-(defvar zenirc-server-QUIT-hook '(zenirc-server-QUIT))
-(defvar zenirc-server-TOPIC-hook '(zenirc-server-TOPIC))
-(defvar zenirc-server-WALLOPS-hook '(zenirc-server-WALLOPS))
-(defvar zenirc-server-001-hook '(zenirc-server-001))
-(defvar zenirc-server-002-hook '(zenirc-server-002))
-(defvar zenirc-server-003-hook '(zenirc-server-003))
-(defvar zenirc-server-004-hook '(zenirc-server-004))
-(defvar zenirc-server-200-hook '(zenirc-server-200))
-(defvar zenirc-server-201-hook '(zenirc-server-201))
-(defvar zenirc-server-202-hook '(zenirc-server-202))
-(defvar zenirc-server-203-hook '(zenirc-server-203))
-(defvar zenirc-server-204-hook '(zenirc-server-204))
-(defvar zenirc-server-205-hook '(zenirc-server-205))
-(defvar zenirc-server-206-hook '(zenirc-server-206))
-(defvar zenirc-server-208-hook '(zenirc-server-208))
-(defvar zenirc-server-209-hook '(zenirc-server-209))
-(defvar zenirc-server-211-hook '(zenirc-server-211))
-(defvar zenirc-server-212-hook '(zenirc-server-212))
-(defvar zenirc-server-213-hook '(zenirc-server-213))
-(defvar zenirc-server-214-hook '(zenirc-server-214))
-(defvar zenirc-server-215-hook '(zenirc-server-215))
-(defvar zenirc-server-216-hook '(zenirc-server-216))
-(defvar zenirc-server-217-hook '(zenirc-server-217))
-(defvar zenirc-server-218-hook '(zenirc-server-218))
-(defvar zenirc-server-219-hook '(zenirc-server-219))
-(defvar zenirc-server-221-hook '(zenirc-server-221))
-(defvar zenirc-server-241-hook '(zenirc-server-241))
-(defvar zenirc-server-242-hook '(zenirc-server-242))
-(defvar zenirc-server-243-hook '(zenirc-server-243))
-(defvar zenirc-server-244-hook '(zenirc-server-244))
-(defvar zenirc-server-249-hook '(zenirc-server-249))
-(defvar zenirc-server-251-hook '(zenirc-server-251))
-(defvar zenirc-server-252-hook '(zenirc-server-252))
-(defvar zenirc-server-253-hook '(zenirc-server-253))
-(defvar zenirc-server-254-hook '(zenirc-server-254))
-(defvar zenirc-server-255-hook '(zenirc-server-255))
-(defvar zenirc-server-256-hook '(zenirc-server-256))
-(defvar zenirc-server-257-hook '(zenirc-server-257))
-(defvar zenirc-server-258-hook '(zenirc-server-258))
-(defvar zenirc-server-259-hook '(zenirc-server-259))
-(defvar zenirc-server-261-hook '(zenirc-server-261))
-(defvar zenirc-server-262-hook '(zenirc-server-262))
-(defvar zenirc-server-301-hook '(zenirc-server-301))
-(defvar zenirc-server-302-hook '(zenirc-server-302))
-(defvar zenirc-server-303-hook '(zenirc-server-303))
-(defvar zenirc-server-305-hook '(zenirc-server-305))
-(defvar zenirc-server-306-hook '(zenirc-server-306))
-(defvar zenirc-server-311-hook '(zenirc-server-311))
-(defvar zenirc-server-312-hook '(zenirc-server-312))
-(defvar zenirc-server-313-hook '(zenirc-server-313))
-(defvar zenirc-server-314-hook '(zenirc-server-314))
-(defvar zenirc-server-315-hook '(zenirc-server-315))
-(defvar zenirc-server-317-hook '(zenirc-server-317))
-(defvar zenirc-server-318-hook '(zenirc-server-318))
-(defvar zenirc-server-319-hook '(zenirc-server-319))
-(defvar zenirc-server-321-hook '(zenirc-server-321))
-(defvar zenirc-server-322-hook '(zenirc-server-322))
-(defvar zenirc-server-323-hook '(zenirc-server-323))
-(defvar zenirc-server-324-hook '(zenirc-server-324))
-(defvar zenirc-server-331-hook '(zenirc-server-331))
-(defvar zenirc-server-332-hook '(zenirc-server-332))
-(defvar zenirc-server-333-hook '(zenirc-server-333))
-(defvar zenirc-server-341-hook '(zenirc-server-341))
-(defvar zenirc-server-342-hook '(zenirc-server-342))
-(defvar zenirc-server-351-hook '(zenirc-server-351))
-(defvar zenirc-server-352-hook '(zenirc-server-352))
-(defvar zenirc-server-353-hook '(zenirc-server-353))
-(defvar zenirc-server-364-hook '(zenirc-server-364))
-(defvar zenirc-server-365-hook '(zenirc-server-365))
-(defvar zenirc-server-366-hook '(zenirc-server-366))
-(defvar zenirc-server-367-hook '(zenirc-server-367))
-(defvar zenirc-server-368-hook '(zenirc-server-368))
-(defvar zenirc-server-369-hook '(zenirc-server-369))
-(defvar zenirc-server-371-hook '(zenirc-server-371))
-(defvar zenirc-server-372-hook '(zenirc-server-372))
-(defvar zenirc-server-374-hook '(zenirc-server-374))
-(defvar zenirc-server-375-hook '(zenirc-server-375))
-(defvar zenirc-server-376-hook '(zenirc-server-376))
-(defvar zenirc-server-381-hook '(zenirc-server-381))
-(defvar zenirc-server-382-hook '(zenirc-server-382))
-(defvar zenirc-server-391-hook '(zenirc-server-391))
-(defvar zenirc-server-392-hook '(zenirc-server-392))
-(defvar zenirc-server-393-hook '(zenirc-server-393))
-(defvar zenirc-server-394-hook '(zenirc-server-394))
-(defvar zenirc-server-395-hook '(zenirc-server-395))
-(defvar zenirc-server-401-hook '(zenirc-server-401))
-(defvar zenirc-server-402-hook '(zenirc-server-402))
-(defvar zenirc-server-403-hook '(zenirc-server-403))
-(defvar zenirc-server-404-hook '(zenirc-server-404))
-(defvar zenirc-server-405-hook '(zenirc-server-405))
-(defvar zenirc-server-406-hook '(zenirc-server-406))
-(defvar zenirc-server-407-hook '(zenirc-server-407))
-(defvar zenirc-server-409-hook '(zenirc-server-409))
-(defvar zenirc-server-411-hook '(zenirc-server-411))
-(defvar zenirc-server-412-hook '(zenirc-server-412))
-(defvar zenirc-server-413-hook '(zenirc-server-413))
-(defvar zenirc-server-414-hook '(zenirc-server-414))
-(defvar zenirc-server-415-hook '(zenirc-server-415))
-(defvar zenirc-server-421-hook '(zenirc-server-421))
-(defvar zenirc-server-422-hook '(zenirc-server-422))
-(defvar zenirc-server-423-hook '(zenirc-server-423))
-(defvar zenirc-server-424-hook '(zenirc-server-424))
-(defvar zenirc-server-431-hook '(zenirc-server-431))
-(defvar zenirc-server-432-hook '(zenirc-server-432))
-(defvar zenirc-server-433-hook '(zenirc-server-433))
-(defvar zenirc-server-436-hook '(zenirc-server-436))
-(defvar zenirc-server-437-hook '(zenirc-server-437))
-(defvar zenirc-server-441-hook '(zenirc-server-441))
-(defvar zenirc-server-442-hook '(zenirc-server-442))
-(defvar zenirc-server-443-hook '(zenirc-server-443))
-(defvar zenirc-server-444-hook '(zenirc-server-444))
-(defvar zenirc-server-445-hook '(zenirc-server-445))
-(defvar zenirc-server-446-hook '(zenirc-server-446))
-(defvar zenirc-server-451-hook '(zenirc-server-451))
-(defvar zenirc-server-461-hook '(zenirc-server-461))
-(defvar zenirc-server-462-hook '(zenirc-server-462))
-(defvar zenirc-server-463-hook '(zenirc-server-463))
-(defvar zenirc-server-464-hook '(zenirc-server-464))
-(defvar zenirc-server-465-hook '(zenirc-server-465))
-(defvar zenirc-server-467-hook '(zenirc-server-467))
-(defvar zenirc-server-471-hook '(zenirc-server-471))
-(defvar zenirc-server-472-hook '(zenirc-server-472))
-(defvar zenirc-server-473-hook '(zenirc-server-473))
-(defvar zenirc-server-474-hook '(zenirc-server-474))
-(defvar zenirc-server-475-hook '(zenirc-server-475))
-(defvar zenirc-server-477-hook '(zenirc-server-477))
-(defvar zenirc-server-481-hook '(zenirc-server-481))
-(defvar zenirc-server-482-hook '(zenirc-server-482))
-(defvar zenirc-server-483-hook '(zenirc-server-483))
-(defvar zenirc-server-491-hook '(zenirc-server-491))
-(defvar zenirc-server-501-hook '(zenirc-server-501))
-(defvar zenirc-server-502-hook '(zenirc-server-502))
-
-(defvar zenirc-font-lock-keywords
- '(("^\\[\\([^]]+\\)\\].*" 1 font-lock-type-face)
- ("^\\[[^]]+\\]\\(.*\\)$" 1 font-lock-comment-face)
- ("^<\\([^>!]+[^>]+\\)>" 1 font-lock-keyword-face)
- ("^<[^>!]+!\\([^#>]+\\)[^>]+>" 1 font-lock-string-face t)
- ("^<[^>#]+\\(#[^>]+\\)>" 1 font-lock-function-name-face t)
- ("^<[^>]+> \\([^ :]+:\\)" 1 font-lock-keyword-face t))
- "Default expressions to highlight in zenirc mode.")
-
-(put 'zenirc-mode 'font-lock-defaults
- '(zenirc-font-lock-keywords nil nil ((?_ . "w"))))
-
-\f
-(defun zenirc-mode ()
- "Major mode for wasting major time on IRC."
- (kill-all-local-variables)
-
- (setq mode-name "ZenIRC")
- (setq major-mode 'zenirc-mode)
- (use-local-map zenirc-mode-map)
- (setq mode-line-process '(":%s"))
- (setq mode-line-format
- '( ""
- mode-line-modified
- mode-line-buffer-identification
- " "
- global-mode-string
- " "
- (-3 . "%p")
- " %[("
- mode-name
- mode-line-process
- "%n"
- minor-mode-alist
- ")%] "
- zenirc-nick
- (zenirc-current-victim ("->" zenirc-current-victim))
- " "
- "%-"))
- (font-lock-set-defaults)
- (zenirc-run-hook 'zenirc-mode-hook))
-
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Code to handle connection to server
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;;;###autoload
-(defun zenirc (&optional prefix)
- "Waste time on IRC.
-
-If an irc session already exists, switch to that session.
-With prefix arg, start a new session even if another exists.
-
-If buffer exists but zenirc process is not running, make new process.
-If buffer exists and zenirc process is running, just switch to that buffer.
-If an explicit numeric prefix argument is given (or this function is called
-from lisp with a numeric argument), switch to the buffer named
-\"*zenirc*<prefix>\", e.g. \"*zenirc*<2>\". If there is no process in that
-buffer, start one.
-If a prefix argument is given but it is not a number, create a new buffer
-and start a process in it. This is the same as calling the function from
-lisp with an argument of `t'."
- (interactive "P")
- (let* ((zenirc-buffer (if prefix
- (generate-new-buffer zenirc-buffer-name)
- (get-buffer-create zenirc-buffer-name)))
- (process (get-buffer-process zenirc-buffer)))
- (pop-to-buffer zenirc-buffer)
-
- (cond
- ((and process
- (memq (process-status process) '(open run))))
- (t
- (zenirc-mode)
-
- (or zenirc-server-alist
- (setq zenirc-server-alist (zenirc-ircserver-string->alist)))
-
- (setq zenirc-unprocessed-output "")
- (setq zenirc-current-victim nil)
-
- ;; Time of last event in zenirc - set it to "now"
- (setq zenirc-time-last-event
- (zenirc-time-to-int (current-time-string)))
-
- ;; note the semantics here that the current buffer when
- ;; zenirc-startup-hook is run is zenirc-buffer.
- (zenirc-run-hook 'zenirc-startup-hook)
-
- ;; Do this before opening network stream, if currently unset.
- ;; If already set, preserve so that user can save input.
- (or zenirc-process-mark
- (setq zenirc-process-mark
- (set-marker (make-marker) (point-max) zenirc-buffer)))
-
- (or (setq process
- (zenirc-establish-server-connection zenirc-buffer))
- (error "zenirc: could not establish any server connection."))
-
- (set-process-buffer process zenirc-buffer)
- (set-process-filter process 'zenirc-filter)
- (set-process-sentinel process 'zenirc-sentinel)
- (zenirc-login process)
- (zenirc-run-hook 'zenirc-connect-hook process)))))
-
-(defun zenirc-select (&optional server port nick)
- "Run manually or by issuing /server from a ZenIRC buffer.
-
-This function starts a new ZenIRC buffer and connects to a given server.
-Variables not already given are queried for, using zenirc-server-alist
-for default values. zenirc-server-alist is also updated each time this
-function is issued."
-
- (interactive)
- (if (integerp port) (setq port (int-to-string port)))
- (let ((new-server) (new-port) (new-nick))
- (setq
- new-server
- ; server to connect to
- (or server
- ; server is not given, query user
- (completing-read "Server: " zenirc-server-alist nil nil
- (or
- (car (car zenirc-server-alist))
- ; last resort default
- zenirc-server-default)))
- new-port
- ; port to connect to
- (or
- port
- ; port is not given, query user
- (read-string "Port: "
- (or
- (if (car (cdr (assoc new-server zenirc-server-alist)))
- (int-to-string
- (car (cdr (assoc new-server zenirc-server-alist)))))
- (if zenirc-port (int-to-string zenirc-port))
- ; last resort default
- (getenv "IRCPORT")
- "6667")))
- new-nick
- ; nickname to use
- (or
- nick
- ; nickname is not given, query user
- (read-string "Nickname: "
- (or
- (car (nthcdr 3 (assoc new-server zenirc-server-alist)))
- zenirc-nick
- (getenv "IRCNICK")
- ; last resort default
- (user-login-name)))))
- ; update zenirc-server-alist
- (let ((new-list (list new-server (string-to-int new-port) nil new-nick)))
- (if (not (member new-list zenirc-server-alist))
- ; a new entry is given
- (setq zenirc-server-alist
- (cons new-list zenirc-server-alist))
- ; move old entry to the top of zenirc-server-alist
- (setq zenirc-server-alist (delete new-list zenirc-server-alist)
- zenirc-server-alist (cons new-list zenirc-server-alist)))
- ; make sure we don't try to connect to anything else then the
- ; given server
- (let ((zenirc-server-alist (list new-list)))
- ; run the actual connection, at last
- (zenirc t)))))
-
-(defun zenirc-establish-server-connection (buffer &optional alist)
- "Waste time by connecting to an irc server.
-This function takes two arguments: a buffer and an optional alist
-of the same form as that returned by `zenirc-ircserver-string->alist'.
-If none is specified, the default is `zenirc-server-alist'.
-
-For each server in the alist, attempt to connect to it on the appropriate
-port and with the appropriate nicknames, etc.
-
-If any of the elements in the list for a server is unspecified, one of the
-following defaults is used, in the specified order of priority (names in
-caps preceded with `$' are environment variables):
-
- port: zenirc-port-default, $IRCPORT
- password: zenirc-password-default
- nickname: zenirc-nick-default, $IRCNICK, (user-login-name)
- username: zenirc-user-login-name-default, $USER, (user-login-name)
-
-Finally, if zenirc-server-alist is nil and no other alist is specified,
-connect to `zenirc-server-default', or $IRCSERVER, using defaults as
-described above."
- (save-excursion
- (set-buffer buffer)
- (or alist
- (setq alist zenirc-server-alist)
- (setq alist (list (list zenirc-server-default))))
- (let ((procname (concat "zenirc:" (buffer-name)))
- ent server port proc)
- (while alist
- (setq ent (car alist))
- (setq alist (cdr alist))
-
- ;; Note that we check the environment variable before the
- ;; -default variable. This is pretty much the only exception.
- (setq server (or (car ent)
- (let ((server (getenv "IRCSERVER")))
- (and server
- (substring server 0
- (string-match " \\|:" server))))
- zenirc-server-default
- (error "no server specified.")))
-
- (setq port (or (nth 1 ent)
- (let ((p (getenv "IRCPORT")))
- (and p (string-to-int p)))
- zenirc-port-default
- 6667))
-
- (condition-case data
- (progn
- (zenirc-message buffer 'connect-try server port)
- ;; Do a redisplay before connecting, in case the server is
- ;; slow to respond.
- (sit-for 0)
- (setq proc (funcall zenirc-process-connect-function
- procname buffer server port))
- ;; Update connection status in modeline.
- (force-mode-line-update)
- (setq alist nil)
- (setq zenirc-server server)
- ;; This might get reset later, but initialize it.
- (setq zenirc-current-server-name server)
-
- (setq zenirc-port port)
- (setq zenirc-password (or (nth 2 ent)
- zenirc-password-default))
- (setq zenirc-nick (or (nth 3 ent)
- zenirc-nick-default
- (getenv "IRCNICK")
- (user-login-name)
- "Thoth")) ; it -is- funny
- (setq zenirc-user-full-name (or (nth 4 ent)
- zenirc-user-full-name-default
- (getenv "IRCNAME")
- (user-full-name)
- "Thoth"))
- (setq zenirc-user-login-name (or (nth 5 ent)
- zenirc-user-login-name-default
- (getenv "USER")
- (user-login-name)
- "Thoth")))
- (quit
- (setq alist nil)
- (zenirc-message buffer 'connect-abort))
-
- (file-error
- ;; file-error "connection failed" "connection timed out" host proc
- ;; file-error "connection failed" "connection refused" host proc
- (if (string= (nth 1 data) "connection failed")
- (zenirc-message buffer 'connect-failed server port
- (nth 2 data))
- (signal 'file-error data)))
- (error
- ;; data == (error "Unknown host \"foo\"")
- (if (string-match "^Unknown host" (nth 1 data))
- (zenirc-message buffer 'connect-failed server port
- (nth 1 data))
- (apply 'signal data)))))
- proc)))
-
-(defun zenirc-ircserver-string->alist (&optional str)
- "*Create association list of server to port/password/nick/username.
-
-This function takes a string of the form
-
- \"SERVER1:PORT1:PASSWORD1:NICKNAME1:USERNAME1 SERVER2:...\"
-
-If more than one entry is desired, separate each entry in the string
-variable with any nonzero amount of whitespace composed of spaces, tabs,
-and/or newlines.
-
-If no string is specified, the value of the environment variable
-specified by `zenirc-ircserver-environment-variable-name'.
-
-The alist returned consist of lists containing the following elements,
-and satisfy the corresponding type predicates:
-
- SERVER: `stringp'
- PORT: `natnump' or `null'
- PASSWORD: `stringp' or `null'
- NICKNAME: `stringp' or `null'
- USERNAME: `stringp' or `null'
-
-These alists specify a list of servers and related data with which zenirc
-should attempt to connect to servers; generally, each one is tried until a
-successful connection is made. See `zenirc-establish-server-connection'."
- (or str (setq str (getenv zenirc-ircserver-environment-variable-name)))
- (cond
- ((null str) nil)
- ((let ((len (length str))
- (pos 0)
- (result nil)
- tmp tmplen tmppos
- tmplist)
- (save-match-data
- (and (string-match "^[ \t\r\n]+" str pos)
- (setq pos (match-end 0)))
-
- (while (< pos len)
- (cond ((string-match "[ \t\r\n]+" str pos)
- (setq tmplen (- (match-beginning 0) pos))
- (setq tmp (substring str pos (+ pos tmplen)))
- (setq pos (match-end 0)))
- (t
- (setq tmplen (- len pos))
- (setq tmp (if (zerop pos)
- str
- (substring str pos)))
- (setq pos len)))
-
- (setq tmppos 0)
- (setq tmplist nil)
- (while (< tmppos tmplen)
- (cond ((string-match ":" tmp tmppos)
- (setq tmplist
- (cons (substring tmp tmppos (match-beginning 0))
- tmplist))
- (and (string= (car tmplist) "")
- (setcar tmplist nil))
- (setq tmppos (match-end 0)))
- (t
- (and (string= tmp "")
- (setq tmp nil))
- (setq tmplist (cons (if (zerop tmppos)
- tmp
- (substring tmp tmppos))
- tmplist))
- (setq tmppos tmplen))))
- (and tmplist
- (progn
- (setq tmplist (nreverse tmplist))
- (and (stringp (nth 1 tmplist))
- ;; convert port number to int
- (setcar (nthcdr 1 tmplist)
- (string-to-int (nth 1 tmplist))))
- (setq result (cons tmplist result))))))
- (nreverse result)))))
-
-;; send nick, user@host information
-;; NICK zenirc-nick
-;; USER zenirc-user-login-name (system-name) zenirc-server
-;; :zenirc-user-full-name
-(defun zenirc-login (proc)
- (and zenirc-password
- (process-send-string proc (format "PASS %s\n" zenirc-password)))
- ;; Send user info first; some servers reject connections otherwise.
- (process-send-string proc (format "USER %s %s %s :%s\n"
- zenirc-user-login-name
- (system-name)
- zenirc-server
- zenirc-user-full-name))
- (process-send-string proc (format "NICK %s\n" zenirc-nick)))
-
-(defun zenirc-sentinel (proc str)
- (save-excursion
- (set-buffer (process-buffer proc))
- (zenirc-run-hook 'zenirc-exit-hook proc str)
- (zenirc-message proc 'sentinel (current-time-string))))
-
-
-;; This function takes a chunk of text from the server, and any text
-;; left over from the last chunk, and passes it to zenirc-parse-output
-;; to be interpreted.
-(defun zenirc-filter (proc string)
- (let ((orig-buffer (current-buffer)))
- (unwind-protect
- (progn
- (set-buffer (process-buffer proc))
- (setq zenirc-unprocessed-output
- (zenirc-parse-output proc string zenirc-unprocessed-output)))
- (set-buffer orig-buffer))))
-
-;; This routine takes a bunch of text from the server, and any remnants
-;; from the last bunch, and splits it into lines. The lines are passed to
-;; zenirc-parse-server-message to be parsed and then whatever needs to be
-;; done for that server message is done.
-(defun zenirc-parse-output (proc string unparsed-output)
- (let* ((unparsed (concat unparsed-output string))
- (proc-window (get-buffer-window (process-buffer proc)))
- (ignored nil)
- eol line parsed)
- (save-match-data
- (while (setq eol (string-match "\n" unparsed))
-
- ;; Somewhere around ircd 2.8.16.0, server messages start coming in
- ;; with a C-m (ascii 13, carriage return) at the end.
- ;; (Incidentally, that is the correct thing to do; all textually
- ;; based network protocols should use CRLF rather than just LF, for
- ;; the sake of consistency. --friedman)
- (if (= (aref unparsed (1- eol)) ?\C-m)
- (setq line (substring unparsed 0 (1- eol)))
- (setq line (substring unparsed 0 eol)))
- (setq unparsed (substring unparsed (1+ eol)))
- (cond
- ((zenirc-ignore-p line)
- (and zenirc-debug-ignore
- (zenirc-message proc 'debug (concat "Ignored: " line))
- (setq ignored t)))
- (t
- (let* ((parsed (zenirc-parse-server-message line))
- (hook-name (concat "zenirc-server-" (aref parsed 0) "-hook"))
- (hook (intern-soft hook-name)))
- (cond
- (zenirc-debug-mainloop
- (zenirc-message proc 'debug (concat "Hook: " hook-name))
- (zenirc-message proc 'debug
- (concat "Parsed: "
- (prin1-to-string parsed)))))
-
- (zenirc-timer-handler proc)
- (if (and hook (boundp hook))
- (zenirc-run-hook hook proc parsed)
- (zenirc-message proc 'server line))
- (if (and (not ignored)
- (zenirc-signal-p line))
- (zenirc-run-hook 'zenirc-signal-hook proc parsed))))))
- ;; return the unprocessed partial line, if any.
- unparsed)))
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; utility subroutines
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;; Returns a string indicating emacs variant.
-(defun zenirc-emacs-variant ()
- (let ((case-fold-search t)
- (alist '(("^Nemacs\\b" . "Nemacs")
- ("^Epoch\\b" . "Epoch")
- ("\\bXEmacs\\b" . "XEmacs")
- ("\\bLucid\\b" . "Lucid Emacs")
- ("^GNU Emacs" . "GNU Emacs")))
- (version (cond
- ((fboundp 'nemacs-version)
- (nemacs-version))
- (t
- (emacs-version))))
- result)
- (save-match-data
- (while alist
- (cond
- ((string-match (car (car alist)) version)
- (setq result (cdr (car alist)))
- (setq alist nil))
- (t
- (setq alist (cdr alist))))))
- result))
-
-;; Update the modeline, or whatever it takes to actually update the modeline
-;; depending on which version of Emacs we're using.
-;;
-;; ``Consistency is the last refuge of the unimaginative''
-;; -- Oscar Wilde
-;;
-(defun zenirc-update-modeline ()
- (let ((version (emacs-version)))
- (cond ((string-match "Emacs 19" version)
- (force-mode-line-update))
- ((string-match "XEmacs" version)
- (redraw-modeline))
- (t
- (redraw-display)))))
-
-(defun zenirc-match-string (n &optional s)
- "Return string matched by last search.
-N specifies the nth parenthesized expression in the last regexp.
-N=0 means the entire text matched by the whole regexp or whole string.
-S should be given if the last search was by `string-match' on string S.
-
-Return value is nil if there is no Nth match."
- (and (match-beginning n)
- (if s
- (substring s (match-beginning n) (match-end n))
- (buffer-substring (match-beginning n) (match-end n)))))
-
-(defun zenirc-string-match-list (msg regexp-list)
- (let ((match-data (match-data))
- (found nil))
- (while (and (not found) regexp-list)
- (setq found (string-match (car regexp-list) msg))
- (setq regexp-list (cdr regexp-list)))
- (or found
- (store-match-data match-data))
- found))
-
-;; t if we are at the beginning of the input area
-(defun zenirc-beginning-of-input-p (&optional proc)
- (or proc
- (setq proc (get-buffer-process (current-buffer))))
- ;; Note you can compare markers and positions safely; `=' looks at the
- ;; marker's position.
- (= (point) zenirc-process-mark))
-
-;; t if point is in the "input area" (i.e. beyond the process mark)
-(defun zenirc-in-input-p ()
- ;; Note you can compare markers and positions safely; `=' looks at the
- ;; marker's position.
- (>= (point) zenirc-process-mark))
-
-;; return t if arg is a channel name, else nil
-(defun zenirc-channel-p (arg)
- (memq (aref arg 0) '(?# ?& ?+)))
-
-;; ignore processing - msg is a server message sent to the client.
-;; Return non-nil if it is to be ignored, nil if it is not to be ignored.
-(defun zenirc-ignore-p (msg)
- (zenirc-string-match-list msg zenirc-ignore-list))
-
-;; Return t if both names are equivalent, ignoring differences in case.
-;; This uses zenirc-downcase-name to handle weird chars.
-;;
-;; This function is used to check whether a given nickname matches a
-;; nickname fed to us by the server. As the function is used to check
-;; this on recieved PRIVMSGs and NOTICEs we also need to check if the
-;; sending side used one of the more obscure addressing schemes:
-;; nickname@servername
-;; username%hostname
-;; As @ and % are illegal characters in a nickname, we can safely
-;; check if n1 contains one of them to see if the recieved string
-;; matches whatever the server thinks we are. --pp
-;;
-;; Because of the fact mentioned above we need to define what n1 and
-;; n2 should be. I hereby declare that n1 is whatever the server has
-;; fed us and n2 is our own given string. This only needs to be true
-;; when the optional argument "recieving-privmsg" is set, but it
-;; should be the standard way to address the function. --pp
-(defun zenirc-names-equal-p (n1 n2 &optional recieving-privmsg)
- ;; I (Noah) have checked the emacs source code, and the size of strings
- ;; is stored in the Lisp_Object structure, so it can be referenced in
- ;; constant time. Checking size first avoids the need for extra string
- ;; consing and regexp searching in zenirc-downcase-name if we know the
- ;; names can't possibly be equal.
- (or
- (and (= (length n1) (length n2))
- (string= (zenirc-downcase-name n1) (zenirc-downcase-name n2)))
- (and recieving-privmsg
- (or (string-match "@" n1)
- (string-match "%" n1)))))
-
-; (and (= (length n1) (length n2))
-; (string= (zenirc-downcase-name n1) (zenirc-downcase-name n2))))
-
-;; RFC1459 says that, because of IRC's scandanavian origin, the
-;; characters {}| are considered to be the lower case equivalents of the
-;; characters []\, respectively. This is a critical issue when determining
-;; the equivalence of two nicknames or channel names.
-(defun zenirc-downcase-name (s)
- (setq s (downcase s))
- (let ((c '((?\[ . ?\{) (?\] . ?\}) (?\\ . ?\|)))
- (p 0))
- (save-match-data
- (while (string-match "[][\\]" s p)
- (aset s (match-beginning 0)
- (cdr (assq (aref s (match-beginning 0)) c)))
- (setq p (match-end 0)))))
- s)
-
-;; determine if an event is worthy of a signal
-(defun zenirc-signal-p (msg)
- (zenirc-string-match-list msg zenirc-signal-list))
-
-;; returns nil if nick is actually a server name.
-(defun zenirc-extract-nick (nickuserhost)
- (save-match-data
- (cond ((string-match "[!.]" nickuserhost)
- (if (= (aref nickuserhost (match-beginning 0)) ?.)
- nil
- (substring nickuserhost 0 (match-beginning 0))))
- (t nickuserhost))))
-
-(defun zenirc-extract-userhost (nickuserhost)
- (save-match-data
- (and (string-match "!" nickuserhost)
- (substring nickuserhost (match-end 0)))))
-
-(defun zenirc-extract-host (nickuserhost)
- (save-match-data
- (and (string-match "@" nickuserhost)
- (substring nickuserhost (match-end 0)))))
-
-;; Parse a line into its constituent parts (words separated by
-;; whitespace). Return a list of the words.
-(defun zenirc-parse-words (line)
- (let ((list '())
- (posn 0))
- (save-match-data
- (while (string-match "[^ \t\n]+" line posn)
- (setq list (cons (zenirc-match-string 0 line) list))
- (setq posn (match-end 0))))
- (nreverse list)))
-
-;; Parse the first n words in line, returning a list consisting of each
-;; word, plus any remaining portion of the string.
-(defun zenirc-parse-n-words (n line)
- (let ((i 0)
- (len (length line))
- (posn 0)
- (result nil))
- (save-match-data
- (while (and (< i n)
- (string-match "[^ \t\n]+" line posn))
- (setq result (cons (zenirc-match-string 0 line) result))
- (setq posn (match-end 0))
- (setq i (1+ i)))
- (and (string-match "[ \t\n]+" line posn)
- (setq posn (match-end 0)))
- (and (< posn len)
- (setq result (cons (substring line posn) result)))
- (nreverse result))))
-
-;; parse a line into the first word and the rest.
-;;
-;; This returns ("word" . "rest"), where word means adjacent non-space
-;; characters. Any amount of whitespace is skipped after the first word,
-;; and "rest" is the rest of the line. If there is no "rest", a "rest"
-;; of "" is constructed.
-(defun zenirc-parse-firstword (str)
- (let ((cell (cons nil nil)))
- (save-match-data
- (cond ((string-match "[^ \t\n]+" str)
- (setcar cell (zenirc-match-string 0 str))
- (if (string-match "[^ \t\n]+" str (match-end 0))
- (setcdr cell (substring str (match-beginning 0)))
- (setcdr cell ""))
- cell)))))
-
-;; parse a server message into the zenirc-message-vector
-;; the result looks like ["msgtype" "sender" "to" "arg1" ... "argn"]
-(defun zenirc-parse-server-message (string)
- (save-match-data
- (let ((posn (if (eq (aref string 0) ?:)
- (string-match " " string)
- 0))
- (msg zenirc-message-vector)
- (n 2))
- (fillarray msg nil)
-
- (aset msg 1 (if (eq posn 0)
- (or zenirc-current-server-name zenirc-server)
- (substring string 1 posn)))
-
- (aset msg 0 (let* ((bposn (string-match "[^ ]" string posn))
- (eposn (string-match " " string bposn)))
- (setq posn (and eposn
- (string-match "[^ ]" string eposn)))
- (substring string bposn eposn)))
-
- (while (and posn
- (not (eq (aref string posn) ?:)))
- (aset msg n (let* ((bposn posn)
- (eposn (string-match " " string bposn)))
- (setq posn (and eposn
- (string-match "[^ ]" string eposn)))
- (substring string bposn eposn)))
- (setq n (1+ n)))
- (if posn
- (aset msg n (substring string (1+ posn))))
- msg)))
-
-;; Try matching msg in regexp-list.
-;; If no match is found, preserve old match data and return nil.
-;; Otherwise, return value of successful string-match and leave modified
-;; match-data intact.
-;; do a signal (pop up buffer, beep, whatever)
-(defun zenirc-signal (proc msg)
- (cond ((and proc-window
- (pos-visible-in-window-p zenirc-process-mark proc-window)
- (not (string-equal zenirc-beep-on-signal 'always))))
- (t
- (and zenirc-beep-on-signal (ding t))
- (zenirc-message nil 'signal (buffer-name)))))
-
-(defun zenirc-message (proc-or-buffer string &rest args)
- (let ((proc nil)
- (buffer nil)
- (sym nil))
-
- (cond ((processp proc-or-buffer)
- (setq buffer (process-buffer proc-or-buffer))
- (setq proc proc-or-buffer))
- ((or (bufferp proc-or-buffer)
- (stringp proc-or-buffer))
- (setq buffer (get-buffer proc-or-buffer))
- (setq proc (get-buffer-process buffer))))
-
- (cond
- ((symbolp string)
- (setq sym string)
- (setq string (zenirc-lang-retrieve-catalog-entry string))))
- (and args
- (if string
- (setq string (apply 'format string args))
- (setq string (format "[raw] %s" args))))
- (cond
- ((null proc-or-buffer)
- (message "%s" string))
- (t
- (setq string (concat string "\n"))
- (let ((orig-buffer (current-buffer))
- region-begin
- window
- window-point
- current-point-mark)
- (unwind-protect
- (progn
- (set-buffer buffer)
- (setq window (get-buffer-window buffer))
- (setq region-begin (marker-position zenirc-process-mark))
- (setq current-point-mark (point-marker))
-
- ;; If process mark is at window start, insert-before-markers
- ;; will insert text off-window since it's also inserting before
- ;; the start window mark. Preserve window start's point in
- ;; that case.
- (and window
- (= zenirc-process-mark (window-start window))
- (setq window-point region-begin))
-
- (goto-char zenirc-process-mark)
- (insert-before-markers string)
- (goto-char region-begin)
- (while (search-forward "\C-m" zenirc-process-mark t)
- (delete-char -1))
- (and zenirc-message-hook
- (save-restriction
- (narrow-to-region region-begin zenirc-process-mark)
- (zenirc-run-hook 'zenirc-message-hook proc sym string)))
- (goto-char current-point-mark)
- (and window-point
- (set-window-start window window-point 'noforce)))
- (set-buffer orig-buffer)))))))
-
-;; Insert the string "(sent to foo)" for arbitrary foo in the zenirc buffer.
-;; This might be a useful thing to put in your zenirc-command-msg-hook.
-;; `data' is either a simple string or a parsed message list. The
-;; structure of a partially-parsed message differs a little; the rest of
-;; the string is directly in the cdr, instead of each substring being in
-;; its own cons. --friedman
-(defun zenirc-display-recipient-confirmation (proc data &optional n)
- (or n (setq n 1))
- (let ((to (cond
- ((stringp data)
- data)
- ((and (consp data)
- (consp (cdr data))
- (> (length data) 1))
- (car (cdr data)))
- ((listp data)
- (car (zenirc-parse-firstword (cdr data))))
- ((signal 'wrong-type-argument (list 'string-or-list-p data))))))
- (if (string-equal 'message zenirc-send-confirmation)
- (setq proc nil))
- (if (> n 1)
- (zenirc-message proc 'send-multi to n)
- (zenirc-message proc 'send to))))
-
-;; Handle a zenirc / command typed by the user. Check to see if there's a
-;; hook for the command and if so, execute the hook, otherwise just send the
-;; command line unaltered to the server.
-(defun zenirc-do-command (proc cmdline)
- (let* ((parsedcmd (zenirc-parse-firstword cmdline))
- (cmdname (car parsedcmd))
- (hook-name (concat "zenirc-command-" cmdname "-hook"))
- (hook (intern-soft hook-name)))
- (cond
- (zenirc-debug-commands
- (zenirc-message proc 'debug (concat "Hook: " hook-name))
- (zenirc-message proc 'debug
- (concat "Parsed: " (prin1-to-string parsedcmd)))))
- ;; Call the hook, if it's bound and non-nil.
- ;; Otherwise, just send the unparsed command to the server.
- (if (and hook
- (boundp hook)
- (symbol-value hook))
- (zenirc-run-hook hook proc parsedcmd)
- (process-send-string proc (concat cmdline "\n")))))
-
-(defun zenirc-send-line ()
- "Send current line to IRC server."
- (interactive)
- (cond
- ((zenirc-in-input-p)
- (end-of-line)
- (let* ((proc (get-buffer-process (current-buffer)))
- (input-start (copy-marker zenirc-process-mark))
- (input-end (point))
- (string (buffer-substring input-start input-end))
- (posn 0))
- (if (= (point) (point-max))
- (insert "\n")
- ;; skip over line already present
- (goto-char (1+ (point))))
- (set-marker zenirc-process-mark (point))
- (zenirc-timer-handler proc)
- (save-match-data
- (cond
- ;; Ignore lines composed only of whitespace
- ((not (string-match "\\`\\s-*\\'" string))
- ;; convert newlines in input to spaces (decimal ascii 32)
- (while (string-match "\n" string posn)
- (aset string (match-beginning 0) 32)
- (setq posn (match-end 0)))
- ;; Remove preceding whitespaces, if user wants us to.
- (if (and zenirc-delete-preceding-whitespaces
- (string-match (concat "^\\( \\)*"
- (char-to-string zenirc-command-char))
- string))
- (setq string
- (substring string (string-match "[^ ]" string))))
- ;; Run this hook after string has been formatted, but before
- ;; invoking any hooks since they may do unpredictable things like
- ;; change the current buffer.
- (zenirc-run-hook 'zenirc-send-line-hook
- input-start input-end string)
- (cond ((= (aref string 0) zenirc-command-char)
- (zenirc-do-command proc (substring string 1)))
- ((string= zenirc-current-victim nil)
- (zenirc-message proc 'nosend))
- (t
- (let ((n (zenirc-send-multi-line
- proc
- (concat "PRIVMSG " zenirc-current-victim)
- string)))
- (zenirc-run-hook 'zenirc-send-confirmation-privmsg-hook
- proc 'send-multi 'send
- zenirc-current-victim n)))))))))
- (t
- (goto-char (point-max)))))
-
-;; Returns the number of chunks required to send the message
-(defun zenirc-send-multi-line (proc prefix string)
- (let* ((maxlen (- zenirc-message-length-limit
- (length prefix)
- ;; when the server sends your message, it prepends a
- ;; string of the form ":nick!user@host "
- ;; Plus we add a newline and a separator ourselves.
- (length zenirc-nick)
- (length zenirc-user-login-name)
- (length (system-name))
- ;;(length ": !@ :\r\n")
- 8))
- (strlen (length string))
- (posn 0)
- (n 0)
- (count 0))
- (while (< posn strlen)
- (setq n (min maxlen (- strlen posn)))
- (process-send-string
- proc (concat prefix " :" (substring string posn (+ posn n)) "\r\n"))
- (setq posn (+ posn n))
- (setq count (1+ count)))
- count))
-
-;; This is the default action for most zenirc-send-confirmation-FOO-hooks.
-(defun zenirc-send-confirmation-generic (proc multi single to n)
- (if zenirc-send-confirmation
- (progn
- (and (string-equal 'message zenirc-send-confirmation)
- (setq proc nil))
- (let ((msg (if (> n 1) multi single)))
- (zenirc-message proc msg to n)))))
-
-;; Delete a cell from a list, case-insensitively.
-(defun zenirc-delete-case-insensitive (elt list)
- "Delete by side effect any occurrences of ELT as a member of LIST.
-The modified LIST is returned. Comparison is done with `equal'.
-If the first member of LIST is ELT, deleting it is not a side effect;
-it is simply using a different list.
-Therefore, write `(setq foo (delete element foo))'
-to be sure of changing the value of `foo'.
-
-This function compares things case-insensitively (according to RFC1459)."
- (let ((p list)
- (l (cdr list)))
- (while l
- (if (equal (zenirc-downcase-name elt) (zenirc-downcase-name (car l)))
- (setcdr p (cdr l))
- (setq p (cdr p)))
- (setq l (cdr l))))
- (if (equal (zenirc-downcase-name elt) (zenirc-downcase-name (car list)))
- (cdr list)
- list))
-
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;
-;;; ZenIRC message catalogs
-;;;
-;;; "Hello, hello, obarrayter?"
-;;; "This is the obarrayter."
-;;; "Could you please call an internist?"
-;;; "What's the problem, sir?"
-;;; "Oh, just some bad hash. But I'd like to consult a professional
-;;; just to be safe."
-;;; "I understand, sir."
-;;; ...dum dee dum...
-;;; 'Tis a gift to be symbol
-;;; 'tis a gift to be freed...
-;;; -- Karl Fogel
-;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defvar zenirc-lang-catalogs (make-vector 13 0)
- "Obarray used to store message for all languages, indexed by symbol.")
-
-;; 211 buckets should be more than enough for message catalogs (remember to
-;; use a prime number to get good hashing characteristics).
-;; This is not the total number of messages you can store, but just the number
-;; of "buckets" in which they can go. Even if the catalog eventually
-;; contains more entries than this, it isn't really necessary to increase
-;; the size of this table. Note that right now, there are about 175
-;; messages in the english catalog with a few extra libraries loaded.
-(defconst zenirc-lang-obarray-size 211
- "*The default hash table size for newly created message catalogs")
-
-(defvar zenirc-lang-current-language 'english
- "Current language in use in zenirc.")
-
-;; This works on existing catalogs, but will overwrite any entry already in
-;; the catalog.
-(defun zenirc-lang-define-catalog (lang alist)
- (let* ((catalog-name (if (stringp lang)
- lang
- (symbol-name lang)))
- (catalog-sym (intern catalog-name zenirc-lang-catalogs))
- catalog)
-
- (or (boundp catalog-sym)
- (set catalog-sym (make-vector zenirc-lang-obarray-size 0)))
- (setq catalog (symbol-value catalog-sym))
-
- (while alist
- (set (intern (symbol-name (car (car alist))) catalog) (cdr (car alist)))
- (setq alist (cdr alist)))))
-
-;; This creates a new catalog if none exists for the language specified.
-;; It is more efficient to use zenirc-lang-define-catalog if defining many
-;; entries at once.
-(defun zenirc-lang-store-catalog-entry (sym str lang)
- (or lang (setq lang zenirc-lang-current-language))
- (let* ((catalog-name (if (stringp lang)
- lang
- (symbol-name lang)))
- (sym-name (if (stringp sym)
- sym
- (symbol-name sym)))
- (catalog-sym (intern catalog-name zenirc-lang-catalogs)))
- (or (boundp catalog-sym)
- (set catalog-sym (make-vector zenirc-lang-obarray-size 0)))
- (set (intern sym-name (symbol-value catalog-sym)) str)))
-
-;; This returns nil for any undefined entry type, or if there is no
-;; catalog for the language specified.
-(defun zenirc-lang-retrieve-catalog-entry (sym &optional lang)
- (if (not lang) (setq lang zenirc-lang-current-language))
- (or (zenirc-lang-retrieve-catalog-entry-1 sym lang)
- ;; For now, if a message entry isn't defined for the
- ;; current language, default to english. There are
- ;; many new message types and the other catalogs
- ;; aren't completely up to date.
- (and (not (string-equal lang 'english))
- (zenirc-lang-retrieve-catalog-entry-1 sym 'english))))
-
-(defun zenirc-lang-retrieve-catalog-entry-1 (sym lang)
- (or lang (setq lang zenirc-lang-current-language))
- (let* ((catalog-name (if (stringp lang)
- lang
- (symbol-name lang)))
- (catalog-sym (intern-soft catalog-name zenirc-lang-catalogs))
- catalog
- (sym-name (if (stringp sym)
- sym
- (symbol-name sym)))
- msg-sym)
- (cond ((or (null catalog-sym)
- (not (boundp catalog-sym)))
- nil)
- (t
- (setq catalog (symbol-value catalog-sym))
- (setq msg-sym (intern-soft sym-name catalog))
- (and msg-sym
- (boundp msg-sym)
- (symbol-value msg-sym))))))
-
-;; If called interactively and language is undefined, signal an error.
-(defun zenirc-lang-set-current-language (lang)
- (interactive (list (completing-read "Switch to language: "
- zenirc-lang-catalogs 'boundp t)))
- (let* ((name (if (stringp lang)
- lang
- (symbol-name lang)))
- (catalog (intern-soft name zenirc-lang-catalogs)))
-
- (cond ((and catalog (boundp catalog))
- ;; Set the current language to a symbol interned in the global
- ;; obarray. This makes it more convenient to compare against
- ;; other symbols with eq.
- (setq zenirc-lang-current-language (intern name))
- (zenirc-message (current-buffer) 'newcatalog name))
- (t
- (zenirc-message (current-buffer) 'nocatalog name)
- nil))))
-
-\f
-;; English is the default catalog. Other catalogs are available in
-;; separate files.
-(defun zenirc-lang-define-english-catalog ()
- (zenirc-lang-define-catalog 'english
- '((s001 . "[info] You are wasting time.")
- (s002 . "[info] Your IRC server is %s running ircd version %s")
- (s003 . "[info] This server was created %s")
- (s200 . "[info] %s (%s) Link -> %s") ; Version reply from /trace
- (s201 . "[info] %s Try -> %s")
- (s202 . "[info] %s H.S. -> %s")
- (s203 . "[info] %s Hmmm -> IP address: %s") ; Unknown connection
- (s204 . "[info] %s Oper -> %s") ; Operator connection
- (s205 . "[info] %s User -> %s") ; User connection
- (s206 . "[info] %s Serv -> %s %s %s %s ") ; Server connection
- (s208 . "[info] %s %s -> %s") ; New type connection
- (s209 . "[info] %s Clas -> %s = %s") ; What the classes means
- (s211 . "[info] %s link up %s sec\nSent: %s/%s, Rcvd: %s/%s, SendQ: %s")
- (s212 . "[info] %s\t->\ttimes: %s\tbytes: %s") ; Command stats
- (s213 . "[info] C hst/nme/prt/cls: %s/%s/%s/%s") ; C-lines
- (s214 . "[info] N hst/nme/prt/cls: %s/%s/%s/%s") ; N-lines
- (s215 . "[info] %s host/name/class:\t%s/%s/%s") ; I-lines
- (s216 . "[info] K host/username:\t%s/%s") ; K-lines
- (s217 . "[info] Q %s/%s/%s/%s/%s") ; Q-lines
- (s218 . "[info] Class: %s Ping freq: %s Conn.freq: %s Max Links: %s Sendq: %s") ; Y-lines
- (s219 . "[info] End of /stats.")
- (s221 . "[info] Your current user mode is: %s")
- (s241 . "[info] LEAF hostmask/depth:\t\t%s/%s") ; L-lines
- (s242 . "[info] %s") ; Uptime of server
- ;; O-lines and o-lines; the latter are for local ops
- (s243 . "[info] %s nickname/user@host:\t%s/%s")
- (s244 . "[info] HUB hostmask/servername:\t%s/%s") ; H-lines
- (s249 . "[info] %s; %s") ; /stats Z info.
- (s251 . "[info] There are %s/%s visible/invisible users on %s servers.")
- (s251-29 . "[info] There are %s users and %s services on %s servers.")
- (s252 . "[info] There are %s major dweebs online.")
- (s253 . "[info] There are %s unknown connections.")
- (s254 . "[info] There are %s channels")
- (s255 . "[info] There are %s clients and %s servers connected to this server")
- (s255-29 . "[info] There are %s clients, %s services and %s servers connected to this server")
- (s256 . "[info] Administrative information for %s:") ; /admin line 1
- (s257 . "[info] %s") ; /admin line 2
- (s258 . "[info] %s") ; /admin line 3
- (s259 . "[info] %s") ; /admin line 4
- (s261 . "[info] %s File -> %s %s") ; Logfile trace
- (s262 . "[info] %s Vers -> %s")
- (s301 . "[info] %s is away: %s")
- (s302 . "[info] userhost: %s") ; userhost reply
- (s303 . "[info] Currently wasting time: %s") ; ison reply
- (s305 . "[info] You are no longer away")
- (s306 . "[info] You are away")
- (s311 . "[info] %s (%s@%s) is %s") ; user part of /whois list
- (s312 . "[info] %s iswas using server %s (%s)")
- (s313 . "[info] %s is a major dweeb.") ; /whois operator status
- (s314 . "[info] %s (%s@%s) was %s") ; user part of /whowas list
- (s315 . "[info] End of /who.")
- (s317 . "[info] %s has been idle %s") ; /whois idle time
- (s318 . "[info] End of /whois.")
- (s319 . "[info] %s is on: %s") ; channel part of whois data
- (s321 . "[info] Channel Users Topic") ; header for LIST cmd
- (s322 . "[info] %-15s %-5s %s") ; each channel in LIST cmd
- (s323 . "[info] End of /list.") ; trailer for LIST cmd
- (s324 . "[info] Mode for %s is %s %s") ; channel mode
- (s331 . "[info] %s has no topic") ; no topic message
- (s332 . "[info] %s topic: %s") ; topic message
- (s333 . "[info] %s topic set by %s at %s") ; topic set time
- (s341 . "[info] You are inviting %s to %s") ; invite reply
- (s342 . "[info] You are asking %s to waste time") ; summon reply
- (s351 . "[info] Version: %s %s %s") ; version reply
- (s352_header . "[info] Nickname Stat Name of Channel User@host (Hop count Name)") ; header for /who list reply
- (s352 . "[info] %-9s %-3s %-15s %s@%s (%s)") ; /who list reply
- (s353 . "[info] Users on %s: %s") ; displayed after channel join
- (s364 . "[info] %s %s %s") ; /links reply
- (s365 . "[info] end of /links") ; end of /links reply
- (s367 . "[info] %s ban %s") ; banlist reply
- (s368 . "[info] end of banlist") ; end of banlist reply
- (s371 . "[info] %s") ; info reply
- (s372 . "[motd] %s") ; message of the day
- (s375 . "[motd] Message Of The Day:") ; start of motd
- (s376 . "[motd] End of motd") ; displayed at end of motd
- (s381 . "[info] You are now a major dweeb") ; irc op status
- (s382 . "[info] Rehashing: %s") ; rehash server msg
- (s391 . "[info] Time for server %s: %s") ; TIME reply
- (s392 . "[info] Userid Terminal Host") ; header for users rpl
- (s393 . "[info] %s") ; body of users rpl
- (s395 . "[info] Nobody logged on") ; nobody for users rpl
- (s401 . "[info] No such nick/channel: %s") ; there is no such nick/chan
- (s402 . "[info] No such nick/server: %s") ; there is no such server
- (s403 . "[info] No such channel: %s") ; there is no such channel
- (s404 . "[info] You cannot send to %s.") ; you can't send to channel
- (s405 . "[info] Too many channels: %s") ; too many channels
- (s406 . "[info] Server has no record of nickname: %s") ; no whowas data
- (s407 . "[info] Duplicate recipients. No message sent: %s") ; user@host
- (s409 . "[info] No origin specified.") ; ping error reply
- (s411 . "[info] No recipient given.") ; no recipient given
- (s412 . "[info] No text to send.") ; you didn't send anything.
- (s413 . "[info] No toplevel domain: %s") ; no toplevel domain spec
- (s414 . "[info] Wildcard in toplevel domain: %s") ; wild toplevel
- (s415 . "[info] Bad server/host mask: %s") ; wild toplevel
- (s421 . "[info] This looks like spam to me: %s") ; you sent server spam
- (s422 . "[info] No motd (flame major dweeb listed in /admin)")
- (s423 . "[info] No admin info. Ignorant major dweeb running server.")
- (s431 . "[info] No nickname given") ; you didn't provide a nick
- (s432 . "[info] Invalid nickname: %s")
- (s433 . "[info] Nickname already in use: %s")
- (s436 . "[info] Nick collision kill: %s")
- (s437 . "[info] Nick/channel temporarily unavailable: %s")
- (s441 . "[info] %s is not on %s") ; can't do it to those not present
- (s442 . "[info] You are not on %s.") ; you can't do that dave.
- (s443 . "[info] %s is already on channel %s.") ; invite error
- (s444 . "[info] %s is not logged in") ; SUMMON reply
- (s445 . "[info] Some major dweeb won't let you do summon")
- (s446 . "[info] Some major dweeb won't let you do /users")
- (s451 . "[info] You have not registered") ; gotta do the USER NICK thing
- (s461 . "[info] Not enough parameters: %s") ; as 421
- (s462 . "[info] You may not reregister") ; cannot USER twice
- (s463 . "[info] Some fascist major dweeb will not let you connect")
- (s464 . "[info] Password is incorrect") ; bad PASS command
- (s465 . "[info] You are not allowed to use this server.") ; creep
- (s467 . "[info] Key for %s is already set.") ; chan key set already
- (s471 . "[info] Cannot join %s (user limit reached).") ; too many ppl
- (s472 . "[info] %s is an unknown mode character.") ; duh
- (s473 . "[info] Cannot join %s (invite only).") ; fascist nerds
- (s474 . "[info] Cannot join %s (ban).") ; you're banned
- (s475 . "[info] Cannot join %s (channel key).") ; bad key
- (s477 . "[info] Channel %s doesn't support modes.")
- (s481 . "[info] You are not a big enough dweeb to do that.") ; oper only
- (s482 . "[info] You are not a powermonger for %s.") ; chanop needed
- (s483 . "[info] Duh. You cannot kill a server") ; can't kill a server
- (s491 . "[info] No major dweebs allowed from your host") ; no o-line
- (s501 . "[info] Unknown user mode flag") ; you did something silly
- (s502 . "[info] Cannot change mode for other users") ; as above
- (action . "(sent to %s)") ; ctcp action sent
- (connect-failed . "[error] Couldn't connect to %s port %d, reason: %s")
- (connect-try . "[info] Connecting to %s port %d...")
- (connect-abort . "[info] Aborted attempt to connect to an irc server.")
- (ctcp_action . "[action->%s] %s %s") ; ctcp ACTION display
- (ctcp_action_nochannel . "[action] %s %s")
- (ctcp_clientinfo . "[query] CLIENTINFO from %s to %s")
- (ctcp_echo . "[query] ECHO from %s to %s containing: %s")
- (ctcp_errmsg . "[query] ERRMSG from %s to %s")
- (ctcp_finger . "[query] FINGER from %s to %s")
- (ctcp_ping . "[query] PING from %s to %s")
- (ctcp_ping_reply . "[reply] PING: %s is %s seconds away")
- (ctcp_source . "[query] SOURCE from %s to %s")
- (ctcp_time . "[query] TIME from %s to %s")
- (ctcp_userinfo . "[query] USERINFO from %s to %s")
- (ctcp_version . "[query] VERSION from %s to %s")
- (debug . "[debug] %s") ; displayed by debugging code
- (error . "[%s] %s") ; server error message
- (invite . "[info] %s invites you to %s.") ; invite
- (join_you . "[info] Joining channel: %s")
- (join . "[info] %s has joined %s")
- (join_mode . "[info] %s joined %s (+%s).")
- (kick . "[info] %s has been kicked from %s by %s") ; someone was peeved
- (kick_you . "[info] You have been kicked from %s by %s") ; loser
- (kill . "[info] You have been killed: %s") ; your time is up.
- (mode . "[info] %s has changed mode for %s: %s") ; MODE change
- (nick . "[info] %s has changed nick to %s") ; nick change
- (newcatalog . "[info] Current message catalog set to %s")
- (nocatalog . "[error] No message catalog defined for %s")
- (nosend . "[info] you have no current victim to send to") ; msg not sent
- (notice . "{%s%s} %s") ; NOTICE
- (notice_nochannel . "{%s} %s") ; NOTICE
- (notice_you . "{%s} %s") ; NOTICE sent to your nick
- (now_querying . "[info] Current victim is %s.") ; /query foo
- (part_you . "[info] Leaving: %s (%s)") ; your part from channel message
- (part . "[info] %s has left %s (%s)") ; part from channel message
- (pong . "[info] %s says ojnk.") ; pong message from server
- (privmsg . "<%s%s> %s") ; PRIVMSG
- (privmsg_nochannel . "<%s> %s") ; PRIVMSG
- (privmsg_you . "*%s* %s") ; PRIVMSG sent to your nick
- (protocol_violation . "[error] The following line is in violation of the IRC protocol.\n[error] Please tell the server administrator:\n%s: %s")
- (query . "[query] from %s to %s content %s") ; ctcp query
- (query_unknown . "is an unknown CTCP query")
- (query_unbalanced . "[UNBALANCED query] from %s to %s content %s")
- (query_unbalanced_reply . "is an unbalanced CTCP query")
- (quit . "[info] %s stopped wasting time: %s") ; user signoff
- (reply . "[reply] from %s to %s content %s") ; ctcp reply
- (reply_unbalanced . "[UNBALANCED reply] from %s to %s content %s")
- (send . "(sent to %s)") ; you sent a message/notice
- (send-multi . "(sent to %s in %d parts)") ; sent a long message/notice
- (sentinel . "\nZenIRC ended at %s") ; process sentinel message
- (server . "[server] %s") ; unknown server message
- (signal . "[signal in %s]") ; signal in echo area
- (topic . "[info] %s changed the topic on %s to: %s") ; topic message
- (wallops . "-%s- %s") ; WALLOPS notice
- )))
-
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;
-;;; ZenIRC hook handling functions
-;;;
-;;; ZenIRC uses a somewhat nonstandard hook mechanism. Hook symbols
-;;; are manipulated with zenirc-add-hook and zenirc-delete-hook, and
-;;; are executed with zenirc-run-hook. A hook symbol is a list of
-;;; symbols that are function names. When a hook is run with
-;;; zenirc-run-hook, each symbol in the list is run in turn - unless
-;;; one of the hooks sets the variable zenirc-run-next-hook to nil. In
-;;; this case, zenirc-run-hook immediatelly returns to the caller.
-;;; Unlike emacs 19 hooks, ZenIRC hooks are called with arguments.
-;;; ZenIRC hooks return the value of the last hook run.
-;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun zenirc-run-hook (hooksym &rest args)
- "Take hook name HOOKSYM and run it, passing optional args ARGS.
-HOOKSYM should be a symbol, a hook variable.
-If the hook symbol has a non-nil value, that value may be a function
-or a list of functions to be called to run the hook.
-If the value is a function, it is called with args ARGS.
-If it is a list, the elements are called, in order, with ARGS, if
-zenirc-run-next-hook is t (the default). Otherwise, the hooks after
-the one that set zenirc-run-next-hook are not called, and control is
-returned to the caller. (zenirc-run-hook) returns the value returned
-from the last hook run."
- (let ((zenirc-run-next-hook t)
- (result))
- (and (boundp hooksym)
- (symbol-value hooksym)
- (let ((value (symbol-value hooksym)))
- (if (and (listp value)
- (not (eq (car value) 'lambda)))
- (while (and value zenirc-run-next-hook)
- (setq result (apply (car value) args))
- (setq value (cdr value)))
- (setq result (apply value args)))))
- result))
-
-(defun zenirc-add-hook (hook function &optional append)
- "Add to the value of HOOK the function FUNCTION.
-FUNCTION is not added if already present.
-FUNCTION is added (if necessary) at the beginning of the hook list
-unless the optional argument APPEND is non-nil, in which case
-FUNCTION is added at the end.
-
-HOOK should be a symbol, and FUNCTION may be any valid function. If
-HOOK is void, it is first set to nil. If HOOK's value is a single
-function, it is changed to a list of functions."
- (or (boundp hook) (set hook nil))
- ;; If the hook value is a single function, turn it into a list.
- (let ((old (symbol-value hook)))
- (if (or (not (listp old)) (eq (car old) 'lambda))
- (set hook (list old))))
- (or (if (consp function)
- (member function (symbol-value hook))
- (memq function (symbol-value hook)))
- (set hook
- (if append
- (nconc (symbol-value hook) (list function))
- (cons function (symbol-value hook))))))
-
-(defun zenirc-remove-hook (hook function)
- "Remove from the value of HOOK the function FUNCTION.
-HOOK should be a symbol, and FUNCTION may be any valid function. If
-FUNCTION isn't the value of HOOK, or, if FUNCTION doesn't appear in the
-list of hooks to run in HOOK, then nothing is done. See `add-hook'."
- (if (or (not (boundp hook)) ;unbound symbol, or
- (null (symbol-value hook)) ;value is nil, or
- (null function)) ;function is nil, then
- nil ;Do nothing.
- (let ((hook-value (symbol-value hook)))
- (if (consp hook-value)
- (setq hook-value (delete function hook-value))
- (if (equal hook-value function)
- (setq hook-value nil)))
- (set hook hook-value))))
-
-(fset 'zenirc-delete-hook 'zenirc-remove-hook)
-
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; ZenIRC time handling functions
-;;;
-;;; These functions are used to implement time handling in ZenIRC.
-;;; Much of this code was lifted from the Kiwi 4.30 irc client.
-;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun zenirc-time-to-int (timestr)
- "Convert from time in string format as returned by current-time-string
-to a double integer format, as returned by file-attributes.
-
-Written by Stephen Ma <ma_s@maths.su.oz.au>"
- (let* ((norm+ '(lambda (num1 num2)
- (let ((sumh (+ (car num1) (car num2)))
- (suml (+ (car (cdr num1)) (car (cdr num2)))))
- (list (+ sumh (/ suml 65536)) (% suml 65536)))))
- (norm* '(lambda (num1 num2)
- (let ((prodh (* num1 (car num2)))
- (prodl (* num1 (car (cdr num2)))))
- (list (+ prodh (/ prodl 65536)) (% prodl 65536)))))
- (seconds (string-to-int (substring timestr 17 19)))
- (minutes (string-to-int (substring timestr 14 16)))
- (hours (string-to-int (substring timestr 11 13)))
- (partdays (1- (string-to-int (substring timestr 8 10))))
- (years (string-to-int (substring timestr 20 24)))
- (days (+ partdays
- (cond ((and (= (% years 4) 0)
- (/= (% years 100) 0))
- (cdr (assoc (substring timestr 4 7)
- '(("Jan" . 0)
- ("Feb" . 31)
- ("Mar" . 60)
- ("Apr" . 91)
- ("May" . 121)
- ("Jun" . 152)
- ("Jul" . 182)
- ("Aug" . 213)
- ("Sep" . 244)
- ("Oct" . 274)
- ("Nov" . 305)
- ("Dec" . 335)))))
- (t (cdr (assoc (substring timestr 4 7)
- '(("Jan" . 0)
- ("Feb" . 31)
- ("Mar" . 59)
- ("Apr" . 90)
- ("May" . 120)
- ("Jun" . 151)
- ("Jul" . 181)
- ("Aug" . 212)
- ("Sep" . 243)
- ("Oct" . 273)
- ("Nov" . 304)
- ("Dec" . 334))))))
- (* (- years 1970) 365)
- (/ (- years 1969) 4)
- (- (/ (- years 1901) 100)))))
- (funcall norm+
- (funcall norm*
- 60
- (funcall norm+
- (funcall norm*
- 60
- (funcall norm+
- (funcall norm*
- 24
- (list 0 days))
- (list 0 hours)))
- (list 0 minutes)))
- (list 0 seconds))))
-
-(defun zenirc-time= (a b)
- "Compare two times, and return true if they are equal."
- (and (= (nth 0 a) (nth 0 b))
- (= (nth 1 a) (nth 1 b))))
-
-(defun zenirc-time< (a b)
- "Compare two times, and return t if the first is earlier than the second."
- (or (< (nth 0 a) (nth 0 b))
- (and (= (nth 0 a) (nth 0 b))
- (< (nth 1 a) (nth 1 b)))))
-
-(defun zenirc-time-diff (a b)
- "Return the difference between two times. This function requires
-the second argument to be earlier in time than the first argument."
- (cond ((= (nth 0 a) (nth 0 b)) (list 0 (- (nth 1 a) (nth 1 b))))
- ((> (nth 1 b) (nth 1 a)) (list (- (nth 0 a) (nth 0 b) 1)
- (- (+ 65536 (nth 1 a)) (nth 1 b))))
- (t (list (- (nth 0 a) (nth 0 b))
- (- (nth 1 a) (nth 1 b))))))
-
-;; Convert a number of seconds since the epoch (in ASCII) into an
-;; ASCII string representing the time.
-(defun zenirc-epoch-seconds-to-time (seconds)
- (save-match-data
- (let (millions units high low)
- (if (string-match "^\\(.*\\)\\(......\\)$" seconds)
- (setq millions (string-to-int (substring seconds
- (match-beginning 1)
- (match-end 1)))
- units (string-to-int (substring seconds
- (match-beginning 2)
- (match-end 2))))
- (setq millions 0
- units (string-to-int seconds)))
- (setq high (+ (* millions 15) (/ (* millions 265) 1024) (/ units 65536))
- low (+ (% (+ (* (% millions 4) 16384) (* millions 576)) 65536)
- (% units 65536)))
- (if (> low 65535)
- (setq low (- low 65536)
- high (1+ high)))
- (list high low))))
-
-(defun zenirc-timer-handler (proc)
- "Call zenirc-timer-hook as often as possible. The maximum delay between
-calls of zenirc-timer-hook is how often a server pings the client."
- (let ((now (zenirc-time-to-int (current-time-string))))
- (if (zenirc-time< '(0 0) (zenirc-time-diff now zenirc-time-last-event))
- (progn
- (and zenirc-debug-timer
- (zenirc-message proc
- "[debug] timer: %s\n" (current-time-string)))
- (zenirc-run-hook 'zenirc-timer-hook proc now)
- (setq zenirc-time-last-event now)))))
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; command handling subroutines
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defun zenirc-insert-at-proc-mark (&rest args)
- (cond ((= (point) zenirc-process-mark)
- (apply 'insert args))
- (t
- (let ((point (point-marker)))
- (goto-char zenirc-process-mark)
- (apply 'insert args)
- (goto-char point)))))
-
-(defun zenirc-send-privmsg-last-rec ()
- (interactive)
- (zenirc-insert-at-proc-mark (concat (char-to-string zenirc-command-char)
- "msg ") zenirc-privmsg-last-rec " "))
-
-(defun zenirc-send-privmsg-last-sent ()
- (interactive)
- (zenirc-insert-at-proc-mark (concat (char-to-string zenirc-command-char)
- "msg ") zenirc-privmsg-last-sent " "))
-
-(defun zenirc-self-insert-or-send-privmsg-last-rec ()
- (interactive)
- (if (zenirc-beginning-of-input-p)
- (zenirc-send-privmsg-last-rec)
- (if (string-match "XEmacs" emacs-version)
- (insert last-command-char)
- (insert (this-command-keys)))))
-
-(defun zenirc-self-insert-or-send-privmsg-last-sent ()
- (interactive)
- (if (zenirc-beginning-of-input-p)
- (zenirc-send-privmsg-last-sent)
- (if (string-match "XEmacs" emacs-version)
- (insert last-command-char)
- (insert (this-command-keys)))))
-
-;; change zenirc-current-victim by toggling between all channels in
-;; zenirc-channel-list, original code by <vuori@sci.fi>
-(defun zenirc-toggle-channel ()
- (interactive)
- (let ((list zenirc-channel-list)
- (orig-victim zenirc-current-victim))
- (while list
- (if (string-equal (zenirc-downcase-name zenirc-current-victim)
- (car list))
- ; this is the current victim cell of the list
- (if (cdr list)
- ; it's not the last cell
- (setq zenirc-current-victim (or (car (cdr list))
- zenirc-current-victim)
- list nil)
- ; it is the last cell, use the first cell
- (setq zenirc-current-victim (car zenirc-channel-list))))
- (setq list (cdr list)))
- ; if the victim wasn't in the zenirc-channel-list, default to
- ; first cell of zenirc-channel-list
- (if (string-equal orig-victim zenirc-current-victim)
- (setq zenirc-current-victim (car zenirc-channel-list)))
- (zenirc-update-modeline)))
-
-;; /action victim text
-;; send a ctcp action to the specified victim
-(defun zenirc-command-action (proc parsed)
- (let* ((l (zenirc-parse-firstword (cdr parsed)))
- (n (zenirc-send-multi-line proc
- (concat "PRIVMSG " (car l))
- (concat "\^AACTION " (cdr l) "\^A"))))
- (zenirc-run-hook 'zenirc-send-confirmation-me-hook
- proc 'send-multi 'send (car l) n)))
-
-;; /away [message]
-;; set your away message (or remove it if not present)
-(defun zenirc-command-away (proc parsedcmd)
- (process-send-string proc (concat "AWAY :" (cdr parsedcmd) "\n")))
-
-;; /command-char command-char
-;; No string does nothing.
-(defun zenirc-command-command-char (proc parsedcmd)
- (if (not (string= "" (cdr parsedcmd)))
- (setq zenirc-command-char (string-to-char (cdr parsedcmd)))))
-
-;; /ctcp victim query [text]
-;; does the ^A ctcp things and uppercases the argument.
-(defun zenirc-command-ctcp (proc parsedcmd)
- (let* ((parsedarg (zenirc-parse-firstword (cdr parsedcmd)))
- (argument (zenirc-parse-firstword (cdr parsedarg))))
- (process-send-string
- proc
- (concat "PRIVMSG "
- (car parsedarg)
- " :\C-a"
- (upcase (car argument))
- (if (not (string-equal "" (cdr argument)))
- " ")
- (cdr argument)
- "\C-a\n"))))
-
-;; /kick nick #channel [reason]
-(defun zenirc-command-kick (proc parsedcmd)
- (let* ((l (zenirc-parse-n-words 2 (cdr parsedcmd)))
- (n (length l))
- (v [nil nil "KICK %s %s\n" "KICK %s %s :%s\n"]))
- (cond ((< n 2)
- ;; Invalid format for command
- (zenirc-message proc 's421
- (format "/%s %s" (car parsedcmd) (cdr parsedcmd))))
- (t
- (process-send-string proc (apply 'format (aref v n) l))))))
-
-;; /kill nick reason
-(defun zenirc-command-kill (proc parsedcmd)
- (let* ((l (zenirc-parse-n-words 1 (cdr parsedcmd)))
- (n (length l))
- (v [nil "KILL %s\n" "KILL %s :%s\n"]))
- (cond ((< n 1)
- ;; Invalid format for command
- (zenirc-message proc 's421
- (format "/%s %s" (car parsedcmd) (cdr parsedcmd))))
- (t
- (process-send-string proc (apply 'format (aref v n) l))))))
-
-;; /language [lang]
-;; switches message catalogs
-;; note that you must have the catalog in question loaded already, before
-;; you can switch to it.
-(defun zenirc-command-language (proc parsedcmd)
- (let ((lang (car (zenirc-parse-firstword (cdr parsedcmd)))))
- (zenirc-lang-set-current-language lang)))
-
-;; /m victim message
-;; send a message to someone who is not the current victim
-(defun zenirc-command-m (proc parsedmsg)
- (zenirc-command-privmsg proc parsedmsg))
-
-;; /me message
-;; send a ctcp action to the current victim
-(defun zenirc-command-me (proc parsed)
- (let ((n (zenirc-send-multi-line proc
- (concat "PRIVMSG " zenirc-current-victim)
- (concat "\^AACTION " (cdr parsed) "\^A"))))
- (zenirc-run-hook 'zenirc-send-confirmation-me-hook
- proc 'send-multi 'send
- zenirc-current-victim n)))
-
-;; /msg victim message
-;; send a message to someone who is not the current victim
-(defun zenirc-command-msg (proc parsedmsg)
- (zenirc-command-privmsg proc parsedmsg))
-
-;; /oper handler
-;;
-;; Always remember, the lame deserve to lose.
-;;
-;; I did not add this, but neither do I have any intention of removing it.
-;; --friedman
-;; Neither have I, removing this would be like removing the spirit of ZenIRC.
-;; --pp
-(defun zenirc-command-oper (proc parsedmsg)
- (process-send-string proc (concat "QUIT :" (cdr parsedmsg) "\n")))
-
-;; /notice nick message
-(defun zenirc-command-notice (proc parsedmsg)
- (let* ((pair (zenirc-parse-firstword (cdr parsedmsg)))
- (n (zenirc-send-multi-line proc
- (concat "NOTICE " (car pair))
- (cdr pair))))
- (setq zenirc-privmsg-last-sent (car pair))
- (zenirc-run-hook 'zenirc-send-confirmation-notice-hook
- proc 'send-multi 'send (car pair) n)))
-
-;; /part channel [message]
-;; exit channel, displaying optional message
-(defun zenirc-command-part (proc parsedcmd)
- (let* ((parsedtext (zenirc-parse-firstword (cdr parsedcmd))))
- (if (not (string= (cdr parsedtext) ""))
- (process-send-string proc (concat "PART " (car parsedtext)
- " :" (cdr parsedtext) "\n"))
- (process-send-string proc (concat
- "PART " (car parsedtext)
- " :Started wasting time elsewhere\n")))))
-
-;; /ping victim
-;; TODO: Rewrite this code.
-(defun zenirc-command-ping (proc parsedmsg)
- (process-send-string
- proc
- (concat "PRIVMSG " (cdr parsedmsg) " :\C-aPING "
- (car (cdr (zenirc-time-to-int (current-time-string)))) "\C-a\n")))
-
-;; /privmsg victim message
-(defun zenirc-command-privmsg (proc parsedmsg)
- (let* ((pair (zenirc-parse-firstword (cdr parsedmsg)))
- (n (zenirc-send-multi-line proc
- (concat "PRIVMSG " (car pair))
- (cdr pair))))
- (setq zenirc-privmsg-last-sent (car pair))
- (zenirc-run-hook 'zenirc-send-confirmation-privmsg-hook
- proc 'send-multi 'send (car pair) n)))
-
-;; /query [victim]
-;; If we gave it an argument, set zenirc-current-victim to that arg.
-;; If not, just display what zenirc-current-victim is.
-(defun zenirc-command-query (proc parsedmsg)
- (if (not (string= (cdr parsedmsg) ""))
- (setq zenirc-current-victim
- (car (zenirc-parse-firstword (cdr parsedmsg))))
- ;; no arguments, just display who we're querying.
- (zenirc-message proc 'now_querying zenirc-current-victim))
- (zenirc-update-modeline))
-
-;; /quit [message]
-;; exit irc, displaying optional message
-(defun zenirc-command-quit (proc parsedcmd)
- (if (string= "" (cdr parsedcmd))
- (process-send-string proc "QUIT :Started wasting time elsewhere\n")
- (process-send-string proc (concat "QUIT :" (cdr parsedcmd) "\n"))))
-
-;; /quote [raw irc command]
-;;
-;; send raw text to irc server
-(defun zenirc-command-quote (proc parsedcmd)
- (process-send-string proc (concat (cdr parsedcmd) "\n")))
-
-;; /server [server [port [nickname]]]
-(defun zenirc-command-server (proc parsedcmd)
- (if (string= "" (cdr parsedcmd))
- (zenirc-select)
- (let* ((parsedarg (cdr parsedcmd)))
- (zenirc-select (car (zenirc-parse-n-words 1 parsedarg))
- (or (car (cdr (zenirc-parse-n-words 2 parsedarg)))
- zenirc-port)
- (or (car (cdr (cdr (zenirc-parse-n-words 3 parsedarg))))
- zenirc-nick)))))
-
-;; /squit server [reason]
-(defun zenirc-command-squit (proc parsedcmd)
- (let* ((l (zenirc-parse-n-words 1 (cdr parsedcmd)))
- (n (length l))
- (v [nil "SQUIT %s\n" "SQUIT %s :%s\n"]))
- (cond ((< n 1)
- ;; Invalid format for command
- (zenirc-message proc 's421
- (format "/%s %s" (car parsedcmd) (cdr parsedcmd))))
- (t
- (process-send-string proc (apply 'format (aref v n) l))))))
-
-;; /topic channel [topic_string]
-;;
-;; set the topic of a channel to `topic string'
-(defun zenirc-command-topic (proc parsedcmd)
- (let* ((parsedtext (zenirc-parse-firstword (cdr parsedcmd))))
- (if (not (string= (cdr parsedtext) ""))
- (process-send-string proc (concat "TOPIC " (car parsedtext)
- " :" (cdr parsedtext) "\n"))
- (process-send-string proc (concat "TOPIC " (car parsedtext) "\n")))))
-
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; server message handling subroutines
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;; handle ERROR server message
-(defun zenirc-server-ERROR (proc parsedmsg)
- (zenirc-message proc 'error (aref parsedmsg 1) (aref parsedmsg 2)))
-
-;; INVITE - user invites you to channel
-(defun zenirc-server-INVITE (proc parsedmsg)
- (zenirc-message proc 'invite
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook
- (aref parsedmsg 1))
- (aref parsedmsg 3)))
-
-;; NICK change server message
-(defun zenirc-server-NICK (proc parsedmsg)
- (let ((from (aref parsedmsg 1))
- (to (aref parsedmsg 2)))
- (and (zenirc-names-equal-p (zenirc-extract-nick from) zenirc-nick)
- (progn
- (setq zenirc-nick to)
- (force-mode-line-update)))
- (zenirc-message proc 'nick
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- to)))
-
-;; NOTICE server message
-(defun zenirc-server-NOTICE (proc parsedmsg)
- (zenirc-privmsg-or-notice proc parsedmsg))
-
-;; JOIN server message
-;; zenirc-current-victim is the current channel your msgs will go to.
-(defun zenirc-server-JOIN (proc parsedmsg)
- (let ((who (aref parsedmsg 1))
- (channel (aref parsedmsg 2))
- (mode nil))
- (if (zenirc-names-equal-p (zenirc-extract-nick who) zenirc-nick)
- (progn
- (setq zenirc-current-victim (aref parsedmsg 2))
- (setq zenirc-channel-list (cons (zenirc-downcase-name
- (aref parsedmsg 2))
- zenirc-channel-list))
- (zenirc-update-modeline)
- (zenirc-message proc 'join_you zenirc-current-victim))
-
- (if (string-match "
\a" channel) ; <dl> are people stupid or what?
- (setq channel (substring (aref parsedmsg 2) 0 (- (match-end 0) 1))
- mode (substring (aref parsedmsg 2) (match-end 0)
- (length (aref parsedmsg 2)))))
- (if mode
- (zenirc-message proc 'join_mode
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook
- who) channel mode)
- (zenirc-message proc 'join
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook who)
- channel)))))
-
-;; KICK - you have been removed from a channel
-;; (KICK kicker #chan kickee [reason])
-(defun zenirc-server-KICK (proc parsedmsg)
- (if (not (zenirc-names-equal-p (aref parsedmsg 3) zenirc-nick))
- ;; someone else got kicked
- (zenirc-message proc 'kick
- (aref parsedmsg 3)
- (aref parsedmsg 2)
- (format "%s - %s"
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook
- (aref parsedmsg 1))
- (aref parsedmsg 4)))
- ;; you got kicked
- (zenirc-message proc 'kick_you
- (aref parsedmsg 2)
- (format "%s - %s"
- (zenirc-extract-nick (aref parsedmsg 1))
- (aref parsedmsg 4)))
- (if (zenirc-names-equal-p (aref parsedmsg 2) zenirc-current-victim)
- (setq zenirc-current-victim nil))))
-
-;; KILL - you have been killed
-(defun zenirc-server-KILL (proc parsedmsg)
- (zenirc-message proc 'kill (aref parsedmsg 3)))
-
-;; MODE - channel or user mode change
-;;
-;; MODE from <channel> {[+|-]|o|p|s|i|t|n|b|v} [<limit>] [<user>] [<ban mask>]
-;; MODE from <nickname> {[+|-]|i|w|s|o}
-;;
-;; Sum of channel `b' and `o' mode changes <= 3, so at most 5 args appear
-;; after the the channel mode flags (three `b' or `o's, a `k', and an `l').
-;; Current actual server implementation seems to limit this to 4 args.
-(defun zenirc-server-MODE (proc parsedmsg)
- (zenirc-message proc 'mode
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook
- (aref parsedmsg 1))
- (aref parsedmsg 2)
- (format "%s %s %s %s %s %s"
- (or (aref parsedmsg 3) "")
- (or (aref parsedmsg 4) "")
- (or (aref parsedmsg 5) "")
- (or (aref parsedmsg 6) "")
- (or (aref parsedmsg 7) "")
- (or (aref parsedmsg 8) ""))))
-
-;; PART - channel leave message
-(defun zenirc-server-PART (proc parsedmsg)
- (let ((channel (aref parsedmsg 2))
- (who (aref parsedmsg 1))
- ; As of ircd 2.9.1, you can send comments in your PART
- ; message just like with QUIT. Thanks to this you can
- ; always manage to get the last word in a serious
- ; discussion.
- ;
- ; :Omnion!~pp@sno.pp.se PART #twilight_zone :grow up, piker
- (reason (or (aref parsedmsg 3)
- ; on a 2.8 PART message, use nickname as comment
- (zenirc-extract-nick (aref parsedmsg 1)))))
- (if (zenirc-names-equal-p (zenirc-extract-nick who) zenirc-nick)
- (progn
- (zenirc-message proc 'part_you channel reason)
- (setq zenirc-channel-list (delete (zenirc-downcase-name channel)
- zenirc-channel-list))
- (and zenirc-current-victim
- (zenirc-names-equal-p channel zenirc-current-victim)
- (setq zenirc-current-victim (car zenirc-channel-list))))
- (zenirc-message proc 'part
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook who)
- channel reason))))
-
-;; PONG - server "is alive" message
-(defun zenirc-server-PONG (proc parsedmsg)
- (zenirc-message proc 'pong (aref parsedmsg 1)))
-
-;; PING - server "are you alive" message
-(defun zenirc-server-PING (proc parsedmsg)
- (process-send-string proc (concat "PONG " (aref parsedmsg 2) "\n")))
-
-;; PRIVMSG server message
-(defun zenirc-server-PRIVMSG (proc parsedmsg)
- (zenirc-privmsg-or-notice proc parsedmsg))
-
-;; QUIT - someone (thankfully) left irc.
-(defun zenirc-server-QUIT (proc parsedmsg)
- (zenirc-message proc 'quit
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook
- (aref parsedmsg 1))
- (aref parsedmsg 2)))
-
-;; TOPIC - someone set the topic on a channel
-(defun zenirc-server-TOPIC (proc parsedmsg)
- (zenirc-message proc 'topic
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook
- (aref parsedmsg 1))
- (aref parsedmsg 2)
- (aref parsedmsg 3)))
-
-;; WALLOPS - notice to operators
-(defun zenirc-server-WALLOPS (proc parsedmsg)
- (zenirc-message proc 'wallops (aref parsedmsg 1) (aref parsedmsg 2)))
-
-;; 001 - welcome to irc
-(defun zenirc-server-001 (proc parsedmsg)
- (setq zenirc-nick (aref parsedmsg 2))
- (zenirc-message proc 's001))
-
-;; 002 - who is your server
-;; hostname regexp [-a-zA-Z.0-9]
-(defun zenirc-server-002 (proc parsedmsg)
- (let ((str (aref parsedmsg 3)))
- (if (string-match
- "Your host is \\([-a-zA-Z.0-9]+\\), running version \\(.*\\)"
- str)
- (zenirc-message proc 's002
- (zenirc-match-string 1 str)
- (zenirc-match-string 2 str))
- (zenirc-message proc 'protocol_violation
- (aref parsedmsg 1)
- (aref parsedmsg 3)))))
-
-;; 003 - when this server was built
-(defun zenirc-server-003 (proc parsedmsg)
- (let ((str (aref parsedmsg 3)))
- (if (string-match "This server was created \\(.*\\)" str)
- (zenirc-message proc 's003 (zenirc-match-string 1 str))
- (zenirc-message proc 'protocol_violation
- (aref parsedmsg 1)
- (aref parsedmsg 3)))))
-
-;; 004 - version and allowed modes information
-(defun zenirc-server-004 (proc parsedmsg)
- (setq zenirc-current-server-name (aref parsedmsg 3))
- (setq zenirc-server-version (aref parsedmsg 4))
- (setq zenirc-user-modes (aref parsedmsg 5))
- (setq zenirc-server-modes (aref parsedmsg 6)))
-
-;; 200 RPL_TRACELINK - {<server>} Link -> Version: <version>
-;; 200 RPL_TRACELINK - {<server>} (version) Link to: -> <server>
-(defun zenirc-server-200 (proc parsedmsg)
- (zenirc-message proc 's200
- (aref parsedmsg 1)
- (aref parsedmsg 4)
- (aref parsedmsg 6)))
-
-;; 201 RPL_TRACECONNECTING
-(defun zenirc-server-201 (proc parsedmsg)
- (zenirc-message proc 's201 (aref parsedmsg 1) (aref parsedmsg 5)))
-
-;; 202 RPL_TRACEHANDSHAKE
-(defun zenirc-server-202 (proc parsedmsg)
- (zenirc-message proc 's202 (aref parsedmsg 1) (aref parsedmsg 5)))
-
-;; 203 RPL_TRACEUNKNOWN - {<server>} Unknown -> IP address : <ip#>
-(defun zenirc-server-203 (proc parsedmsg)
- (zenirc-message proc 's203 (aref parsedmsg 1) (aref parsedmsg 5)))
-
-;; 204 RPL_TRACEOPERATOR {<server>} Oper -> <nick[host]>
-(defun zenirc-server-204 (proc parsedmsg)
- (zenirc-message proc 's204 (aref parsedmsg 1) (aref parsedmsg 5)))
-
-;; 205 RPL_TRACEUSER {<server>} Luser -> <nick[host]>
-(defun zenirc-server-205 (proc parsedmsg)
- (zenirc-message proc 's205 (aref parsedmsg 1) (aref parsedmsg 5)))
-
-;; 206 RPL_TRACESERVER {<server>} Server -> <server> Class: <#> S: <#> C: <#>
-(defun zenirc-server-206 (proc parsedmsg)
- (zenirc-message proc 's206
- (aref parsedmsg 1)
- (aref parsedmsg 4)
- (aref parsedmsg 5)
- (aref parsedmsg 6)
- (aref parsedmsg 7)))
-
-;; 208 RPL_TRACENEWTYPE
-(defun zenirc-server-208 (proc parsedmsg)
- (zenirc-message proc 's208
- (aref parsedmsg 1)
- (aref parsedmsg 3)
- (aref parsedmsg 5)))
-
-;; 209 RPL_TRACECLASS {<server}> Class -> type = blah
-(defun zenirc-server-209 (proc parsedmsg)
- (zenirc-message proc 's209
- (aref parsedmsg 1)
- (aref parsedmsg 4)
- (aref parsedmsg 5)))
-
-;; 211 RPL_STATLINKINFO
-(defun zenirc-server-211 (proc parsedmsg)
- (zenirc-message proc 's211
- (aref parsedmsg 3)
- (aref parsedmsg 9)
- (aref parsedmsg 5)
- (aref parsedmsg 6)
- (aref parsedmsg 7)
- (aref parsedmsg 8)
- (aref parsedmsg 4)))
-
-;; 212 RPL_STATSCOMMANDS
-(defun zenirc-server-212 (proc parsedmsg)
- (zenirc-message proc 's212
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (aref parsedmsg 5)))
-
-;; 213 RPL_STATSCLINE
-(defun zenirc-server-213 (proc parsedmsg)
- (zenirc-message proc 's213
- (aref parsedmsg 4)
- (aref parsedmsg 6)
- (aref parsedmsg 7)
- (aref parsedmsg 8)))
-
-;; 214 RPL_STATSNLINE
-(defun zenirc-server-214 (proc parsedmsg)
- (zenirc-message proc 's214
- (aref parsedmsg 4)
- (aref parsedmsg 6)
- (aref parsedmsg 7)
- (aref parsedmsg 8)))
-
-;; 215 RPL_STATSILINE
-(defun zenirc-server-215 (proc parsedmsg)
- (zenirc-message proc 's215
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (aref parsedmsg 6)
- (aref parsedmsg 8)))
-
-;; 216 RPL_STATSKLINE
-(defun zenirc-server-216 (proc parsedmsg)
- (zenirc-message proc 's216 (aref parsedmsg 4) (aref parsedmsg 6)))
-
-;; 217 RPL_STATSQLINE
-(defun zenirc-server-217 (proc parsedmsg)
- (zenirc-message proc 's217
- (aref parsedmsg 4)
- (aref parsedmsg 5)
- (aref parsedmsg 6)
- (aref parsedmsg 7)
- (aref parsedmsg 8)))
-
-;; 218 RPL_STATSYLINE
-(defun zenirc-server-218 (proc parsedmsg)
- (zenirc-message proc 's218
- (aref parsedmsg 4)
- (aref parsedmsg 5)
- (aref parsedmsg 6)
- (aref parsedmsg 7)
- (aref parsedmsg 8)))
-
-;; 219 RPL_ENDOFSTATS
-(defun zenirc-server-219 (proc parsedmsg)
- (zenirc-message proc 's219))
-
-;; 221 RPL_UMODEIS
-(defun zenirc-server-221 (proc parsedmsg)
- (zenirc-message proc 's221 (aref parsedmsg 3)))
-
-;; 241 RPL_STATSLLINE
-(defun zenirc-server-241 (proc parsedmsg)
- (zenirc-message proc 's241 (aref parsedmsg 4) (aref parsedmsg 6)))
-
-;; 242 RPL_STATSUPTIME
-(defun zenirc-server-242 (proc parsedmsg)
- (zenirc-message proc 's242 (aref parsedmsg 3)))
-
-;; 243 RPL_STATSOLINE
-(defun zenirc-server-243 (proc parsedmsg)
- (zenirc-message proc 's243
- (aref parsedmsg 3)
- (aref parsedmsg 6)
- (aref parsedmsg 4)))
-
-;; 244 RPL_STATSHLINE
-(defun zenirc-server-244 (proc parsedmsg)
- (zenirc-message proc 's244 (aref parsedmsg 4) (aref parsedmsg 6)))
-
-;; 249 RPL_STATSZLINE
-(defun zenirc-server-249 (proc parsedmsg)
- (zenirc-message proc 's249 (aref parsedmsg 1) (aref parsedmsg 3)))
-
-;; 251 - :server 251 ZenIRC :There are x users and y invisible on z servers
-;; :server 251 ZenIRC :There are x users and y services on z servers
-(defun zenirc-server-251 (proc parsedmsg)
- (let ((str (aref parsedmsg 3)))
- (if (string-match "There are \\([0-9]+\\) users and \\([0-9]+\\) invisible on \\([0-9]+\\) servers" str)
- (zenirc-message proc 's251
- (zenirc-match-string 1 str)
- (zenirc-match-string 2 str)
- (zenirc-match-string 3 str))
- (if (string-match "There are \\([0-9]+\\) users and \\([0-9]+\\) services on \\([0-9]+\\) servers" str)
- (zenirc-message proc 's251-29
- (zenirc-match-string 1 str)
- (zenirc-match-string 2 str)
- (zenirc-match-string 3 str))
- (zenirc-message proc 'protocol_violation
- (aref parsedmsg 1) (aref parsedmsg 3))))))
-
-;; 252 - number of irc operators online
-(defun zenirc-server-252 (proc parsedmsg)
- (zenirc-message proc 's252 (aref parsedmsg 3)))
-
-;; 253 - number of "unknown" connections
-(defun zenirc-server-253 (proc parsedmsg)
- (zenirc-message proc 's253 (aref parsedmsg 3)))
-
-;; 254 - number of channels
-(defun zenirc-server-254 (proc parsedmsg)
- (zenirc-message proc 's254 (aref parsedmsg 3)))
-
-;; 255 - :server 255 ZenIRC :I have x clients and y servers
-;; :server 255 ZenIRC :I have x clients, y services and z servers
-(defun zenirc-server-255 (proc parsedmsg)
- (let ((str (aref parsedmsg 3)))
- (if (string-match "I have \\([0-9]+\\) clients and \\([0-9]+\\) servers" str)
- (zenirc-message proc 's255
- (substring str (match-beginning 1) (match-end 1))
- (substring str (match-beginning 2) (match-end 2)))
- (if (string-match "I have \\([0-9]+\\) clients, \\([0-9]+\\) services and \\([0-9]+\\) servers" str)
- (zenirc-message proc 's255-29
- (substring str (match-beginning 1) (match-end 1))
- (substring str (match-beginning 2) (match-end 2))
- (substring str (match-beginning 3) (match-end 3)))
- (zenirc-message proc 'protocol_violation
- (aref parsedmsg 1) (aref parsedmsg 3))))))
-
-;; 256 - line 1 of /admin information
-(defun zenirc-server-256 (proc parsedmsg)
- (zenirc-message proc 's256 (aref parsedmsg 1)))
-
-;; 257 - line 2 of /admin information
-(defun zenirc-server-257 (proc parsedmsg)
- (zenirc-message proc 's257 (aref parsedmsg 3)))
-
-;; 258 - line 2 of /admin information
-(defun zenirc-server-258 (proc parsedmsg)
- (zenirc-message proc 's258 (aref parsedmsg 3)))
-
-;; 259 - line 4 of /admin information
-(defun zenirc-server-259 (proc parsedmsg)
- (zenirc-message proc 's259 (aref parsedmsg 3)))
-
-;; 261 RPL_TRACELOG
-(defun zenirc-server-261 (proc parsedmsg)
- (zenirc-message proc 's261
- (aref parsedmsg 1)
- (aref parsedmsg 4)
- (aref parsedmsg 5)))
-
-;; 262 - RPL_TRACEEND
-(defun zenirc-server-262 (proc parsedmsg)
- (zenirc-message proc 's262
- (aref parsedmsg 1)
- (aref parsedmsg 4)))
-
-;; 301 - someone is /away
-(defun zenirc-server-301 (proc parsedmsg)
- (zenirc-message proc 's301 (aref parsedmsg 3) (aref parsedmsg 4)))
-
-;; 302 - Userhost reply - RPL_USERHOST ":[<reply>{<space><reply>}]"
-(defun zenirc-server-302 (proc parsedmsg)
- (zenirc-message proc 's302 (aref parsedmsg 3)))
-
-;; 303 - Ison reply - RPL_ISON ":[<nick> {<space><nick>}]"
-(defun zenirc-server-303 (proc parsedmsg)
- (zenirc-message proc 's303 (aref parsedmsg 3)))
-
-;; 305 - you are not /away
-(defun zenirc-server-305 (proc parsedmsg)
- (zenirc-message proc 's305))
-
-;; 306 - you are /away
-(defun zenirc-server-306 (proc parsedmsg)
- (zenirc-message proc 's306))
-
-;; 311 - userinfo for /whois list
-(defun zenirc-server-311 (proc parsedmsg)
- (zenirc-message proc 's311
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (aref parsedmsg 5)
- (aref parsedmsg 7)))
-
-;; 312 - server part of /whois list
-(defun zenirc-server-312 (proc parsedmsg)
- (zenirc-message proc 's312
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (aref parsedmsg 5)))
-
-;; 313 - /whois list reply indicating irc operator
-(defun zenirc-server-313 (proc parsedmsg)
- (zenirc-message proc 's313 (aref parsedmsg 3)))
-
-;; 314 - /whowas reply
-(defun zenirc-server-314 (proc parsedmsg)
- (zenirc-message proc 's314
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (aref parsedmsg 5)
- (aref parsedmsg 7)))
-
-;; 315 - end of /who list
-(defun zenirc-server-315 (proc parsedmsg)
- (zenirc-message proc 's315))
-
-;; 317 - /whois list idle time reply
-(defun zenirc-server-317 (proc parsedmsg)
- (let ((hours (/ (string-to-int (aref parsedmsg 4)) 3600)))
- (let ((minutes (- (/ (string-to-int (aref parsedmsg 4)) 60)
- (* hours 60))))
- (let ((seconds (- (string-to-int (aref parsedmsg 4))
- (* hours 3600)
- (* minutes 60))))
- (let ((hours (int-to-string hours))
- (minutes (int-to-string minutes))
- (seconds (int-to-string seconds)))
- (if (= (length minutes) 1)
- (setq minutes (concat "0" minutes)))
- (if (= (length seconds) 1)
- (setq seconds (concat "0" seconds)))
- (let ((idle-string (concat
- hours ":" minutes ":" seconds)))
- (zenirc-message proc 's317
- (aref parsedmsg 3)
- idle-string)))))))
-
-;; 318 - end of /whois list
-(defun zenirc-server-318 (proc parsedmsg)
- (zenirc-message proc 's318))
-
-;; 319 - what channels part of /whois list
-(defun zenirc-server-319 (proc parsedmsg)
- (zenirc-message proc 's319 (aref parsedmsg 3) (aref parsedmsg 4)))
-
-;; 321 - header for /list command
-;; This reply was removed as of ircd 2.9.1.
-(defun zenirc-server-321 (proc parsedmsg)
- (zenirc-message proc 's321))
-
-;; 322 - element returned by /list
-(defun zenirc-server-322 (proc parsedmsg)
- (zenirc-message proc 's322
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (aref parsedmsg 5)))
-
-;; 323 - trailer for /list command
-(defun zenirc-server-323 (proc parsedmsg)
- (zenirc-message proc 's323))
-
-;; 324 - RPL_CHANNELMODEIS "<channel> <mode> <mode params>"
-(defun zenirc-server-324 (proc parsedmsg)
- (zenirc-message proc 's324
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (or (aref parsedmsg 5) "")))
-
-;; 331 - RPL_NOTOPIC "<channel> :No topic is set"
-(defun zenirc-server-331 (proc parsedmsg)
- (zenirc-message proc 's331 (aref parsedmsg 3)))
-
-;; 332 - channel topic on join, etc.
-(defun zenirc-server-332 (proc parsedmsg)
- (zenirc-message proc 's332 (aref parsedmsg 3) (aref parsedmsg 4)))
-
-;; 333 - user who set topic and when it was set
-;; :server 333 to channel who-set-topic time-when-set
-(defun zenirc-server-333 (proc parsedmsg)
- (zenirc-message proc 's333
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (current-time-string (zenirc-epoch-seconds-to-time
- (aref parsedmsg 5)))))
-
-;; 341 - invite reply
-(defun zenirc-server-341 (proc parsedmsg)
- (zenirc-message proc 's341 (aref parsedmsg 3) (aref parsedmsg 4)))
-
-;; 342 - RPL_SUMMONING "<user> :Summoning user to IRC"
-(defun zenirc-server-342 (proc parsedmsg)
- (zenirc-message proc 's342 (aref parsedmsg 3)))
-
-;; 351 - RPL_VERSION "<version>.<debuglevel> <server> :<comments>"
-(defun zenirc-server-351 (proc parsedmsg)
- (zenirc-message proc 's351
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (aref parsedmsg 5)))
-
-;; 352 - WHO reply
-(defun zenirc-server-352 (proc parsedmsg)
- (if (string= (aref parsedmsg 3) "Channel")
- ;; this is the header
- (zenirc-message proc 's352_header)
- ;; this is a reply
- (zenirc-message proc 's352
- (aref parsedmsg 7)
- (aref parsedmsg 8)
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (aref parsedmsg 5)
- (aref parsedmsg 9))))
-
-;; 353 - name list after channel join or NAMES command
-(defun zenirc-server-353 (proc parsedmsg)
- (zenirc-message proc 's353 (aref parsedmsg 4) (aref parsedmsg 5)))
-
-;; 364 - RPL_LINKS "<mask> <server> :<hopcount> <server info>"
-(defun zenirc-server-364 (proc parsedmsg)
- (zenirc-message proc 's364
- (aref parsedmsg 3)
- (aref parsedmsg 4)
- (aref parsedmsg 5)))
-
-;; 365 - RPL_ENDOFLINKS "<mask> :End of /LINKS list"
-(defun zenirc-server-365 (proc parsedmsg)
- (zenirc-message proc 's365 (aref parsedmsg 3)))
-
-;; 366 - after all ppl on channel displayed
-(defun zenirc-server-366 (proc parsedmsg) ())
-
-;; 367 - RPL_BANLIST "<channel> <banid>"
-(defun zenirc-server-367 (proc parsedmsg)
- (zenirc-message proc 's367 (aref parsedmsg 3) (aref parsedmsg 4)))
-
-;; 368 - RPL_RPL_ENDOFBANLIST
-(defun zenirc-server-368 (proc parsedmsg)
- (zenirc-message proc 's368))
-
-;; 369 - end of whowas
-(defun zenirc-server-369 (proc parsedmsg) ())
-
-;; 371 - RPL_INFO ":<string>"
-(defun zenirc-server-371 (proc parsedmsg)
- (zenirc-message proc 's371 (aref parsedmsg 3)))
-
-;; 372 - motd line
-(defun zenirc-server-372 (proc parsedmsg)
- (zenirc-message proc 's372 (aref parsedmsg 3)))
-
-;; 374 - RPL_ENDOFINFO ":End of /INFO list"
-(defun zenirc-server-374 (proc parsedmsg) ())
-
-;; 375 - start of /MOTD
-(defun zenirc-server-375 (proc parsedmsg)
- (zenirc-message proc 's375))
-
-;; 376 - end of /MOTD
-(defun zenirc-server-376 (proc parsedmsg)
- (zenirc-message proc 's376))
-
-;; 381 - RPL_YOUREOPER ":You are now an IRC operator"
-(defun zenirc-server-381 (proc parsedmsg)
- (zenirc-message proc 's381))
-
-;; 382 - RPL_REHASHING "<config file> :Rehashing"
-(defun zenirc-server-382 (proc parsedmsg)
- (zenirc-message proc 's382 (aref parsedmsg 3)))
-
-;; 391 - RPL_TIME "<server> :<string showing server's local time>"
-(defun zenirc-server-391 (proc parsedmsg)
- (zenirc-message proc 's391 (aref parsedmsg 3) (aref parsedmsg 4)))
-
-;; 392 - RPL_USERSSTART ":UserID Terminal Host"
-(defun zenirc-server-392 (proc parsedmsg)
- (zenirc-message proc 's392))
-
-;; 393 - RPL_USERS ":%-8s %-9s %-8s"
-(defun zenirc-server-393 (proc parsedmsg)
- (zenirc-message proc 's393 (aref parsedmsg 3)))
-
-;; 394 - RPL_ENDOFUSERS ":End of users"
-(defun zenirc-server-394 (proc parsedmsg) ())
-
-;; 395 - RPL_NOUSERS ":Nobody logged in"
-(defun zenirc-server-395 (proc parsedmsg)
- (zenirc-message proc 's395))
-
-;; 401 - no such nick/channel
-(defun zenirc-server-401 (proc parsedmsg)
- (zenirc-message proc 's401 (aref parsedmsg 3))
- (if zenirc-whowas-on-401
- (process-send-string proc (concat "WHOWAS " (aref parsedmsg 3) "\n"))))
-
-;; 402 - no such server
-(defun zenirc-server-402 (proc parsedmsg)
- (zenirc-message proc 's402 (aref parsedmsg 3)))
-
-;; 403 - ERRNOSUCHCHANNEL "<channel> :No such channel"
-(defun zenirc-server-403 (proc parsedmsg)
- (zenirc-message proc 's403 (aref parsedmsg 3)))
-
-;; 404 - ERR_CANNOTSENDTOCHAN "<channel> :Cannot send to channel"
-(defun zenirc-server-404 (proc parsedmsg)
- (zenirc-message proc 's404 (aref parsedmsg 3)))
-
-;; 405 - ERR_TOOMANYCHANNELS "<channel_name> :You have joined too many channels"
-(defun zenirc-server-405 (proc parsedmsg)
- (zenirc-message proc 's405 (aref parsedmsg 3)))
-
-;; 406 - ERR_WASNOSUCHNICK "<channel_name> :There was no such nickname"
-(defun zenirc-server-406 (proc parsedmsg)
- (zenirc-message proc 's406 (aref parsedmsg 3)))
-
-;; 407 - ERR_TOOMANYTARGETS "<target> :Duplicate recipients. No message delivered"
-(defun zenirc-server-407 (proc parsedmsg)
- (zenirc-message proc 's407 (aref parsedmsg 3)))
-
-;; 409 - ERR_NOORIGIN ":No origin specified"
-(defun zenirc-server-409 (proc parsedmsg)
- (zenirc-message proc 's409))
-
-;; 411 - ERR_NORECIPIENT ":No recipient given (<command>)"
-(defun zenirc-server-411 (proc parsedmsg)
- (zenirc-message proc 's411))
-
-;; 412 - ERR_NOTEXTTOSEND ":No text to send"
-;; you sent a message w/o any text
-(defun zenirc-server-412 (proc parsedmsg)
- (zenirc-message proc 's412))
-
-;; 413 - ERR_NOTOPLEVEL "<mask> :No toplevel domain specified"
-(defun zenirc-server-413 (proc parsedmsg)
- (zenirc-message proc 's413 (aref parsedmsg 3)))
-
-;; 414 - ERR_WILDTOPLEVEL "<mask> :Wildcard in toplevel domain"
-(defun zenirc-server-414 (proc parsedmsg)
- (zenirc-message proc 's414 (aref parsedmsg 3)))
-
-;; 415 - ERR_BADMASK "<server/host> :Bad Server/host mask"
-(defun zenirc-server-415 (proc parsedmsg)
- (zenirc-message proc 's415 (aref parsedmsg 3)))
-
-;; 421 - server detected error in what you sent
-(defun zenirc-server-421 (proc parsedmsg)
- (zenirc-message proc 's421 (aref parsedmsg 3)))
-
-;; 422 - ERR_NOMOTD ":MOTD File is missing"
-(defun zenirc-server-422 (proc parsedmsg)
- (zenirc-message proc 's422))
-
-;; 423 - ERR_NOADMININFO "<server> :No administrative info available"
-(defun zenirc-server-423 (proc parsedmsg)
- (zenirc-message proc 's423 (aref parsedmsg 3)))
-
-;; 424 ERR_FILEERROR ":File error doing <file op> on <file>"
-(defun zenirc-server-424 (proc parsedmsg)
- (zenirc-message proc (aref parsedmsg 3)))
-
-;; 431 ERR_NONICKNAMEGIVEN ":No nickname given"
-(defun zenirc-server-431 (proc parsedmsg)
- (zenirc-message proc 's431))
-
-;; 432 - ERR_ERRONEUSNICKNAME "<nick> :Erroneus nickname"
-(defun zenirc-server-432 (proc parsedmsg)
- (zenirc-message proc 's432 (aref parsedmsg 3)))
-
-;; 433 - ERR_NICKNAMEINUSE "<nick> :Nickname is already in use"
-(defun zenirc-server-433 (proc parsedmsg)
- (zenirc-message proc 's433 (aref parsedmsg 3)))
-
-;; 436 - ERR_NICKCOLLISION "<nick> :Nickname collision KILL"
-(defun zenirc-server-436 (proc parsedmsg)
- (zenirc-message proc 's436 (aref parsedmsg 3)))
-
-;; 437 - ERR_UNAVAILRESOURCE "<nick>/<channel> :Nick/channel is temporarily
-;; unavailable"
-(defun zenirc-server-437 (proc parsedmsg)
- (zenirc-message proc 's437 (aref parsedmsg 3)))
-
-;; 441 - ERR_USERNOTINCHANNEL "<nick> <channel> :They aren't on that channel"
-(defun zenirc-server-441 (proc parsedmsg)
- (zenirc-message proc 's441 (aref parsedmsg 3) (aref parsedmsg 4)))
-
-;; 442 - You are not on that channel
-(defun zenirc-server-442 (proc parsedmsg)
- (zenirc-message proc 's442 (aref parsedmsg 3)))
-
-;; 443 - already on channel invite error
-(defun zenirc-server-443 (proc parsedmsg)
- (zenirc-message proc 's443 (aref parsedmsg 3) (aref parsedmsg 4)))
-
-;; 444 - ERR_NOLOGIN "<user> :User not logged in"
-(defun zenirc-server-444 (proc parsedmsg)
- (zenirc-message proc 's444 (aref parsedmsg 3)))
-
-;; 445 - ERR_SUMMONDISABLED ":SUMMON has been disabled"
-(defun zenirc-server-445 (proc parsedmsg)
- (zenirc-message proc 's445))
-
-;; 446 - ERR_USERSDISABLED ":USERS has been disabled"
-(defun zenirc-server-446 (proc parsedmsg)
- (zenirc-message proc 's446))
-
-;; 451 - ERR_NOTREGISTERED ":You have not registered"
-(defun zenirc-server-451 (proc parsedmsg)
- (zenirc-message proc 's451))
-
-;; 461 - server detected error - not enough parameters
-(defun zenirc-server-461 (proc parsedmsg)
- (zenirc-message proc 's461 (aref parsedmsg 3)))
-
-;; 462 - ERR_ALREADYREGISTRED ":You may not reregister"
-(defun zenirc-server-462 (proc parsedmsg)
- (zenirc-message proc 's462))
-
-;; 463 - ERR_NOPERMFORHOST ":Your host isn't among the privileged"
-(defun zenirc-server-463 (proc parsedmsg)
- (zenirc-message proc 's463))
-
-;; 464 - ERR_PASSWDMISMATCH ":Password incorrect"
-(defun zenirc-server-464 (proc parsedmsg)
- (zenirc-message proc 's464))
-
-;; 465 - ERR_YOUREBANNEDCREEP ":You are banned from this server"
-(defun zenirc-server-465 (proc parsedmsg)
- (zenirc-message proc 's465))
-
-;; 467 - ERR_KEYSET "<channel> :Channel key already set"
-(defun zenirc-server-467 (proc parsedmsg)
- (zenirc-message proc 's467 (aref parsedmsg 3)))
-
-;; 471 - ERR_CHANNELISFULL "<channel> :Cannot join channel (+l)"
-(defun zenirc-server-471 (proc parsedmsg)
- (zenirc-message proc 's471 (aref parsedmsg 3)))
-
-;; 472 - ERR_UNKNOWNMODE "<char> :is unknown mode char to me"
-(defun zenirc-server-472 (proc parsedmsg)
- (zenirc-message proc 's472 (aref parsedmsg 3)))
-
-;; 473 - ERR_INVITEONLYCHAN "<channel> :Cannot join channel (+i)"
-(defun zenirc-server-473 (proc parsedmsg)
- (zenirc-message proc 's473 (aref parsedmsg 3)))
-
-;; 474 - ERR_BANNEDFROMCHAN "<channel> :Cannot join channel (+b)"
-(defun zenirc-server-474 (proc parsedmsg)
- (zenirc-message proc 's474 (aref parsedmsg 3)))
-
-;; 475 - ERR_BADCHANNELKEY "<channel> :Cannot join channel (+k)"
-(defun zenirc-server-475 (proc parsedmsg)
- (zenirc-message proc 's475 (aref parsedmsg 3)))
-
-;; 477 - ERR_NOCHANMODES "<channel> :Channel doesn't support modes"
-(defun zenirc-server-477 (proc parsedmsg)
- (zenirc-message proc 's477 (aref parsedmsg 3)))
-
-;; 481 - ERR_NOPRIVILEGES ":Permission Denied- You're not an IRC operator"
-(defun zenirc-server-481 (proc parsedmsg)
- (zenirc-message proc 's481))
-
-;; 482 - ERR_CHANOPRIVSNEEDED "<channel> :You're not channel operator"
-(defun zenirc-server-482 (proc parsedmsg)
- (zenirc-message proc 's482 (aref parsedmsg 3)))
-
-;; 483 - ERR_CANTKILLSERVER ":You cant kill a server!"
-(defun zenirc-server-483 (proc parsedmsg)
- (zenirc-message proc 's483))
-
-;; 491 - ERR_NOOPERHOST ":No O-lines for your host"
-(defun zenirc-server-491 (proc parsedmsg)
- (zenirc-message proc 's491))
-
-;; 501 - ERR_UMODEUNKNOWNFLAG ":Unknown MODE flag"
-(defun zenirc-server-501 (proc parsedmsg)
- (zenirc-message proc 's501))
-
-;; 502 - ERR_USERSDONTMATCH ":Cant change mode for other users"
-(defun zenirc-server-502 (proc parsedmsg)
- (zenirc-message proc 's502))
-
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; PRIVMSG/NOTICE and CTCP handling
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defun zenirc-privmsg-or-notice (proc parsedmsg)
- (let ((from (aref parsedmsg 1)) ; who the message is from
- (to (aref parsedmsg 2)) ; who the message is to
- (text (aref parsedmsg 3)) ; the text of the message
- (type (aref parsedmsg 0))) ; privmsg or notice
- ;; see if privmsg or notice contains ctcp
- (if (not (string-match "\C-a" text))
- (zenirc-format-privmsg-or-notice type from to text proc)
- ;; message contains ctcp. break it up into ctcp and non-ctcp parts
- ;; and handle each.
- (let ((index 0) (ctcp nil) (str "") (len (length text)))
- (while (< index len)
- (if (char-equal (aref text index) ?\C-a)
- ;; we hit a control-a - deal with it.
- (progn
- (if (not (string= str ""))
- ;; we have a string
- (if ctcp
- ;; we are in a ctcp message
- (progn
- (zenirc-handle-ctcp type from to str proc)
- (setq str ""))
- ;; we are in a regular message
- (zenirc-format-privmsg-or-notice type from to str proc)
- (setq str ""))
- ;; we do not have a string
- (if (and (not (= index 0)) ctcp)
- ;; some leper sent a zero length message
- (zenirc-handle-ctcp type from to str proc)))
- (setq ctcp (not ctcp))) ; toggle ctcp state
- ;; we have a regular character
- (setq str (concat str (char-to-string (aref text index)))))
- (setq index (1+ index))
- (if (and (= index len) ctcp)
- ;; someone sent us an ill-formed ctcp message
- (zenirc-unbalanced-ctcp type from to str proc)))))))
-
-;; handle a ctcp message
-(defun zenirc-handle-ctcp (type from to str proc)
- (let* ((parsedctcp (zenirc-parse-firstword str))
- (fmt (if (string= type "PRIVMSG") 'query 'reply))
- (hook-name (format "zenirc-ctcp-%s-%s-hook" fmt (car parsedctcp)))
- (hook (intern-soft hook-name))
- (sender (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)))
- (and zenirc-debug-ctcp
- (zenirc-message proc 'debug hook-name))
- (cond ((and hook
- (boundp hook))
- (zenirc-run-hook hook proc parsedctcp from to))
- ;; Don't ever reply to notices, just privmsgs
- (t
- (and (string= type "PRIVMSG")
- zenirc-send-ctcp-errmsg-on-unknown
- (zenirc-ctcp-errmsg
- type sender to str
- (zenirc-lang-retrieve-catalog-entry 'query_unknown)
- proc))
- (zenirc-message proc fmt sender to str)))))
-
-;; spew a ctcp error
-(defun zenirc-ctcp-errmsg (type from to str whine proc)
- (let ((nick (zenirc-extract-nick from))
- (fmt "NOTICE %s :\C-aERRMSG %s :%s\C-a\n"))
- (process-send-string proc (format fmt nick str whine))))
-
-;; handle an unbalanced ctcp message
-(defun zenirc-unbalanced-ctcp (type from to str proc)
- (let ((sender (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)))
- (cond
- ((string= type "PRIVMSG")
- (and zenirc-send-ctcp-errmsg-on-unbalanced
- (zenirc-ctcp-errmsg type from to str
- (zenirc-lang-retrieve-catalog-entry 'query_unbalanced_reply)
- proc))
- (zenirc-message proc 'query_unbalanced sender to str))
- (t
- (zenirc-message proc 'reply_unbalanced sender to str)))))
-
-;; format a PRIVMSG or NOTICE and insert it in the zenirc process buffer
-(defun zenirc-format-privmsg-or-notice (type origfrom to text proc)
- (let ((timestr (zenirc-timestamp-string))
- (from (zenirc-run-hook 'zenirc-format-nickuserhost-hook origfrom))
- msgtype)
- (setq zenirc-privmsg-last-seen origfrom)
- (cond
- ((not
- (zenirc-channel-p to))
-
- (or (and zenirc-current-server-name
- (zenirc-names-equal-p from zenirc-current-server-name t))
- (setq zenirc-privmsg-last-rec (zenirc-extract-nick from)))
-
- (if (string= type "PRIVMSG")
- (setq msgtype 'privmsg_you)
- (setq msgtype 'notice_you))
- (zenirc-message proc msgtype
- (if zenirc-timestamp
- (concat from zenirc-timestamp-prefix
- timestr zenirc-timestamp-suffix)
- from)
- text))
- ((and
- (zenirc-names-equal-p to zenirc-current-victim t)
- (not zenirc-always-show-channelname))
-
- (if (string= type "PRIVMSG")
- (setq msgtype 'privmsg_nochannel)
- (setq msgtype 'notice_nochannel))
-
- (zenirc-message proc msgtype
- (if zenirc-timestamp
- (concat from zenirc-timestamp-prefix
- timestr zenirc-timestamp-suffix)
- from)
- text))
- (t
- (if (string= type "PRIVMSG")
- (setq msgtype 'privmsg)
- (setq msgtype 'notice))
- (zenirc-message proc msgtype from
- (if zenirc-timestamp
- (concat to zenirc-timestamp-prefix
- timestr zenirc-timestamp-suffix)
- to)
- text)))))
-
-(defun zenirc-timestamp-string ()
- (substring (current-time-string) 11 16))
-
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;
-;;; ctcp handlers
-;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;;; query handlers
-
-;; handler for a ctcp ACTION query
-;;
-;; Order of args is recipient, sender, message.
-;; E.g. [ACTION->#oink_worship] noah splodes
-(defun zenirc-ctcp-query-ACTION (proc parsedctcp from to)
- (if (and (not zenirc-always-show-channelname)
- (zenirc-names-equal-p to zenirc-current-victim t))
- (zenirc-message proc 'ctcp_action_nochannel
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- (cdr parsedctcp))
- (zenirc-message proc 'ctcp_action
- to
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- (cdr parsedctcp))))
-
-;; handler for a ctcp PING query
-(defun zenirc-ctcp-query-PING (proc parsedctcp from to)
- (process-send-string
- proc (concat "NOTICE "
- (zenirc-extract-nick from)
- " :\C-aPING " (cdr parsedctcp) "\C-a\n"))
- (if zenirc-verbose-ctcp
- (zenirc-message proc 'ctcp_ping
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- to)))
-
-;; handler for a ctcp VERSION query
-(defun zenirc-ctcp-query-VERSION (proc parsedctcp from to)
- (process-send-string
- proc (format "NOTICE %s :\C-aVERSION ZenIRC : %s : in %s %s\C-a\n"
- (zenirc-extract-nick from)
- zenirc-version
- (zenirc-emacs-variant)
- emacs-version))
- (and zenirc-verbose-ctcp
- (zenirc-message proc 'ctcp_version
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- to)))
-
-;; handler for a ctcp USERINFO query
-(defun zenirc-ctcp-query-USERINFO (proc parsedctcp from to)
- (process-send-string
- proc (concat "NOTICE "
- (zenirc-extract-nick from)
- " :\C-aUSERINFO :" zenirc-userinfo "\C-a\n"))
- (if zenirc-verbose-ctcp
- (zenirc-message proc 'ctcp_userinfo
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- to)))
-
-;; handler for a ctcp SOURCE query
-(defun zenirc-ctcp-query-SOURCE (proc parsedctcp from to)
- (let ((src zenirc-source-list)
- (fromnick (zenirc-extract-nick from)))
- (while src
- (process-send-string proc
- (concat "NOTICE "
- fromnick
- " :\C-aSOURCE " (car src) "\C-a\n"))
- (setq src (cdr src)))
- (process-send-string proc (concat "NOTICE " fromnick " :\C-aSOURCE\C-a\n"))
- (if zenirc-verbose-ctcp
- (zenirc-message proc 'ctcp_source
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- to))))
-
-;; handler for a ctcp CLIENTINFO query
-(defun zenirc-ctcp-query-CLIENTINFO (proc parsedctcp from to)
- (let ((replyto (zenirc-extract-nick from))
- (sender (zenirc-run-hook 'zenirc-format-nickuserhost-hook from))
- help)
- (if (string= (cdr parsedctcp) "")
- (process-send-string proc (format "NOTICE %s :\C-aCLIENTINFO %s\C-a\n"
- replyto zenirc-clientinfo-string))
- (setq help (cdr (assq (intern-soft (cdr parsedctcp))
- zenirc-clientinfo-list)))
- (if help
- (process-send-string
- proc (format "NOTICE %s :\C-aCLIENTINFO %s\C-a\n" replyto help))
- (zenirc-ctcp-errmsg "PRIVMSG" from to "CLIENTINFO"
- (concat (cdr parsedctcp)
- " is not a valid function")
- proc)))
- (and zenirc-verbose-ctcp
- (zenirc-message proc 'ctcp_clientinfo sender to))))
-
-;; handler for a ctcp ECHO query
-(defun zenirc-ctcp-query-ECHO (proc parsedctcp from to)
- (process-send-string
- proc (concat "NOTICE "
- (zenirc-extract-nick from)
- " :\C-aECHO"
- (if (string= "" (cdr parsedctcp))
- ""
- (concat " " (cdr parsedctcp)))
- "\C-a\n"))
- (if zenirc-verbose-ctcp
- (zenirc-message proc 'ctcp_echo
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- to (cdr parsedctcp))))
-
-
-;; handler for a ctcp ERRMSG query
-(defun zenirc-ctcp-query-ERRMSG (proc parsedctcp from to)
- (process-send-string
- proc (concat "NOTICE "
- (zenirc-extract-nick from)
- " :\C-aERRMSG"
- (if (string= "" (cdr parsedctcp))
- ""
- (concat " " (cdr parsedctcp) " :No error"))
- "\C-a\n"))
- (if zenirc-verbose-ctcp
- (zenirc-message proc 'ctcp_errmsg
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- to)))
-
-;; handler for a ctcp FINGER query
-(defun zenirc-ctcp-query-FINGER (proc parsedctcp from to)
- (process-send-string
- proc (concat "NOTICE "
- (zenirc-extract-nick from)
- " :\C-aFINGER :" zenirc-fingerdata "\C-a\n"))
- (if zenirc-verbose-ctcp
- (zenirc-message proc 'ctcp_finger
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- to)))
-
-;; handler for a ctcp TIME query
-(defun zenirc-ctcp-query-TIME (proc parsedctcp from to)
- (process-send-string
- proc (concat "NOTICE "
- (zenirc-extract-nick from)
- " :\C-aTIME :" (current-time-string) "\C-a\n"))
- (if zenirc-verbose-ctcp
- (zenirc-message proc 'ctcp_time
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- to)))
-
-;;; reply handlers
-
-;; handler for a ctcp PING reply
-(defun zenirc-ctcp-reply-PING (proc parsedctcp from to)
- (let ((current (car (cdr (zenirc-time-to-int (current-time-string))))))
- (if (< current
- (string-to-int (cdr parsedctcp)))
- (setq current (+ 65536 current)))
- (zenirc-message proc 'ctcp_ping_reply
- (zenirc-run-hook 'zenirc-format-nickuserhost-hook from)
- (- current (string-to-int (cdr parsedctcp))))))
-
-\f
-(defun zenirc-bug ()
- "Send a bug report to the ZenIRC maintainers."
- (interactive)
- (require 'sendmail)
- (mail nil zenirc-bug-address
- (format "Found bug in zenirc %s" zenirc-version))
- (goto-char (point-max))
- (insert
- (emacs-version) "\n\n"
- "Describe the bug you encountered as well as you can.\n"
- (substitute-command-keys
- "When you're done press \\[mail-send-and-exit] to send the message.\n\n")))
-
-\f
-(provide 'zenirc)
-
-(zenirc-lang-define-english-catalog)
-
-;;; zenirc.el ends here
projects / packages / commitdiff