cgit.sxemacs.org Git - packages/blob - xemacs-packages/zenirc/src/zenirc-pjg.el

   1 ;;;
   2 ;;;
   3 ;;; zenirc-pjg.el
   4 ;;; Automatically annoy Zen Internet Relay Chat client
   5 ;;;
   6 ;;; Copyright (C) 1993, 1994 Ben A. Mesander
   7 ;;;
   8 ;;; Author: Ben Mesander <ben@gnu.ai.mit.edu>
   9 ;;; Maintainer: ben@gnu.ai.mit.edu
  10 ;;; Keywords: extensions
  11 ;;; Created: 1994/02/28
  12 ;;;
  13 ;;; This program is free software; you can redistribute it and/or modify
  14 ;;; it under the terms of the GNU General Public License as published by
  15 ;;; the Free Software Foundation; either version 2, or (at your option)
  16 ;;; any later version.
  17 ;;;
  18 ;;; This program is distributed in the hope that it will be useful,
  19 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;;; GNU General Public License for more details.
  22 ;;;
  23 ;;; You should have received a copy of the GNU General Public License
  24 ;;; along with this program; if not, you can either send email to this
  25 ;;; program's maintainer or write to: The Free Software Foundation,
  26 ;;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA.
  27 ;;;
  28 ;;; Commentary:
  29 ;;;
  30 ;;; OJNK
  31 ;;;
  32 ;;;
  33 ;;; Code:
  34
  35 (require 'zenirc)
  36
  37 (defvar zenirc-pjg-interval '(0 600))
  38 (defvar zenirc-last-pjg '(0 0))
  39 (zenirc-add-hook 'zenirc-timer-hook 'zenirc-pjg)
  40 (defun zenirc-pjg (proc now)
  41   (if (zenirc-time< zenirc-pjg-interval
  42                     (zenirc-time-diff now zenirc-last-pjg))
  43       (progn
  44         (process-send-string
  45          proc "PRIVMSG pjg :fascist pjg.\n")
  46         (setq zenirc-last-pjg now))))
  47
  48 (provide 'zenirc-pjg)
  49
  50 ;;; zenirc-pjg.el ends here