Changeset 11487 for trunk

Show
Ignore:
Timestamp:
10/08/08 10:58:00 (3 months ago)
Author:
juruen@…
Message:

merge -r11270:HEAD
https://svn.ebox-platform.com/ebox-platform/branches/mailflogs/ into trunk

Location:
trunk
Files:
3 removed
58 modified
69 copied

Legend:

Unmodified
Added
Removed

  • trunk/client/ebox

    • Property svn:mergeinfo set to /branches/mailflogs/ebox:11259-11486

  • trunk/client/ebox/configure.ac

    r11390 r11487  
    134134src/EBox/Logs/Makefile 
    135135src/EBox/Logs/Model/Makefile 
     136src/EBox/Logs/Model/Report/Makefile 
    136137src/EBox/Logs/Composite/Makefile 
     138src/EBox/Logs/Consolidate/Makefile 
    137139src/EBox/Model/Makefile 
    138140src/EBox/Model/Row/Makefile 

  • trunk/client/ebox/debian/ebox.postinst

    r11283 r11487  
    7070        chown ebox:ebox ${STDERR_FILE} 
    7171 
    72  
    73         # add the stderr file needed by sudo 
    74         STDERR_FILE=`perl -MEBox::Config -e'print EBox::Config::tmp() . 'stderr'; 1'`; 
    75         touch ${STDERR_FILE} 
    76         chmod 0600 ${STDERR_FILE} 
    77         chown ebox:ebox ${STDERR_FILE} 
    78  
    7972        # add the dynamic-www- and downloads directories 
    8073        DYNAMIC_WWW_DIRS=$(perl -MEBox::Config -e'print EBox::Config::dynamicwww() ; print " " ; print join(" ", @{EBox::Config::dynamicwwwSubdirs()}); print " "; print EBox::Config::downloads;  1;');  
    … …  
    10093 
    10194        /usr/share/ebox/ebox-sql-table add admin /usr/share/ebox/sqllog/admin.sql 
     95        /usr/share/ebox/ebox-sql-table add consolidation /usr/share/ebox/sqllog/consolidation.sql 
    10296 
    10397        

  • trunk/client/ebox/debian/po/templates.pot

    r11000 r11487  
    88msgstr "" 
    99"Project-Id-Version: PACKAGE VERSION\n" 
    10 "Report-Msgid-Bugs-To: ebox@packages.debian.org\n" 
    11 "POT-Creation-Date: 2008-07-27 23:46+0200\n" 
     10"Report-Msgid-Bugs-To: ubuntu-motu@lists.ubuntu.com\n" 
     11"POT-Creation-Date: 2008-07-28 10:41+0200\n" 
    1212"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" 
    1313"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" 
    … …  
    7575#: ../ebox.templates:5001 
    7676msgid "" 
    77 "It seems that the port you have selected is already being used. Press yes " 
    78 "to  proceed anyway, or no to enter a new port." 
     77"It seems that the port you have selected is already being used. You can " 
     78"continue anyway or enter a new port." 
    7979msgstr "" 

  • trunk/client/ebox/migration/logs/Makefile.am

    r10308 r11487  
    44 
    55 
    6 nobase_Migrations_SCRIPTS = 0001_update_configurelogtable.pl 
     6nobase_Migrations_SCRIPTS = 0001_update_configurelogtable.pl 0002_remove_old_cron.pl 
    77 
    88 

  • trunk/client/ebox/src/EBox/CGI/Logs/Index.pm

    r8913 r11487  
    2525use EBox::Global; 
    2626use EBox::Model::ModelManager; 
     27use EBox::Html; 
    2728use POSIX qw(ceil); 
    2829 
    … …  
    3132sub new # (error=?, msg=?, cgi=?) 
    3233{ 
    33         my $class = shift; 
    34         my $self = $class->SUPER::new('title' => __('Logs'), 
    35                                       'template' => '/logs/index.mas', 
    36                                       @_); 
    37         $self->{domain} = 'ebox'; 
    38         bless($self, $class); 
    39         return $self; 
    40 } 
    41  
    42 sub _getTime { 
    43         my ($self, $module, $tmpl) = @_; 
    44  
    45         foreach my $mod (@{$tmpl}) { 
    46                 if ($mod->{'name'} eq $module) { 
    47                         return $mod->{'timecol'}; 
    48                 } 
    49         } 
    50  
    51         return undef; 
     34    my $class = shift; 
     35    my $self = $class->SUPER::new('title' => __('Logs'), 
     36                                  'template' => '/logs/index.mas', 
     37                                  @_); 
     38    $self->{domain} = 'ebox'; 
     39    bless($self, $class); 
     40    return $self; 
     41} 
     42 
     43sub _getTime 
     44{ 
     45    my ($self, $module, $tmpl) = @_; 
     46     
     47    foreach my $mod (@{$tmpl}) { 
     48        if ($mod->{'name'} eq $module) { 
     49            return $mod->{'timecol'}; 
     50        } 
     51    } 
     52     
     53    return undef; 
    5254} 
    5355 
    … …  
    6062     
    6163    unless (defined($self->param('page'))) { 
    62         $page = 0; 
    63     } 
    64  
    65     if(defined($self->param('tofirst'))) {  
    66         $page = 0;  
    67     } 
    68     if(defined($self->param('toprev'))) {  
    69         if ($page > 0) {  
    70             $page = $page -1;  
    71         }  
    72     } 
    73     if(defined($self->param('tonext'))) {  
    74         if ($page < $tpages) { 
    75             $page = $page + 1;  
    76         } 
    77     } 
    78     if(defined($self->param('tolast'))) {  
    79         $page = $tpages;  
     64        $page = 0; 
     65    } 
     66 
     67    if (defined($self->param('tofirst'))) {  
     68        $page = 0;  
     69    } 
     70    if (defined($self->param('toprev'))) {  
     71        if ($page > 0) {  
     72            $page = $page -1;  
     73        }  
     74    } 
     75    if (defined($self->param('tonext'))) {  
     76        if ($page < $tpages) { 
     77            $page = $page + 1;  
     78        } 
     79    } 
     80    if (defined($self->param('tolast'))) {  
     81        $page = $tpages;  
    8082    } 
    8183 
    … …  
    8789{ 
    8890    my ($self, @masonParams) = @_; 
    89  
     91     
    9092 
    9193    defined $self->{params} or $self->{params} = []; 
    9294    my $oldParams_r= $self->{params}; 
    9395    if (defined $oldParams_r) { 
    94         push @masonParams, @{ $oldParams_r }; 
     96        push @masonParams, @{ $oldParams_r }; 
    9597    } 
    9698 
    … …  
    114116{ 
    115117    my ($self) = @_; 
    116     my $toDate = $self->_getDateArray('to'); 
     118     
     119    my $toDate; 
     120    my $refresh = $self->refresh(); 
     121 
     122    if ($refresh) { 
     123        # 86400 second -> one day 
     124        $toDate = $self->_getDateArray('to', 86400, 0);         
     125    } 
     126    else { 
     127        $toDate = $self->_getDateArray('to');         
     128    } 
     129 
    117130 
    118131    return $toDate; 
    … …  
    122135sub _getDateArray 
    123136{ 
    124     my ($self, $prefix, $defaultTimeAdjust) = @_; 
     137    my ($self, $prefix, $defaultTimeAdjust, $useParamsValue) = @_; 
    125138    defined $defaultTimeAdjust or $defaultTimeAdjust = 0; 
     139    defined $useParamsValue    or $useParamsValue    = 1; 
    126140 
    127141    my %time; 
    … …  
    135149    $time{$prefix . 'year'}  = $localtime[5]  + 1900; 
    136150     
    137     foreach my $key (keys %time) { 
    138         my $paramValue = $self->param($key); 
    139         if (defined $paramValue) { 
    140             $time{$key} = $paramValue; 
    141         } 
     151 
     152    if ($useParamsValue) { 
     153        foreach my $key (keys %time) { 
     154            my $paramValue = $self->param($key); 
     155            if (defined $paramValue) { 
     156                $time{$key} = $paramValue; 
     157            } 
     158        } 
     159 
    142160    } 
    143161 
    … …  
    167185    $hfilters = $self->_paramFilters(); 
    168186    %hret = %{$logs->search($fromdate[2].'-'.$fromdate[1].'-'.$fromdate[0].' '.$fromdate[3].':'.$fromdate[4].':0', 
    169                             $todate[2].'-'.$todate[1].'-'.$todate[0].' '.$todate[3].':'.$todate[4].':0', 
    170                             $selected,  
    171                             PAGESIZE, 
    172                             $page, 
    173                             $timecol, 
    174                             $hfilters)}; 
     187                            $todate[2].'-'.$todate[1].'-'.$todate[0].' '.$todate[3].':'.$todate[4].':0', 
     188                            $selected,  
     189                            PAGESIZE, 
     190                            $page, 
     191                            $timecol, 
     192                            $hfilters)}; 
    175193     
    176194    $tpages = ceil ($hret{'totalret'} / PAGESIZE) -1; 
    … …  
    186204    push(@masonParameters, 'fromdate' => \@fromdate); 
    187205    push(@masonParameters, 'todate' => \@todate); 
    188          
     206         
    189207    $self->addToMasonParameters(@masonParameters); 
    190208 
    … …  
    192210 
    193211sub _encode_filters { 
    194         my ($par) = @_; 
    195  
    196         my %encoded = map { $par->{$_} =~ s/'/&#39;/g; $_ => $par->{$_}  }  
    197                         keys %{$par}; 
    198          
    199         return \%encoded; 
     212        my ($par) = @_; 
     213 
     214        my %encoded = map { $par->{$_} =~ s/'/&#39;/g; $_ => $par->{$_}  }  
     215                        keys %{$par}; 
     216         
     217        return \%encoded; 
    200218} 
    201219 
    … …  
    240258    my $hfilters = {}; 
    241259    foreach my $filter (grep(s/^filter-//, @{$self->params()})) { 
    242         $hfilters->{$filter} = 
     260        $hfilters->{$filter} = 
    243261          $self->unsafeParam("filter-$filter"); 
    244262    } 
    … …  
    247265} 
    248266 
     267 
     268sub _header 
     269{ 
     270    my ($self) = @_; 
     271 
     272    if (not $self->refresh()) { 
     273        $self->SUPER::_header(); 
     274        return; 
     275    } 
     276 
     277 
     278    my $destination = "/ebox/Logs/Index?"; 
     279 
     280    my %params = %{ $self->paramsAsHash() }; 
     281    $params{refresh} = 1; # to assure the refresh parameter is active 
     282 
     283    while (my ($param, $value) = each %params) { 
     284        if ($param eq 'View') { 
     285            # View we want to only use it the first time to set default refresh 
     286            # as 1 
     287            next; 
     288        } 
     289 
     290        $destination .= "$param=$value&"; 
     291    } 
     292    $destination =~ s/&$//; 
     293 
     294 
     295    print($self->cgi()->header(-charset=>'utf-8')); 
     296    my $html = EBox::Html::_makeHtml( 
     297                                     'headerWithRefresh.mas', 
     298                                     title => $self->{title}, 
     299                                     destination => $destination 
     300                                    ); 
     301    print $html; 
     302} 
     303 
     304 
     305 
     306sub refresh 
     307{ 
     308    my ($self) = @_; 
     309 
     310    return 1 if $self->param('refresh'); 
     311    return 1 if $self->param('View'); 
     312 
     313 
     314    return 0; 
     315} 
     316 
     317 
    2