/[BackupPC]/trunk/lib/BackupPC/SearchLib.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/SearchLib.pm

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

revision 31 by dpavlin, Sun Jul 31 16:16:55 2005 UTC revision 85 by dpavlin, Sun Aug 28 10:45:51 2005 UTC
# Line 5  use strict; Line 5  use strict;
5  use BackupPC::CGI::Lib qw(:all);  use BackupPC::CGI::Lib qw(:all);
6  use BackupPC::Attrib qw(:all);  use BackupPC::Attrib qw(:all);
7  use DBI;  use DBI;
8    use DateTime;
9  use vars qw(%In $MyURL);  use vars qw(%In $MyURL);
10    use Time::HiRes qw/time/;
11    
12  my $on_page = 100;  my $on_page = 100;
13  my $pager_pages = 10;  my $pager_pages = 10;
14    
15    my $dsn = $Conf{SearchDSN};
16    my $db_user = $Conf{SearchUser} || '';
17    
18    my $dbh;
19    
20    sub get_dbh {
21            $dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
22            return $dbh;
23    }
24    
25  sub getUnits() {  sub getUnits() {
26      my @ret = ();          my @ret;
27      my $tmp;  
28      my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",          my $dbh = get_dbh();
29          "", "", { RaiseError => 1, AutoCommit => 1 } );          my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares ORDER BY share} );
30      my $st =          $sth->execute();
31        $dbh->prepare(          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
32          " SELECT shares.ID AS ID, shares.share AS name FROM shares;");  
33      $st->execute();          while ( my $row = $sth->fetchrow_hashref() ) {
34      push (@ret, { 'ID' => '', 'name' => '-'});                  push @ret, $row;
35      while ( $tmp = $st->fetchrow_hashref() ) {          }
36          push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );          return @ret;
     }  
     $dbh->disconnect();  
     return @ret;  
