├── .astylerc ├── .gitignore ├── .travis.yml ├── CHANGELOG ├── COPYING ├── INSTALL ├── KICKSTART ├── LICENSE ├── Makefile.am ├── README.md ├── TODO ├── client └── Net │ └── Peep │ ├── BC │ ├── BC.pm │ ├── Changes │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── README │ └── test.pl │ ├── Changes │ ├── Client │ ├── Changes │ ├── Client.pm │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── README │ └── test.pl │ ├── Conf │ ├── Changes │ ├── Conf.pm │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── README │ ├── peep.conf │ ├── peep.conf.xml │ ├── peep.logtab │ ├── peep.sysmontab │ ├── test.pl │ └── themes │ │ ├── collin.xml │ │ └── wetlands.xml │ ├── Data │ ├── Changes │ ├── Client │ │ ├── Changes │ │ ├── Client.pm │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── Notification │ │ │ ├── Changes │ │ │ ├── MANIFEST │ │ │ ├── Makefile.PL │ │ │ ├── Notification.pm │ │ │ ├── README │ │ │ └── test.pl │ │ ├── README │ │ └── test.pl │ ├── Clients │ │ ├── Changes │ │ ├── Clients.pm │ │ ├── MANIFEST │ │ ├── Makefile.PL │ │ ├── README │ │ └── test.pl │ ├── Conf │ │ ├── Changes │ │ ├── Class │ │ │ ├── Changes │ │ │ ├── Class.pm │ │ │ ├── MANIFEST │ │ │ ├── MANIFEST.SKIP │ │ │ ├── Makefile.PL │ │ │ ├── README │ │ │ ├── Server │ │ │ │ ├── Changes │ │ │ │ ├── MANIFEST │ │ │ │ ├── MANIFEST.SKIP │ │ │ │ ├── Makefile.PL │ │ │ │ ├── README │ │ │ │ ├── Server.pm │ │ │ │ └── test.pl │ │ │ ├── Servers │ │ │ │ ├── Changes │ │ │ │ ├── MANIFEST │ │ │ │ ├── MANIFEST.SKIP │ │ │ │ ├── Makefile.PL │ │ │ │ ├── README │ │ │ │ ├── Servers.pm │ │ │ │ └── test.pl │ │ │ └── test.pl │ │ ├── Classes │ │ │ ├── Changes │ │ │ ├── Classes.pm │ │ │ ├── MANIFEST │ │ │ ├── MANIFEST.SKIP │ │ │ ├── Makefile.PL │ │ │ ├── README │ │ │ └── test.pl │ │ ├── Conf.pm │ │ ├── General │ │ │ ├── Changes │ │ │ ├── General.pm │ │ │ ├── MANIFEST │ │ │ ├── MANIFEST.SKIP │ │ │ ├── Makefile.PL │ │ │ ├── README │ │ │ └── test.pl │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ └── test.pl │ ├── Data.pm │ ├── Event │ │ ├── Changes │ │ ├── Event.pm │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ └── test.pl │ ├── Events │ │ ├── Changes │ │ ├── Events.pm │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ └── test.pl │ ├── Host │ │ ├── Changes │ │ ├── Host.pm │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ └── test.pl │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── Notice │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── Makefile.PL │ │ ├── Notice.pm │ │ ├── README │ │ └── test.pl │ ├── Option │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── Makefile.PL │ │ ├── Option.pm │ │ ├── README │ │ └── test.pl │ ├── Options │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── Makefile.PL │ │ ├── Options.pm │ │ ├── README │ │ └── test.pl │ ├── Pool │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── Pool.pm │ │ ├── README │ │ └── test.pl │ ├── README │ ├── Sound │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ ├── Sound.pm │ │ └── test.pl │ ├── Sounds │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ ├── Sounds.pm │ │ └── test.pl │ ├── State │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ ├── State.pm │ │ ├── ThreshHold │ │ │ ├── Changes │ │ │ ├── MANIFEST │ │ │ ├── MANIFEST.SKIP │ │ │ ├── Makefile.PL │ │ │ ├── README │ │ │ ├── ThreshHold.pm │ │ │ └── test.pl │ │ ├── ThreshHolds │ │ │ ├── Changes │ │ │ ├── MANIFEST │ │ │ ├── MANIFEST.SKIP │ │ │ ├── Makefile.PL │ │ │ ├── README │ │ │ ├── ThreshHolds.pm │ │ │ └── test.pl │ │ └── test.pl │ ├── States │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ ├── States.pm │ │ └── test.pl │ ├── Theme │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ ├── Theme.pm │ │ └── test.pl │ ├── Themes │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── Makefile.PL │ │ ├── README │ │ ├── Themes.pm │ │ └── test.pl │ ├── XML │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── README │ │ ├── XML.pm │ │ └── test.pl │ └── test.pl │ ├── Host │ ├── Changes │ ├── Host.pm │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── Pool │ │ ├── Changes │ │ ├── MANIFEST │ │ ├── MANIFEST.SKIP │ │ ├── Makefile.PL │ │ ├── Pool.pm │ │ ├── README │ │ └── test.pl │ ├── README │ └── test.pl │ ├── Log │ ├── Changes │ ├── Log.pm │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── README │ └── test.pl │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Mail │ ├── Changes │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Mail.pm │ ├── Makefile.PL │ ├── README │ └── test.pl │ ├── Makefile.PL │ ├── Notification │ ├── Changes │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── Notification.pm │ ├── README │ └── test.pl │ ├── Notifier │ ├── Changes │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── Notifier.pm │ ├── README │ └── test.pl │ ├── Parser │ ├── Changes │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── Parser.pm │ ├── README │ └── test.pl │ ├── Peck │ ├── Changes │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── Peck.pm │ ├── README │ └── test.pl │ ├── Peep.pm │ ├── README │ ├── Scheduler │ ├── Changes │ ├── MANIFEST │ ├── MANIFEST.SKIP │ ├── Makefile.PL │ ├── README │ ├── Scheduler.pm │ └── test.pl │ ├── bin │ ├── keytest │ ├── logparser │ ├── peck │ ├── peepd │ ├── pinger │ ├── sysmonitor │ └── traffic-monitor │ ├── t │ ├── 000.t │ ├── 010.t │ ├── 011.t │ ├── 020.t │ ├── 021.t │ ├── 030.t │ ├── 031.t │ ├── 040.t │ ├── 041.t │ ├── 050.t │ ├── 060.t │ ├── 070.t │ ├── 080.t │ ├── 090.t │ ├── 100.t │ ├── 101.t │ ├── 200.t │ ├── 300.t │ └── README │ └── test.pl ├── conf ├── peep.conf ├── peep.logtab ├── peep.sysmontab └── themes │ └── collin.xml ├── configure.ac ├── docs ├── README.DOC ├── client │ └── make-client-documentation └── server │ ├── debug_values │ ├── latex_gifs │ ├── blueball.gif │ ├── ch_beg_r.gif │ ├── ch_begin.gif │ ├── ch_del_r.gif │ ├── ch_delet.gif │ ├── ch_end.gif │ ├── ch_end_r.gif │ ├── contents.gif │ ├── crossref.gif │ ├── footnote.gif │ ├── greenball.gif │ ├── image.gif │ ├── index.gif │ ├── next.gif │ ├── next_g.gif │ ├── nx_grp.gif │ ├── nx_grp_g.gif │ ├── orangeball.gif │ ├── pinkball.gif │ ├── prev.gif │ ├── prev_g.gif │ ├── purpleball.gif │ ├── pv_grp.gif │ ├── pv_grp_g.gif │ ├── redball.gif │ ├── up.gif │ ├── up_g.gif │ ├── whiteball.gif │ └── yellowball.gif │ ├── peep-internals.gif │ └── peep-server.tex └── server ├── .cvsignore ├── Makefile.am ├── Makefile.in ├── alsa.c ├── cmdline.c ├── cmdline.h ├── copyright.h ├── debug.c ├── debug.h ├── engine.c ├── engine.h ├── engine_queue.c ├── engine_queue.h ├── main.c ├── main.h ├── mixer.c ├── mixer.h ├── mixer_queue.c ├── mixer_queue.h ├── notice.c ├── notice.h ├── oss.c ├── parser.c ├── parser.h ├── playback.c ├── playback.h ├── server.c ├── server.h ├── sound.h ├── ssl_server.c ├── ssl_server.h ├── tcp_server.c ├── tcp_server.h ├── thread.c ├── thread.h ├── udp_server.c ├── udp_server.h ├── xml.c ├── xml.h ├── xml_notice.c ├── xml_notice.h ├── xml_theme.c └── xml_theme.h /.astylerc: -------------------------------------------------------------------------------- 1 | # gws2/.astylerc 2 | # 3 | # options file for `astyle` 4 | # 5 | # http://astyle.sourceforge.net/ 6 | 7 | # brackets 8 | --style=linux 9 | --add-brackets 10 | 11 | # indentation 12 | --indent=spaces=2 13 | --indent-preproc-block 14 | --indent-preproc-define 15 | 16 | # column limit 17 | --max-code-length=80 18 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | # Object files 2 | *.o 3 | *.ko 4 | *.obj 5 | *.elf 6 | 7 | # Precompiled Headers 8 | *.gch 9 | *.pch 10 | 11 | # Libraries 12 | *.lib 13 | *.a 14 | *.la 15 | *.lo 16 | 17 | # Shared objects (inc. Windows DLLs) 18 | *.dll 19 | *.so 20 | *.so.* 21 | *.dylib 22 | 23 | # Executables 24 | *.exe 25 | *.out 26 | *.app 27 | *.i*86 28 | *.x86_64 29 | *.hex 30 | 31 | # Debug files 32 | *.dSYM/ 33 | /tmp 34 | 35 | # autotoolery 36 | /.deps/ 37 | /INSTALL 38 | /Makefile 39 | /aclocal.m4 40 | /autom4te.cache/ 41 | /build-aux/ 42 | /compile 43 | /config.guess 44 | /config.h 45 | /config.h.in 46 | /config.log 47 | /config.status 48 | /config.sub 49 | /configure 50 | /depcomp 51 | /install-sh 52 | /libtool 53 | /ltmain.sh 54 | /m4/*.m4 55 | /missing 56 | /paths.h 57 | /rendera 58 | /stamp-h1 59 | /test-driver 60 | Makefile.in 61 | 62 | *~ 63 | -------------------------------------------------------------------------------- /.travis.yml: -------------------------------------------------------------------------------- 1 | # peep/.travis.yml 2 | 3 | language: c 4 | 5 | before_install: 6 | - uname -a 7 | - lsb_release --all 8 | - sudo apt-get --assume-yes update 9 | 10 | install: 11 | - sudo apt-get --assume-yes install mingw32 12 | - sudo apt-get --assume-yes install mingw32-binutils 13 | - sudo apt-get --assume-yes install mingw32-runtime 14 | - sudo apt-get --assume-yes install wine 15 | 16 | env: 17 | - TRCC=gcc TRCXX=g++ 18 | - TRCC=clang TRCXX=clang++ 19 | - TRCC=i586-mingw32msvc-gcc TRCXX=i586-mingw32msvc-g++ 20 | 21 | script: 22 | - export CC=$TRCC 23 | - export CXX=$TRCXX 24 | - cd $(mktemp -d) 25 | - autoreconf -ivf ${TRAVIS_BUILD_DIR} 26 | - ${TRAVIS_BUILD_DIR}/configure --prefix=$(mktemp -d) 27 | - make clean all check distcheck install 28 | 29 | matrix: 30 | allow_failures: 31 | - env: TRCC=clang TRCXX=clang++ 32 | - env: TRCC=i586-mingw32msvc-gcc TRCXX=i586-mingw32msvc-g++ 33 | fast_finish: true 34 | 35 | -------------------------------------------------------------------------------- /CHANGELOG: -------------------------------------------------------------------------------- 1 | For Peep v0.5.0-rc2: 2 | * Peep now successfully compiles on 3 | OpenBSD. 4 | * Fixed some instability with the 5 | mixer that caused peep to crash 6 | on OpenBSD. 7 | * peepd has undergone the valgrind 8 | * Fixed a threading bug that kept 9 | the tcp server from handling 10 | multiple clients. 11 | * Update of config.guess and config.sub 12 | files to use the latest ones in Debian 13 | linux. 14 | * ALSA compilation now works with the 15 | latest drivers. 16 | * UDP has been fully implemented: 17 | * Server now compiles either with 18 | --enable-tcp-server or 19 | --enable-udp-server 20 | * Clients now accept either: 21 | --protocol=tcp or 22 | --protocol=udp 23 | * Default is TCP for both server and 24 | clients. 25 | * Fixed a buttload of bugfixes. 26 | 27 | For Peep v0.5.0-rc1: (some highlights) 28 | * Created and updated Documentation for 29 | the 0.5.x series. Documentation format 30 | is now in latex and html is generated 31 | via latex2html. 32 | * Updated the general package files 33 | (INSTALL, README, etc.). 34 | * Updated the build to include the 35 | configuration directory and to generate 36 | the HTML documentation from the tex 37 | source during a `make dist` 38 | * Added the client documentation, which 39 | is now generated during the build 40 | along with the server documentation. 41 | * The theme format has now been fixed 42 | and properly implemented. 43 | * Auto-discovery now works. 44 | * UDP/SSL postponed until rc2. TCP 45 | support fully implemented 46 | 47 | Peep 0.5.0 is a complete rewrite of the Peep 48 | server and clients. New features include: 49 | * Support for 3 protocols: UDP/TCP/SSL. 50 | * Plug-in architecture for post-processing 51 | * XML messaging 52 | * New sound effect architecture - makes 53 | adding new effects simple 54 | * XML themes! <- Portable themes that allow 55 | a Peep installation to configure out of 56 | the box. 57 | * Better stability. Yeah. This should be 58 | a lot more stable. 59 | * New repository layout. Sounds are better 60 | organized and organization is now based 61 | on directory structure, rather than file 62 | numbers. 63 | * ALSA 0.9.x support (But untested). 64 | * Better debugging support 65 | -------------------------------------------------------------------------------- /TODO: -------------------------------------------------------------------------------- 1 | Before final 0.5.0: 2 | * Get SSL working completely 3 | 4 | 5 | Some Ideas for later: 6 | * Take option to write sounds out to raw file so can record to sound file directly 7 | rather than playback. 8 | * Write EsounD modules 9 | -------------------------------------------------------------------------------- /client/Net/Peep/BC/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/BC/MANIFEST: -------------------------------------------------------------------------------- 1 | BC.pm 2 | Changes 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/BC/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/BC/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::BC', 6 | 'VERSION_FROM' => 'BC.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/BC/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/BC/README -------------------------------------------------------------------------------- /client/Net/Peep/BC/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::BC; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Client/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Client/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Client.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Client/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Client/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Client', 6 | 'VERSION_FROM' => 'Client.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Client/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Client/README -------------------------------------------------------------------------------- /client/Net/Peep/Client/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Client; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Conf/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Conf/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Conf.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Conf/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Conf/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Conf', 6 | 'VERSION_FROM' => 'Conf.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Conf/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Conf/README -------------------------------------------------------------------------------- /client/Net/Peep/Conf/peep.conf.xml: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Conf/peep.conf.xml -------------------------------------------------------------------------------- /client/Net/Peep/Conf/peep.logtab: -------------------------------------------------------------------------------- 1 | # 2 | # Client configuration for Peep: The Network Auralizer client: 3 | # logparser 4 | 5 | client logparser 6 | class main 7 | port 1999 8 | default 9 | groups default,firewall 10 | logfile /var/log/messages 11 | end default 12 | config 13 | events 14 | # Name Group Location Priority Notification Pattern Hosts 15 | http www 255 0 info "(GET|POST).*HTTP" localhost 16 | code-red www 128 0 warn "default\.ida\?XXXX" localhost 17 | bad-query www 128 255 crit "ORA-\d{5}" localhost 18 | su-login default 128 255 warn "pam_unix\[\d+\]: \(system-auth\) .* opened .* root" localhost 19 | su-logout default 128 255 warn "pam_unix\[\d+\]: \(system-auth\) .* closed .* root" localhost 20 | # note that if one of the previous 2 regexes match, the following 2 will be ignored 21 | login default 128 255 info "pam_unix\[\d+\]: \(system-auth\) .* opened" localhost 22 | logout default 128 0 info "pam_unix\[\d+\]: \(system-auth\) .* closed" localhost 23 | ssh-logins default 128 2 info "sshd.*Accepted password" localhost 24 | bad-login default 128 255 warn "pam_unix.*: authentication failure" localhost 25 | ip-deny firewall 128 255 crit "DENY" localhost 26 | end events 27 | end config 28 | end client logparser 29 | -------------------------------------------------------------------------------- /client/Net/Peep/Conf/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Conf; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Conf/themes/wetlands.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | The wetlands general purpose sound theme 5 | 6 | Theme for monitoring general purpose syslog events and machine load. 7 | Uses sounds taken from bogs, lakes, and marsh-like areas. 8 | 9 | 10 | out-sendmail 11 | 12 | 13 | 14 | inc-sendmail 15 | 16 | 17 | 18 | load 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data. 2 | 3 | 0.01 Fri Oct 19 20:17:40 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Client. 2 | 3 | 0.01 Sun Jan 27 17:33:23 2002 4 | - original version; created by h2xs 1.21 with options 5 | -XA Net::Peep::Data::Client 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/Client.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Client; 2 | 3 | use 5.006; 4 | use strict; 5 | use warnings; 6 | 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Options; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = {}; 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'client'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( 34 | name => 1, 35 | class => 1, 36 | port => 1, 37 | configuration => 1 38 | ); 39 | return wantarray ? %attributes : \%attributes; 40 | 41 | } # end sub Attributes 42 | 43 | sub Handlers { 44 | 45 | my $self = shift; 46 | my %handlers = ( 'options' => 'Net::Peep::Data::Options' ); 47 | return wantarray ? %handlers : \%handlers; 48 | 49 | } # end sub Handlers 50 | 51 | 52 | 1; 53 | 54 | __END__ 55 | 56 | =head1 NAME 57 | 58 | Net::Peep::Data::Client - Perl extension for representing client configuration 59 | information. 60 | 61 | =head1 SYNOPSIS 62 | 63 | use Net::Peep::Data::Client; 64 | 65 | =head1 DESCRIPTION 66 | 67 | See the C class for detailed information regarding Peep data 68 | classes. 69 | 70 | =head2 ATTRIBUTES 71 | 72 | name 73 | class 74 | port 75 | configuration 76 | 77 | =head2 HANDLERS 78 | 79 | Net::Peep::Data::Options 80 | 81 | =head1 AUTHOR 82 | 83 | Collin Starkweather Copyright (C) 2001 84 | 85 | =head1 SEE ALSO 86 | 87 | perl(1), peepd(1), Net::Peep::BC, Net::Peep::Parser, Net::Peep::Log. 88 | 89 | http://peep.sourceforge.net 90 | 91 | =cut 92 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Client.pm 3 | Makefile.PL 4 | MANIFEST 5 | README 6 | test.pl 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Client', 6 | 'VERSION_FROM' => 'Client.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ($] >= 5.005 ? ## Add these new keywords supported since 5.005 9 | (ABSTRACT_FROM => 'Client.pm', # retrieve abstract from module 10 | AUTHOR => 'A. U. Thor ') : ()), 11 | ); 12 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/Notification/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Client::Notification. 2 | 3 | 0.01 Wed Sep 5 08:32:54 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::Client::Notification 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/Notification/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Notification.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/Notification/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Client::Notification', 6 | 'VERSION_FROM' => 'Notification.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/Notification/Notification.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Client::Notification; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | 10 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 11 | 12 | @ISA = qw(Exporter Net::Peep::Data); 13 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 14 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 15 | @EXPORT = qw( ); 16 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 17 | 18 | sub new { 19 | 20 | my $self = shift; 21 | my $class = ref($self) || $self; 22 | my $this = {}; 23 | bless $this, $class; 24 | 25 | } # end sub new 26 | 27 | sub Name { return 'notification'; } # end sub Name 28 | 29 | sub Attributes { 30 | 31 | my $self = shift; 32 | my %attributes = ( 33 | hosts=>1,recipients=>1,level=>1 34 | ); 35 | return wantarray ? %attributes : \%attributes; 36 | 37 | } # end sub Attributes 38 | 39 | sub Handlers { 40 | 41 | my $self = shift; 42 | my %handlers = ( ); 43 | return wantarray ? %handlers : \%handlers; 44 | 45 | } # end sub Handlers 46 | 47 | 1; 48 | 49 | __END__ 50 | 51 | =head1 NAME 52 | 53 | Net::Peep::Data::Client::Notification - Perl extension for representing client 54 | notification configuration information. 55 | 56 | =head1 SYNOPSIS 57 | 58 | use Net::Peep::Data::Client::Notification; 59 | 60 | =head1 DESCRIPTION 61 | 62 | See the C class for detailed information regarding Peep data 63 | classes. 64 | 65 | =head2 ATTRIBUTES 66 | 67 | hosts 68 | recipients 69 | level 70 | 71 | =head2 HANDLERS 72 | 73 | None. 74 | 75 | =head1 AUTHOR 76 | 77 | Collin Starkweather Copyright (C) 2001 78 | 79 | =head1 SEE ALSO 80 | 81 | perl(1), peepd(1), Net::Peep::Data 82 | 83 | http://peep.sourceforge.net 84 | 85 | =cut 86 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/Notification/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Client/Notification/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/Notification/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Client::Notification; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Client/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Client/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### 5 | 6 | # change 'tests => 1' to 'tests => last_test_to_print'; 7 | 8 | use Test; 9 | BEGIN { plan tests => 1 }; 10 | use Net::Peep::Data::Client; 11 | ok(1); # If we made it this far, we're ok. 12 | 13 | ######################### 14 | 15 | # Insert your test code below, the Test module is use()ed here so read 16 | # its man page ( perldoc Test ) for help writing this test script. 17 | 18 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Clients/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Clients. 2 | 3 | 0.01 Mon Mar 4 02:36:26 2002 4 | - original version; created by h2xs 1.21 with options 5 | -XA Net::Peep::Data::Clients 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Clients/Clients.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Clients; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Client; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'clients'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 'client' => 'Net::Peep::Data::Client' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | __END__ 48 | 49 | =head1 NAME 50 | 51 | Net::Peep::Data::Clients - Perl extension for representing client configuration 52 | information. 53 | 54 | =head1 SYNOPSIS 55 | 56 | use Net::Peep::Data::Clients; 57 | 58 | =head1 DESCRIPTION 59 | 60 | See the C class for detailed information regarding Peep data 61 | classes. 62 | 63 | =head2 ATTRIBUTES 64 | 65 | None. 66 | 67 | =head2 HANDLERS 68 | 69 | Net::Peep::Data::Client 70 | 71 | =head1 AUTHOR 72 | 73 | Collin Starkweather Copyright (C) 2001 74 | 75 | =head1 SEE ALSO 76 | 77 | perl(1), peepd(1), Net::Peep::Data 78 | 79 | http://peep.sourceforge.net 80 | 81 | =cut 82 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Clients/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Clients.pm 3 | Makefile.PL 4 | MANIFEST 5 | README 6 | test.pl 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Clients/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Clients', 6 | 'VERSION_FROM' => 'Clients.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ($] >= 5.005 ? ## Add these new keywords supported since 5.005 9 | (ABSTRACT_FROM => 'Clients.pm', # retrieve abstract from module 10 | AUTHOR => 'A. U. Thor ') : ()), 11 | ); 12 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Clients/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Clients/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Clients/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### 5 | 6 | # change 'tests => 1' to 'tests => last_test_to_print'; 7 | 8 | use Test; 9 | BEGIN { plan tests => 1 }; 10 | use Net::Peep::Data::Clients; 11 | ok(1); # If we made it this far, we're ok. 12 | 13 | ######################### 14 | 15 | # Insert your test code below, the Test module is use()ed here so read 16 | # its man page ( perldoc Test ) for help writing this test script. 17 | 18 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Conf. 2 | 3 | 0.01 Fri Nov 2 22:13:58 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::Conf 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Conf::Class. 2 | 3 | 0.01 Fri Nov 2 22:14:16 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::Conf::Class 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Class.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Conf::Class; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Conf::Class::Servers; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'class'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( name=>1,port=>1 ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( servers => 'Net::Peep::Data::Conf::Class::Servers' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | 48 | __END__ 49 | 50 | =head1 NAME 51 | 52 | Net::Peep::Data::Conf::Class - Perl extension for representing class 53 | configuration information. 54 | 55 | =head1 SYNOPSIS 56 | 57 | use Net::Peep::Data::Conf::Class; 58 | 59 | =head1 DESCRIPTION 60 | 61 | See the C class for detailed information regarding Peep data 62 | classes. 63 | 64 | =head2 ATTRIBUTES 65 | 66 | name 67 | port 68 | 69 | =head2 HANDLERS 70 | 71 | Net::Peep::Data::Conf::Class::Servers 72 | 73 | =head1 AUTHOR 74 | 75 | Collin Starkweather Copyright (C) 2001 76 | 77 | =head1 SEE ALSO 78 | 79 | perl(1), peepd(1), Net::Peep::Data 80 | 81 | http://peep.sourceforge.net 82 | 83 | =cut 84 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Class.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Conf::Class', 6 | 'VERSION_FROM' => 'Class.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Conf/Class/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Server/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Conf::Class::Server. 2 | 3 | 0.01 Fri Nov 2 22:14:24 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::Conf::Class::Server 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Server/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Server.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Server/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Server/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Conf::Class::Server', 6 | 'VERSION_FROM' => 'Server.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Server/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Conf/Class/Server/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Server/Server.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Conf::Class::Server; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | 10 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 11 | 12 | @ISA = qw(Exporter Net::Peep::Data); 13 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 14 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 15 | @EXPORT = qw( ); 16 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 17 | 18 | sub new { 19 | 20 | my $self = shift; 21 | my $class = ref($self) || $self; 22 | my $this = $class->SUPER::new(); 23 | bless $this, $class; 24 | 25 | } # end sub new 26 | 27 | sub Name { return 'server'; } # end sub Name 28 | 29 | sub Attributes { 30 | 31 | my $self = shift; 32 | my %attributes = ( name=>1,port=>1 ); 33 | return wantarray ? %attributes : \%attributes; 34 | 35 | } # end sub Attributes 36 | 37 | sub Handlers { 38 | 39 | my $self = shift; 40 | my %handlers = ( ); 41 | return wantarray ? %handlers : \%handlers; 42 | 43 | } # end sub Handlers 44 | 45 | 1; 46 | 47 | __END__ 48 | 49 | =head1 NAME 50 | 51 | Net::Peep::Data::Conf::Class::Server - Perl extension for representing class 52 | server configuration information. 53 | 54 | =head1 SYNOPSIS 55 | 56 | use Net::Peep::Data::Conf::Class::Server; 57 | 58 | =head1 DESCRIPTION 59 | 60 | See the C class for detailed information regarding Peep data 61 | classes. 62 | 63 | =head2 ATTRIBUTES 64 | 65 | name 66 | port 67 | 68 | =head2 HANDLERS 69 | 70 | None. 71 | 72 | =head1 AUTHOR 73 | 74 | Collin Starkweather Copyright (C) 2001 75 | 76 | =head1 SEE ALSO 77 | 78 | perl(1), peepd(1), Net::Peep::BC, Net::Peep::Parser, Net::Peep::Log. 79 | 80 | http://peep.sourceforge.net 81 | 82 | =cut 83 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Server/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Conf::Class::Server; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Servers/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Conf::Class::Servers. 2 | 3 | 0.01 Sun Mar 3 16:10:14 2002 4 | - original version; created by h2xs 1.21 with options 5 | -XA Net::Peep::Data::Conf::Class::Servers 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Servers/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Makefile.PL 3 | MANIFEST 4 | README 5 | Servers.pm 6 | test.pl 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Servers/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Servers/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Conf::Class::Servers', 6 | 'VERSION_FROM' => 'Servers.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ($] >= 5.005 ? ## Add these new keywords supported since 5.005 9 | (ABSTRACT_FROM => 'Servers.pm', # retrieve abstract from module 10 | AUTHOR => 'A. U. Thor ') : ()), 11 | ); 12 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Servers/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Conf/Class/Servers/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Servers/Servers.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Conf::Class::Servers; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Conf::Class::Server; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'servers'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 'server' => 'Net::Peep::Data::Conf::Class::Server' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | __END__ 48 | 49 | =head1 NAME 50 | 51 | Net::Peep::Data::Conf::Class::Servers - Perl extension for representing class 52 | server configuration information. 53 | 54 | =head1 SYNOPSIS 55 | 56 | use Net::Peep::Data::Conf::Class::Servers; 57 | 58 | =head1 DESCRIPTION 59 | 60 | See the C class for detailed information regarding Peep data 61 | classes. 62 | 63 | =head2 ATTRIBUTES 64 | 65 | None. 66 | 67 | =head2 HANDLERS 68 | 69 | Net::Peep::Data::Conf::Class::Server 70 | 71 | =head1 AUTHOR 72 | 73 | Collin Starkweather Copyright (C) 2001 74 | 75 | =head1 SEE ALSO 76 | 77 | perl(1), peepd(1), Net::Peep::Data 78 | 79 | http://peep.sourceforge.net 80 | 81 | =cut 82 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/Servers/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### 5 | 6 | # change 'tests => 1' to 'tests => last_test_to_print'; 7 | 8 | use Test; 9 | BEGIN { plan tests => 1 }; 10 | use Net::Peep::Data::Conf::Class::Servers; 11 | ok(1); # If we made it this far, we're ok. 12 | 13 | ######################### 14 | 15 | # Insert your test code below, the Test module is use()ed here so read 16 | # its man page ( perldoc Test ) for help writing this test script. 17 | 18 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Class/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Conf::Class; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Classes/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Conf::Classes. 2 | 3 | 0.01 Tue Mar 12 07:59:52 2002 4 | - original version; created by h2xs 1.21 with options 5 | -XA Net::Peep::Data::Conf::Classes 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Classes/Classes.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Conf::Classes; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Conf::Class; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'classes'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 'class' => 'Net::Peep::Data::Conf::Class' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | __END__ 48 | 49 | =head1 NAME 50 | 51 | Net::Peep::Data::Conf::Classes - Perl extension for representing class 52 | configuration information. 53 | 54 | =head1 SYNOPSIS 55 | 56 | use Net::Peep::Data::Conf::Classes; 57 | 58 | =head1 DESCRIPTION 59 | 60 | See the C class for detailed information regarding Peep data 61 | classes. 62 | 63 | =head2 ATTRIBUTES 64 | 65 | None. 66 | 67 | =head2 HANDLERS 68 | 69 | Net::Peep::Data::Conf::Class 70 | 71 | =head1 AUTHOR 72 | 73 | Collin Starkweather Copyright (C) 2001 74 | 75 | =head1 SEE ALSO 76 | 77 | perl(1), peepd(1), Net::Peep::Data 78 | 79 | http://peep.sourceforge.net 80 | 81 | =cut 82 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Classes/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Classes.pm 3 | Makefile.PL 4 | MANIFEST 5 | README 6 | test.pl 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Classes/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Classes/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Conf::Classes', 6 | 'VERSION_FROM' => 'Classes.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ($] >= 5.005 ? ## Add these new keywords supported since 5.005 9 | (ABSTRACT_FROM => 'Classes.pm', # retrieve abstract from module 10 | AUTHOR => 'A. U. Thor ') : ()), 11 | ); 12 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Classes/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Conf/Classes/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Classes/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### 5 | 6 | # change 'tests => 1' to 'tests => last_test_to_print'; 7 | 8 | use Test; 9 | BEGIN { plan tests => 1 }; 10 | use Net::Peep::Data::Conf::Classes; 11 | ok(1); # If we made it this far, we're ok. 12 | 13 | ######################### 14 | 15 | # Insert your test code below, the Test module is use()ed here so read 16 | # its man page ( perldoc Test ) for help writing this test script. 17 | 18 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Conf.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Conf; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Conf::Classes; 10 | use Net::Peep::Data::Conf::General; 11 | use Net::Peep::Data::Sounds; 12 | use Net::Peep::Data::Events; 13 | use Net::Peep::Data::States; 14 | use Net::Peep::Data::Themes; 15 | use Net::Peep::Data::Clients; 16 | 17 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 18 | 19 | @ISA = qw(Exporter Net::Peep::Data); 20 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 21 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 22 | @EXPORT = qw( ); 23 | $VERSION = do { my @r = (q$Revision: 1.8 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 24 | 25 | sub new { 26 | 27 | my $self = shift; 28 | my $class = ref($self) || $self; 29 | my $this = {}; 30 | bless $this, $class; 31 | 32 | } # end sub new 33 | 34 | sub Name { return 'configuration'; } # end sub Name 35 | 36 | sub Attributes { 37 | 38 | my $self = shift; 39 | my %attributes = ( ); 40 | return wantarray ? %attributes : \%attributes; 41 | 42 | } # end sub Attributes 43 | 44 | sub Handlers { 45 | 46 | my $self = shift; 47 | my %handlers = ( 48 | general => 'Net::Peep::Data::Conf::General', 49 | classes => 'Net::Peep::Data::Conf::Classes', 50 | clients => 'Net::Peep::Data::Clients', 51 | sounds => 'Net::Peep::Data::Sounds', 52 | events => 'Net::Peep::Data::Events', 53 | states => 'Net::Peep::Data::States', 54 | themes => 'Net::Peep::Data::Themes' 55 | ); 56 | return wantarray ? %handlers : \%handlers; 57 | 58 | } # end sub Handlers 59 | 60 | 1; 61 | 62 | __END__ 63 | 64 | =head1 NAME 65 | 66 | Net::Peep::Data::Conf - Perl extension for representing configuration 67 | information. 68 | 69 | =head1 SYNOPSIS 70 | 71 | use Net::Peep::Data::Conf; 72 | 73 | =head1 DESCRIPTION 74 | 75 | See the C class for detailed information regarding Peep data 76 | classes. 77 | 78 | =head2 ATTRIBUTES 79 | 80 | None. 81 | 82 | =head2 HANDLERS 83 | 84 | Net::Peep::Data::Conf::Classes 85 | Net::Peep::Data::Conf::General 86 | Net::Peep::Data::Clients 87 | Net::Peep::Data::Events 88 | Net::Peep::Data::Sounds 89 | Net::Peep::Data::States 90 | Net::Peep::Data::Themes 91 | 92 | =head1 AUTHOR 93 | 94 | Collin Starkweather Copyright (C) 2001 95 | 96 | =head1 SEE ALSO 97 | 98 | perl(1), peepd(1), Net::Peep::Data 99 | 100 | http://peep.sourceforge.net 101 | 102 | =cut 103 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/General/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Conf::General. 2 | 3 | 0.01 Fri Nov 2 22:14:38 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::Conf::General 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/General/General.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Conf::General; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Options; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'general'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( version=>1,sound_path=>1 ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 42 | options => 'Net::Peep::Data::Options', 43 | ); 44 | return wantarray ? %handlers : \%handlers; 45 | 46 | } # end sub Handlers 47 | 48 | 1; 49 | 50 | __END__ 51 | 52 | =head1 NAME 53 | 54 | Net::Peep::Data::Conf::General - Perl extension for representing general class 55 | configuration information. 56 | 57 | =head1 SYNOPSIS 58 | 59 | use Net::Peep::Data::Conf::General; 60 | 61 | =head1 DESCRIPTION 62 | 63 | See the C class for detailed information regarding Peep data 64 | classes. 65 | 66 | =head2 ATTRIBUTES 67 | 68 | version 69 | sound_path 70 | 71 | =head2 HANDLERS 72 | 73 | None. 74 | 75 | =head1 AUTHOR 76 | 77 | Collin Starkweather Copyright (C) 2001 78 | 79 | =head1 SEE ALSO 80 | 81 | perl(1), peepd(1), Net::Peep::Data 82 | 83 | http://peep.sourceforge.net 84 | 85 | =cut 86 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/General/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | General.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/General/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/General/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Conf::General', 6 | 'VERSION_FROM' => 'General.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/General/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Conf/General/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/General/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Conf::General; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Conf.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Conf', 6 | 'VERSION_FROM' => 'Conf.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Conf/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Conf/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Conf; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Event/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Event/Event.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Event; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | 10 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 11 | 12 | @ISA = qw(Exporter Net::Peep::Data); 13 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 14 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 15 | @EXPORT = qw( ); 16 | $VERSION = do { my @r = (q$Revision: 1.6 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 17 | 18 | sub new { 19 | 20 | my $self = shift; 21 | my $class = ref($self) || $self; 22 | my $this = {}; 23 | bless $this, $class; 24 | 25 | } # end sub new 26 | 27 | sub Name { return 'event'; } # end sub Name 28 | 29 | sub Attributes { 30 | 31 | my $self = shift; 32 | my %attributes = ( 33 | name => 1, 34 | sound => 1, 35 | description => 1 36 | ); 37 | return wantarray ? %attributes : \%attributes; 38 | 39 | } # end sub Attributes 40 | 41 | sub Handlers { 42 | 43 | my $self = shift; 44 | my %handlers = ( ); 45 | return wantarray ? %handlers : \%handlers; 46 | 47 | } # end sub Handlers 48 | 49 | 1; 50 | __END__ 51 | 52 | =head1 NAME 53 | 54 | Net::Peep::Data::Event - Perl extension for representing event configuration 55 | information. 56 | 57 | =head1 SYNOPSIS 58 | 59 | use Net::Peep::Data::Event; 60 | 61 | =head1 DESCRIPTION 62 | 63 | See the C class for detailed information regarding Peep data 64 | classes. 65 | 66 | =head2 ATTRIBUTES 67 | 68 | name 69 | sound 70 | description 71 | 72 | =head2 HANDLERS 73 | 74 | None. 75 | 76 | =head1 AUTHOR 77 | 78 | Collin Starkweather Copyright (C) 2001 79 | 80 | =head1 SEE ALSO 81 | 82 | perl(1), peepd(1), Net::Peep::Data 83 | 84 | http://peep.sourceforge.net 85 | 86 | =cut 87 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Event/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Event.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Event/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Event/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Event', 6 | 'VERSION_FROM' => 'Event.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Event/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Event/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Event/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Event; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Events/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Events. 2 | 3 | 0.01 Sat Oct 27 12:58:45 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::Events 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Events/Events.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Events; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Event; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'events'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 'event' => 'Net::Peep::Data::Event' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | 48 | __END__ 49 | 50 | =head1 NAME 51 | 52 | Net::Peep::Data::Events - Perl extension for representing event configuration 53 | information. 54 | 55 | =head1 SYNOPSIS 56 | 57 | use Net::Peep::Data::Events; 58 | 59 | =head1 DESCRIPTION 60 | 61 | See the C class for detailed information regarding Peep data 62 | classes. 63 | 64 | =head2 ATTRIBUTES 65 | 66 | None. 67 | 68 | =head2 HANDLERS 69 | 70 | Net::Peep::Data::Event 71 | 72 | =head1 AUTHOR 73 | 74 | Collin Starkweather Copyright (C) 2001 75 | 76 | =head1 SEE ALSO 77 | 78 | perl(1), peepd(1), Net::Peep::Data 79 | 80 | http://peep.sourceforge.net 81 | 82 | =cut 83 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Events/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Events.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Events/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Events/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Events', 6 | 'VERSION_FROM' => 'Events.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Events/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Events/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Events/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Events; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Host/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Host/Host.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Host; 2 | 3 | require 5.005_62; 4 | use strict; 5 | use warnings; 6 | 7 | require Exporter; 8 | 9 | our @ISA = qw(Exporter); 10 | 11 | # Items to export into callers namespace by default. Note: do not export 12 | # names by default without a very good reason. Use EXPORT_OK instead. 13 | # Do not simply export all your public functions/methods/constants. 14 | 15 | # This allows declaration use Net::Peep::Data::Host ':all'; 16 | # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK 17 | # will save memory. 18 | our %EXPORT_TAGS = ( 'all' => [ qw( 19 | 20 | ) ] ); 21 | 22 | our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 23 | 24 | our @EXPORT = qw( 25 | 26 | ); 27 | our $VERSION = '0.01'; 28 | 29 | 30 | # Preloaded methods go here. 31 | 32 | 1; 33 | __END__ 34 | 35 | =head1 NAME 36 | 37 | Net::Peep::Data::Host - Perl extension for representing host configuration 38 | information. 39 | 40 | =head1 SYNOPSIS 41 | 42 | use Net::Peep::Data::Host; 43 | 44 | =head1 DESCRIPTION 45 | 46 | This class has been deprecated. 47 | 48 | =head1 AUTHOR 49 | 50 | Collin Starkweather Copyright (C) 2001 51 | 52 | =head1 SEE ALSO 53 | 54 | perl(1), peepd(1), Net::Peep::Data 55 | 56 | http://peep.sourceforge.net 57 | 58 | =cut 59 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Host/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Host.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Host/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Host/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Host', 6 | 'VERSION_FROM' => 'Host.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Host/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Host/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Host/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Host; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Data.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data', 6 | 'VERSION_FROM' => 'Data.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Notice/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Notice. 2 | 3 | 0.01 Sun Feb 24 15:28:40 2002 4 | - original version; created by h2xs 1.21 with options 5 | -XA Net::Peep::Data::Notice 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Notice/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Makefile.PL 3 | MANIFEST 4 | Notice.pm 5 | README 6 | test.pl 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Notice/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Notice', 6 | 'VERSION_FROM' => 'Notice.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ($] >= 5.005 ? ## Add these new keywords supported since 5.005 9 | (ABSTRACT_FROM => 'Notice.pm', # retrieve abstract from module 10 | AUTHOR => 'A. U. Thor ') : ()), 11 | ); 12 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Notice/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Notice/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Notice/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### 5 | 6 | # change 'tests => 1' to 'tests => last_test_to_print'; 7 | 8 | use Test; 9 | BEGIN { plan tests => 1 }; 10 | use Net::Peep::Data::Notice; 11 | ok(1); # If we made it this far, we're ok. 12 | 13 | ######################### 14 | 15 | # Insert your test code below, the Test module is use()ed here so read 16 | # its man page ( perldoc Test ) for help writing this test script. 17 | 18 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Option/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Option. 2 | 3 | 0.01 Sat Mar 2 15:15:33 2002 4 | - original version; created by h2xs 1.21 with options 5 | -XA Net::Peep::Data::Option 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Option/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Makefile.PL 3 | MANIFEST 4 | Option.pm 5 | README 6 | test.pl 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Option/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Option', 6 | 'VERSION_FROM' => 'Option.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ($] >= 5.005 ? ## Add these new keywords supported since 5.005 9 | (ABSTRACT_FROM => 'Option.pm', # retrieve abstract from module 10 | AUTHOR => 'A. U. Thor ') : ()), 11 | ); 12 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Option/Option.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Option; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | 10 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 11 | 12 | @ISA = qw(Exporter Net::Peep::Data); 13 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 14 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 15 | @EXPORT = qw( ); 16 | $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 17 | 18 | sub new { 19 | 20 | my $self = shift; 21 | my $class = ref($self) || $self; 22 | my $this = {}; 23 | bless $this, $class; 24 | 25 | } # end sub new 26 | 27 | sub Name { return 'option'; } # end sub Name 28 | 29 | sub Attributes { 30 | 31 | my $self = shift; 32 | my %attributes = ( name=>1,value=>1 ); 33 | return wantarray ? %attributes : \%attributes; 34 | 35 | } # end sub Attributes 36 | 37 | sub Handlers { 38 | 39 | my $self = shift; 40 | my %handlers = ( ); 41 | return wantarray ? %handlers : \%handlers; 42 | 43 | } # end sub Handlers 44 | 45 | 1; 46 | __END__ 47 | 48 | =head1 NAME 49 | 50 | Net::Peep::Data::Option - Perl extension for representing command-line, global 51 | and client configuration option information. 52 | 53 | =head1 SYNOPSIS 54 | 55 | use Net::Peep::Data::Option; 56 | 57 | =head1 DESCRIPTION 58 | 59 | See the C class for detailed information regarding Peep data 60 | classes. 61 | 62 | =head2 ATTRIBUTES 63 | 64 | name 65 | value 66 | 67 | =head2 HANDLERS 68 | 69 | None. 70 | 71 | =head1 AUTHOR 72 | 73 | Collin Starkweather Copyright (C) 2001 74 | 75 | =head1 SEE ALSO 76 | 77 | perl(1), peepd(1), Net::Peep::Data 78 | 79 | http://peep.sourceforge.net 80 | 81 | =cut 82 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Option/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Option/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Option/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### 5 | 6 | # change 'tests => 1' to 'tests => last_test_to_print'; 7 | 8 | use Test; 9 | BEGIN { plan tests => 1 }; 10 | use Net::Peep::Data::Option; 11 | ok(1); # If we made it this far, we're ok. 12 | 13 | ######################### 14 | 15 | # Insert your test code below, the Test module is use()ed here so read 16 | # its man page ( perldoc Test ) for help writing this test script. 17 | 18 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Options/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Options. 2 | 3 | 0.01 Sat Mar 2 15:15:36 2002 4 | - original version; created by h2xs 1.21 with options 5 | -XA Net::Peep::Data::Options 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Options/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Makefile.PL 3 | MANIFEST 4 | Options.pm 5 | README 6 | test.pl 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Options/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Options', 6 | 'VERSION_FROM' => 'Options.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ($] >= 5.005 ? ## Add these new keywords supported since 5.005 9 | (ABSTRACT_FROM => 'Options.pm', # retrieve abstract from module 10 | AUTHOR => 'A. U. Thor ') : ()), 11 | ); 12 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Options/Options.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Options; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Option; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'options'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 'option' => 'Net::Peep::Data::Option' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | __END__ 48 | 49 | =head1 NAME 50 | 51 | Net::Peep::Data::Options - Perl extension for representing command-line, global 52 | and client configuration option information. 53 | 54 | =head1 SYNOPSIS 55 | 56 | use Net::Peep::Data::Options; 57 | 58 | =head1 DESCRIPTION 59 | 60 | See the C class for detailed information regarding Peep data 61 | classes. 62 | 63 | =head2 ATTRIBUTES 64 | 65 | None. 66 | 67 | =head2 HANDLERS 68 | 69 | Net::Peep::Data::Option 70 | 71 | =head1 AUTHOR 72 | 73 | Collin Starkweather Copyright (C) 2001 74 | 75 | =head1 SEE ALSO 76 | 77 | perl(1), peepd(1), Net::Peep::Data 78 | 79 | http://peep.sourceforge.net 80 | 81 | =cut 82 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Options/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Options/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Options/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### 5 | 6 | # change 'tests => 1' to 'tests => last_test_to_print'; 7 | 8 | use Test; 9 | BEGIN { plan tests => 1 }; 10 | use Net::Peep::Data::Options; 11 | ok(1); # If we made it this far, we're ok. 12 | 13 | ######################### 14 | 15 | # Insert your test code below, the Test module is use()ed here so read 16 | # its man page ( perldoc Test ) for help writing this test script. 17 | 18 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Pool/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Pool. 2 | 3 | 0.01 Thu Oct 25 23:55:10 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::Pool 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Pool/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Pool.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Pool/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Pool/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Pool', 6 | 'VERSION_FROM' => 'Pool.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Pool/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Pool/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Pool/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Pool; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sound/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sound/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Sound.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sound/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sound/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Sound', 6 | 'VERSION_FROM' => 'Sound.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sound/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Sound/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sound/Sound.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Sound; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | 10 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 11 | 12 | @ISA = qw(Exporter Net::Peep::Data); 13 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 14 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 15 | @EXPORT = qw( ); 16 | $VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 17 | 18 | sub new { 19 | 20 | my $self = shift; 21 | my $class = ref($self) || $self; 22 | my $this = $class->SUPER::new(); 23 | bless $this, $class; 24 | 25 | } # end sub new 26 | 27 | sub Name { return 'sound'; } # end sub Name 28 | 29 | sub Attributes { 30 | 31 | my $self = shift; 32 | my %attributes = ( name=>1,category=>1,type=>1,format=>1,length=>1,description=>1,path=>1 ); 33 | return wantarray ? %attributes : \%attributes; 34 | 35 | } # end sub Attributes 36 | 37 | sub Handlers { 38 | 39 | my $self = shift; 40 | my %handlers = ( ); 41 | return wantarray ? %handlers : \%handlers; 42 | 43 | } # end sub Handlers 44 | 45 | 1; 46 | 47 | __END__ 48 | 49 | =head1 NAME 50 | 51 | Net::Peep::Data::Sound - Perl extension for representing sound configuration 52 | information. 53 | 54 | =head1 SYNOPSIS 55 | 56 | use Net::Peep::Data::Sound; 57 | 58 | =head1 DESCRIPTION 59 | 60 | See the C class for detailed information regarding Peep data 61 | classes. 62 | 63 | =head2 ATTRIBUTES 64 | 65 | name 66 | category 67 | type 68 | format 69 | length 70 | description 71 | path 72 | 73 | =head2 HANDLERS 74 | 75 | None. 76 | 77 | =head1 AUTHOR 78 | 79 | Collin Starkweather Copyright (C) 2001 80 | 81 | =head1 SEE ALSO 82 | 83 | perl(1), peepd(1), Net::Peep::BC, Net::Peep::Parser, Net::Peep::Log. 84 | 85 | http://peep.sourceforge.net 86 | 87 | =cut 88 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sound/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Sound; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sounds/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Sounds. 2 | 3 | 0.01 Sat Oct 27 12:22:54 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::Sounds 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sounds/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Sounds.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sounds/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sounds/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Sounds', 6 | 'VERSION_FROM' => 'Sounds.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sounds/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Sounds/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sounds/Sounds.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Sounds; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Sound; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'sounds'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 'sound' => 'Net::Peep::Data::Sound' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | 48 | __END__ 49 | 50 | =head1 NAME 51 | 52 | Net::Peep::Data::Sounds - Perl extension for representing sound configuration 53 | information. 54 | 55 | =head1 SYNOPSIS 56 | 57 | use Net::Peep::Data::Sounds; 58 | 59 | =head1 DESCRIPTION 60 | 61 | See the C class for detailed information regarding Peep data 62 | classes. 63 | 64 | =head2 ATTRIBUTES 65 | 66 | None. 67 | 68 | =head2 HANDLERS 69 | 70 | Net::Peep::Data::Sound 71 | 72 | =head1 AUTHOR 73 | 74 | Collin Starkweather Copyright (C) 2001 75 | 76 | =head1 SEE ALSO 77 | 78 | perl(1), peepd(1), Net::Peep::Data 79 | 80 | http://peep.sourceforge.net 81 | 82 | =cut 83 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Sounds/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Sounds; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | State.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::State', 6 | 'VERSION_FROM' => 'State.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/State/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/State.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::State; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::State::ThreshHolds; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.6 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = {}; 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'state'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( name=>1,description=>1,path=>1 ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( threshholds => 'Net::Peep::Data::State::ThreshHolds' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | 48 | __END__ 49 | 50 | =head1 NAME 51 | 52 | Net::Peep::Data::State - Perl extension for representing state configuration 53 | information. 54 | 55 | =head1 SYNOPSIS 56 | 57 | use Net::Peep::Data::State; 58 | 59 | =head1 DESCRIPTION 60 | 61 | See the C class for detailed information regarding Peep data 62 | classes. 63 | 64 | =head2 ATTRIBUTES 65 | 66 | name 67 | description 68 | path 69 | 70 | =head2 HANDLERS 71 | 72 | Net::Peep::Data::State::ThreshHolds 73 | 74 | =head1 AUTHOR 75 | 76 | Collin Starkweather Copyright (C) 2001 77 | 78 | =head1 SEE ALSO 79 | 80 | perl(1), peepd(1), Net::Peep::Data 81 | 82 | http://peep.sourceforge.net 83 | 84 | =cut 85 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHold/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::State::ThreshHold. 2 | 3 | 0.01 Sat Nov 3 10:34:03 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::State::ThreshHold 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHold/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | ThreshHold.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHold/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHold/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::State::ThreshHold', 6 | 'VERSION_FROM' => 'ThreshHold.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHold/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/State/ThreshHold/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHold/ThreshHold.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::State::ThreshHold; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | 10 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 11 | 12 | @ISA = qw(Exporter Net::Peep::Data); 13 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 14 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 15 | @EXPORT = qw( ); 16 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 17 | 18 | sub new { 19 | 20 | my $self = shift; 21 | my $class = ref($self) || $self; 22 | my $this = {}; 23 | bless $this, $class; 24 | 25 | } # end sub new 26 | 27 | sub Name { return 'threshhold'; } # end sub Name 28 | 29 | sub Attributes { 30 | 31 | my $self = shift; 32 | my %attributes = ( level=>1,sound=>1,fade=>1 ); 33 | return wantarray ? %attributes : \%attributes; 34 | 35 | } # end sub Attributes 36 | 37 | sub Handlers { 38 | 39 | my $self = shift; 40 | my %handlers = ( ); 41 | return wantarray ? %handlers : \%handlers; 42 | 43 | } # end sub Handlers 44 | 45 | 1; 46 | 47 | __END__ 48 | 49 | =head1 NAME 50 | 51 | Net::Peep::Data::State::ThreshHold - Perl extension for representing state 52 | threshhold configuration information. 53 | 54 | =head1 SYNOPSIS 55 | 56 | use Net::Peep::Data::State::ThreshHold; 57 | 58 | =head1 DESCRIPTION 59 | 60 | See the C class for detailed information regarding Peep data 61 | classes. 62 | 63 | =head2 ATTRIBUTES 64 | 65 | level 66 | sound 67 | fade 68 | 69 | =head2 HANDLERS 70 | 71 | None. 72 | 73 | =head1 AUTHOR 74 | 75 | Collin Starkweather Copyright (C) 2001 76 | 77 | =head1 SEE ALSO 78 | 79 | perl(1), peepd(1), Net::Peep::Data 80 | 81 | http://peep.sourceforge.net 82 | 83 | =cut 84 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHold/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::State::ThreshHold; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHolds/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::State::ThreshHolds. 2 | 3 | 0.01 Tue Mar 12 10:35:51 2002 4 | - original version; created by h2xs 1.21 with options 5 | -XA Net::Peep::Data::State::ThreshHolds 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHolds/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Makefile.PL 3 | MANIFEST 4 | README 5 | test.pl 6 | ThreshHolds.pm 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHolds/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHolds/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::State::ThreshHolds', 6 | 'VERSION_FROM' => 'ThreshHolds.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ($] >= 5.005 ? ## Add these new keywords supported since 5.005 9 | (ABSTRACT_FROM => 'ThreshHolds.pm', # retrieve abstract from module 10 | AUTHOR => 'A. U. Thor ') : ()), 11 | ); 12 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHolds/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/State/ThreshHolds/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHolds/ThreshHolds.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::State::ThreshHolds; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::State::ThreshHold; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'threshholds'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 'threshhold' => 'Net::Peep::Data::State::ThreshHold' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | __END__ 48 | 49 | =head1 NAME 50 | 51 | Net::Peep::Data::State::ThreshHolds - Perl extension for representing state 52 | threshhold configuration information. 53 | 54 | =head1 SYNOPSIS 55 | 56 | use Net::Peep::Data::State::ThreshHold; 57 | 58 | =head1 DESCRIPTION 59 | 60 | See the C class for detailed information regarding Peep data 61 | classes. 62 | 63 | =head2 ATTRIBUTES 64 | 65 | None. 66 | 67 | =head2 HANDLERS 68 | 69 | Net::Peep::Data::State::ThreshHolds 70 | 71 | =head1 AUTHOR 72 | 73 | Collin Starkweather Copyright (C) 2001 74 | 75 | =head1 SEE ALSO 76 | 77 | perl(1), peepd(1), Net::Peep::Data 78 | 79 | http://peep.sourceforge.net 80 | 81 | =cut 82 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/ThreshHolds/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### 5 | 6 | # change 'tests => 1' to 'tests => last_test_to_print'; 7 | 8 | use Test; 9 | BEGIN { plan tests => 1 }; 10 | use Net::Peep::Data::State::ThreshHolds; 11 | ok(1); # If we made it this far, we're ok. 12 | 13 | ######################### 14 | 15 | # Insert your test code below, the Test module is use()ed here so read 16 | # its man page ( perldoc Test ) for help writing this test script. 17 | 18 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/State/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::State; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/States/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::States. 2 | 3 | 0.01 Sat Oct 27 12:58:36 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::States 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/States/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | States.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/States/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/States/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::States', 6 | 'VERSION_FROM' => 'States.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/States/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/States/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/States/States.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::States; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::State; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'states'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 'state' => 'Net::Peep::Data::State' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | 48 | __END__ 49 | 50 | =head1 NAME 51 | 52 | Net::Peep::Data::States - Perl extension for representing state configuration 53 | information. 54 | 55 | =head1 SYNOPSIS 56 | 57 | use Net::Peep::Data::States; 58 | 59 | =head1 DESCRIPTION 60 | 61 | See the C class for detailed information regarding Peep data 62 | classes. 63 | 64 | =head2 ATTRIBUTES 65 | 66 | None. 67 | 68 | =head2 HANDLERS 69 | 70 | Net::Peep::Data::State 71 | 72 | =head1 AUTHOR 73 | 74 | Collin Starkweather Copyright (C) 2001 75 | 76 | =head1 SEE ALSO 77 | 78 | perl(1), peepd(1), Net::Peep::BC, Net::Peep::Parser, Net::Peep::Log. 79 | 80 | http://peep.sourceforge.net 81 | 82 | =cut 83 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/States/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::States; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Theme/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Theme/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Theme.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Theme/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Theme/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Theme', 6 | 'VERSION_FROM' => 'Theme.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Theme/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Theme/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Theme/Theme.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Theme; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Sounds; 10 | use Net::Peep::Data::Events; 11 | use Net::Peep::Data::States; 12 | use Net::Peep::Data::Clients; 13 | 14 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 15 | 16 | @ISA = qw(Exporter Net::Peep::Data); 17 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 18 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 19 | @EXPORT = qw( ); 20 | $VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 21 | 22 | sub new { 23 | 24 | my $self = shift; 25 | my $class = ref($self) || $self; 26 | my $this = $class->SUPER::new(); 27 | bless $this, $class; 28 | 29 | } # end sub new 30 | 31 | sub Name { return 'theme'; } # end sub Name 32 | 33 | sub Attributes { 34 | 35 | my $self = shift; 36 | my %attributes = ( name=>1,description=>1,author=>1 ); 37 | return wantarray ? %attributes : \%attributes; 38 | 39 | } # end sub Attributes 40 | 41 | sub Handlers { 42 | 43 | my $self = shift; 44 | my %handlers = ( 45 | 'sounds' => 'Net::Peep::Data::Sounds', 46 | 'events' => 'Net::Peep::Data::Events' , 47 | 'states' => 'Net::Peep::Data::States', 48 | 'clients' => 'Net::Peep::Data::Clients' 49 | ); 50 | return wantarray ? %handlers : \%handlers; 51 | 52 | } # end sub Handlers 53 | 54 | 1; 55 | 56 | __END__ 57 | 58 | =head1 NAME 59 | 60 | Net::Peep::Data::Theme - Perl extension for representing theme configuration 61 | information. 62 | 63 | =head1 SYNOPSIS 64 | 65 | use Net::Peep::Data::Theme; 66 | 67 | =head1 DESCRIPTION 68 | 69 | See the C class for detailed information regarding Peep data 70 | classes. 71 | 72 | =head2 ATTRIBUTES 73 | 74 | name 75 | description 76 | author 77 | 78 | =head2 HANDLERS 79 | 80 | Net::Peep::Data::Sounds 81 | Net::Peep::Data::Events 82 | Net::Peep::Data::States 83 | Net::Peep::Data::Clients 84 | 85 | =head1 AUTHOR 86 | 87 | Collin Starkweather Copyright (C) 2001 88 | 89 | =head1 SEE ALSO 90 | 91 | perl(1), peepd(1), Net::Peep::Data 92 | 93 | http://peep.sourceforge.net 94 | 95 | =cut 96 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Theme/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Theme; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Themes/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::Themes. 2 | 3 | 0.01 Sat Nov 3 17:46:09 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::Themes 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Themes/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Themes.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Themes/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::Themes', 6 | 'VERSION_FROM' => 'Themes.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Themes/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/Themes/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/Themes/Themes.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::Themes; 2 | 3 | require 5.00503; 4 | use strict; 5 | # use warnings; # commented out for 5.005 compatibility 6 | use Carp; 7 | require Exporter; 8 | use Net::Peep::Data; 9 | use Net::Peep::Data::Theme; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter Net::Peep::Data); 14 | %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); 15 | @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = $class->SUPER::new(); 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub Name { return 'themes'; } # end sub Name 29 | 30 | sub Attributes { 31 | 32 | my $self = shift; 33 | my %attributes = ( ); 34 | return wantarray ? %attributes : \%attributes; 35 | 36 | } # end sub Attributes 37 | 38 | sub Handlers { 39 | 40 | my $self = shift; 41 | my %handlers = ( 'theme' => 'Net::Peep::Data::Theme' ); 42 | return wantarray ? %handlers : \%handlers; 43 | 44 | } # end sub Handlers 45 | 46 | 1; 47 | 48 | __END__ 49 | 50 | =head1 NAME 51 | 52 | Net::Peep::Data::Themes - Perl extension for representing theme configuration 53 | information. 54 | 55 | =head1 SYNOPSIS 56 | 57 | use Net::Peep::Data::Themes; 58 | 59 | =head1 DESCRIPTION 60 | 61 | See the C class for detailed information regarding Peep data 62 | classes. 63 | 64 | =head2 ATTRIBUTES 65 | 66 | None. 67 | 68 | =head2 HANDLERS 69 | 70 | Net::Peep::Data::Theme 71 | 72 | =head1 AUTHOR 73 | 74 | Collin Starkweather Copyright (C) 2001 75 | 76 | =head1 SEE ALSO 77 | 78 | perl(1), peepd(1), Net::Peep::Data 79 | 80 | http://peep.sourceforge.net 81 | 82 | =cut 83 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/Themes/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::Themes; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/XML/Changes: -------------------------------------------------------------------------------- 1 | Revision history for Perl extension Net::Peep::Data::XML. 2 | 3 | 0.01 Fri Oct 19 21:22:38 2001 4 | - original version; created by h2xs 1.20 with options 5 | -XA Net::Peep::Data::XML 6 | 7 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/XML/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | XML.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/XML/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/XML/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Data::XML', 6 | 'VERSION_FROM' => 'XML.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/XML/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Data/XML/README -------------------------------------------------------------------------------- /client/Net/Peep/Data/XML/XML.pm: -------------------------------------------------------------------------------- 1 | package Net::Peep::Data::XML; 2 | 3 | require 5.005; 4 | use strict; 5 | use Carp; 6 | use Data::Dumper; 7 | use Net::Peep::Log; 8 | 9 | require Exporter; 10 | 11 | use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION }; 12 | 13 | @ISA = qw(Exporter); 14 | %EXPORT_TAGS = ( ); 15 | @EXPORT_OK = ( ); 16 | @EXPORT = qw( ); 17 | $VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 18 | 19 | sub new { 20 | 21 | my $self = shift; 22 | my $class = ref($self) || $self; 23 | my $this = {}; 24 | bless $this, $class; 25 | 26 | } # end sub new 27 | 28 | sub clean { 29 | 30 | # clean up any problems that would vex XML::Parser in parsing a 31 | # string 32 | my $self = shift; 33 | my $string = shift; 34 | return undef unless defined $string; # throws a warning otherwise 35 | # extract wierd characters such as umlauts 36 | my $match = '\w\s' . quotemeta('!@#$%^&*()-_=+\|{}[];:",<.>/?`~' . qq{\'}); 37 | $string =~ s/[^$match]//gs; 38 | # extract what would otherwise appear to be 'undefined entities' 39 | # to XML::Parser 40 | my @entities = $string =~ /(\&\w+\;)/g; 41 | my %entities; 42 | $entities{$_}++ foreach @entities; 43 | for my $entity (grep !/&(lt|gt);/, keys %entities) { 44 | my $match = quotemeta($entity); 45 | $string =~ s/$match/ /gs; 46 | } 47 | return $string; 48 | 49 | } # end sub clean 50 | 51 | sub unmark { 52 | 53 | my $self = shift; 54 | my $string = shift; 55 | return undef unless defined $string; # throws a warning otherwise 56 | $string =~ s//>/g; 58 | return $string; 59 | 60 | } # end sub unmark 61 | 62 | 1; 63 | __END__ 64 | 65 | =head1 NAME 66 | 67 | Net::Peep::Data::XML - Utility for managing XML strings 68 | 69 | =head1 SYNOPSIS 70 | 71 | use Net::Peep::Data::XML; 72 | my $vaccuum = new Net::Peep::Data::XML; 73 | $vaccuum->clean($xml); 74 | 75 | =head1 DESCRIPTION 76 | 77 | Peep utility for managing XML strings. 78 | 79 | =head2 EXPORT 80 | 81 | None by default. 82 | 83 | =head1 METHODS 84 | 85 | clean($string) - Uses a regex to identify and remove any problems 86 | that would vex XML::Parser in parsing a string. Returns a cleaned 87 | string. 88 | 89 | unmark($string) - Substitutes < and > for < and >, which would 90 | otherwise be erroneously perceived as XML markup. Returns the 91 | modified string. 92 | 93 | =head1 AUTHOR 94 | 95 | Collin Starkweather 96 | 97 | Copyright (C) 2001 98 | 99 | =head1 SEE ALSO 100 | 101 | perl(1), peepd(1), Net::Peep::Data. 102 | 103 | http://peep.sourceforge.net 104 | 105 | =cut 106 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/XML/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data::XML; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Data/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Data; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Host.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Host', 6 | 'VERSION_FROM' => 'Host.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/Pool/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/Pool/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Pool.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/Pool/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/Pool/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Host::Pool', 6 | 'VERSION_FROM' => 'Pool.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/Pool/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Host/Pool/README -------------------------------------------------------------------------------- /client/Net/Peep/Host/Pool/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Host::Pool; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Host/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Host/README -------------------------------------------------------------------------------- /client/Net/Peep/Host/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Host; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Log/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Log/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | Log.pm 3 | MANIFEST 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Log/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Log/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Log', 6 | 'VERSION_FROM' => 'Log.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Log/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Log/README -------------------------------------------------------------------------------- /client/Net/Peep/Log/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Log; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Mail/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Mail/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Mail.pm 4 | Makefile.PL 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Mail/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Mail/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Mail', 6 | 'VERSION_FROM' => 'Mail.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Mail/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Mail/README -------------------------------------------------------------------------------- /client/Net/Peep/Mail/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Mail; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep', 6 | 'VERSION' => '0.5.0', # VERSION_FROM seems to break 5.00503 7 | 'PREREQ_PM' => { 8 | File::Tail => 0.98, 9 | Time::HiRes => 1.20, 10 | Net::Ping::External => 0.06, 11 | Filesys::DiskFree => 0.06, 12 | Proc::ProcessTable => 0.32, 13 | File::MMagic => 1.06, 14 | XML::Parser => 2.30 15 | }, 16 | 'PM' => { 17 | 'Peep.pm' => '$(INST_LIB)/Net/Peep.pm', 18 | 'bin/peck' => '$(INST_SCRIPT)/peck', 19 | 'bin/logparser' => '$(INST_SCRIPT)/logparser', 20 | 'bin/sysmonitor' => '$(INST_SCRIPT)/sysmonitor', 21 | 'bin/keytest' => '$(INST_SCRIPT)/keytest', 22 | 'bin/pinger' => '$(INST_SCRIPT)/pinger', 23 | 'bin/traffic-monitor' => '$(INST_SCRIPT)/traffic-monitor' 24 | }, 25 | ($] >= 5.005 ? 26 | ('ABSTRACT' => 'Client modules for Peep: The Network Auralizer', 27 | 'AUTHOR' => 'Michael Gilfix ') : ()), 28 | 29 | ); 30 | -------------------------------------------------------------------------------- /client/Net/Peep/Notification/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Notification/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Notification.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Notification/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Notification/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Notification', 6 | 'VERSION_FROM' => 'Notification.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Notification/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Notification/README -------------------------------------------------------------------------------- /client/Net/Peep/Notification/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Notification; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Notifier/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Notifier/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Notifier.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Notifier/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Notifier/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Notifier', 6 | 'VERSION_FROM' => 'Notifier.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Notifier/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Notifier/README -------------------------------------------------------------------------------- /client/Net/Peep/Notifier/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Notifier; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Parser/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Parser/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Parser.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Parser/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Parser/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Parser', 6 | 'VERSION_FROM' => 'Parser.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Parser/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Parser/README -------------------------------------------------------------------------------- /client/Net/Peep/Parser/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Parser; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/Peck/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Peck/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Peck.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Peck/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Peck/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Peck', 6 | 'VERSION_FROM' => 'Peck.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Peck/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Peck/README -------------------------------------------------------------------------------- /client/Net/Peep/Peck/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Peck; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/README -------------------------------------------------------------------------------- /client/Net/Peep/Scheduler/Changes: -------------------------------------------------------------------------------- 1 | The change log can be found in both the CVS respository at 2 | 3 | cvs.peep.sourceforge.net:/cvs/peep 4 | 5 | and following the Log keyword in each the PODs for each 6 | module. 7 | 8 | Please contact collin.starkweather@colorado.edu with any 9 | questions. 10 | -------------------------------------------------------------------------------- /client/Net/Peep/Scheduler/MANIFEST: -------------------------------------------------------------------------------- 1 | Changes 2 | MANIFEST 3 | Makefile.PL 4 | Scheduler.pm 5 | test.pl 6 | -------------------------------------------------------------------------------- /client/Net/Peep/Scheduler/MANIFEST.SKIP: -------------------------------------------------------------------------------- 1 | \bCVS\b 2 | ^MANIFEST\. 3 | ~$ 4 | \.html$ 5 | \.old$ 6 | ^blib/ 7 | ^MakeMaker-\d 8 | -------------------------------------------------------------------------------- /client/Net/Peep/Scheduler/Makefile.PL: -------------------------------------------------------------------------------- 1 | use ExtUtils::MakeMaker; 2 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence 3 | # the contents of the Makefile that is written. 4 | WriteMakefile( 5 | 'NAME' => 'Net::Peep::Scheduler', 6 | 'VERSION_FROM' => 'Scheduler.pm', # finds $VERSION 7 | 'PREREQ_PM' => {}, # e.g., Module::Name => 1.1 8 | ); 9 | -------------------------------------------------------------------------------- /client/Net/Peep/Scheduler/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/Scheduler/README -------------------------------------------------------------------------------- /client/Net/Peep/Scheduler/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep::Scheduler; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /client/Net/Peep/bin/peck: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | use Net::Peep::Peck; 4 | my $peck = new Net::Peep::Peck; 5 | $peck->peck(); 6 | 7 | print "\nPeep!\n\n"; 8 | 9 | __END__ 10 | 11 | =head1 NAME 12 | 13 | peck - Ad-hoc sound generator for Peep: The Network Auralizer. 14 | 15 | =head1 USAGE 16 | 17 | peck --config=./peep.conf --server=SERVER --port=PORT [OPTIONS] --sound=rooster 18 | 19 | =head1 OPTIONS 20 | 21 | peck supports the following command-line options: 22 | 23 | --type The type of sound to produce (e.g., event=0, state=1) 24 | --sound The name or number of the sound to produce 25 | --location The location (left or right speaker) of the sound 26 | --volume The volume of the sound 27 | --priority A priority for producing the sound 28 | --dither The dither 29 | 30 | In addition, the following options are common to all Peep clients: 31 | 32 | --server The server to which the event will be directed 33 | --port The port to which the event will be directed 34 | --protocol=[tcp|udp] The protocol that will be used for client-server communication. 35 | (Def: tcp) 36 | --debug The debugging level (Def: 0) 37 | --output The file to send log output (Def: stderr) 38 | --help Prints a simple help message 39 | 40 | =head1 EXAMPLES 41 | 42 | peck --help 43 | 44 | peck --server=localhost --port=2001 --type=0 --sound=1 45 | 46 | peck --server=localhost --port=2001 --type=1 --sound=1 47 | 48 | =head1 ALTERNATIVES 49 | 50 | For information on how to sample individual sounds in the Peep sound 51 | repository, see the Net::Peep::Peck documentation. 52 | 53 | =head1 AUTHOR 54 | 55 | Michael Gilfix Copyright (C) 2001 56 | 57 | Collin Starkweather 58 | 59 | =head1 SEE ALSO 60 | 61 | perl(1), Net::Peep::Peck 62 | 63 | http://peep.sourceforge.net 64 | 65 | =cut 66 | -------------------------------------------------------------------------------- /client/Net/Peep/bin/peepd: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl -w 2 | 3 | use strict; 4 | use Carp; 5 | use Data::Dumper; 6 | use Sys::Hostname; 7 | use File::Tail; 8 | use Net::Peep::BC; 9 | use Net::Peep::Data::Notice; 10 | use Net::Peep::Client; 11 | use Net::Peep::Log; 12 | use Net::Peep::Notifier; 13 | use Net::Peep::Notification; 14 | use Net::Peep::Host::Pool; 15 | 16 | use vars qw{ $LOGGER $PECKER @EVENTS @TAILS }; 17 | $LOGGER = new Net::Peep::Log; 18 | 19 | my $client = new Net::Peep::Client; 20 | 21 | $client->name('peepd'); 22 | 23 | 24 | $client->parser(sub { my @text = @_; &parse($client,@text); }); 25 | my $conf = $client->configure(); 26 | 27 | # Register a callback for the main loop 28 | $LOGGER->debug(9,"Registering callback ..."); 29 | $client->callback(sub { &loop($client,$conf); }); 30 | $LOGGER->debug(9,"\tCallback registered ..."); 31 | 32 | # Some signal handling to promote clean exits 33 | $SIG{'INT'} = $SIG{'TERM'} = sub { $client->shutdown(); exit 0; }; 34 | 35 | $LOGGER->debug(9,"Executing main loop ..."); 36 | $client->MainLoop(); 37 | 38 | sub loop { 39 | 40 | my $client = shift || "Error: Net::Peep::Client object not found"; 41 | my $conf = shift || "Error: Net::Peep::Conf object not found"; 42 | 43 | select(STDOUT); 44 | 45 | $| = 1; # autoflush 46 | 47 | my $nfound; 48 | 49 | return 1; 50 | 51 | } # end sub loop 52 | sub parse { 53 | 54 | my $client = shift || confess "Error: Net::Peep::Client object not found"; 55 | my @text = @_; 56 | 57 | $LOGGER->debug(1,"\t\tParsing events for client [logparser] [".scalar(@text)."] lines ..."); 58 | 59 | my @events = &getConfigSection('events',@text); 60 | 61 | if ($client->conf()->versionOK()) { 62 | 63 | while (my $line = shift @events) { 64 | next if $line =~ /^\s*#/ || $line =~ /^\s*$/; 65 | 66 | my $name; 67 | if ($line =~ /^\s*([\w-]+)\s+([\w-]+)\s+(\d+)\s+(\d+)\s+(\w+)\s+"(.*)"\s+([\w\-\.]+)/) { 68 | 69 | my $event = {}; 70 | $event->{'name'} = $1; 71 | $event->{'group'} = $2; 72 | $event->{'location'} = $3; 73 | $event->{'priority'} = $4; 74 | $event->{'notification'} = $5; 75 | $event->{'regex'} = $6; 76 | $event->{'hosts'} = $7; 77 | 78 | my $pool = new Net::Peep::Host::Pool; 79 | $pool->addHosts($event->{'hosts'}); 80 | 81 | $event->{'pool'} = $pool; 82 | 83 | push @EVENTS, $event; 84 | $LOGGER->debug(1,"\t\t\tClient event [$1] added."); 85 | 86 | } else { print STDERR "!: The line [$line] didn't match\n" } 87 | 88 | } 89 | 90 | } else { 91 | 92 | confess "You appear to be using a configuration file ". 93 | "version (".$client->conf()->getVersion().") ". 94 | "that is no longer supported."; 95 | 96 | } 97 | 98 | return @text; 99 | 100 | } # end sub parse 101 | -------------------------------------------------------------------------------- /client/Net/Peep/t/010.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::Sound class 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 010.t 8 | 9 | # Tests Peep sound configuration parsing and the client configuration 10 | # process 11 | 12 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..4\n"; } 13 | END {print "not ok\n", exit 1 unless $loaded;} 14 | 15 | use Net::Peep::Data::Sound; 16 | use Net::Peep::Log; 17 | 18 | $loaded = 1; 19 | 20 | print "ok\n"; 21 | 22 | $Test::Harness::verbose = 1; 23 | $Net::Peep::Log::debug=3; 24 | 25 | my ($sound); 26 | 27 | eval { 28 | $sound = new Net::Peep::Data::Sound; 29 | }; 30 | 31 | if ($@) { 32 | print "not ok: $@\n"; 33 | exit 1; 34 | } else { 35 | print "ok\n"; 36 | } 37 | 38 | print STDERR "\nTesting Peep sound data class:\n"; 39 | 40 | eval { 41 | my $xml = join '', ; 42 | $sound->deserialize($xml); 43 | }; 44 | 45 | if ($@) { 46 | print STDERR "not ok: $@"; 47 | exit 1; 48 | } else { 49 | print "ok\n"; 50 | } 51 | 52 | if ($sound->name() eq 'Redwing Blackbird 1' and $sound->description() eq '3 quick chirps followed by a long call.') { 53 | print "ok\n"; 54 | exit 0; 55 | } else { 56 | print STDERR "not ok: The sound data was not parsed correctly."; 57 | exit 1; 58 | } 59 | 60 | __DATA__ 61 | 62 | Wetlands 63 | event 64 | 65 | raw 66 | 2.8 sec 67 | 3 quick chirps followed by a long call. 68 | /usr/local/share/peep/events/wetlands/sounds/redwing-blackbird-01.01 69 | 70 | -------------------------------------------------------------------------------- /client/Net/Peep/t/020.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::State and Net::Peep::Data::State::ThreshHolds classes 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 020.t 8 | 9 | # Tests Peep state configuration parsing and the client configuration 10 | # process 11 | 12 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..5\n"; } 13 | END {print "not ok\n", exit 1 unless $loaded;} 14 | 15 | use Net::Peep::Log; 16 | use Net::Peep::Data::State; 17 | 18 | $loaded = 1; 19 | 20 | print "ok\n"; 21 | 22 | $Test::Harness::verbose = 1; 23 | $Net::Peep::Log::debug=3; 24 | 25 | my ($state,$threshholds,$threshhold); 26 | 27 | eval { 28 | $state = new Net::Peep::Data::State; 29 | }; 30 | 31 | if ($@) { 32 | print "not ok: $@\n"; 33 | exit 1; 34 | } else { 35 | print "ok\n"; 36 | } 37 | 38 | print STDERR "\nTesting Peep state data class:\n"; 39 | 40 | eval { 41 | my $xml = join '', ; 42 | $state->deserialize($xml); 43 | ($threshholds) = $state->threshholds(); 44 | ($threshhold) = $threshholds->threshhold(); 45 | }; 46 | 47 | if ($@) { 48 | print STDERR "not ok: $@"; 49 | exit 1; 50 | } else { 51 | print "ok\n"; 52 | } 53 | 54 | if ($state->name() eq 'Test' and $state->description() eq 'This is a test.' and 55 | $threshhold->level() == 0.5) { 56 | print "ok\n"; 57 | } else { 58 | print STDERR "not ok: The state data was not parsed correctly."; 59 | } 60 | 61 | eval { 62 | print STDERR "\n", $state->serialize(); 63 | }; 64 | 65 | if ($@) { 66 | print STDERR "not ok: $@"; 67 | exit 1; 68 | } else { 69 | print "ok\n"; 70 | } 71 | 72 | __DATA__ 73 | 74 | Test 75 | This is a test. 76 | 77 | 78 | 0.5 79 | water-02 80 | 0.25 81 | 82 | 83 | 1.0 84 | water-01 85 | 0.1 86 | 87 | 88 | 89 | -------------------------------------------------------------------------------- /client/Net/Peep/t/021.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::States class 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 021.t 8 | 9 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..4\n"; } 10 | END {print "not ok\n", exit 1 unless $loaded;} 11 | 12 | use Data::Dumper; 13 | use Net::Peep::Log; 14 | use Net::Peep::Data::States; 15 | 16 | $loaded = 1; 17 | 18 | print "ok\n"; 19 | 20 | $Test::Harness::verbose = 1; 21 | $Net::Peep::Log::debug=3; 22 | 23 | my ($pool); 24 | 25 | eval { 26 | $pool = new Net::Peep::Data::States; 27 | }; 28 | 29 | if ($@) { 30 | print "not ok: $@\n"; 31 | exit 1; 32 | } else { 33 | print "ok\n"; 34 | } 35 | 36 | print STDERR "\nTesting Peep state pool data class:\n"; 37 | 38 | my (@pool,$state); 39 | 40 | eval { 41 | my $xml = join '', ; 42 | $pool->deserialize($xml); 43 | @pool = $pool->state(); 44 | $state = pop @pool; 45 | }; 46 | 47 | if ($@) { 48 | print STDERR "not ok: $@"; 49 | exit 1; 50 | } else { 51 | print "ok\n"; 52 | } 53 | 54 | if ($state->name() eq 'load-4' and $state->description() eq 'Sound of rustling leaves.') { 55 | print "ok\n"; 56 | exit 0; 57 | } else { 58 | print STDERR "not ok: The state data was not parsed correctly."; 59 | exit 1; 60 | } 61 | 62 | __DATA__ 63 | 64 | 65 | load-1 66 | Sound of rustling leaves. 67 | 68 | 69 | 0.5 70 | leaves-01 71 | 0.25 72 | 73 | 74 | 1.0 75 | leaves-01 76 | 0.1 77 | 78 | 79 | 80 | 81 | load-2 82 | Sound of running water. 83 | 84 | 85 | 1.0 86 | water-02 87 | 0.25 88 | 89 | 90 | 2.0 91 | water-01 92 | 0.1 93 | 94 | 95 | 96 | 97 | load-3 98 | 4 99 | Sound of rustling leaves. 100 | leaves-3 101 | 102 | 103 | load-4 104 | 4 105 | Sound of rustling leaves. 106 | leaves-4 107 | 108 | 109 | -------------------------------------------------------------------------------- /client/Net/Peep/t/030.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::Event class 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 030.t 8 | 9 | # Tests Peep event configuration parsing and the client configuration 10 | # process 11 | 12 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..4\n"; } 13 | END {print "not ok\n", exit 1 unless $loaded;} 14 | 15 | use Net::Peep::Log; 16 | use Net::Peep::Data::Event; 17 | 18 | $loaded = 1; 19 | 20 | print "ok\n"; 21 | 22 | $Test::Harness::verbose = 1; 23 | $Net::Peep::Log::debug=3; 24 | 25 | my ($event); 26 | 27 | eval { 28 | $event = new Net::Peep::Data::Event; 29 | }; 30 | 31 | if ($@) { 32 | print "not ok: $@\n"; 33 | exit 1; 34 | } else { 35 | print "ok\n"; 36 | } 37 | 38 | print STDERR "\nTesting Peep event data class:\n"; 39 | 40 | eval { 41 | my $xml = join '', ; 42 | $event->deserialize($xml); 43 | }; 44 | 45 | if ($@) { 46 | print STDERR "not ok: $@"; 47 | exit 1; 48 | } else { 49 | print "ok\n"; 50 | } 51 | 52 | if ($event->name() eq 'Test' and $event->description() eq 'This is a test.') { 53 | print "ok\n"; 54 | exit 0; 55 | } else { 56 | print STDERR "not ok: The event data was not parsed correctly."; 57 | exit 1; 58 | } 59 | 60 | __DATA__ 61 | 62 | Test 63 | water-01 64 | This is a test. 65 | 66 | -------------------------------------------------------------------------------- /client/Net/Peep/t/031.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::Events class 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 031.t 8 | 9 | # Tests Peep events configuration parsing and the client configuration 10 | # process 11 | 12 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..4\n"; } 13 | END {print "not ok\n", exit 1 unless $loaded;} 14 | 15 | use Data::Dumper; 16 | use Net::Peep::Log; 17 | use Net::Peep::Data::Events; 18 | 19 | $loaded = 1; 20 | 21 | print "ok\n"; 22 | 23 | $Test::Harness::verbose = 1; 24 | $Net::Peep::Log::debug=3; 25 | 26 | my ($pool); 27 | 28 | eval { 29 | $pool = new Net::Peep::Data::Events; 30 | }; 31 | 32 | if ($@) { 33 | print "not ok: $@\n"; 34 | exit 1; 35 | } else { 36 | print "ok\n"; 37 | } 38 | 39 | print STDERR "\nTesting Peep event pool data class:\n"; 40 | 41 | my (@pool,$event); 42 | 43 | eval { 44 | my $xml = join '', ; 45 | $pool->deserialize($xml); 46 | @pool = $pool->event(); 47 | $event = pop @pool; 48 | }; 49 | 50 | if ($@) { 51 | print STDERR "not ok: $@"; 52 | exit 1; 53 | } else { 54 | print "ok\n"; 55 | } 56 | 57 | if ($event->name() eq 'ibm' and $event->description() eq 'Check the price of IBM stock.') { 58 | print "ok\n"; 59 | exit 0; 60 | } else { 61 | print STDERR "not ok: The event data was not parsed correctly."; 62 | exit 1; 63 | } 64 | 65 | __DATA__ 66 | 67 | 68 | red-hat 69 | Check the price of Red Hat (RHAT) stock. 70 | doorbell 71 | 72 | 73 | sun-microsystems 74 | Check the price of Sun Microsystems (SUNW) stock. 75 | rooster 76 | 77 | 78 | ibm 79 | Check the price of IBM stock. 80 | bells-1 81 | 82 | 83 | 84 | -------------------------------------------------------------------------------- /client/Net/Peep/t/050.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::Conf::Class and Net::Peep::Data::Conf::Class::Server classes 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 050.t 8 | 9 | # Tests Peep class configuration parsing and the client configuration 10 | # process 11 | 12 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..5\n"; } 13 | END {print "not ok\n", exit 1 unless $loaded;} 14 | 15 | use Data::Dumper; 16 | use Net::Peep::Data::Conf::Class; 17 | 18 | $loaded = 1; 19 | 20 | print "ok\n"; 21 | 22 | $Test::Harness::verbose = 1; 23 | 24 | my ($event); 25 | 26 | eval { 27 | $class = new Net::Peep::Data::Conf::Class; 28 | }; 29 | 30 | if ($@) { 31 | print "not ok: $@\n"; 32 | exit 1; 33 | } else { 34 | print "ok\n"; 35 | } 36 | 37 | print STDERR "\nTesting Peep class data class:\n"; 38 | 39 | my ($server,$servers); 40 | 41 | eval { 42 | my $xml = join '', ; 43 | $class->deserialize($xml); 44 | ($servers) = $class->servers(); 45 | ($server) = $servers->server(); 46 | }; 47 | 48 | if ($@) { 49 | print STDERR "not ok: $@"; 50 | exit 1; 51 | } else { 52 | print "ok\n"; 53 | } 54 | 55 | if ($class->port() == 2000 and $server->name() eq 'dev.collinstarkweather.com') { 56 | print "ok\n"; 57 | } else { 58 | print STDERR "not ok: The event data was not parsed correctly."; 59 | exit 1; 60 | } 61 | 62 | eval { 63 | print STDERR "\n", $class->serialize(); 64 | }; 65 | 66 | if ($@) { 67 | print STDERR "not ok: $@"; 68 | exit 1; 69 | } else { 70 | print "ok\n"; 71 | } 72 | 73 | __DATA__ 74 | 75 | 2000 76 | 77 | 78 | dev.collinstarkweather.com 79 | 2001 80 | 81 | 82 | 83 | 84 | -------------------------------------------------------------------------------- /client/Net/Peep/t/060.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::Conf::General class 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 050.t 8 | 9 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..5\n"; } 10 | END {print "not ok\n", exit 1 unless $loaded;} 11 | 12 | use Data::Dumper; 13 | use Net::Peep::Data::Conf::General; 14 | 15 | $loaded = 1; 16 | 17 | print "ok\n"; 18 | 19 | $Test::Harness::verbose = 1; 20 | 21 | my ($event); 22 | 23 | eval { 24 | $general = new Net::Peep::Data::Conf::General; 25 | }; 26 | 27 | if ($@) { 28 | print "not ok: $@\n"; 29 | exit 1; 30 | } else { 31 | print "ok\n"; 32 | } 33 | 34 | print STDERR "\nTesting Peep general data class:\n"; 35 | 36 | eval { 37 | my $xml = join '', ; 38 | $general->deserialize($xml); 39 | }; 40 | 41 | if ($@) { 42 | print STDERR "not ok: $@"; 43 | exit 1; 44 | } else { 45 | print "ok\n"; 46 | } 47 | 48 | if ($general->version() eq '0.5.0' and $general->sound_path() eq '/usr/local/share/peep/sounds') { 49 | print "ok\n"; 50 | } else { 51 | print STDERR "not ok: The general data was not parsed correctly."; 52 | exit 1; 53 | } 54 | 55 | eval { 56 | print STDERR "\n", $general->serialize(); 57 | }; 58 | 59 | if ($@) { 60 | print STDERR "not ok: $@"; 61 | exit 1; 62 | } else { 63 | print "ok\n"; 64 | } 65 | 66 | __DATA__ 67 | 68 | 0.5.0 69 | /usr/local/share/peep/sounds 70 | 71 | -------------------------------------------------------------------------------- /client/Net/Peep/t/070.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::Conf class 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 070.t 8 | 9 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..5\n"; } 10 | END {print "not ok\n", exit 1 unless $loaded;} 11 | 12 | use Data::Dumper; 13 | use Net::Peep::Data::Conf; 14 | 15 | $loaded = 1; 16 | 17 | print "ok\n"; 18 | 19 | $Test::Harness::verbose = 1; 20 | 21 | my ($event); 22 | 23 | eval { 24 | $conf = new Net::Peep::Data::Conf; 25 | }; 26 | 27 | if ($@) { 28 | print "not ok: $@\n"; 29 | exit 1; 30 | } else { 31 | print "ok\n"; 32 | } 33 | 34 | print STDERR "\nTesting Peep configuration data class:\n"; 35 | 36 | my ($classes,$class,$general); 37 | eval { 38 | my $xml = join '', ; 39 | $conf->deserialize($xml); 40 | ($classes) = $conf->classes(); 41 | ($class) = $classes->class(); 42 | ($general) = $conf->general(); 43 | }; 44 | 45 | if ($@) { 46 | print STDERR "not ok: $@"; 47 | exit 1; 48 | } else { 49 | print "ok\n"; 50 | } 51 | 52 | if ($general->version() eq '0.5.0' and $general->sound_path() eq '/usr/local/share/peep/sounds' and $class->port() == 2000) { 53 | print "ok\n"; 54 | } else { 55 | print STDERR "not ok: The general data was not parsed correctly."; 56 | exit 1; 57 | } 58 | 59 | eval { 60 | print STDERR "\n", $general->serialize(); 61 | }; 62 | 63 | if ($@) { 64 | print STDERR "not ok: $@"; 65 | exit 1; 66 | } else { 67 | print "ok\n"; 68 | } 69 | 70 | __DATA__ 71 | 72 | 73 | 74 | 2000 75 | 76 | 77 | dev.collinstarkweather.com 78 | 2001 79 | 80 | 81 | 82 | 83 | 84 | 0.5.0 85 | /usr/local/share/peep/sounds 86 | 87 | 88 | -------------------------------------------------------------------------------- /client/Net/Peep/t/080.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::Notice class 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 080.t 8 | 9 | # Tests Peep theme configuration parsing and the client configuration process 10 | 11 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..4\n"; } 12 | END {print "not ok\n", exit 1 unless $loaded;} 13 | 14 | use Data::Dumper; 15 | use Net::Peep::Log; 16 | use Net::Peep::Data::Notice; 17 | 18 | $loaded = 1; 19 | 20 | print "ok\n"; 21 | 22 | $Test::Harness::verbose = 1; 23 | $Net::Peep::Log::debug = 3; 24 | 25 | my ($notice); 26 | 27 | eval { 28 | $notice = new Net::Peep::Data::Notice; 29 | }; 30 | 31 | if ($@) { 32 | print "not ok: $@\n"; 33 | exit 1; 34 | } else { 35 | print "ok\n"; 36 | } 37 | 38 | print STDERR "\nTesting Peep notice data class:\n"; 39 | 40 | eval { 41 | my $xml = join '', ; 42 | $notice->deserialize($xml); 43 | }; 44 | 45 | if ($@) { 46 | print STDERR "not ok: $@"; 47 | exit 1; 48 | } else { 49 | print "ok\n"; 50 | } 51 | 52 | if ($notice->host() eq 'freak.collinstarkweather.com' and $notice->level() eq 'warn') { 53 | print "ok\n"; 54 | exit 0; 55 | } else { 56 | print STDERR "not ok: The notice data was not parsed correctly."; 57 | exit 1; 58 | } 59 | 60 | __DATA__ 61 | 62 | freak.collinstarkweather.com 63 | logparser 64 | state 65 | 1.0 66 | 128 67 | 255 68 | warn 69 | This is a test. This is only a test. 70 | Sat Jun 1 23:36:15 2002 71 | 72 | -------------------------------------------------------------------------------- /client/Net/Peep/t/090.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Data::Theme class 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 090.t 8 | 9 | # Tests Peep theme configuration parsing and the client configuration process 10 | 11 | BEGIN { $Test::Harness::verbose=1; $|=1; print "1..1\n"; } 12 | END {print "not ok\n", exit 1 unless $loaded;} 13 | 14 | $loaded = 1; 15 | 16 | print "ok\n"; 17 | 18 | $Test::Harness::verbose = 1; 19 | 20 | print STDERR "\nThis test has been deprecated and will be replaced at a later date.\n"; 21 | 22 | __DATA__ 23 | -------------------------------------------------------------------------------- /client/Net/Peep/t/100.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of: 4 | # o The full gamut of configuration file parsing 5 | # o The configuration class Net::Peep::Conf 6 | # o Basic client initialization and configuration 7 | # 8 | # Run with 9 | # 10 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 100.t 11 | 12 | # Tests Peep configuration parsing and the client configuration process 13 | 14 | BEGIN { $Test::Harness::verbose++; $|++; print "1..3\n"; } 15 | END {print "not ok\n", exit 1 unless $loaded;} 16 | 17 | use Net::Peep::Log; 18 | use Net::Peep::Conf; 19 | use Net::Peep::Parser; 20 | use Net::Peep::Client; 21 | 22 | $loaded = 1; 23 | 24 | print "ok\n"; 25 | 26 | $Net::Peep::Log::debug = 1; 27 | 28 | my ($conf,$parser); 29 | 30 | eval { 31 | 32 | $conf = new Net::Peep::Conf; 33 | $parser = new Net::Peep::Parser; 34 | 35 | }; 36 | 37 | if ($@) { 38 | print "not ok: $@\n"; 39 | exit 1; 40 | } else { 41 | print "ok\n"; 42 | } 43 | 44 | $Test::Harness::verbose += 1; 45 | $Net::Peep::Log::debug = 1; 46 | 47 | print STDERR "\nTesting Peep configuration file parser:\n"; 48 | 49 | eval { 50 | 51 | @ARGV=('--config=./conf/peep.conf'); 52 | my $client = new Net::Peep::Client; 53 | $client->name('logparser'); 54 | $client->initialize(); 55 | $client->parser(sub { my @text = @_; &parse(@text); }); 56 | $conf = $client->configure(); 57 | $client->callback(sub { &loop(); }); 58 | 59 | }; 60 | 61 | if ($@) { 62 | print STDERR "not ok: $@"; 63 | exit 1; 64 | } else { 65 | print "ok\n"; 66 | exit 0; 67 | } 68 | 69 | sub parse { 70 | 71 | my @text = @_; 72 | for my $line (@text) { 73 | print STDERR "Client parser found line [$line] ...\n"; 74 | } 75 | 76 | } # end sub parse 77 | 78 | sub loop { 79 | 80 | print STDERR "\nIn loop method.\n"; 81 | 82 | } # end sub loop 83 | -------------------------------------------------------------------------------- /client/Net/Peep/t/101.t: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/t/101.t -------------------------------------------------------------------------------- /client/Net/Peep/t/200.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of client-server communication. The first test that produces a sound. 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 200.t 8 | 9 | # tests both Net::Peep::BC and Net::Peep::Peck 10 | 11 | BEGIN { $Test::Harness::verbose++; $|++; print "1..3\n"; } 12 | END {print "not ok\n", exit 1 unless $loaded;} 13 | 14 | use Net::Peep::Log; 15 | use Net::Peep::Peck; 16 | 17 | $loaded = 1; 18 | 19 | print "ok\n"; 20 | 21 | $Net::Peep::Log::debug = 0; 22 | 23 | my ($conf,$parser); 24 | 25 | eval { 26 | 27 | $pecker = new Net::Peep::Peck; 28 | 29 | }; 30 | 31 | if ($@) { 32 | print "not ok: $@\n"; 33 | exit 1; 34 | } else { 35 | print "ok\n"; 36 | } 37 | 38 | unless ($ENV{'AUTOMATED_BUILD'}) { 39 | 40 | $Test::Harness::verbose += 1; 41 | 42 | print STDERR <<"eop"; 43 | 44 | 45 | If you have a Peep server running on the machine this client is being installed 46 | on which just so happens to be listening to port 2001 and just so happens to 47 | have the event 'rooster' defined in its configuration file, you should hear a 48 | rooster crow after pressing Enter. 49 | 50 | Please press Enter. 51 | eop 52 | 53 | ; 54 | 55 | } # end unless $ENV{'AUTOMATED_BUILD'} 56 | 57 | eval { 58 | @ARGV = ( '--type=0','--sound=rooster','--server=localhost','--port=2001','--volume=255','--config=./conf/peep.conf'); 59 | $pecker->peck(); 60 | }; 61 | 62 | if ($@) { 63 | print STDERR "not ok: $@"; 64 | exit 1; 65 | } else { 66 | print "ok\n"; 67 | exit 0; 68 | } 69 | 70 | -------------------------------------------------------------------------------- /client/Net/Peep/t/300.t: -------------------------------------------------------------------------------- 1 | #!/usr/bin/perl 2 | 3 | # Test of the Net::Peep::Scheduler class 4 | # 5 | # Run with 6 | # 7 | # perl -I../blib/lib -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' 300.t 8 | 9 | # tests Net::Peep::Scheduler and, indirectly, Net::Peep::Peck 10 | 11 | BEGIN { $Test::Harness::verbose++; $|++; print "1..5\n"; } 12 | END {print "not ok\n", exit 1 unless $loaded;} 13 | 14 | use Net::Peep::Scheduler; 15 | use Net::Peep::Peck; 16 | 17 | $loaded = 1; 18 | 19 | print "ok\n"; 20 | 21 | $Net::Peep::Log::debug = 0; 22 | 23 | eval { 24 | 25 | $scheduler0 = new Net::Peep::Scheduler; 26 | $scheduler1 = new Net::Peep::Scheduler; 27 | $pecker = new Net::Peep::Peck; 28 | 29 | }; 30 | 31 | if ($@) { 32 | print "not ok: $@\n"; 33 | exit 1; 34 | } else { 35 | print "ok\n"; 36 | } 37 | 38 | $Test::Harness::verbose += 1; 39 | 40 | unless ($ENV{'AUTOMATED_BUILD'}) { 41 | 42 | print STDERR <<"eop"; 43 | 44 | The Peep scheduler will now be tested. 45 | 46 | If you have a Peep server running on the machine this client is being installed 47 | on which just so happens to be listening to port 2001 and have the events 48 | 'sigh' and 'doorbell' defined, you should hear a sigh in 3 seconds, then a 49 | doorbell in 5 seconds. 50 | 51 | If nothing happens for more than 10 seconds, press Ctrl-C. 52 | 53 | Press enter to continue .... 54 | 55 | eop 56 | 57 | ; 58 | 59 | } 60 | 61 | my $continue = 1; 62 | my $ref = \$continue; 63 | 64 | $scheduler0->schedulerAddEvent('test', 5, 0, 'second', sub { &handler(5,$pecker) }); 65 | $scheduler1->schedulerAddEvent('test', 3, 0, 'first', sub { &handler(3,$pecker) } ); 66 | $scheduler1->schedulerAddEvent('test', 6, 0, 'third', sub { $$ref = 0 } ); 67 | 68 | while (1) { last unless $continue; } 69 | 70 | print "ok\n"; 71 | exit 0; 72 | 73 | sub handler { 74 | 75 | my $seconds = shift; 76 | my $pecker = shift; 77 | 78 | eval { 79 | 80 | print <<"eop"; 81 | 82 | Peep! 83 | 84 | eop 85 | 86 | if ($seconds == 3) { 87 | @ARGV = ( '--type=0','--sound=sigh','--server=localhost','--port=2001','--volume=255','--config=./conf/peep.conf'); 88 | } else { 89 | @ARGV = ( '--type=0','--sound=doorbell','--server=localhost','--port=2001','--volume=255','--config=./conf/peep.conf'); 90 | } 91 | $pecker->peck(); 92 | 93 | }; 94 | 95 | if ($@) { 96 | print STDERR "not ok: $@"; 97 | } else { 98 | print "ok\n"; 99 | } 100 | 101 | } 102 | -------------------------------------------------------------------------------- /client/Net/Peep/t/README: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/client/Net/Peep/t/README -------------------------------------------------------------------------------- /client/Net/Peep/test.pl: -------------------------------------------------------------------------------- 1 | # Before `make install' is performed this script should be runnable with 2 | # `make test'. After `make install' it should work as `perl test.pl' 3 | 4 | ######################### We start with some black magic to print on failure. 5 | 6 | # Change 1..1 below to 1..last_test_to_print . 7 | # (It may become useful if the test is moved to ./t subdirectory.) 8 | 9 | BEGIN { $| = 1; print "1..1\n"; } 10 | END {print "not ok 1\n" unless $loaded;} 11 | use Net::Peep; 12 | $loaded = 1; 13 | print "ok 1\n"; 14 | 15 | ######################### End of black magic. 16 | 17 | # Insert your test code below (better if it prints "ok 13" 18 | # (correspondingly "not ok 13") depending on the success of chunk 13 19 | # of the test code): 20 | 21 | -------------------------------------------------------------------------------- /conf/peep.logtab: -------------------------------------------------------------------------------- 1 | # 2 | # Client configuration for Peep: The Network Auralizer client: 3 | # logparser 4 | 5 | client logparser 6 | class main 7 | port 1999 8 | default 9 | groups default,firewall 10 | logfile /var/log/messages 11 | end default 12 | config 13 | events 14 | # Name Group Location Priority Notification Pattern Hosts 15 | http www 255 0 info "(GET|POST).*HTTP" localhost 16 | code-red www 128 0 warn "default\.ida\?XXXX" localhost 17 | bad-query www 128 255 crit "ORA-\d{5}" localhost 18 | su-login default 128 255 warn "pam_unix\[\d+\]: \(system-auth\) .* opened .* root" localhost 19 | su-logout default 128 255 warn "pam_unix\[\d+\]: \(system-auth\) .* closed .* root" localhost 20 | # note that if one of the previous 2 regexes match, the following 2 will be ignored 21 | login default 128 255 info "pam_unix\[\d+\]: \(system-auth\) .* opened" localhost 22 | logout default 128 0 info "pam_unix\[\d+\]: \(system-auth\) .* closed" localhost 23 | ssh-logins default 128 2 info "sshd.*Accepted password" localhost 24 | bad-login default 128 255 warn "pam_unix.*: authentication failure" localhost 25 | ip-deny firewall 128 255 crit "DENY" localhost 26 | end events 27 | end config 28 | end client logparser 29 | -------------------------------------------------------------------------------- /docs/README.DOC: -------------------------------------------------------------------------------- 1 | Server Documentation: 2 | Located in server/: 3 | peep-server.tex - Original Documentation latex source 4 | peep-internals.gif - Diagram for documentation 5 | peep-server/index.html - HTML version of documentation 6 | 7 | Client Documentation: 8 | Located in client/ 9 | make-client-documentation - Generates client documentation 10 | from perl POD within client 11 | source. 12 | -------------------------------------------------------------------------------- /docs/server/latex_gifs/blueball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/blueball.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/ch_beg_r.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/ch_beg_r.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/ch_begin.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/ch_begin.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/ch_del_r.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/ch_del_r.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/ch_delet.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/ch_delet.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/ch_end.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/ch_end.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/ch_end_r.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/ch_end_r.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/contents.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/contents.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/crossref.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/crossref.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/footnote.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/footnote.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/greenball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/greenball.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/image.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/image.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/index.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/index.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/next.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/next.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/next_g.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/next_g.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/nx_grp.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/nx_grp.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/nx_grp_g.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/nx_grp_g.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/orangeball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/orangeball.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/pinkball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/pinkball.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/prev.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/prev.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/prev_g.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/prev_g.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/purpleball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/purpleball.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/pv_grp.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/pv_grp.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/pv_grp_g.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/pv_grp_g.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/redball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/redball.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/up.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/up.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/up_g.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/up_g.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/whiteball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/whiteball.gif -------------------------------------------------------------------------------- /docs/server/latex_gifs/yellowball.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/latex_gifs/yellowball.gif -------------------------------------------------------------------------------- /docs/server/peep-internals.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/peep-internals.gif -------------------------------------------------------------------------------- /docs/server/peep-server.tex: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/the-real-neil/peep/a6573b6330de166f3a08072be07c8c4bfb6fa282/docs/server/peep-server.tex -------------------------------------------------------------------------------- /server/.cvsignore: -------------------------------------------------------------------------------- 1 | .deps 2 | Makefile 3 | cmdline.ggo 4 | config.c 5 | peepd 6 | -------------------------------------------------------------------------------- /server/Makefile.am: -------------------------------------------------------------------------------- 1 | # Process this file with automake to produce Makefile.in 2 | 3 | bin_PROGRAMS=peepd 4 | peepd_SOURCES= \ 5 | alsa.c \ 6 | cmdline.c \ 7 | cmdline.h \ 8 | copyright.h \ 9 | debug.c \ 10 | debug.h \ 11 | engine.c \ 12 | engine.h \ 13 | engine_queue.c \ 14 | engine_queue.h \ 15 | main.c \ 16 | main.h \ 17 | mixer.c \ 18 | mixer.h \ 19 | mixer_queue.c \ 20 | mixer_queue.h \ 21 | notice.c \ 22 | notice.h \ 23 | oss.c \ 24 | parser.c \ 25 | parser.h \ 26 | playback.c \ 27 | playback.h \ 28 | server.c \ 29 | server.h \ 30 | sound.h \ 31 | ssl_server.c \ 32 | ssl_server.h \ 33 | tcp_server.c \ 34 | tcp_server.h \ 35 | thread.c \ 36 | thread.h \ 37 | udp_server.c \ 38 | udp_server.h \ 39 | xml.c \ 40 | xml.h \ 41 | xml_notice.c \ 42 | xml_notice.h \ 43 | xml_theme.c \ 44 | xml_theme.h 45 | 46 | etc = /etc 47 | -------------------------------------------------------------------------------- /server/copyright.h: -------------------------------------------------------------------------------- 1 | static const char *copyright = 2 | "PEEP: The Network Auralizer" 3 | "Copyright (C) 2000 Michael Gilfix" 4 | "" 5 | "This file is part of PEEP." 6 | "" 7 | "You should have received a file COPYING containing license terms" 8 | "along with this program; if not, write to Michael Gilfix" 9 | "(mgilfix@eecs.tufts.edu) for a copy." 10 | "" 11 | "This version of PEEP is open source; you can redistribute it and/or" 12 | "modify it under the terms listed in the file COPYING." 13 | "" 14 | "This program is distributed in the hope that it will be useful," 15 | "but WITHOUT ANY WARRANTY; without even the implied warranty of" 16 | "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." 17 | ; 18 | -------------------------------------------------------------------------------- /server/debug.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_DEBUG_H__ 20 | #define __PEEP_DEBUG_H__ 21 | 22 | /* Logging levels, defined as flags */ 23 | enum { 24 | DBG_DEF = (1 << 0), /* Default, standard output */ 25 | DBG_GEN = (1 << 2), /* General operational info */ 26 | DBG_SETUP = (1 << 3), /* General setup info */ 27 | DBG_SRVR = (1 << 4), /* Server interactions */ 28 | DBG_HOOK = (1 << 5), /* For debugging of code hooks */ 29 | DBG_ENG = (1 << 6), /* Engine information */ 30 | DBG_MXR = (1 << 8), /* Mixer info */ 31 | DBG_AUTO = (1 << 10), /* Autodiscovery debugging */ 32 | DBG_QUE = (1 << 12), /* Queuing operations */ 33 | DBG_PLBK = (1 << 14), /* Debugging about playback and recording */ 34 | 35 | DBG_ASSRT = (1 << 31) /* Debug with assertions. */ 36 | }; 37 | 38 | /* Debugging level definitions */ 39 | enum { 40 | DBG_LOWEST = (DBG_DEF | DBG_GEN), 41 | DBG_LOWER = (DBG_LOWEST | DBG_SETUP | DBG_SRVR), 42 | DBG_MEDIUM = (DBG_LOWER | DBG_PLBK | DBG_ENG ), 43 | DBG_HIGHER = (DBG_MEDIUM | DBG_MXR | DBG_AUTO | DBG_HOOK), 44 | DBG_HIGHEST = (DBG_HIGHER | DBG_QUE), 45 | DBG_ALL_W_ASSERT = (DBG_HIGHEST | DBG_ASSRT) 46 | }; 47 | 48 | /* Variable definition to compile in code assertions. 49 | * Note that compiling this in will greatly reduce the speed 50 | * of code execution */ 51 | #if DEBUG_LEVEL & DBG_ASSRT 52 | #define ASSERT(X) assert((X),#X,__FILE__,__LINE__); 53 | #undef assert 54 | int assert (int boolean, char *boolstr, char *file, int line); 55 | #else 56 | #define ASSERT(X) 57 | #endif 58 | 59 | /* Initialize the logging routines */ 60 | int logInit (const char *log_file); 61 | 62 | /* Close the logfile and clean up */ 63 | int logClose (void); 64 | 65 | #define LOG_BUF 1024 66 | 67 | /* Include stdio so we don't have problems with using 68 | * a FILE * type */ 69 | #include 70 | 71 | /* Variable argument logging function */ 72 | void logMsg (int level, const char *s, ...); 73 | 74 | #endif 75 | -------------------------------------------------------------------------------- /server/engine_queue.c: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #include 20 | #include "config.h" 21 | #include "engine_queue.h" 22 | #include "thread.h" 23 | #include "debug.h" 24 | 25 | static ENGINE_QUEUE_ELEMENT *head = NULL; 26 | static ENGINE_QUEUE_ELEMENT *tail = NULL; 27 | static sem_t *semaphore = NULL; 28 | 29 | int engineQueueInit (void) 30 | { 31 | 32 | /* Initialize the queue's semaphore to blocking mode */ 33 | if ((semaphore = semaphoreCreate (0)) == NULL) { 34 | return 0; 35 | } else { 36 | return 1; 37 | } 38 | 39 | } 40 | 41 | void engineQueueDestroy (void) 42 | { 43 | 44 | if (semaphore) { 45 | semaphoreDestroy (semaphore); 46 | } 47 | 48 | } 49 | 50 | void engineEnqueue (EVENT d) 51 | { 52 | 53 | ENGINE_QUEUE_ELEMENT *cur_pos = head; 54 | 55 | if (head == NULL) { 56 | 57 | head = malloc ( sizeof *head ); 58 | head->incoming_event = d; 59 | head->next = head->prev = NULL; 60 | tail = head; 61 | 62 | } else { 63 | 64 | /* Loop 'till we hit the end of the queue */ 65 | while (cur_pos->next != NULL) { 66 | cur_pos = cur_pos->next; 67 | } 68 | 69 | cur_pos->next = malloc ( sizeof *(cur_pos->next) ); 70 | cur_pos->next->incoming_event = d; 71 | cur_pos->next->next = NULL; 72 | cur_pos->next->prev = cur_pos; 73 | tail = cur_pos->next; 74 | 75 | } 76 | 77 | /* Increment the semaphore */ 78 | semaphoreRelease (semaphore); 79 | 80 | 81 | } 82 | 83 | EVENT engineDequeue (void) 84 | { 85 | 86 | EVENT temp; 87 | 88 | /* Acquire the semaphore, which means there's something in the queue */ 89 | semaphoreAcquire (semaphore, 1); 90 | 91 | temp = tail->incoming_event; 92 | 93 | if (tail->prev != NULL) { 94 | 95 | tail = tail->prev; 96 | free (tail->next); 97 | tail->next = NULL; 98 | 99 | } else { 100 | 101 | free (tail); 102 | tail = head = NULL; 103 | 104 | } 105 | 106 | return temp; 107 | 108 | } 109 | 110 | int engineQueueEmpty (void) 111 | { 112 | 113 | return (head == NULL); 114 | 115 | } 116 | -------------------------------------------------------------------------------- /server/engine_queue.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_ENGINE_ENQUEUE_H__ 20 | #define __PEEP_ENGINE_ENQUEUE_H__ 21 | 22 | /* For event definition */ 23 | #include "engine.h" 24 | 25 | /* Engine queue element datastructure 26 | * Serves as queue interface between the engine thread and the 27 | * server thread 28 | */ 29 | typedef struct engine_queue_element { 30 | EVENT incoming_event; 31 | struct engine_queue_element *next; 32 | struct engine_queue_element *prev; 33 | } ENGINE_QUEUE_ELEMENT; 34 | 35 | /* Initialize the engine queue */ 36 | int engineQueueInit (void); 37 | 38 | /* Destroy the engine queue */ 39 | void engineQueueDestroy (void); 40 | 41 | /* Add an event into the engine queue */ 42 | void engineEnqueue (EVENT d); 43 | 44 | /* Get the next element from the engine queue and remove it */ 45 | EVENT engineDequeue (void); 46 | 47 | /* Boolean function to check whether the engine queue is empty */ 48 | int engineQueueEmpty (void); 49 | 50 | #endif 51 | -------------------------------------------------------------------------------- /server/main.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_MAIN_H__ 20 | #define __PEEP_MAIN_H__ 21 | 22 | #define DEFAULT_PID_PATH "/var/run/peepd.pid" 23 | 24 | /* Select the default sound device to use */ 25 | #ifdef __USING_ALSA__ 26 | #define DEFAULT_SND_DEVICE NULL 27 | #else 28 | #define DEFAULT_SND_DEVICE "/dev/audio" 29 | #endif 30 | 31 | /* Default to using the sound jack output instead of speakers 32 | * for suns and other such machines. 33 | */ 34 | #define DEFAULT_SND_JACK 2 35 | 36 | /* Constants for initializing the mixer */ 37 | #define DEFAULT_MIXER_VOICES 16 38 | #define PERCENT_STATE_SOUNDS ( (1.0) / (4.0) ) 39 | 40 | #define DEFAULT_RECORD_FILE "/var/log/peepd.log" 41 | 42 | #define DEFAULT_PORT 2001 43 | 44 | #define MIXER_THREAD_USLEEP 5000 /* 0.05 secs */ 45 | 46 | /* Prints the Peep greeting to the console */ 47 | void printGreeting (void); 48 | 49 | /* For signal handling convenience */ 50 | typedef void (*sighandler_t)(int); 51 | 52 | /* Registers the signal handlers */ 53 | void setSigHandlers (void); 54 | 55 | /* Enters the mixing loop */ 56 | void *doMixing (void *data); 57 | 58 | /* Loops to handle events that are added into the engine queue */ 59 | void *engineLoop (void *data); 60 | 61 | /* Shuts down and cleans up the server */ 62 | void shutDown (void); 63 | 64 | /* Signal handler for asynchronous shutdown and restart */ 65 | void handleSignal (int sig); 66 | 67 | #endif 68 | -------------------------------------------------------------------------------- /server/mixer_queue.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_MIXER_QUEUE_H__ 20 | #define __PEEP_MIXER_QUEUE_H__ 21 | 22 | /* So we can declare an Event function */ 23 | #include "engine.h" 24 | 25 | /*************************************************************** 26 | * This header and its associated .c file implement a priority 27 | * queue that serves as temporary storage for events if all 28 | * mixer channels are full. 29 | **************************************************************/ 30 | 31 | /************************************************************** 32 | * API for interacting with the queue 33 | **************************************************************/ 34 | 35 | /* Initialize the heap */ 36 | void mixerQueueInit (int s); 37 | 38 | /* Destroy the heap */ 39 | void mixerQueueDestroy (void); 40 | 41 | /* Interface to enqueue an old event into the priority queue */ 42 | void mixerEnqueue (ENGINE_EVENT *new_event); 43 | 44 | /* Removes an old event from the priority queue */ 45 | ENGINE_EVENT *mixerDequeue (void); 46 | 47 | /* Check the status of the queue */ 48 | int MixerQueueEmpty (void); 49 | int MixerQueueFull (void); 50 | 51 | /*************************************************************** 52 | * Internal function 53 | ***************************************************************/ 54 | 55 | /* Swap two elements i and j in the heap */ 56 | void swap (int i, int j); 57 | 58 | /* Perform a bubble sort from a single position, up through the 59 | * queue 60 | */ 61 | int bubbleUp (int pos); 62 | 63 | /* Perform a bubble sort from a single position downward through 64 | * the queue 65 | */ 66 | int bubbleDown (int pos); 67 | 68 | #endif 69 | -------------------------------------------------------------------------------- /server/notice.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_NOTICE_H__ 20 | #define __PEEP_NOTICE_H__ 21 | 22 | /* For time definitions for notice data structures */ 23 | #if TIME_WITH_SYS_TIME 24 | #include 25 | #include 26 | #else 27 | #if HAVE_SYS_TIME_H 28 | #include 29 | #else 30 | #include 31 | #endif 32 | #endif 33 | #include 34 | 35 | typedef struct { 36 | char *host; 37 | char *client; 38 | char *sound; 39 | char *data; 40 | int type; 41 | int location; 42 | int priority; 43 | int volume; 44 | int dither; 45 | int metric; 46 | int flags; 47 | struct tm date; 48 | } NOTICE; 49 | 50 | #define NOTICE_INTEGER_NOT_SET -1 51 | 52 | #define NOTICE_TIME_FORMAT "%a %b %d %H:%M:%S %Z %Y" 53 | 54 | /* Create a notice structure that will contain parsed XML */ 55 | NOTICE *noticeCreateNotice (void); 56 | 57 | /* Create a string to store in the notice structure */ 58 | char *noticeCreateNoticeString (int len); 59 | 60 | /* Destroys an allocated notice structure and any allocated 61 | * sub-components. 62 | */ 63 | void noticeFreeNoticeString (char *string); 64 | 65 | /* Processes the XML event notice string passed along with a 66 | * client event and passes control to the event notice hook 67 | */ 68 | void processEventNoticeString (char *xml_string, NOTICE *notice); 69 | 70 | /* For definitions */ 71 | #include "server.h" 72 | #include "notice.h" 73 | 74 | /* A code hook for arbitrary processing of the notice data 75 | * given with a client event 76 | */ 77 | void executeEventNoticeHook (MSG_STRING xml, NOTICE *notice); 78 | 79 | /* Construct an XML snippet from a notice */ 80 | void serializeNotice (NOTICE *notice); 81 | 82 | #endif 83 | -------------------------------------------------------------------------------- /server/ssl_server.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_SSL_SERVER_H__ 20 | #define __PEEP_SSL_SERVER_H__ 21 | 22 | /* Include this for basic server definitions */ 23 | #include "server.h" 24 | 25 | #ifndef PEEPD_SHARED 26 | #define PEEPD_SHARED "./" 27 | #endif 28 | #ifndef CERTIFICATE_PATH 29 | #define CERTIFICATE_PATH PEEPD_SHARED "peepd-cert.pem" 30 | #endif 31 | #ifndef KEY_PATH 32 | #define KEY_PATH PEEPD_SHARED "peepd-cert.pem" 33 | #endif 34 | 35 | /* SSL includes for declarations */ 36 | #include 37 | #include 38 | #include 39 | #include 40 | #include 41 | #include 42 | 43 | struct servlet_data { 44 | SSL *ssl; /* pointer to SSL object */ 45 | struct sockaddr_in client; /* client address */ 46 | }; 47 | 48 | /* Initialize the server routines, sets up SSL sockets 49 | * for communication, and calls the broadcast routines. 50 | */ 51 | int serverRealInit (void); 52 | 53 | /* Initializes the ssl server compoennts and opens a server 54 | * socket 55 | */ 56 | int sslServerInit (void); 57 | 58 | int serverInitSocket (void); 59 | 60 | /* Starts the main server loop of listening for connections 61 | * and incoming packets 62 | */ 63 | void serverRealStart (void); 64 | 65 | /* Clean up after the server datastructures */ 66 | void serverRealShutdown (void); 67 | 68 | SSL_CTX *serverInitCTX (void); 69 | int serverLoadCerts (SSL_CTX *ctx, char *certf, char *keyf); 70 | void serverLogCerts (SSL *ssl); 71 | void *serverServlet (void *thread_data); 72 | 73 | #endif /* __PEEP_SSL_SERVER_H__ */ 74 | -------------------------------------------------------------------------------- /server/tcp_server.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_TCP_SERVER_H__ 20 | #define __PEEP_TCP_SERVER_H__ 21 | 22 | /* load the server definitions here to be sure */ 23 | #include "server.h" 24 | 25 | /* Initializes the server routines, sets up the server 26 | * socket for communication, and calls the broadcast 27 | * routines 28 | */ 29 | int serverRealInit (void); 30 | 31 | /* Starts the main server loop of listening for connections 32 | * and incoming packets 33 | */ 34 | void serverRealStart (void); 35 | 36 | /* Clean up after the server datastructures */ 37 | void serverRealShutdown (void); 38 | 39 | /* Initializes the server socket. Returns 1 if successful, 0 40 | * otherwise 41 | */ 42 | int serverInitSocket (void); 43 | 44 | struct servlet_data { 45 | int fd; /* client file descriptor */ 46 | struct sockaddr_in client; /* client address */ 47 | }; 48 | 49 | /* A threaded servlet function that servers TCP client connections */ 50 | void *serverServlet (void *thread_data); 51 | 52 | #endif 53 | -------------------------------------------------------------------------------- /server/thread.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_THREAD_H__ 20 | #define __PEEP_THREAD_H__ 21 | 22 | #include 23 | #include 24 | 25 | typedef void *(*THREAD_FUNC) (void *data); 26 | 27 | /* Begin a new Thread */ 28 | int startThread (THREAD_FUNC func, void *data, pthread_t *handle); 29 | 30 | /* Functions to lock and unlock threads */ 31 | void threadLockInit (pthread_mutex_t *lock); 32 | void threadLock (pthread_mutex_t *lock); 33 | void threadUnlock (pthread_mutex_t *lock); 34 | 35 | /* Make a thread sleep */ 36 | void threadSleep (unsigned long utime); 37 | 38 | /* Checks if the thread has received a cancellation request */ 39 | void threadCheckCancelled (void); 40 | 41 | /* Kill a thread */ 42 | void threadKill (pthread_t thread); 43 | 44 | /* Detach a thread from its parent */ 45 | void threadDetach (pthread_t thread); 46 | 47 | /* Keeps the calling thread from receiving SIGINT and SIGHUP 48 | * signals. 49 | */ 50 | void threadBlockSignals (void); 51 | 52 | /* Creates a semaphore object initialized to the value argument and 53 | * returns a pointer to the object. Returns NULL on error. 54 | */ 55 | sem_t *semaphoreCreate (int value); 56 | 57 | /* Decrements the semaphore object pointed at by sem. If blocking is 58 | * 1, then the thread will block if the semaphore is at a zero count. 59 | * If blocking is 0, a 0 is returned if the semaphore count is zero. 60 | * A 1 is returned if the semaphore was successfully decremented. 61 | */ 62 | int semaphoreAcquire (sem_t *sem, int blocking); 63 | 64 | /* Asynchronously increments a semaphore count. Returns 1 upon 65 | * success and zero otherwise. 66 | */ 67 | int semaphoreRelease (sem_t *sem); 68 | 69 | /* Destroys the object pointed at by sem. */ 70 | int semaphoreDestroy (sem_t *sem); 71 | 72 | #endif 73 | -------------------------------------------------------------------------------- /server/xml.c: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #include 20 | #include "xml.h" 21 | 22 | char *createXmlNormalizedString (char *s, int len) 23 | { 24 | 25 | char *str = malloc (len + 1); 26 | int i, j; 27 | 28 | for (i = 0, j = 0; i < len; i++) { 29 | 30 | switch (s[i]) { 31 | 32 | case '\n': 33 | case '\t': 34 | 35 | continue; 36 | 37 | case ' ': 38 | 39 | if (isalnum (s[i + 1])) { 40 | 41 | str[j++] = ' '; 42 | str[j++] = s[i + 1]; 43 | i += 2; 44 | 45 | } else { 46 | continue; 47 | } 48 | 49 | default: 50 | 51 | str[j++] = s[i]; 52 | break; 53 | 54 | } 55 | 56 | } 57 | 58 | str[j] = '\0'; 59 | 60 | /* Check if string is empty */ 61 | if (str[0] == '\0') { 62 | 63 | free (str); 64 | return NULL; 65 | 66 | } else { 67 | return str; 68 | } 69 | 70 | } 71 | 72 | void freeXmlNormalizedString (char *s) 73 | { 74 | 75 | free (s); 76 | 77 | } 78 | 79 | -------------------------------------------------------------------------------- /server/xml.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_XML_H__ 20 | #define __PEEP_XML_H__ 21 | 22 | char *createXmlNormalizedString (char *s, int len); 23 | 24 | void freeXmlNormalizedString (char *s); 25 | 26 | #endif 27 | -------------------------------------------------------------------------------- /server/xml_notice.h: -------------------------------------------------------------------------------- 1 | /* 2 | PEEP: The Network Auralizer 3 | Copyright (C) 2000 Michael Gilfix 4 | 5 | This file is part of PEEP. 6 | 7 | You should have received a file COPYING containing license terms 8 | along with this program; if not, write to Michael Gilfix 9 | (mgilfix@eecs.tufts.edu) for a copy. 10 | 11 | This version of PEEP is open source; you can redistribute it and/or 12 | modify it under the terms listed in the file COPYING. 13 | 14 | This program is distributed in the hope that it will be useful, 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 17 | */ 18 | 19 | #ifndef __PEEP_XML_NOTICE_H__ 20 | #define __PEEP_XML_NOTICE_H__ 21 | 22 | /* This function filters out all the garbage that can be produced while 23 | * expat processes a document. This function can easily be extended by 24 | * adding new characters to the switch statement below. 25 | * If after normalization, the string is empty, the function returns null. 26 | * IMPORTANT: This function returns a pointer to a malloc'd string. You MUST 27 | * call freeXmlNormlizedString () afterwards. Thus good programming practice 28 | * might mean that you use it during a declaration so you don't forget :) 29 | */ 30 | char *createXmlNormalizedString (char *s, int len); 31 | 32 | /* Destroyed a string created with the normalizing function */ 33 | void freeXmlNormalizedString (char *s); 34 | 35 | /* For definitions */ 36 | #include 37 | #include "notice.h" 38 | 39 | typedef struct { 40 | NOTICE *notice; 41 | XML_Parser parser; 42 | char *current_tag; 43 | } CLIENT_PARSE_INFO; 44 | 45 | /* Tags */ 46 | #define NOTICE_HOST_TAG "host" 47 | #define NOTICE_DATA_TAG "data" 48 | #define NOTICE_CLIENT_TAG "client" 49 | #define NOTICE_SOUND_TAG "sound" 50 | #define NOTICE_TYPE_TAG "type" 51 | #define NOTICE_LOCATION_TAG "location" 52 | #define NOTICE_PRIORITY_TAG "priority" 53 | #define NOTICE_VOLUME_TAG "volume" 54 | #define NOTICE_DITHER_TAG "dither" 55 | #define NOTICE_FLAGS_TAG "flags" 56 | #define NOTICE_DATE_TAG "date" 57 | #define NOTICE_METRIC_TAG "metric" 58 | 59 | /* Handler for parsing XML notice strings that are sent along with 60 | * regular Peep events 61 | */ 62 | void xmlParseClientEvent (char *xml_string, int len, NOTICE *notice); 63 | 64 | /* The start tag handler used when parsing client notice events */ 65 | void xmlParseClientStart (void *data, const XML_Char *tag_name, 66 | const XML_Char **attribs); 67 | 68 | /* The end tag handler used when parsing client notice events */ 69 | void xmlParseClientEnd (void *data, const XML_Char *tag_name); 70 | 71 | /* The handler that process character text between the XML tags 72 | * in xml events 73 | */ 74 | void xmlParseClientChar (void *data, const XML_Char *s, int len); 75 | 76 | #endif 77 | --------------------------------------------------------------------------------