/[BackupPC]/trunk/lib/BackupPC/CGI/SearchArchives.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/BackupPC/CGI/SearchArchives.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 16 by dpavlin, Thu Jun 23 12:36:22 2005 UTC revision 17 by dpavlin, Mon Jul 11 13:22:38 2005 UTC
# Line 32  sub action() { Line 32  sub action() {
32          my $title = eval(q{ ${h1("Search")}});          my $title = eval(q{ ${h1("Search")}});
33          my $subtitle = eval(q{ ${h2("Search criteria")}});          my $subtitle = eval(q{ ${h2("Search criteria")}});
34    
35          $cont .= <<ENDSTR;          sub date_from_to_html {
36                          my $name = shift || return;
37        <form name="searchForm" method="GET" action="$MyURL">                  return qq{
38          $title  <table>
39          $subtitle  <tr>
40          <table border="0">          <td colspan="3" align="center">from</a>
41           <tr>          <td>&nbsp;</td>
42            <td>          <td colspan="3" align="center">to</a>
43              Share:  </tr>
44            </td>  <tr>
45            <td>          <td align="center">dd</td>
46              <select name="search_host">          <td align="center">mm</td>
47                $hosts_html          <td align="center">yyyy</td>
48              </select>          <td align="center">&nbsp;</td>
49            </td>          <td align="center">dd</td>
50           </tr>          <td align="center">mm</td>
51           <tr>          <td align="center">yyyy</td>
52            <td>  </tr>
53              All file(s) between:  <tr>
54            </td>          <td><input type="text" name="${name}_day_from" size="2"></td>
55            <td>          <td><input type="text" name="${name}_month_from" size="2"></td>
56              <table>          <td><input type="text" name="${name}_year_from" size="4"></td>
57                <tr>          <td>&nbsp;-&nbsp;</td>
58                  <td>          <td><input type="text" name="${name}_day_to" size="2"></td>
59                    Day          <td><input type="text" name="${name}_month_to" size="2"></td>
60                  </td>          <td><input type="text" name="${name}_year_to" size="4"></td>
61                  <td>  </tr>  
62                    <input type="text" name="search_day_from">  </table>
63                  </td>                  };
64                  <td>          }
65                    Month  
66                  </td>          $cont .= qq{
67                  <td>  <form name="searchForm" method="GET" action="$MyURL">
68                    <input type="text" name="search_month_from">  $title
69                  </td>  $subtitle
70                  <td>  <table border="0" width="100%">
71                    Year  <tr>
72                  </td>          <td>Share:</td>
73                  <td>          <td><select name="search_host">$hosts_html</select></td>
74                    <input type="text" name="search_year_from">  </tr>
75                  </td>  <tr class="fviewborder">
76                </tr>          <td>All file(s) between:</td>
77                <tr>          <td>} . date_from_to_html('search') . qq{</td>
78                  <td>  </tr>
79                    Day  <tr>
80                  </td>          <td>All backups between:</td>
81                  <td>          <td>} . date_from_to_html('search_backup') . qq{</td>
82                    <input type="text" name="search_day_to">  </tr>
83                  </td>  <tr class="fviewborder">
84                  <td>          <td>Filename:</td>
85                    Month          <td><input type="text" name="search_filename" size="25"></td>
86                  </td>  </tr>
87                  <td>  </table>
88                    <input type="text" name="search_month_to">  
89                  </td>  <input type="submit" value="Search">
90                  <td>  <input type="hidden" value="search" name="action">
91                    Year  <input type="hidden" value="results" name="search_results">
92                  </td>  </form>
93                  <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>  
         <input type="submit" value="Search">  
         <input type="hidden" value="search" name="action">  
         <input type="hidden" value="results" name="search_results">  
       </form>        
 ENDSTR  
94      }      }
95      else {      else {
96          $cont = eval(q{ ${h1("Search")}});          $cont = eval(q{ ${h1("Search")}});
# Line 155  ENDSTR Line 98  ENDSTR
98          my $result;          my $result;
99          my $rows = "";          my $rows = "";
100    
101          my $grid = BackupPC::SearchLib::displayGrid( BackupPC::SearchLib::getWhere(\%In), 1, $In{'offset'});          my $grid = BackupPC::SearchLib::displayGrid( BackupPC::SearchLib::getWhere(\%In), 1, $In{'offset'}, $In{'search_filename'});
102          $cont .= $grid;                          $cont .= $grid;
103      }      }
104      Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $cont );      Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $cont );
105      Trailer();      Trailer();
Legend:
Removed from v.16  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.26