#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

print header;
print start_html("Select papers from selection:");


########################################################################
#### check what lists are available and create dropdown menu to select
$dir = "/Library/WebServer/Documents/CC/lists/";
opendir(DIR, $dir) or die "$!";
@lists =  grep {/txt/}  readdir DIR;
closedir(DIR);
$i=0;
foreach $list (@lists)
{
$list =~s/\.txt//g;
@lists[$i]=$list;
#print $list;
$i++;
}
print"<form name='myform' action='http://localhost/cgi-bin/CC/pick.pl' method='POST'>";
print"<div align='left'>";
print"<select name='select list'>";
foreach $list (@list)
{
print"<option value=\"$list\">$list</option>";
}
### zum Test: die Optionen unten werden angezeigt!
#print"<option value='Milk'>Fresh Milk</option>";
#print"<option value='Cheese'>Old Cheese</option>";
#print"<option value='Bread'>Hot Bread</option>";
print"</select>";
print"</form>";