Commits

Shlomi Fish  committed 183d579

Add shlomif@shlomifish.org .

  • Participants
  • Parent commits 40f597c

Comments (0)

Files changed (1)

File iglu.org.il/test.pl

 
 my $prefix = "Iglu::LMLM::Types::";
 
-my %extra_mailing_list_classes = 
+my %extra_mailing_list_classes =
 (
     (map { $_ => $prefix . ucfirst($_) } (qw(ivrix linuxology iglu hamakor))),
     "perl-il" => $prefix . "Perl_IL",
 );
 
-my @lists = 
+my @lists =
 (
     {
         'id' => 'gnubies-il',
         'online_archive' => sub {
             my $self = shift;
             my $r = shift;
-            
+
             $r->start_para();
-            
+
             $r->text("Local (cs.huji.ac.il) Archives (new messages only): ");
             $r->url("http://mailman.cs.huji.ac.il/pipermail/linux-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 " . 
+        '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 " . 
+            "require moderator approval and will not be sent to the members " .
             "automatically.\n"
             ),
     },
         'class' => 'iglu',
         'group_base' => 'iglu-jlc',
         'description' => ("The Jerusalem Linux Club's mailing list. " .
-            "Subscribe to get announcements, coordination activity " . 
+            "Subscribe to get announcements, coordination activity " .
             "and other discussions."
         ),
         'title' => "The Jerusalem Linux Club Activities",
         'class' => 'hamakor',
         'group_base' => 'telux',
         'description' => ("The Tel-Aviv Linux Club's mailing list. " .
-            "Subscribe to get announcements, coordination activity " . 
+            "Subscribe to get announcements, coordination activity " .
             "and other discussions."
         ),
         'title' => "The Tel Aviv Linux Club Discussion List",
         'class' => 'listar',
         'group_base' => 'linux-il-announce',
         'hostname' => 'linux.org.il',
-        'description' => ("Announcements for Linux users in Israel " . 
+        '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/");
 
         },
         'guidelines' => ("This list is moderated and the moderator accepts " .
-             "any Linux-related announcements. Note that one is " . 
+             "any Linux-related announcements. Note that one is " .
              "already subscribed to it if he is subscribed to Linux-IL"
              ),
-    },    
+    },
     {
         'id' => 'debian-il',
         'class' => 'ezmlm',
         '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 " . 
+        '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/",
     },
         'hostname' => "libagent.org",
         'title' => "Israeli BSD List",
         'group_base' => "bsd-il",
-        'description' => ("This is the Israeli mailing list for the " . 
-            "BSD-derived operating systems. Discussions regarding FreeBSD, " .            
+        'description' => ("This is the Israeli mailing list for the " .
+            "BSD-derived operating systems. Discussions regarding FreeBSD, " .
             "OpenBSD, NetBSD, etc. are welcome"),
         'guidelines' => "None.",
         'owner' => ["bsd-il-master", "libagent.org"],
         'maintenance-url' => "http://www.libagent.org/mailman/listinfo/bsd-il/",
         'online_archive' => "http://www.libagent.org/pipermail/bsd-il/",
-    }, 
+    },
     {
         'id' => 'hackers-il',
         'class' => 'egroups',
         '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, " . 
+        '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."),
             $r->text(" holds its discussion, announcements and reports here.");
             $r->end_para();
         },
