ESA ULYSSES HOME PAGE Welcome Frame

# MAIN.PL package Main ; use CGI ; use CGI::Carp ; my @images = ( "hr-ulysses_in_orbit_001s.jpg" , "data_browser.jpg" , "pic1s.jpg" , "pic2s.jpg" , "pic3s.jpg" , "pic4s.jpg" ) ; my %dotsfont = ( '0' => { src => 'dots_0.gif' , width => 13 } , '1' => { src => 'dots_1.gif' , width => 13 } , '2' => { src => 'dots_2.gif' , width => 13 } , '3' => { src => 'dots_3.gif' , width => 13 } , '4' => { src => 'dots_4.gif' , width => 13 } , '5' => { src => 'dots_5.gif' , width => 13 } , '6' => { src => 'dots_6.gif' , width => 13 } , '7' => { src => 'dots_7.gif' , width => 13 } , '8' => { src => 'dots_8.gif' , width => 13 } , '9' => { src => 'dots_9.gif' , width => 13 } , '-' => { src => 'dots_hyphen.gif' , width => 9 } , '.' => { src => 'dots_dot.gif' , width => 5 } , 'A' => { src => 'dots_A.gif' , width => 13 } , 'U' => { src => 'dots_U.gif' , width => 13 } , 'degree' => { src => 'dots_degree.gif' , width => 9 } ) ; my $dotsfontheight = 17 ; my $imagesroot = '../images/' ; print "Content-type:text/html\n\n" ; print < ESA ULYSSES HOME PAGE Welcome Frame

ULYSSES

EOF my $output = `uls_posn.exe` ; print <\n" ; print "

" ; print "

\n" ; #

Ulysses is a project of international cooperation between #ESA and #NASA.

print <

EOF exit 0 ; sub print_dot_font { my $string = shift ; my $index = 0 ; while ( $index < length $string ) { my $char = substr $string , $index , 1 ; printf '

' , $imagesroot , $dotsfont{$char}{src} , $dotsfont{$char}{width} , $dotsfontheight ; ++$index ; } }