Squashed 'rtengine/libraw/' content from commit cccb97647

git-subtree-dir: rtengine/libraw
git-subtree-split: cccb97647fcee56801fa68231fa8a38aa8b52ef7

clist2html.pl

@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+use Data::Dumper;
+
+@makes=( "AgfaPhoto", "Canon", "Casio", "Digital Bolex", "Epson", "Fujifilm", "Imacon",
+      "Mamiya", "Minolta", "Motorola", "Kodak", "Konica", "Leica", "Hasselblad",
+      "Nikon", "Nokia", "Olympus", "Pentax", "Phase One", "Ricoh",
+      "Samsung", "Sigma", "Sinar", "Sony" );
+
+MAINLOOP:
+while(<>)
+{
+  chomp;  
+  $cname = $_;
+  $cname=~s/^\s+//g;
+  $cname=~s/\s+$//g;
+  for my $camera (@makes)
+  {
+     if  ($cname=~/\Q$camera\E\s+(.*)/)
+     {
+     
+ 	$model = $1;
+        push @{$cameralist->{$camera}},$model;
+	next MAINLOOP;
+     }    
+  }
+  if($cname=~/(\S+)\s+(.*)/)
+   { 
+       ($make,$model) = ($1,$2);
+        push @{$cameralist->{$make}},$model;
+	next MAINLOOP;
+   }
+   push @{$cameralist->{$make}},"NO MODEL";
+   
+}
+my $havenx1=0;
+print "<ul>\n";
+for my $make (sort keys %$cameralist)
+{
+   if( $#{$cameralist->{$make}} < 1) 
+    {
+	   print "<li>$make $cameralist->{$make}->[0]</li>\n";
+
+     }
+   else
+     {
+	   print "<li>$make\n<ul>\n";
+	   for my $model (@{$cameralist->{$make}})
+	    {
+	       print "  <li>$model</li>\n";
+	    }
+	   print "</ul>\n</li>\n";
+     }
+}
+print "</ul>\n";