Initial import

* redid the import, now all *.pl *.pm and *.sh files have eol-style: native



git-svn-id: https://svn.muze.nl/svn/multigate/trunk@1 04b2d352-0200-0410-bb56-e1875e288fe5

Author: Robbert Müller

Artistic

@@ -0,0 +1,131 @@
+
+
+
+
+			 The "Artistic License"
+
+				Preamble
+
+The intent of this document is to state the conditions under which a
+Package may be copied, such that the Copyright Holder maintains some
+semblance of artistic control over the development of the package,
+while giving the users of the package the right to use and distribute
+the Package in a more-or-less customary fashion, plus the right to make
+reasonable modifications.
+
+Definitions:
+
+	"Package" refers to the collection of files distributed by the
+	Copyright Holder, and derivatives of that collection of files
+	created through textual modification.
+
+	"Standard Version" refers to such a Package if it has not been
+	modified, or has been modified in accordance with the wishes
+	of the Copyright Holder as specified below.
+
+	"Copyright Holder" is whoever is named in the copyright or
+	copyrights for the package.
+
+	"You" is you, if you're thinking about copying or distributing
+	this Package.
+
+	"Reasonable copying fee" is whatever you can justify on the
+	basis of media cost, duplication charges, time of people involved,
+	and so on.  (You will not be required to justify it to the
+	Copyright Holder, but only to the computing community at large
+	as a market that must bear the fee.)
+
+	"Freely Available" means that no fee is charged for the item
+	itself, though there may be fees involved in handling the item.
+	It also means that recipients of the item may redistribute it
+	under the same conditions they received it.
+
+1. You may make and give away verbatim copies of the source form of the
+Standard Version of this Package without restriction, provided that you
+duplicate all of the original copyright notices and associated disclaimers.
+
+2. You may apply bug fixes, portability fixes and other modifications
+derived from the Public Domain or from the Copyright Holder.  A Package
+modified in such a way shall still be considered the Standard Version.
+
+3. You may otherwise modify your copy of this Package in any way, provided
+that you insert a prominent notice in each changed file stating how and
+when you changed that file, and provided that you do at least ONE of the
+following:
+
+    a) place your modifications in the Public Domain or otherwise make them
+    Freely Available, such as by posting said modifications to Usenet or
+    an equivalent medium, or placing the modifications on a major archive
+    site such as uunet.uu.net, or by allowing the Copyright Holder to include
+    your modifications in the Standard Version of the Package.
+
+    b) use the modified Package only within your corporation or organization.
+
+    c) rename any non-standard executables so the names do not conflict
+    with standard executables, which must also be provided, and provide
+    a separate manual page for each non-standard executable that clearly
+    documents how it differs from the Standard Version.
+
+    d) make other distribution arrangements with the Copyright Holder.
+
+4. You may distribute the programs of this Package in object code or
+executable form, provided that you do at least ONE of the following:
+
+    a) distribute a Standard Version of the executables and library files,
+    together with instructions (in the manual page or equivalent) on where
+    to get the Standard Version.
+
+    b) accompany the distribution with the machine-readable source of
+    the Package with your modifications.
+
+    c) give non-standard executables non-standard names, and clearly
+    document the differences in manual pages (or equivalent), together
+    with instructions on where to get the Standard Version.
+
+    d) make other distribution arrangements with the Copyright Holder.
+
+5. You may charge a reasonable copying fee for any distribution of this
+Package.  You may charge any fee you choose for support of this
+Package.  You may not charge a fee for this Package itself.  However,
+you may distribute this Package in aggregate with other (possibly
+commercial) programs as part of a larger (possibly commercial) software
+distribution provided that you do not advertise this Package as a
+product of your own.  You may embed this Package's interpreter within
+an executable of yours (by linking); this shall be construed as a mere
+form of aggregation, provided that the complete Standard Version of the
+interpreter is so embedded.
+
+6. The scripts and library files supplied as input to or produced as
+output from the programs of this Package do not automatically fall
+under the copyright of this Package, but belong to whoever generated
+them, and may be sold commercially, and may be aggregated with this
+Package.  If such scripts or library files are aggregated with this
+Package via the so-called "undump" or "unexec" methods of producing a
+binary executable image, then distribution of such an image shall
+neither be construed as a distribution of this Package nor shall it
+fall under the restrictions of Paragraphs 3 and 4, provided that you do
+not represent such an executable image as a Standard Version of this
+Package.
+
+7. C subroutines (or comparably compiled subroutines in other
+languages) supplied by you and linked into this Package in order to
+emulate subroutines and variables of the language defined by this
+Package shall not be considered part of this Package, but are the
+equivalent of input as in Paragraph 6, provided these subroutines do
+not change the language in any way that would cause it to fail the
+regression tests for the language.
+
+8. Aggregation of this Package with a commercial distribution is always
+permitted provided that the use of this Package is embedded; that is,
+when no overt attempt is made to make this Package's interfaces visible
+to the end user of the commercial distribution.  Such use shall not be
+construed as a distribution of this Package.
+
+9. The name of the Copyright Holder may not be used to endorse or promote
+products derived from this software without specific prior written permission.
+
+10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+				The End

