projects sorted

diff --git a/project/332/ListItem.pm b/project/332/ListItem.pm
index 6b588e5..264204f 100755 (executable)
--- a/project/332/ListItem.pm
+++ b/project/332/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"332",
                "platform"=>"unixdevel",
-               "priority"=>8,
+               "priority"=>630,
                "icon"=>"332-front-icon.jpeg",
                # FIXME: Relative 'download':
                "download-sources without patched core"=>"/project/332/332-noexec.tar.gz",

diff --git a/project/AutoGen/ListItem.pm b/project/AutoGen/ListItem.pm
index 38f8c09..28f0f75 100755 (executable)
--- a/project/AutoGen/ListItem.pm
+++ b/project/AutoGen/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"AutoGen",
                "platform"=>"unixdevel",
-               "priority"=>4,
+               "priority"=>540,
                "cvs"=>"macros",
                "link-Documentation"=>'/project/Pod2Html.html.pl?cvs=macros/AutoGen.pm',
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}

diff --git a/project/CasioA/ListItem.pm b/project/CasioA/ListItem.pm
index 754c33b..2d6d088 100755 (executable)
--- a/project/CasioA/ListItem.pm
+++ b/project/CasioA/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"Casio-A",
                "platform"=>"amiga",
-               "priority"=>3,
+               "priority"=>450,
                "icon"=>"Casio-A-icon",
                "download"=>"Casio-A.lha",
                "link-source file"=>"Casio-A.asm",

diff --git a/project/FordFulk/ListItem.pm b/project/FordFulk/ListItem.pm
index b6844ac..9d929b4 100755 (executable)
--- a/project/FordFulk/ListItem.pm
+++ b/project/FordFulk/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"FordFulk",
                "platform"=>"web",
-               "priority"=>5,
+               "priority"=>230,
                "icon"=>"FordFulk-icon",
                "download"=>"FordFulk/FordFulk.zip",
                "summary"=>"Ford-Fulkenson algorithm web applet",

diff --git a/project/Heat/ListItem.pm b/project/Heat/ListItem.pm
index 3239b9e..592efd7 100755 (executable)
--- a/project/Heat/ListItem.pm
+++ b/project/Heat/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"Heat",
                "platform"=>"web",
-               "priority"=>5,
+               "priority"=>220,
                "icon"=>"Heat-icon",
                "download"=>"Heat/Heat.zip",
                "summary"=>"Heat distribution simulation web applet",

diff --git a/project/Index.html.pl b/project/Index.html.pl
index eac89ee..dbbf486 100755 (executable)
--- a/project/Index.html.pl
+++ b/project/Index.html.pl
@@ -45,22 +45,6 @@ print My::Project->platforms(undef());
 
 my %item=( My::Project::item_hash_read() );
 