-        'guidelines' => ("Whatever is related to the local Israeli" . 
-            "Linux-related web-sites, as maintained by Hamakor. " . 
+        'guidelines' => ("Whatever is related to the local Israeli" .
+            "Linux-related web-sites, as maintained by Hamakor. " .
             "Other messages should be directed to the other " .
-            "lists."),            
+            "lists."),
     },
     {
         'id' => 'perl-il',
     },
     {
         'id' => 'perl-il-news',
-        'class' => "perl-il", 
+        'class' => "perl-il",
         'title' => "Israeli Perl News & Announcements",
         'group_base' => 'news',
         'description' => ("This is a mailing list for Israeli Perl News and Announcemnts."),
         'online_archive' => sub {
             my $self = shift;
             my $r = shift;
-            
+
             $r->start_para();
             $r->text("Mail-Archive: ");
             $r->url("http://www.mail-archive.com/python%40linux.org.il/");
             $r->url("http://hamakor.org.il/pipermail/python-il/");
             $r->text("\n");
             $r->end_para();
-        }, 
+        },
     },
     {
         'id' => 'php-il',
         'title' => "PHP Israel List",
         'group_base' => "php-israel",
         'description' => ("Discussions and Questions about PHP."),
-        'guidelines' => 
+        'guidelines' =>
         (
-            "Messages can be written in English and Hebrew." . 
+            "Messages can be written in English and Hebrew." .
             "Please trim quoted messages so the E-mails won't be too long.",
         ),
         'owner' => ["php-israel-master", "php-israel.org"],
         'title' => "Ruby-Israel Mailing List (Israel.rb)",
         'group_base' => "israelrb",
         'description' => ("Discussions and Questions about Ruby in Israel."),
-        'guidelines' => 
+        'guidelines' =>
         (
-            "Messages can be written in English and Hebrew." . 
+            "Messages can be written in English and Hebrew." .
             "Please trim quoted messages so the E-mails won't be too long.",
         ),
     },
             "with Israeli/Hebrew internationalisation (i18n) - " .
             "Bidirectionality, Right-to-left, niqud, etc."),
         'title' => "Hebrew Bug Zappers",
-    },    
+    },
     {
         'id' => "ivrix-discuss",
         'class' => 'ivrix',
         '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 " . 
+            "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 " .
         'class' => 'ivrix',
         'group_base' => "translation",
         'title' => "Translation List",
-        'description' => 
-            ("Mailing List dedicated to translation of technical or " . 
+        'description' =>
+            ("Mailing List dedicated to translation of technical or " .
              "semi-technical documents from English to Hebrew or Arabic."
             ),
-         'guidelines' => ("Whatever related to translation of documents." . 
+         'guidelines' => ("Whatever related to translation of documents." .
             " Posts partially in Hebrew are acceptable."),
     },
     {
         'class' => 'hamakor',
         'hostname' => "hamakor.org.il",
         'group_base' => 'discussions',
-        'description' => ("Mailing list for general discussion of " . 
+        'description' => ("Mailing list for general discussion of " .
             "Hamakor-related topics."
         ),
         'title' => "Hamakor Discussions",
         'guidelines' => ("Hebrew is preferable. Don't flame, and don't ".
-            "reply to messages that contain trolling. This mailing list " . 
+            "reply to messages that contain trolling. This mailing list " .
             "is dedicated to discussions of activities and advocacy. " .
             "Technical questsions should be directed elsewhere."),
         'online_archive' => sub {
             my $self = shift;
             my $r = shift;
-            
+
             $r->start_para();
             $r->text("Hamakor Archive: ");
             $r->url("http://mirror.hamakor.org.il/archives/discussions/");
             $r->end_para();
 
         },
-    },    
+    },
     {
         'id' => 'hatzor',
         'class' => 'hamakor',
     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 " . 
+        "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 " . 
+    $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", "iglu.org.il");
+    $main_r->email_address("shlomif", "shlomifish.org");
 
     $main_r->text(", or in ");
 
         "http://www.shlomifish.org/me/contact-me/",
         "other ways of contacting them."
     );
-    
+
     $main_r->end_para();
 }
 
     $main_r->end_para();
 }
 
-my $renderer = 
+my $renderer =
     Mail::LMLM->new(
         'extra-classes' => \%extra_mailing_list_classes,
         title => "List of Linux-related mailing-lists in Israel",
         epilog => \&epilog,
     );
 
-chdir("./mailing-lists/");
+my $dir = "./mailing-lists/";
+mkdir($dir);
+chdir($dir);
 
 $renderer->render();