KNOWN_BUGS

@@ -0,0 +1,9 @@
+
+- Somewhere in Dispatch.pm a check for multicast is done the wrong way
+around, resulting in a condition that makes it possible to bypass
+spam-protection
+
+- Occassionally (about once a year) triggers a coredump of perl 5.6
+
+- The IRC wrapper sometimes keeps producing (empty) logfiles for channels it
+is no longer on. A restart will fix that.

LICENSE

@@ -0,0 +1,6 @@
+
+Multigate 3.0
+==============================================================================
+
+Multigate is distributed under the Artistic License, see the Artistic file
+for the full text.

changelog.txt

@@ -0,0 +1,63 @@
+version - date       	- main changes
+------------------------------------------------------------------------------------------------
+			- Fix in Debug to avoid strange perl(?) bugs
+			  Introduction of CommandSimple => support in Dispatch
+			  New scheduler
+			  Fixes in Console (start/stop/restart for non-wrappers)
+                          Dispatch: different way of loading Command module
+                          Command: no more caching of failed commands
+                          max_lines_multicast introduced
+
+3.0.pre4,5,6 -          - Extra functions in Users
+                          Small bugfixes in groups
+                          followme-functions enhanced: change main address too
+                          accounting added (commands and protocols)
+                          logging added (accountlog/*)
+                          group-protocols added
+			  Bugfix in (s|g|uns)et methods in Users.pm for group-protocol
+
+3.0.pre3- 03/03/2003    - Bug triggered by very long messages fixed, NBRead enhanced
+                          Groups introduced
+                          Small fixes in Config and Users
+
+3.0.pre2-               - Big rewrite of Dispatch and Command: cleanup and
+                          hooks for Groups and Accounting
+                          ENV{'MULTI_IS_MULTICAST'} introduced
+                          Restartable wrappers
+                          Do not send empty messages from Dispatch to Wrapper
+                          Bug in Command regarding ordering of arguments fixed
+
+
+
+3.0.pre	-		- Bug in Command regarding ordering of arguments fixed
+			  Bug in Command with arguments being '0'
+			  Ugly bugs fixed in scheduler.pl and Scheduler.pm (DoS)
+			  Minor updates on Console.pm and Multigate.pm (concerning scheduler)
+ 
+2.4.x   -               - Cleanup of lib/ , using default debian libs if possible
+
+2.4	- 25/10/2002	- CGI-like environment for commands
+			  Some cleanups in Command.pm
+
+2.3.x			- default protocols moved to multi.conf
+                          database name now in multi.conf
+			  Command cleanup + new caching mechanism
+
+2.3     - 02/09/2002 	- caching for commands 
+
+2.2	- 09/08/2002	- new Command.pm framework
+			  per command config
+			  global config used for wrappers etc.
+			  Util.pm
+
+2.1.1	- 16/05/2002	- Fixes in Wrapper for full pipes
+
+2.1	- 14/05/2002	- Console module
+			  non-blocking reads
+			  Minor fixes in Command and Dispatcher
+			  Changes in Scheduler
+
+2.0.1	- 13/05/2002	- Minor fixes in Command and Dispatcher
+
+2.0	- 14/02/2002	- Debug module
+			  Scheduler

cleanup_tree.sh

@@ -0,0 +1,18 @@
+#!/bin/bash 
+#
+# (C) 2000 - 2005 Wieger Opmeer, Casper Joost Eyckelhof, Yvo Brevoort
+#
+# This package is free software; you can redistribute it and/or modify it
+# under the terms of the "Artistic License".
+#
+
+# Eerst backup files met een ~ verwijderen:
+find . -name '*~' | xargs --no-run-if-empty /bin/rm
+
+# Alle .pl en .pm files perltidy-en; als er een ERR ontstaat x.pl.tdy niet moven naar x.pl
+find . -type d -name .svn -prune -o -name '*.pl' -exec perltidy '{}' ';' -and -exec /usr/bin/test ! -f '{}.ERR' ';' -and -exec /bin/mv -f '{}.tdy' '{}' ';'
+find . -type d -name .svn -prune -o -name '*.pm' -exec perltidy '{}' ';' -and -exec /usr/bin/test ! -f '{}.ERR' ';' -and -exec /bin/mv -f '{}.tdy' '{}' ';'
+
+# Overgebleven .ERR en tdy weghalen
+find . -type d -name .svn -prune -o -name '*.ERR' | xargs --no-run-if-empty /bin/rm
+find . -type d -name .svn -prune -o -name '*.tdy' | xargs --no-run-if-empty /bin/rm

clear_cache.sh

@@ -0,0 +1,11 @@
+#!/bin/bash
+#
+# (C) 2000 - 2005 Wieger Opmeer, Casper Joost Eyckelhof, Yvo Brevoort
+#
+# This package is free software; you can redistribute it and/or modify it
+# under the terms of the "Artistic License".
+#
+
+# Delete all regular files which data was last modified more than 0 minutes ago
+#find ./cache/ -mmin +0 -type f -exec echo '{}' ';'
+find ./cache/ -type d -name .svn -prune -o -mmin +0 -type f -exec rm '{}' ';' -and -exec echo 'deleted {}' ';'

commands/aankoppel/aankoppel.pl

@@ -0,0 +1,25 @@
+#!/usr/bin/perl -w
+
+use lib '../../lib';
+
+#User management from multigate
+use Multigate::Users;
+use Multigate::Util;
+
+## Import available environment variables
+
+my $address  = $ENV{'MULTI_USER'};      # address of invoking user
+my $user     = $ENV{'MULTI_REALUSER'};  # multigate username of invoking user
+my $protocol = $ENV{'MULTI_FROM'};      # protocol this command was invoked from
+
+$address =
+  stripnick($address);    #make sure we do not have irc-channels in database
+
+Multigate::Users::init_users_module();
+
+my $result = set_preferred_protocol( $user, $protocol );
+my $result2 = set_main_address( $user, $protocol, $address );
+
+print "Setting followme to ($protocol, $address) for $user.\n";
+
+Multigate::Users::cleanup_users_module();

commands/aankoppel/command.cfg

@@ -0,0 +1 @@
+level = 50

commands/aankoppel/help.txt

@@ -0,0 +1 @@
+aankoppel: sets preferred protocol to from_protocol, and main_address to from-address

commands/afkoppel/afkoppel.pl

@@ -0,0 +1,47 @@
+#!/usr/bin/perl -w
+## Import available environment variables
+
+use File::stat;
+my $realuser = $ENV{'MULTI_REALUSER'};    # multigate username of invoking user
+my $locked   = 0;
+
+# Loek is raar
+# Maar Titan kan ook rare regels in een script plakken!
+exit 0 if ( lc($realuser) eq "loek" );
+
+my $lockfile = "data/$realuser";
+
+#check time-lock on this user
+if ( -e $lockfile ) {
+    my $stat = stat $lockfile or die "Error opening lockcheckfile: $!\n";
+    $locked = ( $stat->mtime > time() );
+}
+
+if ($locked) {
+
+    #do we want to refresh our lock??
+    #if so: move this statement after lockfilewriting
+    exit 0;
+}
+
+#create new lockfile
+open CACHE, "> $lockfile" or die "cannot write to file!";
+close CACHE;
+
+#modify time on lockfile
+my $cachetime = time + 300;    # 5 minutes into the future
+utime $cachetime, $cachetime, $lockfile;
+
+#the thing this command is about:
+if ( int( rand(100) ) < 30 ) {
+    open( MSG, "< afkoppel.txt" );
+    my @opties = <MSG>;
+    close MSG;
+
+    my $antwoord = $opties[ int( rand(@opties) ) ];
+    $antwoord =~ s/XX/$realuser/;
+    print "$antwoord";
+}
+else {
+    exit 0;
+}

commands/afkoppel/afkoppel.txt

@@ -0,0 +1,45 @@
+Dag XX
+Welterusten XX
+Doei! 
+Nou dag hoor XX
+Hasta la vista! XX!
+Stand clear. Disengaging XX.
+Tot zover deze live verbinding met XX.
+We'll meet again, XX.
+Afkoppel? Afkoppel? Rare XX!
+Beaming up XX
+Dag XX.
+XX: Kom je snel weer terug?
+Ciao
+A bientot XX.
+Auf Wiedersehen.
+Selamat jalan.
+Adios XX.
+Hej d� XX.
+Tot de volgende keer maar weer.
+Zijn we zo saai XX?
+Tot frop!
+Nu al?
+Dat is vroeg, XX.
+Slaap lekker XX.
+Alweer?
+Zeker weer naar de vb, XX?
+Afkoppelen is voor watjes!
+Wow XX, zonder typo's :)
+Truste XX
+En morgen gezond weer op.
+An !afkoppel a day, keeps the sleep away
+Peer weet je te vinden, XX.
+Trossen los.
+Niet meer gezellig hier?
+See you later, Multigator...
+Toedeledokie XX!
+Dag Sinterklaasje^WXX
+I do wish we could chat longer, but I'm having an old friend for dinner. Bye.
+So this is what a chatroom looks like.
+You say goodbye and I say hello
+aangekoppel ingekoppel vasgekoppel losgekoppel afkoppel saamkoppel
+We moeten rennen, springen, vliegen, duiken, vallen, opstaan en weer doorgaan...
+We kunnen nu niet blijven, we kunnen nu niet langer blijven staan
+Afkicken? go Go GOO XX!!!
+*Setting a tracking cookie on XX*

commands/afkoppel/command.cfg

@@ -0,0 +1,2 @@
+level = 50
+user = 0

commands/afkoppel/help.txt

@@ -0,0 +1 @@
+afkoppel geeft aan dat de gebruiker bij zijn terminal weggaat.