-# $col{"name"}{"show"}=1
-# $col{"name"}{"format"}=sub { "<".$_[0].">"; }
-# $col{"name"}{""}="Project name";
-# @col_order
-
-my @row_order=qw(-priority);
-my @col_order=qw(name summary license maintenance language);
-my %col;
-
-sub format_url ($) { return (!$_[0] ? "" : '<a href="'.$_[0].'">X</a>'); }
-
-$col{"name"}{"format"}=sub {
-               $_[0]=~s#<a\s[^>]*>([^<]*)</a>#$1#g;
-               return "<a href=\"".$_[1]."/\">".$_[0]."</a>";
-               };
-
 my @platforms=@My::Project::platforms;
 while (@platforms) {
        my $platform_sym =shift @platforms;

diff --git a/project/Islet/ListItem.pm b/project/Islet/ListItem.pm
index 2c4b0e8..e3cc9c3 100755 (executable)
--- a/project/Islet/ListItem.pm
+++ b/project/Islet/ListItem.pm
@@ -29,9 +29,9 @@ use My::Web;
 
 
 our @ListItem=(
-               "name"=>'Islet',
+               "name"=>"Islet",
                "platform"=>"web",
-               "priority"=>5,
+               "priority"=>210,
                "icon"=>"Islet-icon",
                "download"=>"Islet/Islet.zip",
                "summary"=>"Map fight web game applet",

diff --git a/project/LaserGame/ListItem.pm b/project/LaserGame/ListItem.pm
index 0484dc3..a0f2c8f 100755 (executable)
--- a/project/LaserGame/ListItem.pm
+++ b/project/LaserGame/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"LaserGame",
                "platform"=>"amiga",
-               "priority"=>4,
+               "priority"=>550,
                "icon"=>"hw-icon.jpeg",
                "download"=>"LaserGame.lha",
                "link-Intel 8051 source file"=>"LaserGun.a51",

diff --git a/project/List.html.pl b/project/List.html.pl
index 7680b99..0e0e588 100755 (executable)
--- a/project/List.html.pl
+++ b/project/List.html.pl
@@ -64,7 +64,7 @@ sub format_url ($) { return (!$_[0] ? "" : '<a href="'.$_[0].'">X</a>'); }
 $col{"name"}{"format"}=sub {
                $_[0]=~s#<a\s[^>]*>([^<]*)</a>#$1#g;
                return "<a href=\"".$_[1]."/\">"
-                               .$item{$_[1]}{"priority"}.":"   # debug
+                               .(!$My::Web::W->{"args"}{"W"} ? "" : $item{$_[1]}{"priority"}.":")
                                .$_[0]."</a>";
                };
 
@@ -111,7 +111,8 @@ my($platform)=@_;
                                for my $order_by (@row_order,"name") {
                                        my $order_by=$order_by;
                                        my $minus=($order_by=~s/^(-)//)[0];
-                                       my $r=($item{$a}{$order_by} cmp $item{$b}{$order_by});
+                                       # FIXME: 'cmp' or '<=>'?
+                                       my $r=($item{$a}{$order_by} <=> $item{$b}{$order_by});
                                        $r=-$r if $minus;
                                        return $r if $r;
                                        }

diff --git a/project/MyWeb/ListItem.pm b/project/MyWeb/ListItem.pm
index 699ef83..56d1289 100755 (executable)
--- a/project/MyWeb/ListItem.pm
+++ b/project/MyWeb/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"My::Web",
                "platform"=>"web",
-               "priority"=>5,
+               "priority"=>250,
                "cvs"=>"www/www.jankratochvil.net",
                "link-Example web"=>a_href('http://www.jankratochvil.net/'),
                "summary"=>a_href('http://www.perl.org/','Perl')." web framework",

diff --git a/project/Nokia61/ListItem.pm b/project/Nokia61/ListItem.pm
index e8ae1d8..d5b717a 100755 (executable)
--- a/project/Nokia61/ListItem.pm
+++ b/project/Nokia61/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"Rotation",
                "platform"=>"web",
-               "priority"=>7,
+               "priority"=>480,
                "icon"=>"Nokia61-icon.jpeg",
                "download"=>"Nokia61.c",
                "summary"=>"Nokia logical game "Rotation" solver",

diff --git a/project/PortDiag/ListItem.pm b/project/PortDiag/ListItem.pm
index 237d4dc..29da200 100755 (executable)
--- a/project/PortDiag/ListItem.pm
+++ b/project/PortDiag/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"PortDiag",
                "platform"=>"amiga",
-               "priority"=>4,
+               "priority"=>470,
                "icon"=>"PortDiag-icon",
                "download"=>"PortDiag.lha",
                "link-source file"=>"PortDiag.asm",

diff --git a/project/QueryDev/ListItem.pm b/project/QueryDev/ListItem.pm
index eec3300..e00b521 100755 (executable)
--- a/project/QueryDev/ListItem.pm
+++ b/project/QueryDev/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"QueryDev",
                "platform"=>"amiga",
-               "priority"=>3,
+               "priority"=>150,
                "download"=>"QueryDev.lha",
                "link-source file"=>"QueryDev.asm",
                "link-aminet README"=>"QueryDev.README",

diff --git a/project/Rel.pl b/project/Rel.pl
index 8f740e6..f5feef0 100755 (executable)
--- a/project/Rel.pl
+++ b/project/Rel.pl
@@ -43,14 +43,19 @@ my $W=My::Web->init(
 my %item=( My::Project::item_hash_read() );
 my @platforms=@My::Project::platforms;
 my @projects=();
-while (@platforms) {
+# Do not sort by platforms:
+# while (@platforms)
+{
        my $platform_sym =shift @platforms;
        my $platform_name=shift @platforms;
        push @projects,sort {
                        ($item{$b}{"priority"} <=> $item{$a}{"priority"})
                        or
                        (lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
-                       } map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
+                       }
+                                       ( # Do not sort by platform: map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); }        # )
+                                       keys(%item)
+                                       );
        }
 my $target=undef();
 for (0..$#projects) {

diff --git a/project/ResRAM/ListItem.pm b/project/ResRAM/ListItem.pm
index e621809..e46398e 100755 (executable)
--- a/project/ResRAM/ListItem.pm
+++ b/project/ResRAM/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"ResRAM",
                "platform"=>"amiga",
-               "priority"=>5,
+               "priority"=>530,
                "download"=>"ResRAM.lha",
                "link-source file"=>"ResRAM.asm",
                "link-aminet README"=>"ResRAM.README",

diff --git a/project/SClock/ListItem.pm b/project/SClock/ListItem.pm
index a1bec73..d67605c 100755 (executable)
--- a/project/SClock/ListItem.pm
+++ b/project/SClock/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"SClock",
                "platform"=>"amiga",
-               "priority"=>3,
+               "priority"=>140,
                "download"=>"SClock.lha",
                "link-source file"=>"SClock.asm",
                "link-aminet README"=>"SClock.README",

diff --git a/project/ShortRel/ListItem.pm b/project/ShortRel/ListItem.pm
index baf3fd9..7d9e8ac 100755 (executable)
--- a/project/ShortRel/ListItem.pm
+++ b/project/ShortRel/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"ShortRel",
                "platform"=>"amiga",
-               "priority"=>4,
+               "priority"=>280,
                "download"=>"ShortRel.lha",
                "link-source file"=>"ShortRel.asm",
                "link-aminet README"=>"ShortRel.README",

diff --git a/project/TraceFS/ListItem.pm b/project/TraceFS/ListItem.pm
index b389951..6bb0b3e 100755 (executable)
--- a/project/TraceFS/ListItem.pm
+++ b/project/TraceFS/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"TraceFS",
                "platform"=>"w32",
-               "priority"=>4,
+               "priority"=>610,
                "icon"=>"TraceFS-icon",
                "cvs"=>"priv/captive/src/TraceFS",
                "link-Documentation"=>"/project/captive/doc/CacheManager.html.pl#TraceFS",

diff --git a/project/badblock_guess/ListItem.pm b/project/badblock_guess/ListItem.pm
index 47c405c..37ea617 100755 (executable)
--- a/project/badblock_guess/ListItem.pm
+++ b/project/badblock_guess/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"badblock-guess",
                "platform"=>"unixuser",
-               "priority"=>7,
+               "priority"=>590,
                "icon"=>"hdd-icon.jpeg",
                "download-compiled static binary"=>"badblock-guess",
                "download-gzipped compiled static binary"=>"badblock-guess.gz",

diff --git a/project/captive/ListItem.pm b/project/captive/ListItem.pm
index bcac61b..440b515 100755 (executable)
--- a/project/captive/ListItem.pm
+++ b/project/captive/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"Captive",
                "platform"=>"unixuser",
-               "priority"=>9,
+               "priority"=>666,
                "summary"=>"NTFS filesystem, MS-Windows NT kernel emulation",
                "license"=>"GPL",
                "maintenance"=>"active",

diff --git a/project/checkstatic/ListItem.pm b/project/checkstatic/ListItem.pm
index fe0b623..c400142 100755 (executable)
--- a/project/checkstatic/ListItem.pm
+++ b/project/checkstatic/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"checkstatic",
                "platform"=>"unixdevel",
-               "priority"=>7,
+               "priority"=>510,
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
                "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/home/lace/bin/checkstatic?rev=HEAD",
                "summary"=>"C sources symbol attributes checker",

diff --git a/project/cvsbranchdiff/ListItem.pm b/project/cvsbranchdiff/ListItem.pm
index 0b7cfb6..7bae49b 100755 (executable)
--- a/project/cvsbranchdiff/ListItem.pm
+++ b/project/cvsbranchdiff/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"cvsbranchdiff",
                "platform"=>"unixdevel",
-               "priority"=>6,
+               "priority"=>490,
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
                "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/home/lace/bin/cvsbranchdiff?rev=HEAD",
                "summary"=>"CVS Branching Utility",

diff --git a/project/cvsutil/ListItem.pm b/project/cvsutil/ListItem.pm
index 7f25f6c..24e93dd 100755 (executable)
--- a/project/cvsutil/ListItem.pm
+++ b/project/cvsutil/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"cvsutil",
                "platform"=>"unixdevel",
-               "priority"=>7,
+               "priority"=>500,
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
                "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/home/lace/bin/cvsutil?rev=HEAD",
                "summary"=>"Clean CVS checkout working files or safely change CVS/Root",

diff --git a/project/d1xnet/ListItem.pm b/project/d1xnet/ListItem.pm
index ccaac7c..20a86b7 100755 (executable)
--- a/project/d1xnet/ListItem.pm
+++ b/project/d1xnet/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://d1x.warpcore.org/','D1X').' TCP/IP',
                "platform"=>"patch",
-               "priority"=>2,
+               "priority"=>200,
                "icon"=>"exit03.jpeg",
                "download"=>"d1x-tcpip-0.99.1.diff.gz",
                "summary"=>a_href('http://d1x.warpcore.org/','D1X').' native TCP/IP support patch',

diff --git a/project/doswatch/ListItem.pm b/project/doswatch/ListItem.pm
index 7441de5..e4796c9 100755 (executable)
--- a/project/doswatch/ListItem.pm
+++ b/project/doswatch/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"DOSWatcher",
                "platform"=>"dos",
-               "priority"=>3,
+               "priority"=>390,
                "download"=>"doswatch.zip",
                "summary"=>"DOS files access strace(1) equivalent",
                "license"=>"PD",

diff --git a/project/energie/ListItem.pm b/project/energie/ListItem.pm
index 98a2040..1c01fcb 100755 (executable)
--- a/project/energie/ListItem.pm
+++ b/project/energie/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"PHP Web",
                "platform"=>"web",
-               "priority"=>4,
+               "priority"=>240,
                "cvs"=>"www/www.energie.vellum.cz",
                "link-Example web"=>a_href('http://www.energie.vellum.cz/'),
                "summary"=>a_href('http://www.php.net/','PHP')." web framework",

diff --git a/project/etherealmmse/ListItem.pm b/project/etherealmmse/ListItem.pm
index ee7db49..e56dc84 100755 (executable)
--- a/project/etherealmmse/ListItem.pm
+++ b/project/etherealmmse/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://www.ethereal.com/','Ethereal').' MMSE fix',
                "platform"=>"patch",
-               "priority"=>3,
+               "priority"=>360,
                "icon"=>"elogo3d100x100",
                "summary"=>'Fixed MMS Encapsulation protocol decoding',
                "link-ChangeLog entry"=>'http://www.ethereal.com/cgi-bin/viewcvs.cgi/ethereal/packet-mmse.c#rev1.15',

diff --git a/project/etherealwsp/ListItem.pm b/project/etherealwsp/ListItem.pm
index 4be64a8..35a5616 100755 (executable)
--- a/project/etherealwsp/ListItem.pm
+++ b/project/etherealwsp/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://www.ethereal.com/','Ethereal').' WSP patch',
                "platform"=>"patch",
-               "priority"=>3,
+               "priority"=>350,
                "icon"=>"elogo3d100x100",
                "summary"=>'Enhanced WSP headers decoding',
                "download-patch"=>'ethereal-2002-08-03-packet-wsp.c-contentlocation.diff',

diff --git a/project/fixhtml/ListItem.pm b/project/fixhtml/ListItem.pm
index 4094069..669e8f9 100755 (executable)
--- a/project/fixhtml/ListItem.pm
+++ b/project/fixhtml/ListItem.pm
@@ -32,7 +32,7 @@ our @ListItem=(
                "name"=>"fixhtml",
                "platform"=>"unixuser",
                "trivia"=>1,
-               "priority"=>3,
+               "priority"=>20,
                "download"=>"fixhtml.pl",
                "summary"=>"Convert HTML files URLs to relative",
                "license"=>"PD",

diff --git a/project/gladewsrc/ListItem.pm b/project/gladewsrc/ListItem.pm
index 83116ae..dced5dd 100755 (executable)
--- a/project/gladewsrc/ListItem.pm
+++ b/project/gladewsrc/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://glade.gnome.org/','Glade').' -w',
                "platform"=>"patch",
-               "priority"=>4,
+               "priority"=>310,
                "icon"=>"glade-icon",
                "summary"=>'Option <i>--write-source</i> for batch compilation',
                "download-original patch"=>'glade-0.5.7-writesource.diff',

diff --git a/project/gsmperl/ListItem.pm b/project/gsmperl/ListItem.pm
index 4e234e1..8aae4bb 100755 (executable)
--- a/project/gsmperl/ListItem.pm
+++ b/project/gsmperl/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://www.tektonica.com/projects/gsmsms/','GSM::SMS').' patch',
                "platform"=>"patch",
-               "priority"=>5,
+               "priority"=>520,
                "cvs"=>"gsmperl/GSM:lace",
                "summary"=>'Extension of '.a_href('http://www.tektonica.com/projects/gsmsms/','GSM::SMS')
                                .' for EMS+Alcatel',

diff --git a/project/int13sniff/ListItem.pm b/project/int13sniff/ListItem.pm
index 812df09..e8bc919 100755 (executable)
--- a/project/int13sniff/ListItem.pm
+++ b/project/int13sniff/ListItem.pm
@@ -29,9 +29,9 @@ use My::Web;
 
 
 our @ListItem=(
-               "name"=>'Int13Sniff',
+               "name"=>"Int13Sniff",
                "platform"=>"unixdevel",
-               "priority"=>4,
+               "priority"=>370,
                "icon"=>"int13sniff-icon",
                "summary"=>'Trace PC bootloader disk operations',
                "download-source"=>'http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/*checkout*/surprise/surprise/misc/int13sniff.S?rev=HEAD',

diff --git a/project/ircon/ListItem.pm b/project/ircon/ListItem.pm
index a49a536..51b2f0b 100755 (executable)
--- a/project/ircon/ListItem.pm
+++ b/project/ircon/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"IRCon",
                "platform"=>"unixuser",
-               "priority"=>5,
+               "priority"=>580,
                "icon"=>"ircon-icon.jpeg",
                "download"=>"ircon.tar.gz",
                "link-index of scanned images"=>"ircon-img/",

diff --git a/project/kewensis/ListItem.pm b/project/kewensis/ListItem.pm
index 66e6431..ad74f7f 100755 (executable)
--- a/project/kewensis/ListItem.pm
+++ b/project/kewensis/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"kewensis",
                "platform"=>"web",
-               "priority"=>5,
+               "priority"=>120,
                "cvs"=>"kewensis",
                "summary"=>a_href('http://www.ipni.org/','Plant Name Index').' custom engine',
                "license"=>"PD",

diff --git a/project/kix/ListItem.pm b/project/kix/ListItem.pm
index 02b9f49..3a209d3 100755 (executable)
--- a/project/kix/ListItem.pm
+++ b/project/kix/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"KIX",
                "platform"=>"unixuser",
-               "priority"=>4,
+               "priority"=>110,
                "download"=>"kix.c",
                "summary"=>"Free protocol-compatible ".a_href('http://www.kali.net/','Kali').' server equivalent',
                "license"=>"PD",

diff --git a/project/kware/ListItem.pm b/project/kware/ListItem.pm
index 9409b1c..45a5869 100755 (executable)
--- a/project/kware/ListItem.pm
+++ b/project/kware/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"KernelWare",
                "platform"=>"unixdevel",
-               "priority"=>5,
+               "priority"=>190,
                "download"=>"kware.tar.gz",
                "summary"=>"Linux kernel drivers in userland for their debugging",
                "license"=>"PD",

diff --git a/project/libtool/ListItem.pm b/project/libtool/ListItem.pm
index 88c0558..eded704 100755 (executable)
--- a/project/libtool/ListItem.pm
+++ b/project/libtool/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://www.gnu.org/software/libtool/libtool.html','GNU Libtool').' fix',
                "platform"=>"patch",
-               "priority"=>7,
+               "priority"=>620,
                "summary"=>'Handle duplicate object file names',
                "download-patch"=>'http://savannah.gnu.org/cgi-bin/cvsweb/libtool/ltmain.in.diff?r1=1.320&r2=1.321',
                "license"=>"GPL",

diff --git a/project/line9k/ListItem.pm b/project/line9k/ListItem.pm
index e8de66f..0e62897 100755 (executable)
--- a/project/line9k/ListItem.pm
+++ b/project/line9k/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"line9k",
                "platform"=>"unixuser",
-               "priority"=>7,
+               "priority"=>420,
                "icon"=>"charger-icon.jpeg",
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
                "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/bin/line9k?rev=HEAD",

diff --git a/project/lynxilla/ListItem.pm b/project/lynxilla/ListItem.pm
index f3196b1..cbdc9f4 100755 (executable)
--- a/project/lynxilla/ListItem.pm
+++ b/project/lynxilla/ListItem.pm
@@ -32,7 +32,7 @@ our @ListItem=(
                "name"=>"lynxilla",
                "platform"=>"web",
                "trivia"=>1,
-               "priority"=>6,
+               "priority"=>460,
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
                "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/.userContent.css?rev=HEAD",
                "summary"=>a_href('http://lynx.isc.org/','Lynx').' look&feel with '

diff --git a/project/mdsms/ListItem.pm b/project/mdsms/ListItem.pm
index ce609f1..b807a5a 100755 (executable)
--- a/project/mdsms/ListItem.pm
+++ b/project/mdsms/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"mdsms",
                "platform"=>"unixuser",
-               "priority"=>8,
+               "priority"=>600,
                "icon"=>"siemens_m20t-icon.jpeg",
                "download-i386 RPM package"=>"dist/mdsms-1.5.3-0.i386.rpm",
                "download-sources RPM package"=>"dist/mdsms-1.5.3-0.src.rpm",

diff --git a/project/middleman/ListItem.pm b/project/middleman/ListItem.pm
index 7f933a5..3504565 100755 (executable)
--- a/project/middleman/ListItem.pm
+++ b/project/middleman/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://middle-man.sourceforge.net/','Middleman').' port',
                "platform"=>"unixuser",
-               "priority"=>3,
+               "priority"=>60,
                "cvs"=>"middleman:lace",
                "summary"=>'HTTP proxy ported to '
                                .a_href('http://www.freebsd.org/','FreeBSD'),

diff --git a/project/mod_auth_tacacs/ListItem.pm b/project/mod_auth_tacacs/ListItem.pm
index d89b5c9..e9a2b94 100755 (executable)
--- a/project/mod_auth_tacacs/ListItem.pm
+++ b/project/mod_auth_tacacs/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://sourceforge.net/projects/mod-auth-tacacs/','mod_auth_tacacs').' client',
                "platform"=>"patch",
-               "priority"=>2,
+               "priority"=>260,
                "icon"=>"cisco-icon.jpeg",
                "download"=>"mod_auth_tacacs-2.0.2-gts1-checkout.diff.gz",
                "link-mod_auth_tacacs homepage"=>"http://sourceforge.net/projects/mod-auth-tacacs/",

diff --git a/project/mot2as/ListItem.pm b/project/mot2as/ListItem.pm
index 7c7c36b..917aba0 100755 (executable)
--- a/project/mot2as/ListItem.pm
+++ b/project/mot2as/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"mot2as",
                "platform"=>"unixdevel",
-               "priority"=>5,
+               "priority"=>50,
                "download"=>"mot2as.c",
                "summary"=>'Convert Motorola to AT&T/GNU assembler syntax',
                "license"=>"PD",

diff --git a/project/muttsort/ListItem.pm b/project/muttsort/ListItem.pm
index bb75c0f..81218d5 100755 (executable)
--- a/project/muttsort/ListItem.pm
+++ b/project/muttsort/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://www.mutt.org/','Mutt').' speedup',
                "platform"=>"patch",
-               "priority"=>5,
+               "priority"=>430,
                "icon"=>"mutt_button",
                "summary"=>'Mailbox reading phase acceleration',
                "download-patch"=>'mutt-sort.diff',

diff --git a/project/netstat/ListItem.pm b/project/netstat/ListItem.pm
index b26c794..24b94a7 100755 (executable)
--- a/project/netstat/ListItem.pm
+++ b/project/netstat/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"netstat -p",
                "platform"=>"patch",
-               "priority"=>3,
+               "priority"=>400,
                "download"=>"net-tools-1.50-progname.diff.gz",
                "summary"=>"Program name display for ".a_href('http://www.inka.de/sites/lina/linux/NetTools/','net-tools-1.50').'/netstat',
                "license"=>"PD",

diff --git a/project/oslik/ListItem.pm b/project/oslik/ListItem.pm
index 8c39715..3f18c9c 100755 (executable)
--- a/project/oslik/ListItem.pm
+++ b/project/oslik/ListItem.pm
@@ -30,9 +30,9 @@ use My::Web;
 
 our @ListItem=(
                "name"=>"oslik",
-               "platform"=>"unixuser",
+               "platform"=>"unixdevel",
                "trivia"=>1,
-               "priority"=>5,
+               "priority"=>70,
                "download"=>"oslik/oslik.zip",
                "summary"=>"Prolog example solving logical puzzle Oslik",
                "license"=>"PD",

diff --git a/project/patchd2/ListItem.pm b/project/patchd2/ListItem.pm
index 8b006a8..6d2dad1 100755 (executable)
--- a/project/patchd2/ListItem.pm
+++ b/project/patchd2/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://www.descent2.com/','Descent 2').' no-CD',
                "platform"=>"dos",
-               "priority"=>2,
+               "priority"=>160,
                "icon"=>"d2-icon.jpeg",
                "download"=>"patchd2.zip",
                "summary"=>a_href('http://www.descent2.com/','Descent 2').' patch to avoid CD-ROM requirement',

diff --git a/project/pgsqlsubstr/ListItem.pm b/project/pgsqlsubstr/ListItem.pm
index 29ca16b..dff23d9 100755 (executable)
--- a/project/pgsqlsubstr/ListItem.pm
+++ b/project/pgsqlsubstr/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://www.postgresql.org/','PostgreSQL').'-6.3 fix',
                "platform"=>"patch",
-               "priority"=>3,
+               "priority"=>290,
                "icon"=>"postgresql",
                "summary"=>'Fixed substr() and substring() SQL functions',
                "download-patch"=>'http://developer.postgresql.org/cvsweb.cgi/pgsql-server/src/backend/utils/adt/varlena.c.diff?r1=1.31&r2=1.32&f=u',

diff --git a/project/phphash/ListItem.pm b/project/phphash/ListItem.pm
index e6f2556..58b5543 100755 (executable)
--- a/project/phphash/ListItem.pm
+++ b/project/phphash/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>a_href('http://www.php.net/','PHP').'-3.0b6 fix',
                "platform"=>"patch",
-               "priority"=>3,
+               "priority"=>300,
                "icon"=>"php",
                "summary"=>'Avoid excessive use of memory for hashes',
                "download-patch"=>'http://cvs.php.net/diff.php/php3/Attic/hash.c?r1=1.76&r2=1.77&ty=u',

diff --git a/project/pipebuf/ListItem.pm b/project/pipebuf/ListItem.pm
index 010eaf0..1b12092 100755 (executable)
--- a/project/pipebuf/ListItem.pm
+++ b/project/pipebuf/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"pipebuf",
                "platform"=>"unixuser",
-               "priority"=>7,
+               "priority"=>440,
                "download"=>"pipebuf.c",
                "summary"=>"UNIX pipe realtime buffering",
                "license"=>"PD",

diff --git a/project/postget/ListItem.pm b/project/postget/ListItem.pm
index deae964..ff499b8 100755 (executable)
--- a/project/postget/ListItem.pm
+++ b/project/postget/ListItem.pm
@@ -32,7 +32,7 @@ our @ListItem=(
                "name"=>"postget",
                "platform"=>"web",
                "trivia"=>1,
-               "priority"=>6,
+               "priority"=>380,
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
                "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/WWW/cgi-bin/postget.php?rev=HEAD",
                "summary"=>"Bookmark ".a_href('http://www.w3.org/TR/html4/interact/forms.html#h-17.13.1','POST')

diff --git a/project/ppp9k/ListItem.pm b/project/ppp9k/ListItem.pm
index f99e47f..c5ff3f8 100755 (executable)
--- a/project/ppp9k/ListItem.pm
+++ b/project/ppp9k/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"ppp9k",
                "platform"=>"unixuser",
-               "priority"=>6,
+               "priority"=>410,
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
                "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/home/lace/bin/ppp9k?rev=HEAD",
                "summary"=>"Connect device (Nokia Communicator) by serial PPP to your LAN",

diff --git a/project/redirector_ad/ListItem.pm b/project/redirector_ad/ListItem.pm
index 3c552c2..003f30d 100755 (executable)
--- a/project/redirector_ad/ListItem.pm
+++ b/project/redirector_ad/ListItem.pm
@@ -29,9 +29,9 @@ use My::Web;
 
 
 our @ListItem=(
-               "name"=>'redirector-ad',
+               "name"=>"redirector-ad",
                "platform"=>"unixuser",
-               "priority"=>7,
+               "priority"=>340,
                "icon"=>"cnet-icon",
                "cvs"=>"redirector-ad",
                "summary"=>'Banner killer as '.a_href('http://www.squid-cache.org/','Squid').' redirector filter',

diff --git a/project/smbfs/ListItem.pm b/project/smbfs/ListItem.pm
index a7dc691..d499dff 100755 (executable)
--- a/project/smbfs/ListItem.pm
+++ b/project/smbfs/ListItem.pm
@@ -29,10 +29,10 @@ use My::Web;
 
 
 our @ListItem=(
-               "name"=>'smbfs patch',
+               "name"=>"smbfs patch",
                "platform"=>"unixuser",
                "trivia"=>1,
-               "priority"=>6,
+               "priority"=>80,
                "download"=>"smbfs-2.1.132-blocksize.diff",
                "summary"=>'Linux kernel smbfs acceleration patch',
                "license"=>"PD",

diff --git a/project/sshpatch/ListItem.pm b/project/sshpatch/ListItem.pm
index 8569ce0..f0aef26 100755 (executable)
--- a/project/sshpatch/ListItem.pm
+++ b/project/sshpatch/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"SSH-1 patch",
                "platform"=>"unixuser",
-               "priority"=>7,
+               "priority"=>180,
                "download"=>"ssh-1.2.30-kadata+odforw.tar.gz",
                "download-SSH-1, version 1.2.30, .src.rpm"=>"ftp://ftp.fi.muni.cz/pub/ssh/local-fi.muni.cz/linux/ssh-1.2.30-1i.src.rpm",
                "download-SSH-1, version 1.2.30, .tar.gz"=>"ftp://ftp.fi.muni.cz/pub/ssh/ssh-1.2.30.tar.gz",

diff --git a/project/ssht/ListItem.pm b/project/ssht/ListItem.pm
index 96c41b9..90403f0 100755 (executable)
--- a/project/ssht/ListItem.pm
+++ b/project/ssht/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"ssht",
                "platform"=>"unixuser",
-               "priority"=>4,
+               "priority"=>90,
                "cvs"=>"ssht",
                "summary"=>'Unattended intranet host accessibility by '.a_href('http://www.openssh.org/','SSH').' tunnel',
                "license"=>"PD",

diff --git a/project/step/ListItem.pm b/project/step/ListItem.pm
index 093da5e..b158b67 100755 (executable)
--- a/project/step/ListItem.pm
+++ b/project/step/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"STEP",
                "platform"=>"web",
-               "priority"=>4,
+               "priority"=>130,
                "download"=>"step.tar.gz",
                "summary"=>"Custom web database application",
                "license"=>"PD",

diff --git a/project/surprise/ListItem.pm b/project/surprise/ListItem.pm
index 83b6ad5..f5eb31a 100755 (executable)
--- a/project/surprise/ListItem.pm
+++ b/project/surprise/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"Partition Surprise",
                "platform"=>"unixuser",
-               "priority"=>9,
+               "priority"=>650,
                "icon"=>"surprise-gnome-0-icon",
                "download-Page on SourceForge.net"=>"http://sourceforge.net/project/showfiles.php?group_id=10546",
                "download-ISO Image from SourceForge.net"=>"http://surprise.sourceforge.net/download/surprise-rel7.iso.zip",

diff --git a/project/tac_plus/ListItem.pm b/project/tac_plus/ListItem.pm
index 10c78e1..40674b8 100755 (executable)
--- a/project/tac_plus/ListItem.pm
+++ b/project/tac_plus/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"tac_plus auth",
                "platform"=>"unixuser",
-               "priority"=>8,
+               "priority"=>270,
                "icon"=>"cisco-icon.jpeg",
                "download-GTS rel.4 diff for TACACS+ v4.0.3"=>"tac_plus-F4.0.3.alpha.8.gts4.diff.gz",
                "download-TACACS+ v4.0.3, Devrim Seral rel.8"=>"http://www.gazi.edu.tr/tacacs/index.php?page=download",

diff --git a/project/tcp_rto/ListItem.pm b/project/tcp_rto/ListItem.pm
index 33684a2..9f9ca54 100755 (executable)
--- a/project/tcp_rto/ListItem.pm
+++ b/project/tcp_rto/ListItem.pm
@@ -32,7 +32,7 @@ our @ListItem=(
                "name"=>"tcp_rto",
                "platform"=>"unixuser",
                "trivia"=>1,
-               "priority"=>7,
+               "priority"=>330,
                "download-Linux kernel 2.2.17 patch"=>"linux-2.2.17-tcp_rto-1.diff",
                "download-Linux kernel 2.4.16 patch"=>"linux-2.4.16-tcp_rto-1.diff",
                "summary"=>"Linux kernel maximal TCP round-trip-time patch",

diff --git a/project/tcpdump/ListItem.pm b/project/tcpdump/ListItem.pm
index c07a4e6..afb52fd 100755 (executable)
--- a/project/tcpdump/ListItem.pm
+++ b/project/tcpdump/ListItem.pm
@@ -32,7 +32,7 @@ our @ListItem=(
                "name"=>"tcpdump ASCII",
                "platform"=>"unixuser",
                "trivia"=>1,
-               "priority"=>6,
+               "priority"=>170,
                "download"=>"tcpdump-3.4-ASCIIdump.diff",
                "download-tcpdump-3.4"=>"ftp://ftp.ee.lbl.gov/tcpdump-3.4.tar.Z",
                "summary"=>"tcpdump(1) patch for better output readable as ASCII",

diff --git a/project/timeplan/ListItem.pm b/project/timeplan/ListItem.pm
index 9d14179..821fa97 100755 (executable)
--- a/project/timeplan/ListItem.pm
+++ b/project/timeplan/ListItem.pm
@@ -32,7 +32,7 @@ our @ListItem=(
                "name"=>"timeplan",
                "platform"=>"unixuser",
                "trivia"=>1,
-               "priority"=>6,
+               "priority"=>100,
                "icon"=>"digiclock.jpeg",
                "download"=>"timeplan-1.0.1.tar.gz",
                "cvs"=>"timeplan",

diff --git a/project/vblib/ListItem.pm b/project/vblib/ListItem.pm
index ecd9c61..344320f 100755 (executable)
--- a/project/vblib/ListItem.pm
+++ b/project/vblib/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"vblib",
                "platform"=>"unixdevel",
-               "priority"=>4,
+               "priority"=>30,
                "download"=>"vblib-1.0.0.tar.gz",
                "summary"=>"High performance memory streams library",
                "license"=>"PD",

diff --git a/project/wayback/ListItem.pm b/project/wayback/ListItem.pm
index 380d62d..7538911 100755 (executable)
--- a/project/wayback/ListItem.pm
+++ b/project/wayback/ListItem.pm
@@ -32,7 +32,7 @@ our @ListItem=(
                "name"=>"wayback",
                "platform"=>"unixuser",
                "trivia"=>1,
-               "priority"=>7,
+               "priority"=>320,
                "cvs"=>"wayback",
                "summary"=>"Shift system time backwards for a specific application",
                "license"=>"PD",

diff --git a/project/winvnc/ListItem.pm b/project/winvnc/ListItem.pm
index 883fecc..8bf0773 100755 (executable)
--- a/project/winvnc/ListItem.pm
+++ b/project/winvnc/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"WinVNC hide",
                "platform"=>"w32",
-               "priority"=>6,
+               "priority"=>560,
                "icon"=>"nowinvnc",
                "download-already patched version 3.3.3r9"=>"vnc-3.3.3r9_x86_win32-exe-SECRET.zip",
                "download-original version 3.3.3r9"=>"http://www.uk.research.att.com/vnc/dist/vnc-3.3.3r9_x86_win32.zip",

diff --git a/project/wllib/ListItem.pm b/project/wllib/ListItem.pm
index f563d2c..c607d3c 100755 (executable)
--- a/project/wllib/ListItem.pm
+++ b/project/wllib/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"wllib",
                "platform"=>"unixdevel",
-               "priority"=>4,
+               "priority"=>40,
                "download"=>"wllib-1.0.0.tar.gz",
                "summary"=>"Graphics library for crossplatform line drawing",
                "license"=>"PD",

diff --git a/project/xbill/ListItem.pm b/project/xbill/ListItem.pm
index fb0215d..6a8b23b 100755 (executable)
--- a/project/xbill/ListItem.pm
+++ b/project/xbill/ListItem.pm
@@ -31,7 +31,7 @@ use My::Web;
 our @ListItem=(
                "name"=>"Gnome xBill",
                "platform"=>"unixuser",
-               "priority"=>7,
+               "priority"=>570,
                "icon"=>"redmond-icon",
                "link-Download from SourceForge.net"=>"http://sourceforge.net/project/showfiles.php?group_id=10700",
                "link-Homepage on SourceForge.net"=>"http://xbill.sourceforge.net/",