diff --git a/CHANGESTODO b/CHANGESTODO index 4d6e74e..7bc39cb 100644 --- a/CHANGESTODO +++ b/CHANGESTODO @@ -9,12 +9,9 @@ ________________________________________________________________________ - remote IRC place does not send names listing on /join - remote IRC /part shows no reaction at first attempt +++ not limited to IRC!! thx marenz -- /set multiplace should be ignored for rich accesses - XMPP: first reply to a stranger's remote psyc message did not show up in psi -? would you prefer psyced to store hashed passwords by default ? - - IRC shows "*** k kindly asks for your friendship." for remote friendship requests. eh! where's the uniform!? @@ -39,12 +36,6 @@ ________________________________________________________________________ -- minor paranoia thing: - - cvs-move archetype.pl out of the sandbox - - change the require in psyconf to point to the new path -! profiles.pl and its Makefile aren't a real threat, we don't expect - anyone to run them, they are for developers only. - - spam by unregistered users: limit unregistered users to 1 per minute for now? or force them to do web-based registration? or even.. trustee-based? it's the real thing.....! @@ -3908,4 +3899,7 @@ pkggen + ported from cvs to git sockets + show encryption protocol and cipher in /tcp +psyconf ++ generate bin/psyced with -u, -d and -m flags using git ++ merged archetype.pl into here, which improves sandbox security diff --git a/bin/psyconf b/bin/psyconf index fc43717..3625e4b 100755 --- a/bin/psyconf +++ b/bin/psyconf @@ -637,7 +637,107 @@ X } chdir "$sandbox/net/place" or die "Where is my net/place? $!"; - require "archetype.pl"; + +## start of former archetype.pl + + # generate psyced place models using combinations of archetype flags + + my @opts, @predef, %map; + open(I, "archetype.gen") or die <) { + if (m!define\s(\w+)\s*//\s\[(.)\]!) { + if ($2 eq '+') { + push @predef, $1; + } else { + $map{$2} = $1; + push(@opts, $2); + } + } elsif (/^#endif/) { + last; + } + } + close I; + print "Generating archetype place models...\n"; + +# print join("\n", @opts), "\n\n"; +# print "$_\n" foreach ( %map ); + + open (O, ">../include/place.i") or die $!; + print O <.cvsignore") or print <_$f.c") or die $!; +# proud and noisy.. for a week or two at least ;) +#echo loading model '_$f' generated by '$0' + print O <> Doing a git garbage collection"); - if (system("git gc")) { + if (system("git gc --aggressive")) { puts(">> Error during git gc. Exiting."); return 1; } diff --git a/world/net/place/.cvsignore b/world/net/place/.cvsignore deleted file mode 100644 index 50f15bc..0000000 --- a/world/net/place/.cvsignore +++ /dev/null @@ -1,25 +0,0 @@ -.cvsignore -_hesmo.c -_hsmo.c -_smo.c -_hemo.c -_hmo.c -_mo.c -_heso.c -_hso.c -_so.c -_heo.c -_ho.c -_o.c -_hesm.c -_hsm.c -_sm.c -_hem.c -_hm.c -_m.c -_hes.c -_hs.c -_s.c -_he.c -_h.c -_.c diff --git a/world/net/place/archetype.pl b/world/net/place/archetype.pl deleted file mode 100755 index f8f77b2..0000000 --- a/world/net/place/archetype.pl +++ /dev/null @@ -1,101 +0,0 @@ -#!/usr/bin/perl -# -# generator of psyced place models using combinations of archetype flags. -# lynX 2007 - - my @opts, @predef, %map; - open(I, "archetype.gen") or die <) { - if (m!define\s(\w+)\s*//\s\[(.)\]!) { - if ($2 eq '+') { - push @predef, $1; - } else { - $map{$2} = $1; - push(@opts, $2); - } - } elsif (/^#endif/) { - last; - } - } - close I; - print "Generating archetype models...\n"; - -# print join("\n", @opts), "\n\n"; -# print "$_\n" foreach ( %map ); - - open (O, ">../include/place.i") or die $!; - print O <.cvsignore") or print <_$f.c") or die $!; -# proud and noisy.. for a week or two at least ;) -#echo loading model '_$f' generated by '$0' - print O <