#!/usr/bin/perl use strict; use Mail::LMLM; use Iglu::LMLM::Types::Ivrix; use Iglu::LMLM::Types::Linuxology; use Iglu::LMLM::Types::Iglu; use Iglu::LMLM::Types::Perl_IL; use Iglu::LMLM::Types::Hamakor; my $prefix = "Iglu::LMLM::Types::"; my %extra_mailing_list_classes = ( (map { $_ => $prefix . ucfirst($_) } (qw(ivrix linuxology iglu hamakor))), "perl-il" => $prefix . "Perl_IL", ); my @lists = ( { 'id' => 'gnubies-il', 'class' => 'egroups', 'group_base' => 'gnubies-il', 'title' => "GNUbies-IL", 'description' => ("Israeli Linux (or UNIX in general) beginners can " . "post their questions here. If you are a " . " Linux beginner please use this mailing-list instead of Linux-IL"), 'guidelines' => ("Anything that is Linux or UNIX related (including " . " newbie questions"), }, { 'id' => 'linux-il', 'class' => 'listar', 'group_base' => 'linux-il', 'hostname' => 'linux.org.il', 'description' => ("The main mailing-list for Linux users in Israel."), 'homepage' => "http://www.iglu.org.il/", 'title' => "Linux-IL", 'online_archive' => sub { my $self = shift; my $r = shift; $r->start_para(); $r->text("Hamakor Archive: "); $r->url("http://mirror.hamakor.org.il/archives/linux-il/"); $r->text("\n"); $r->text("Mail-archive: "); $r->url("http://www.mail-archive.com/linux-il\@cs.huji.ac.il/"); $r->text("\n"); $r->text("Plasma-Gate archive: (old messages only)"); $r->url("http://plasma-gate.weizmann.ac.il/Linux/maillists/"); $r->text("\n"); $r->end_para(); }, 'guidelines' => ("Linux-related questions and discussions. No " . "newbie questions (use gnubies-il instead).\n" . "\n" . "Post size is limited to 16 kilobytes. Larger posts are queued for " . "moderator approval.\n" . "\n" . "If you are not subscribed the message that you send to the list will " . "require moderator approval and will not be sent to the members " . "automatically.\n" ), }, { 'id' => 'linux-heb', 'hostname' => "linux.org.il", 'class' => 'ezmlm', 'group_base' => 'linux-heb', 'description' => ("Linux Discussions and Q&A in Hebrew." ), 'title' => "The Hebrew Linux Mailing List", 'guidelines' => ("Linux discussions, primarily in the Hebrew Language."), }, { 'id' => 'haifa-linux-club', 'class' => 'ezmlm', 'group_base' => 'haifux', 'hostname' => "haifux.org", 'homepage' => "http://www.haifux.org/", 'title' => "Haifa Linux Club Mailing-list", 'description' => sub { my $self = shift; my $r = shift; $r->start_para(); $r->text("Announcements of events organized by or related to the "); $r->url("http://www.haifux.org/", "Haifa Linux Club"); $r->text(" (a.k.a Haifux)."); $r->end_para(); $r->para("General discussion of Linux-related issues and problems is also common and welcome."); }, 'guidelines' => ("Announcement and Q\&A regarding the " . "Haifa Linux Club."), 'online_archive' => "http://www.mail-archive.com/lin-club\@vipe.technion.ac.il/", }, { 'id' => "bar-ilan", 'hostname' => "linux.org.il", 'homepage' => "http://www.cs.biu.ac.il/~shadmid/Linux.htm", 'class' => 'ezmlm', 'title' => "Bar-Ilan University Linux Activities", 'group_base' => "linux-biu", 'description' => ("Mailing-list for announcing, coordinating and " . "discussing Linux-related activities in Bar-Ilan University"), 'guidelines' => ("General Linux questions are welcome (?)"), 'online_archive' => "http://www.mail-archive.com/linux-biu\@linux.org.il/", }, { 'id' => 'iglu-jlc', 'class' => 'iglu', 'group_base' => 'iglu-jlc', 'description' => ("The Jerusalem Linux Club's mailing list. " . "Subscribe to get announcements, coordination activity " . "and other discussions." ), 'title' => "The Jerusalem Linux Club Activities", 'guidelines' => ("JLC Activity. General Linux questions are welcome."), 'homepage' => "http://jlc.iglu.org.il/", 'online_archive' => sub { my $self = shift; my $r = shift; $self->render_none($r); }, }, { 'id' => 'telaviv-linux-club', 'class' => 'hamakor', 'group_base' => 'telux', 'description' => ("The Tel-Aviv Linux Club's mailing list. " . "Subscribe to get announcements, coordination activity " . "and other discussions." ), 'title' => "The Tel Aviv Linux Club Discussion List", 'guidelines' => ("Telux Activity. Hebrew posts are accepted."), 'homepage' => "http://www.cs.tau.ac.il/lin-club/advanced-forum.html", 'online_archive' => sub { my $self = shift; my $r = shift; $self->render_none($r); }, }, { 'id' => 'linux-il-announce', 'class' => 'listar', 'group_base' => 'linux-il-announce', 'hostname' => 'linux.org.il', 'description' => ("Announcements for Linux users in Israel " . "(Linux-IL members are automatically subscribed)"), 'homepage' => "http://www.iglu.org.il/", 'title' => "Linux-IL Announce", 'online_archive' => sub { my $self = shift; my $r = shift; $r->start_para(); $r->text("Plasma-Gate archive: "); $r->url("http://plasma-gate.weizmann.ac.il/Linux/maillists/"); $r->text("\n"); $r->text("Mail-archive: "); $r->url("http://www.mail-archive.com/linux-il\@cs.huji.ac.il/"); $r->end_para(); }, 'guidelines' => ("This list is moderated and the moderator accepts " . "any Linux-related announcements. Note that one is " . "already subscribed to it if he is subscribed to Linux-IL" ), }, { 'id' => 'debian-il', 'class' => 'ezmlm', 'group_base' => 'debian-il', 'hostname' => "debian.org.il", 'homepage' => "http://www.debian.org.il/", 'title' => "Debian-IL", 'description' => ("A group dedicated for users of the Debian Linux " . "distribution in Israel."), 'guidelines' => ("Coordination of Debian activities in Israel. " . "Local Debian support and advocacy. Questions of " . "localization of Debian to Israel "), 'online_archive' => "http://www.mail-archive.com/debian-il\@debian.org.il/", }, { 'id' => 'il-bsd', 'class' => 'listserv', 'hostname' => "post.tau.ac.il", 'title' => "Israeli BSD List", 'group_base' => "il-bsd", 'description' => ("This is the Israeli mailing list for the " . "BSD-derived operating systems. Discussions regarding FreeBSD, " . "OpenBSD, NetBSD and BSDi are welcome"), 'guidelines' => "None.", 'online_archive' => "http://post.tau.ac.il/archives/il-bsd.html", }, { 'id' => 'hackers-il', 'class' => 'egroups', 'title' => "Hackers-IL", 'group_base' => 'hackers-il', 'description' => ("Hackers-IL is a mailing-list dedicated to general " . "discussion of computer-related topics by Israeli people."), 'guidelines' => ("Computers or science related discussions, " . "questions, news, announcements, etc. If it's specifically " . "related to Linux, you should consider posting it to the " . "Linux-IL or gnubies-il mailing-lists instead."), }, { 'id' => 'iglu-web', #'class' => 'egroups', 'class' => 'iglu', 'title' => "IGLU's Website Adminstration (IGLU-web)", 'group_base' => 'iglu-web', 'description' => sub { my $self = shift; my $r = shift; $r->start_para(); $r->text("The administrative group of the "); $r->url("http://www.iglu.org.il/", "Linux-IL website"); $r->text(" holds its discussion, announcements and reports here."); $r->end_para(); }, 'guidelines' => ("Whatever is related to the Israeli Group of Linux " . "Users' web-site. Other messages should be directed to the other " . "lists."), }, { 'id' => 'perl-il', 'class' => "perl-il", 'title' => "Israel Perl Mongers List", 'group_base' => 'perl', 'description' => ("The Israeli Perl-Mongers list is dedicated to " . "questions, answers and discussions regarding the perl " . "programming language."), 'guidelines' => ("Anything that is perl-related is acceptable."), }, { 'id' => 'perl-il-news', 'class' => "perl-il", 'title' => "Israeli Perl News & Announcements", 'group_base' => 'news', 'description' => ("This is a mailing list for Israeli Perl News and Announcemnts."), 'guidelines' => ("Perl News and Announcements."), }, { 'id' => "python-il", 'hostname' => "linux.org.il", 'class' => 'ezmlm', 'title' => "Python-IL", 'group_base' => "python", 'description' => ("Discussions, questions and answers regarding the " . "Python programming language."), 'guidelines' => ("Whatever is related to Python."), }, { 'id' => 'gamla-devel', 'class' => 'egroups', 'group_base' => 'gamla-devel', 'title' => "Gamla Development", 'description' => sub { my $self = shift; my $r = shift; $r->start_para(); $r->text("This mailing-list is dedicated to the development of "); $r->url("http://gamla.iglu.org.il/", "Gamla"); $r->text(", the RAD and WWW application server for perl."); $r->end_para(); }, 'guidelines' => ("Whatever is related to the development and " . "usage of Gamla: discussions, suggestions, questions, " . "answers, ideas, RFCs, and so on."), }, { 'id' => "ivrix-discuss", 'class' => 'ivrix', 'group_base' => "ivrix-discuss", 'title' => "Ivrix Discussions List", 'description' => ["Discussions mailing list for the Ivrix Project.", "This is a higher-volume mailing list intended for " . "discussing ideas for Ivrix, Ivrix projects, or " . "anything related to Hebrew support for Unix. It is " . "recommended that every Ivrix member who intends to " . "actively participate in Ivrix development " . "(or follow it closely) should subscribe to this " . "mailing list. " ], 'guidelines' => ("Whatever related to Ivrix or Hebrew support " . "under Linux."), }, { 'id' => "translation", 'class' => 'ivrix', 'group_base' => "translation", 'title' => "Translation List", 'description' => [ <<"EOF" Mailing List dedicated to translation of technical or semi-technical documents from English to Hebrew or Arabic. EOF ], 'guidelines' => ("Whatever related to translation of documents." . "Posts partially in Hebrew are acceptable."), }, { 'id' => 'haifa-linux-club-projects', 'class' => 'ezmlm', 'group_base' => 'lin-prj', 'hostname' => "vipe.technion.ac.il", 'homepage' => "http://linuxclub.il.eu.org/", 'title' => "Haifa Linux Club's Projects Mailing-list", 'description' => ("The Linux Club's programming projects are discussed " . "here.") , 'guidelines' => ("Anthing that is related to the Linux Club's Programming Projects"), 'online_archive' => "http://www.mail-archive.com/lin-prj\@vipe.technion.ac.il/", }, ); sub prolog { my $self = shift; my $main_r = shift; $main_r->para( "This is a list of the mailing-lists which are affiliated " . "with the Israeli Group of Linux Users (IGLU). It includes such " . "information as how to subscribe/unsubscribe, posting address, " . "posting guidelines, the address of the mailing-list owner, the " . "mailing-list's homepage and the online messages archive." ); $main_r->start_para(); $main_r->text("If you have any comments, suggestions or additions " . "regarding the information contained here, don't hesitate to " . "contact the maintainer of these pages at the following e-mail: "); $main_r->email_address("shlomif", "vipe.technion.ac.il"); $main_r->end_para(); } sub epilog { my $self = shift; my $main_r = shift; $main_r->horizontal_line(); $main_r->start_section("Other Mailing Lists"); $main_r->para("There are other world-wide Linux-related mailing-lists which " . "you can join. Here are some useful links:"); $main_r->start_para(); $main_r->url("http://www.secretagent.com/general/mail.html", "A list of many Linux mailing lists"); $main_r->text("\n"); $main_r->url("http://www.croftj.net/~barreiro/lml.shtml", "Linux Mailing List Menu"); $main_r->end_para(); $main_r->start_para(); $main_r->url("http://www.mail-archive.com/", "The Mail Archive"); $main_r->text(" - Archives many Linux-related lists.\n"); $main_r->url("http://www.yahoogroups.com/", "YahooGroups.com"); $main_r->text(" - archives and provides subscription information for many " . "Linux-related lists."); $main_r->end_para(); $main_r->end_section(); $main_r->horizontal_line(); open VERSION_IN, "<../ver.txt"; my $version = <VERSION_IN>; close (VERSION_IN); chomp($version); $main_r->start_para(); $main_r->text("You can download "); $main_r->url("Shlomif-MailLL-" . $version . ".tar.gz", "the perl code that was used to generate these pages"); $main_r->text("."); $main_r->end_para(); } my $renderer = Mail::LMLM->new( 'extra-classes' => \%extra_mailing_list_classes, title => "List of Linux-related mailing-lists in Israel", headline => "Linux-related mailing-lists in Israel", lists => \@lists, prolog => \&prolog, epilog => \&epilog, ); chdir("./mailing-lists/"); $renderer->render();