37  }  }
38    
39  sub getWhere($) {  sub epoch_to_iso {
40          my ($param)    = @_;          my $t = shift || return;
41          my @conditions;          my $iso = BackupPC::Lib::timeStamp($t);
42            $iso =~ s/\s/ /g;
43            return $iso;
44    }
45    
46    sub dates_from_form($) {
47            my $param = shift || return;
48    
49          sub mk_iso_date($$) {          sub mk_epoch_date($$) {
50                  my ($name,$suffix) = @_;                  my ($name,$suffix) = @_;
51    
52                  my $yyyy = $param->{ $name . '_year_' . $suffix} || return;                  my $yyyy = $param->{ $name . '_year_' . $suffix} || return;
# Line 39  sub getWhere($) { Line 54  sub getWhere($) {
54                          ( $suffix eq 'from' ? 1 : 12);                          ( $suffix eq 'from' ? 1 : 12);
55                  my $dd .= $param->{ $name . '_day_' . $suffix} ||                  my $dd .= $param->{ $name . '_day_' . $suffix} ||
56                          ( $suffix eq 'from' ? 1 : 31);                          ( $suffix eq 'from' ? 1 : 31);
57                  return sprintf("%04d-%02d-%02d", $yyyy, $mm, $dd);                  my $dt = new DateTime(
58                            year => $yyyy,
59                            month => $mm,
60                            day => $dd
61                    );
62                    return $dt->epoch || 'NULL';
63          }          }
64    
65          my $backup_from = mk_iso_date('search_backup', 'from');          return (
66          push @conditions, qq{ date(backups.date, 'unixepoch','localtime') >= '$backup_from' } if ($backup_from);                  mk_epoch_date('search_backup', 'from'),
67          my $backup_to = mk_iso_date('search_backup', 'to');                  mk_epoch_date('search_backup', 'to'),
68          push @conditions, qq{ date(backups.date, 'unixepoch','localtime') <= '$backup_to' } if ($backup_to);                  mk_epoch_date('search', 'from'),
69                    mk_epoch_date('search', 'to'),
70            );
71    }
72    
73    
74    sub getWhere($) {
75            my $param = shift || return;
76    
77          my $files_from = mk_iso_date('search', 'from');          my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
         push @conditions, qq{ date(files.date, 'unixepoch','localtime') >= '$files_from' } if ($files_from);  
         my $files_to = mk_iso_date('search', 'to');  
         push @conditions, qq{ date(files.date, 'unixepoch','localtime') <= '$files_to' } if ($files_to);  
78    
79          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:",join(" | ",@conditions);          my @conditions;
80                push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
81          push( @conditions, ' backups.hostID = ' . $param->{'search_host'} ) if ($param->{'search_host'});          push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
82            push @conditions, qq{ files.date >= $files_from } if ($files_from);
83            push @conditions, qq{ files.date <= $files_to } if ($files_to);
84    
85          push (@conditions, " upper(files.name) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" | ",@conditions);
86    
87          return (          push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
88                  join(" and ", @conditions),          push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
89                  $files_from, $files_to,  
90                  $backup_from, $backup_to          return join(" and ", @conditions);
         );  
91  }  }
92    
93    
94  sub getFiles($$) {  sub getFiles($$) {
95          my ($where, $offset) = @_;          my ($param, $offset) = @_;
96    
97          my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",          my $dbh = get_dbh();
                 "", "", { RaiseError => 1, AutoCommit => 1 } );  
98    
99          my $sql_cols = qq{          my $sql_cols = qq{
100                  files.id                        AS fid,                  files.id                        AS fid,
# Line 80  sub getFiles($$) { Line 104  sub getFiles($$) {
104                  files.backupNum                 AS backupNum,                  files.backupNum                 AS backupNum,
105                  files.name                      AS filename,                  files.name                      AS filename,
106                  files.path                      AS filepath,                  files.path                      AS filepath,
107                  shares.share||files.fullpath    AS networkPath,                  files.date                      AS date,
                 date(files.date, 'unixepoch', 'localtime') AS date,  
108                  files.type                      AS filetype,                  files.type                      AS filetype,
109                  files.size                      AS size,                  files.size                      AS size,
110                  dvds.name                       AS dvd                  -- dvds.name                    AS dvd
111                    null                            AS dvd
112          };          };
113    
114          my $sql_from = qq{          my $sql_from = qq{
115                  FROM files                  FROM files
116                          INNER JOIN shares       ON files.shareID=shares.ID                          INNER JOIN shares       ON files.shareID=shares.ID
117                          INNER JOIN hosts        ON hosts.ID = shares.hostID                          INNER JOIN hosts        ON hosts.ID = shares.hostID
118                          INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID                          INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID AND backups.shareID = shares.ID
119                          LEFT  JOIN dvds         ON dvds.ID = files.dvdid          };
120    
121            my $sql_dvd_from = qq{
122                            -- LEFT  JOIN dvds              ON dvds.ID = files.dvdid
123          };          };
124    
125          my $sql_where;          my $sql_where;
126            my $where = getWhere($param);
127          $sql_where = " WHERE ". $where if ($where);          $sql_where = " WHERE ". $where if ($where);
128    
129          my $sql_order = qq{          my $sql_order = qq{
130                  ORDER BY files.id                  ORDER BY files.date
131                          LIMIT $on_page                  LIMIT $on_page
132                          OFFSET ?                  OFFSET ?
133          };          };
134    
135            my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
136            my $sql_results = qq{ select $sql_cols $sql_from $sql_dvd_from $sql_where $sql_order };
137    
138          $offset ||= 0;          $offset ||= 0;
139          $offset = ($offset * $on_page) + 1;          $offset = ($offset * $on_page);
140    
141          my $sth = $dbh->prepare(qq{ select count(files.id) $sql_from $sql_where });          my $sth = $dbh->prepare($sql_count);
142          $sth->execute();          $sth->execute();
   
143          my ($results) = $sth->fetchrow_array();          my ($results) = $sth->fetchrow_array();
144    
145          $sth = $dbh->prepare(qq{ select $sql_cols $sql_from $sql_where $sql_order });          $sth = $dbh->prepare($sql_results);
146          $sth->execute( $offset );          $sth->execute( $offset );
147    
148            if ($sth->rows != $results) {
149                    my $bug = "$0 BUG: [[ $sql_count ]] = $results while [[ $sql_results ]] = " . $sth->rows;
150                    $bug =~ s/\s+/ /gs;
151                    print STDERR "$bug\n";
152            }
153    
154          my @ret;          my @ret;
155                
156          while (my $row = $sth->fetchrow_hashref()) {          while (my $row = $sth->fetchrow_hashref()) {
# Line 122  sub getFiles($$) { Line 158  sub getFiles($$) {
158                          'hname'         => $row->{'hname'},                          'hname'         => $row->{'hname'},
159                          'sname'         => $row->{'sname'},                          'sname'         => $row->{'sname'},
160                          'sharename'     => $row->{'sharename'},                          'sharename'     => $row->{'sharename'},
161                          'backupno'      => $row->{'backupNum'},                          'backupno'      => $row->{'backupnum'},
162                          'fname'         => $row->{'filename'},                          'fname'         => $row->{'filename'},
163                          'fpath'         => $row->{'filepath'},                          'fpath'         => $row->{'filepath'},
164                          'networkpath'   => $row->{'networkPath'},                          'networkpath'   => $row->{'networkpath'},
165                          'date'          => $row->{'date'},                          'date'          => $row->{'date'},
166                          'type'          => $row->{'filetype'},                          'type'          => $row->{'filetype'},
167                          'size'          => $row->{'size'},                          'size'          => $row->{'size'},
# Line 133  sub getFiles($$) { Line 169  sub getFiles($$) {
169                          'dvd'           => $row->{'dvd'}                          'dvd'           => $row->{'dvd'}
170                  });                  });
171          }          }
172              
173          $sth->finish();          $sth->finish();
         $dbh->disconnect();  
