The Hybrid Oper Script Collection I use only irssi

Quicklinks: CVS versions - CVS tarball - latest stable tarball - changelog - TODO list

This is a collection of scripts for irssi to make life of opers easier. It is mainly target for EFnet-compatible servers/networks, but a part of the scripts can also be used on other types of servers.
irssi lacks good oper tools, and this is an attempt to provide a collection of tools for opers on hybrid and similar ircds. Any comments, suggestions and requests are very welcome: please email them to garion (at) efnet (.) nl.

WARNING: you must have a DECENT Perl version. 5.005 is NOT adequate. FreeBSD users, be prepared to smack your admin to upgrade your outdated Perl.

Quickstart: download the tarball (either the CVS tarball or the latest stable tarball), extract, and run ./ -i for interactive installation.

Note: is not here yet. Please use the old version for now. It will be rewritten but it may need a redesign as well. If you are just starting out with ho_reformat, store this sample file in ~/.irssi/ and edit it.

'; print_table_header(); for ($i = 0; $i < count($files); $i++) { print_table_line($subdir, $files[$i]); } print ""; } function print_table_header() { print ""; print "Name"; print "Source"; print "Screenshots"; print "Description"; print ""; } function print_table_line($subdir, $file) { $handle = fopen ("$subdir/$file", "r"); $contents = fread ($handle, filesize ("$subdir/$file")); fclose ($handle); $lines = explode("\n", $contents); $numlines = count($lines); $version = "unknown"; $author = "unknown"; $description = "unknown"; $date = "unknown"; for ($linenum = 0; $linenum < $numlines; $linenum++) { if(preg_match('/Revision: (\d+\.\d+) /', $lines[$linenum], $m)) { $version = $m[1]; } if(preg_match('/authors\s*=>\s*\'(.+)\'\s*,/', $lines[$linenum], $m)) { $author = $m[1]; } if(preg_match('/description\s*=>\s*\'(.+)\'\s*,/', $lines[$linenum], $m)) { $description = $m[1]; } # $Id:,v 1.15 2004/08/21 10:11:39 jvunder Exp $ if(preg_match('/\$Id: ho_.+ (\d+\/\d+\/\d+) /', $lines[$linenum], $m)) { $date = $m[1]; } } print ""; print "$file"; print "view source"; print "screenshots"; print "$description"; print ""; } ?>