#!/usr/bin/perl $DIR = $ENV{'SCRIPT_FILENAME'}; $DIR =~ s/preview.cgi//; $in=qx!cd $DIR; ls -A1 *.jpg *.gif *.png *.avi!; @l=split(/\n/,$in); $out=""; foreach $l1 (@l) { @l2 = split(/\./,$l1); $img = $l2[0]; for ($i=1; $i<@l2-1; $i++) { $img = $img . ".$l2[$i]"} $img = "icon/" . $img . ".icon.jpg"; $out = $out . "\n"; } print < The thermal forces and torques changing the orbits and spins of small asteroids

The thermal forces and torques changing the orbits and spins of small asteroids


Presentation at the European Geosciences Union, General Assembly 2007, April 15 - 20, Vienna, Austria

$out


Miroslav Broz, miroslav.broz\@email.cz, Apr 20th 2007

EOF exit;