- my $title = eval(q{ ${h1("Search")}});
- my $subtitle = eval(q{ ${h2("Search criteria")}});
-
- $cont .= <<ENDSTR;
-
- <form name="searchForm" method="GET" action="$MyURL">
- $title
- $subtitle
- <table border="0">
- <tr>
- <td>
- Share:
- </td>
- <td>
- <select name="search_host">
- $hosts_html
- </select>
- </td>
- </tr>
- <tr>
- <td>
- All file(s) between:
- </td>
- <td>
- <table>
- <tr>
- <td>
- Day
- </td>
- <td>
- <input type="text" name="search_day_from">
- </td>
- <td>
- Month
- </td>
- <td>
- <input type="text" name="search_month_from">
- </td>
- <td>
- Year
- </td>
- <td>
- <input type="text" name="search_year_from">
- </td>
- </tr>
- <tr>
- <td>
- Day
- </td>
- <td>
- <input type="text" name="search_day_to">
- </td>
- <td>
- Month
- </td>
- <td>
- <input type="text" name="search_month_to">
- </td>
- <td>
- Year
- </td>
- <td>
- <input type="text" name="search_year_to">
- </td>
- </tr>
-
- </table>
- </td>
- </tr>
- <tr>
- <td>
- All backups between:
- </td>
- <td>
- <table>
- <tr>
- <td>Day</td>
- <td>Month</td>
- <td>Year</td>
- </tr>
- <tr>
- <td>
- <input type="text" name="search_backup_day_from">
- </td>
- <td>
- <input type="text" name="search_backup_month_from">
- </td>
- <td>
- <input type="text" name="search_backup_year_from">
- </td>
- </tr>
- <tr>
- <td>
- <input type="text" name="search_backup_day_to">
- </td>
- <td>
- <input type="text" name="search_backup_month_to">
- </td>
- <td>
- <input type="text" name="search_backup_year_to">
- </td>
- </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td>
- Filename:
- </td>
- <td>
- <input type="text" name="search_filename">
- </td>
- </tr>
- </table>
+
+ sub date_from_to_html {
+ my $name = shift || return;
+ return qq{
+ <input type="text" name="${name}_year_from" size="4">
+ <input type="text" name="${name}_month_from" size="2">
+ <input type="text" name="${name}_day_from" size="2">
+ -
+ <input type="text" name="${name}_year_to" size="4">
+ <input type="text" name="${name}_month_to" size="2">
+ <input type="text" name="${name}_day_to" size="2">
+ };
+ }
+
+ my $form .= qq{
+<form name="searchForm" method="GET" action="$MyURL">
+<p>
+ Filename:
+ <input type="text" name="search_filename" size="50">
+
+ on share
+
+ <select name="search_share">$hosts_html</select>
+ show
+ <select name="burned">
+ <option value="">all</a>
+ <option value="burned">burned</a>
+ <option value="pending">pending</a>
+ </select>
+ files
+