174          return ($results, \@ret);          return ($results, \@ret);
175  }  }
176    
177  sub getBackupsNotBurned()  sub getBackupsNotBurned() {
178    {  
179        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",          my $dbh = get_dbh();
180          "", "", { RaiseError => 1, AutoCommit => 1 } );                my $sql = q{
181        my $sql = q{          SELECT
182            SELECT                  backups.hostID          AS hostid,
183              hosts.ID         AS hostID,                  min(hosts.name)         AS host,
184              hosts.name       AS host,                  backups.num             AS backupno,
185              backups.num      AS backupno,                  min(backups.type)       AS type,
186              backups.type     AS type,                  min(backups.date)       AS date,
187              backups.date     AS date                  min(backups.size)       AS size
188            FROM backups, shares, files, hosts          FROM files
189            WHERE                  INNER JOIN shares       ON files.shareID=shares.ID
190              backups.num    = files.backupNum  AND                  INNER JOIN hosts        ON hosts.ID = shares.hostID
191              shares.ID      = files.shareID    AND                            INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID AND backups.shareID = shares.ID
192              backups.hostID = shares.hostID    AND          WHERE
193              hosts.ID       = backups.hostID   AND                  files.dvdid     IS NULL
194              files.dvdid    IS NULL          GROUP BY
195            GROUP BY                  backups.hostID, backups.num
196              backups.hostID, backups.num          ORDER BY min(backups.date)
197        };          };
198        my $st = $dbh -> prepare( $sql );          my $sth = $dbh->prepare( $sql );
199        my @ret = ();          my @ret;
200        $st -> execute();          $sth->execute();
201    
202        while ( my $row = $st -> fetchrow_hashref() )          while ( my $row = $sth->fetchrow_hashref() ) {
203          {                            $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
204              push(@ret, {                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
205                           'host'     => $row->{'host'},                  push @ret, $row;
                          'hostid'   => $row->{'hostID'},  
                          'backupno' => $row->{'backupno'},  
                          'type'     => $row->{'type'},  
                          'date'     => $row->{'date'}  
                        }  
             );  
206          }          }
207                
208        return @ret;                return @ret;      
209    }  }
210    
211  sub displayBackupsGrid()  sub displayBackupsGrid()
212    {    {
# Line 211  EOF3 Line 240  EOF3
240                $retHTML.= q{<input type="hidden" value="burn" name="action">};                $retHTML.= q{<input type="hidden" value="burn" name="action">};
241                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                $retHTML .= q{<input type="hidden" value="results" name="search_results">};
242          }          }
243          $retHTML .= qq{<table style="fview"><tr>};          $retHTML .= qq{
244                    <table style="fview" border="1" cellspacing="0" cellpadding="3">
245                    <tr class="tableheader">
246            };
247    
248          if ($addForm) {          if ($addForm) {
249              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
250          }          }
251          $retHTML .=  qq{<td class="tableheader">Host</td><td class="tableheader">Backup no</td><td class="tableheader">Type</td><td class="tableheader">date</td></tr>};          $retHTML .=  qq{
252                    <td align="center">Host</td>
253                    <td align="center">Backup no</td>
254                    <td align="center">Type</td>
255                    <td align="center">date</td>
256                    <td align="center">age/days</td>
257                    <td align="center">size/MB</td>
258                    </tr>
259            };
260    
261          my @backups = getBackupsNotBurned();          my @backups = getBackupsNotBurned();
262          my $backup;          my $backup;
263    
264          if ($addForm) {          if ($addForm) {
265                  $retHTML .= qq{<tr><td colspan=7 style="tableheader">                  $retHTML .= qq{
266                            <tr><td colspan=7 style="tableheader">
267                          <input type="submit" value="Burn selected backups on medium" name="submitBurner">                          <input type="submit" value="Burn selected backups on medium" name="submitBurner">
268                          </td></tr>};                          </td></tr>
269                    };
270          }          }
271    
272          foreach $backup(@backups) {          foreach $backup(@backups) {
# Line 233  EOF3 Line 275  EOF3
275                            
276                  $retHTML .= "<tr>";                  $retHTML .= "<tr>";
277                  if ($addForm) {                  if ($addForm) {
278                          $retHTML .= qq{<td class="fview"><input type="checkbox" name="fcb} .                          $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
279                                  $backup->{'hostid'}."_".$backup->{'backupno'} .                                  $backup->{'hostid'}.'_'.$backup->{'backupno'} .
280                                  qq{" value="} . $backup->{'hostid'}."_".$backup->{'backupno'} .                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupno'} .
281                                  qq{"></td>};                                  '"></td>';
282                  }                            }          
283                            
284                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .
285                          '<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .
286                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .
287                          '<td class="fviewborder">' . $backup->{'date'} . '<td>' .                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
288                            '<td class="fviewborder">' . $backup->{'age'} . '</td>' .
289                            '<td class="fviewborder">' . $backup->{'size'} . '</td>' .
290                          '</tr>';                          '</tr>';
291          }          }
292    
# Line 255  EOF3 Line 299  EOF3
299          return $retHTML;          return $retHTML;
300  }        }      
301    
302  sub displayGrid($$$$) {  sub displayGrid($$) {
303          my ($where, $addForm, $offset, $hilite) = @_;          my ($param, $addForm) = @_;
304    
305            my $offset = $param->{'offset'};
306            my $hilite = $param->{'search_filename'};
307    
308          my $retHTML = "";          my $retHTML = "";
309    
310            my $start_t = time();
311    
312            my ($results, $files) = getFiles($param, $offset);
313    
314            my $dur_t = time() - $start_t;
315            my $dur = sprintf("%0.4fs", $dur_t);
316    
317            my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
318    
319            if ($results <= 0) {
320                    $retHTML .= qq{
321                            <p style="color: red;">No results found...</p>
322                    };
323                    return $retHTML;
324            } else {
325                    # DEBUG
326                    #use Data::Dumper;
327                    #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
328            }
329    
330    
331          if ($addForm) {          if ($addForm) {
332                  $retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};                  $retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};
333                  $retHTML.= qq{<input type="hidden" value="search" name="action">};                  $retHTML.= qq{<input type="hidden" value="search" name="action">};
334                  $retHTML .= qq{<input type="hidden" value="results" name="search_results">};                  $retHTML .= qq{<input type="hidden" value="results" name="search_results">};
335          }          }
336    
         my ($results, $files) = getFiles($where, $offset);  
   
         my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);  
