--- igal.clean	Tue Apr 27 13:15:25 2004
+++ kigal	Tue Apr 27 13:15:03 2004
@@ -95,6 +95,7 @@
 $opt_help = "0";       # displays brief usage message; same as -h
 $opt_www = "0";        # makes everything world-readable
 $opt_xy = "0";         # scale thumbs to n pixels in their longer dimension
+$opt_kya = "0";        # use no tables
 
 $usage = <<"END_OF_USAGE";
 This is iGal 1.4 an HTML image slide show generator.
@@ -123,6 +124,7 @@
               --help      displays this brief help; same as -h
               --www       make all iGal files world-readable
               --xy <n>    scale thumbs to <n> pixels in their longer dimension
+              --kya       no tables in index, plain output
 Note:      default values are given in parentheses (where applicable).
 Author:    Eric Pop <epop\@stanford.edu>
 URL:       http://www.stanford.edu/~epop/igal
@@ -135,7 +137,7 @@
 # process command-line arguments (overriding defaults above)
 GetOptions('a','c','C','d=s','f','h','i=s','k','n','p=i',
            'r','s','t=i','u','w=i','x','y=i','ad','as','bigy=i',
-           'con=s','help','im','www','xy=i') or die "$usage";
+           'con=s','help','im','www','xy=i','kya') or die "$usage";
 
 die $usage if ($opt_help or $opt_h);
 # deal with the competing -y and --xy options
@@ -519,6 +521,26 @@
 	print IXW "$line";
 	last if ($line =~ m/\*{10}/);
 }
+if ($opt_kya) {
+  for ($i = 0; $i < $nfiles; $i++) {
+	if ($opt_s) {
+		print IXW "<a href=\"", $imgfiles[$i], "\">";
+	} else {
+		print IXW "<a href=\"", $slides[$i], "\">";
+	}
+	print ".";
+	$altname = $captions[$i];
+	$thumb = $thumbprefix . $imgfiles[$i];
+	if ($HAVEIM) {
+		$temp = `identify -ping -format \"\%wx\%h\" \"$opt_d/$thumb\"`;
+		$temp =~ m/(\d+)x(\d+)/;  $x=$1;  $y=$2;
+		print IXW "<img src=\"$thumb\" width=\"$x\" height=\"$y\" alt=\"$altname\" title=\"$altname\" />";
+	} else {
+		print IXW "<img src=\"$thumb\" alt=\"$altname\" title=\"$altname\" />";
+	}
+	print IXW "</a>\n";
+  }
+} else {
 # write out the tables with full rows
 for ($i = 1; $i <= $rows; $i++) {
 	print IXW "<table>\n";
@@ -615,6 +637,7 @@
 	}
 	print IXW "</table>\n<br />\n";
 }
+} # kya
 while (!(<IXR> =~ m/\*{10}/)) {};
 while (defined($line = <IXR>)) {
 	print IXW "$line";