Changeset 5361

Timestamp:

06/19/09 08:19:45 (3 years ago)

Author:

szabgab

Message:

add more channels
parse the incoming request and fill the nickname fields

File:

• trunk/padre.perlide.org/irc.html (modified) (4 diffs)

trunk/padre.perlide.org/irc.html

@@ -13 +13 @@
  <ul class="navigation">
     <li><a href="/">Home</a></li>
+    <li><a href="developers.html">Developers</a></li>
     <li><a href="/trac/">Trac</a></li>
     <li><a href="http://blogs.padre.perlide.org/" title="Blogs related to Padre">Blogs</a></li>
@@ -20 +21 @@
 <script type="text/javascript">
 var channels = {
-   general: {title:"General Perl Help",   host:"irc.freenode.net", channel:"perl"},
-   win32:   {title:"Win32 specific",      host:"irc.perl.org",     channel:"win32"},
-   padre:   {title:"Padre, the Perl IDE", host:"irc.perl.org",     channel:"padre"},
+   general:      {title:"General Perl Help",      host:"irc.freenode.net", channel:"perl"},
+   win32:        {title:"Win32 specific",         host:"irc.perl.org",     channel:"win32"},
+   padre:        {title:"Padre, the Perl IDE",    host:"irc.perl.org",     channel:"padre"},
+   catalyst:     {title:"Catalyst",               host:"irc.perl.org",     channel:"catalyst"},
+   dbix_class:   {title:"DBIx::Class",            host:"irc.perl.org",     channel:"dbix-class"},
+   email:        {title:"Perl Email Project",     host:"irc.perl.org",     channel:"email"},
+   parrot:       {title:"Parrot",                 host:"irc.perl.org",     channel:"parrot"},
+   perl_qa:      {title:"Perl Quality Assurance", host:"irc.perl.org",     channel:"perl-qa"},
+   perlfr:       {title:"Perl in French",         host:"irc.perl.org",     channel:"perlfr"},
+   poe:          {title:"POE",                    host:"irc.perl.org",     channel:"poe"},   
+   rt:           {title:"POE",                    host:"irc.perl.org",     channel:"rt"},
+   perl_help:    {title:"Perl Help",              host:"irc.perl.org",     channel:"perl-help"},
+   wxperl:       {title:"Perl Help",              host:"irc.perl.org",     channel:"wxperl"},
+   perl6:        {title:"Perl 6 development",     host:"irc.freenode.net", channel:"perl6"},
 };
 
@@ -33 +45 @@
 }
 
+function get_values() {
+    // getting the parameters from the URL
+    var loc = window.location.toString().indexOf('?');
+    if (loc > 0) {
+        var val = window.location.toString().substr(loc + 1);
+        //alert(val);
+        var pairs = val.split("&");
+//alert(pairs);
+//alert(pairs.length);
+        var data = Array;
+        for (var i = 0; i < pairs.length; i++) {
+        var pair = pairs[i].split("=");
+//      alert(pair[0] + " = " + pair[1]);
+        data[pair[0]] = pair[1];
+        }
+        return data;
+    } else {
+        return;
+    }
+}
+
 </script>
-
+<p>
+Please select a nick name and click on one of the links.
+</p>
 <form name="n">
-<input name="nickname" value="">
+Nickname: <input name="nickname" value="">
 </form>
 
@@ -48 +83 @@
    have drop-down box with list of channels ?
    show the localized channels first ?
-   better random nick generator   
+   better random nick generator
+   
+   if all the necessary in
+   
 -->
 
 <table>
 <script type="text/javascript">
-var nick = Math.floor(Math.random()*10000);
-document.forms.n.nickname.value = nick;
+
+var values = get_values();
+if (values["nickname"]) {
+    document.forms.n.nickname.value = values["nickname"];
+} else {
+    var nick = Math.floor(Math.random()*10000);
+    document.forms.n.nickname.value = nick;
+}
 
 for (var i in channels) {