#!/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;