bagder: curl-www/dl mktable.pl,1.4,1.5

Update of /cvsroot/curl/curl-www/dl
In directory labb.contactor.se:/var/tmp/cvs-serv27578

Modified Files:
	mktable.pl 
Log Message:
new sort order after Dan F input


Index: mktable.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/mktable.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- mktable.pl	9 Aug 2004 08:07:53 -0000	1.4
+++ mktable.pl	30 Aug 2004 13:24:20 -0000	1.5
@@ -19,21 +19,31 @@
 @all = $db->find_all("typ"=>"^entry\$");
 
 sub sortent {
+    # OS name
     my $r = $$a{'os'} cmp $$b{'os'};
-#    if(!$r) {
-#        $r = $$a{'osver'} cmp $$b{'osver'};
-#    }
     if(!$r) {
+        # OS flavour
         $r = $$a{'flav'} cmp $$b{'flav'};
     }
     if(!$r) {
+        # architecture
         $r = $$a{'cpu'} cmp $$b{'cpu'};
     }
     if(!$r) {
+        # OS version
+        $r = $$a{'osver'} cmp $$b{'osver'};
+    }
+    if(!$r) {
+        # curl version
+        $r = $$a{'curl'} cmp $$b{'curl'};
+    }
+    if(!$r) {
+        # type (bin/devel/source)
         $r = $$a{'type'} cmp $$b{'type'};
     }
     if(!$r) {
-        $r = $$a{'file'} cmp $$b{'file'};
+        # SSL (yes/no)
+        $r = $$a{'ssl'} cmp $$b{'ssl'};
     }
     return $r;
 }

_______________________________________________
http://cool.haxx.se/mailman/listinfo/curl-www-commits