337    
338          $retHTML .= qq{          $retHTML .= qq{
339          <br/>Found $results files, showing $from - $to          <div>
340          <table style="fview" width="100%">          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
341                  <tr>          </div>
342                  <td class="tableheader">Share</td>          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
343                  <td class="tableheader">Name</td>                  <tr class="fviewheader">
344                  <td class="tableheader">Type</td>                  <td align="center">Share</td>
345                  <td class="tableheader">#</td>                  <td align="center">Type and Name</td>
346                  <td class="tableheader">Size</td>                  <td align="center">#</td>
347                  <td class="tableheader">Date</td>                  <td align="center">Size</td>
348                  <td class="tableheader">Media</td>                  <td align="center">Date</td>
349                    <td align="center">Media</td>
350                  </tr>                  </tr>
351          };          };
352    
# Line 300  sub displayGrid($$$$) { Line 367  sub displayGrid($$$$) {
367    
368          foreach $file (@{ $files }) {          foreach $file (@{ $files }) {
369                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
370                  $retHTML .= "<tr>";                  $retHTML .= qq{<tr class="fviewborder">};
371    
372                  foreach my $v ((                  $retHTML .=
373                          $file->{'sharename'},                          qq{<td class="fviewborder" align="right">} . $file->{'sharename'} . qq{</td>} .
374                          qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ),                          qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ) . qq{</td>} .
375                          $typeStr,                          qq{<td class="fviewborder" align="center">} . restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupno'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'fpath'} )}, $file->{'backupno'} ) . qq{</td>} .
376                          restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),                          qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
377                          $file->{'size'},                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
378                          $file->{'date'},                          qq{<td class="fviewborder">} . $file->{'dvd'} . qq{</td>};
                         $file->{'dvd'}  
                 )) {  
                         $retHTML .= qq{<td class="fviewborder">$v</td>};  
                 }  
