#

# This script makes a list of initial html links to presentation files for a particular user.


set homedir = /usr/local/www/data/Lettenmaier/

set database = /usr/local/www/data/Lettenmaier/presentations_data_base_2002


set outfile = presentations_links_2002.html

rm -f $outfile  



foreach username (adam haddeland hamlet lettenmaier park wood)

foreach yearstr (2002)

foreach monthstr (jan feb mar apr may jun jul aug sep oct nov dec)


cd $homedir"Presentations/"$yearstr"/"

pwd

ls $username*$monthstr"_"$yearstr* 

foreach filename (`ls $username*$monthstr"_"$yearstr*  `)

cd $homedir


#get conference string from the data base
set confstr = `awk 'BEGIN{FS ="|"}{if($1=="'$filename'") print $2;}' $database`

# get title string from the data base
set titlestr = `awk 'BEGIN{FS ="|"}{if($1=="'$filename'") print $3;}' $database` 

# get author string from the data base
set authstr = `awk 'BEGIN{FS ="|"}{if($1=="'$filename'") print $4;}' $database` 

# get type string from the data base
set typestr = `awk 'BEGIN{FS ="|"}{if($1=="'$filename'") print $5;}' $database` 




#make html link with echo statements

echo "<p><font face=" \"Arial, Helvetica, sans-serif\"\>$authstr", "$confstr", 2002, "$typestr", "  >> $outfile  
echo "<a href ="\"http://www.hydro.washington.edu/Lettenmaier/Presentations/$yearstr/$filename\"\>$titlestr"</a"\>"</font"\>"</p"\> >> $outfile  

echo "" >> $outfile


end
end
end 
end