379    
380                  $retHTML .= "</tr>";                  $retHTML .= "</tr>";
381          }          }
# Line 327  sub displayGrid($$$$) { Line 390  sub displayGrid($$$$) {
390          my $max_page = int( $results / $on_page );          my $max_page = int( $results / $on_page );
391          my $page = 0;          my $page = 0;
392    
393          my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';          sub page_link($$$) {
394                    my ($param,$page,$display) = @_;
395    
396                    $param->{'offset'} = $page;
397    
398                    my $html = '<a href = "' . $MyURL;
399                    my $del = '?';
400                    foreach my $k (keys %{ $param }) {
401                            if ($param->{$k}) {
402                                    $html .= $del . $k . '=' . ${EscURI( $param->{$k} )};
403                                    $del = '&';
404                            }
405                    }
406                    $html .= '">' . $display . '</a>';
407            }
408    
409          $retHTML .= '<div style="text-align: center;">';          $retHTML .= '<div style="text-align: center;">';
410    
411          if ($offset > 0) {          if ($offset > 0) {
412                  $retHTML .= sprintf($link_fmt, $offset - 1, '&lt;&lt;') . ' ';                  $retHTML .= page_link($param, $offset - 1, '&lt;&lt;') . ' ';
413          }          }
414    
415          while ($page <= $max_page) {          while ($page <= $max_page) {
416                  if ($page == $offset) {                  if ($page == $offset) {
417                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
418                  } else {                  } else {
419                          $retHTML .= $del . sprintf($link_fmt, $page, $page + 1);                          $retHTML .= $del . page_link($param, $page, $page + 1);
420                  }                  }
421    
422                  if ($page < $offset - $pager_pages && $page != 0) {                  if ($page < $offset - $pager_pages && $page != 0) {
# Line 357  sub displayGrid($$$$) { Line 434  sub displayGrid($$$$) {
434          }          }
435    
436          if ($offset < $max_page) {          if ($offset < $max_page) {
437                  $retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '&gt;&gt;');                  $retHTML .= ' ' . page_link($param, $offset + 1, '&gt;&gt;');
438          }          }
439    
440          $retHTML .= "</div>";          $retHTML .= "</div>";
Legend:
Removed from v.31  
changed lines
  Added in v.85
  ViewVC Help
Powered by ViewVC 1.1.26