summaryrefslogtreecommitdiffstats
path: root/zarb-ml/mageia-dev/20110127/date.html
blob: 96140a463478a73bc1c08093a668c97902e2c965 (plain) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
  <HEAD>
     <title>The Mageia-dev 27 January 2011 Archive by date</title>
     <META NAME="robots" CONTENT="noindex,follow">
     <META http-equiv="Content-Type" content="text/html; charset=us-ascii">
  </HEAD>
  <BODY BGCOLOR="#ffffff">
      <a name="start"></A>
      <h1>27 January 2011 Archives by date</h1>
      <ul>
         <li> <b>Messages sorted by:</b>
	        <a href="thread.html#start">[ thread ]</a>
		<a href="subject.html#start">[ subject ]</a>
		<a href="author.html#start">[ author ]</a>
		

	     <li><b><a href="https://www.mageia.org/mailman/listinfo/mageia-dev">More info on this list...
                    </a></b></li>
      </ul>
      <p><b>Starting:</b> <i>Thu Jan 27 01:17:26 CET 2011</i><br>
         <b>Ending:</b> <i>Thu Jan 27 23:41:04 CET 2011</i><br>
         <b>Messages:</b> 14<p>
     <ul>

<LI><A HREF="002345.html">[Mageia-dev] Dev Team Call To Action...
</A><A NAME="2345">&nbsp;</A>
<I>Maarten Vanraes
</I>

<LI><A HREF="002346.html">[Mageia-dev] Java-Policy first draft published
</A><A NAME="2346">&nbsp;</A>
<I>piep
</I>

<LI><A HREF="002347.html">[Mageia-dev] Dev Team Call To Action...
</A><A NAME="2347">&nbsp;</A>
<I>Per &#216;yvind Karlsen
</I>

<LI><A HREF="002348.html">[Mageia-dev] Java-Policy first draft published
</A><A NAME="2348">&nbsp;</A>
<I>Michael Scherer
</I>

<LI><A HREF="002349.html">[Mageia-dev] Dev Team Call To Action...
</A><A NAME="2349">&nbsp;</A>
<I>Cazzaniga Sandro
</I>

<LI><A HREF="002351.html">[Mageia-dev] the state of perl rebuild
</A><A NAME="2351">&nbsp;</A>
<I>Anne nicolas
</I>

<LI><A HREF="002352.html">[Mageia-dev] Dev Team Call To Action...
</A><A NAME="2352">&nbsp;</A>
<I>Colin Guthrie
</I>

<LI><A HREF="002353.html">[Mageia-dev] Dev Team Call To Action...
</A><A NAME="2353">&nbsp;</A>
<I>Fabrice Facorat
</I>

<LI><A HREF="002354.html">[Mageia-dev] New version of mgarepo
</A><A NAME="2354">&nbsp;</A>
<I>nicolas vigier
</I>

<LI><A HREF="002355.html">[Mageia-dev] New version of mgarepo
</A><A NAME="2355">&nbsp;</A>
<I>Thierry Vignaud
</I>

<LI><A HREF="002356.html">[Mageia-dev] New version of mgarepo
</A><A NAME="2356">&nbsp;</A>
<I>nicolas vigier
</I>

<LI><A HREF="002358.html">[Mageia-dev] Dev Team Call To Action...
</A><A NAME="2358">&nbsp;</A>
<I>Samuel Verschelde
</I>

<LI><A HREF="002357.html">[Mageia-dev] Dev Team Call To Action...
</A><A NAME="2357">&nbsp;</A>
<I>Christian Paier
</I>

<LI><A HREF="002359.html">[Mageia-dev] Dev Team Call To Action...
</A><A NAME="2359">&nbsp;</A>
<I>Samuel Verschelde
</I>

    </ul>
    <p>
      <a name="end"><b>Last message date:</b></a> 
       <i>Thu Jan 27 23:41:04 CET 2011</i><br>
    <b>Archived on:</b> <i>Thu Jan 27 23:41:15 CET 2011</i>
    <p>
   <ul>
         <li> <b>Messages sorted by:</b>
	        <a href="thread.html#start">[ thread ]</a>
		<a href="subject.html#start">[ subject ]</a>
		<a href="author.html#start">[ author ]</a>
		
	     <li><b><a href="https://www.mageia.org/mailman/listinfo/mageia-dev">More info on this list...
                    </a></b></li>
     </ul>
     <p>
     <hr>
     <i>This archive was generated by
     Pipermail 0.09 (Mailman edition).</i>
  </BODY>
</HTML>
generated by cgit v1.2.1 (git 2.21.0) at 2026-03-25 02:18:34 +0000
# rights and limitations under the License. # # The Original Code is the Bugzilla Bug Tracking System. # # Contributor(s): Christian Reis <kiko@async.com.br> # Shane H. W. Travis <travis@sedsystems.ca> # use strict; use lib qw(.); use Date::Parse; # strptime use Date::Format; # strftime use Bugzilla::Bug; # EmitDependList use Bugzilla::Util; # trim use Bugzilla::Constants; # LOGIN_* use Bugzilla::User; # UserInGroup require "CGI.pl"; GetVersionTable(); # Use global template variables. use vars qw($template $vars); # # Date handling # sub date_adjust { my ($year, $month, $day) = @_; if ($month == 13) { $month = 1; $year += 1; } if ($month == 2 && ($day == 31 || $day == 30 || $day == 29)) { if ($year % 4 == 0) { $day = 29; } else { $day = 28; } } if (($month == 4 || $month == 6 || $month == 9 || $month == 11) && ($day == 31) ) { $day = 30; } return ($year, $month, $day); } sub check_dates { my ($start_date, $end_date) = @_; if ($start_date) { if (!str2time($start_date)) { ThrowUserError("illegal_date", {'date' => $start_date}); } # This code may strike you as funny. It's actually a workaround # for an "issue" in str2time. If you enter the date 2004-06-31, # even though it's a bogus date (there *are* only 30 days in # June), it will parse and return 2004-07-01. To make this # less painful to the end-user, I do the "normalization" here, # but it might be "surprising" and warrant a warning in the end. $start_date = time2str("%Y-%m-%d", str2time($start_date)); } if ($end_date) { if (!str2time($end_date)) { ThrowUserError("illegal_date", {'date' => $end_date}); } # see related comment above. $end_date = time2str("%Y-%m-%d", str2time($end_date)); } return ($start_date, $end_date); } sub split_by_month { # Takes start and end dates and splits them into a list of # monthly-spaced 2-lists of dates. my ($start_date, $end_date) = @_; # We assume at this point that the dates are provided and sane my (undef, undef, undef, $sd, $sm, $sy, undef) = strptime($start_date); my (undef, undef, undef, $ed, $em, $ey, undef) = strptime($end_date); # Find out how many months fit between the two dates so we know many # many times we loop. my $yd = $ey - $sy; my $md = 12 * $yd + $em - $sm; my (@months, $sub_start, $sub_end); # This +1 and +1900 are a result of strptime's bizarre semantics my $year = $sy + 1900; my $month = $sm + 1; # If both years and months were equals. if ($md == 0) { push @months, [sprintf("%04d-%02d-%02d", $year, $month, $sd), sprintf("%04d-%02d-%02d", $year, $month, $ed)]; return @months; } # Keep the original $sd, when the day will be changed in the adjust_date. # Case day > 28 and month = 2, for instance. my $sd_tmp = $sd; for (my $i=0; $i < $md; $i++) { ($year, $month, $sd_tmp) = date_adjust($year, $month, $sd); $sub_start = sprintf("%04d-%02d-%02d", $year, $month, $sd_tmp); ($year, $month, $sd_tmp) = date_adjust($year, $month + 1, $sd); $sub_end = sprintf("%04d-%02d-%02d", $year, $month, $sd_tmp); push @months, [$sub_start, $sub_end]; } # This section handles the last month for cases where the starting # day and ending day aren't identical; in this case we need to fudge # the last entry -- either add an extra one (for the extra days) or # swap the last one for a shorter one (for the fewer days). my $fixup = sprintf("%04d-%02d-%02d", $ey + 1900, $em + 1, $ed); if ($sd < $ed) { push @months, [$sub_end, $fixup]; } elsif ($sd > $ed) { pop @months; push @months, [$sub_start, $fixup]; } return @months; } sub include_tt_details { my ($res, $bugids, $start_date, $end_date) = @_; my $dbh = Bugzilla->dbh; my ($date_bits, $date_values) = sqlize_dates($start_date, $end_date); my $buglist = join ", ", @{$bugids}; my $q = qq{SELECT bugs.bug_id, profiles.login_name, bugs.deadline, bugs.estimated_time, bugs.remaining_time FROM longdescs, bugs, profiles WHERE longdescs.bug_id in ($buglist) AND longdescs.bug_id = bugs.bug_id AND longdescs.who = profiles.userid $date_bits}; my %res = %{$res}; my $sth = $dbh->prepare($q); $sth->execute(@{$date_values}); while (my $row = $sth->fetch) { $res{$row->[0]}{"deadline"} = $row->[2]; $res{$row->[0]}{"estimated_time"} = $row->[3]; $res{$row->[0]}{"remaining_time"} = $row->[4]; } return \%res; } sub sqlize_dates { my ($start_date, $end_date) = @_; my $date_bits; my @date_values; if ($start_date) { # we've checked, trick_taint is fine trick_taint($start_date); $date_bits = " AND longdescs.bug_when > ?"; push @date_values, $start_date; } if ($end_date) { # we need to add one day to end_date to catch stuff done today my (undef, undef, undef, $ed, $em, $ey, undef) = strptime($end_date); $end_date = sprintf("%04d-%02d-%02d", $ey+1900, $em+1, $ed+1); $date_bits .= " AND longdescs.bug_when < ?"; push @date_values, $end_date; } return ($date_bits, \@date_values); } # # Dependencies # sub get_blocker_ids_unique { my $bug_id = shift; my @ret = ($bug_id); get_blocker_ids_deep($bug_id, \@ret); my %unique; foreach my $blocker (@ret) { $unique{$blocker} = $blocker } return keys %unique; } sub get_blocker_ids_deep { my ($bug_id, $ret) = @_; my @deps = Bugzilla::Bug::EmitDependList("blocked", "dependson", $bug_id); push @{$ret}, @deps; foreach $bug_id (@deps) { get_blocker_ids_deep($bug_id, $ret); } } # # Queries and data structure assembly # sub query_work_by_buglist { my ($bugids, $start_date, $end_date) = @_; my $dbh = Bugzilla->dbh; my ($date_bits, $date_values) = sqlize_dates($start_date, $end_date); # $bugids is guaranteed to be non-empty because at least one bug is # always provided to this page. my $buglist = join ", ", @{$bugids}; # Returns the total time worked on each bug *per developer*, with # bug descriptions and developer address my $q = qq{SELECT sum(longdescs.work_time) as total_time, profiles.login_name, longdescs.bug_id, bugs.short_desc, bugs.bug_status FROM longdescs, profiles, bugs WHERE longdescs.bug_id IN ($buglist) AND longdescs.who = profiles.userid AND bugs.bug_id = longdescs.bug_id $date_bits } . $dbh->sql_group_by('longdescs.bug_id, profiles.login_name', 'bugs.short_desc, bugs.bug_status') . qq{ ORDER BY longdescs.bug_when}; my $sth = $dbh->prepare($q); $sth->execute(@{$date_values}); return $sth; } sub get_work_by_owners { my $sth = query_work_by_buglist(@_); my %res; while (my $row = $sth->fetch) { # XXX: Why do we need to check if the total time is positive # instead of using SQL to do that? Simply because MySQL 3.x's # GROUP BY doesn't work correctly with aggregates. This is # really annoying, but I've spent a long time trying to wrestle # with it and it just doesn't seem to work. Should work OK in # 4.x, though. if ($row->[0] > 0) { my $login_name = $row->[1]; push @{$res{$login_name}}, { total_time => $row->[0], bug_id => $row->[2], short_desc => $row->[3], bug_status => $row->[4] }; } } return \%res; } sub get_work_by_bugs { my $sth = query_work_by_buglist(@_); my %res; while (my $row = $sth->fetch) { # Perl doesn't let me use arrays as keys :-( # merge in ID, status and summary my $bug = join ";", ($row->[2], $row->[4], $row->[3]); # XXX: see comment in get_work_by_owners if ($row->[0] > 0) { push @{$res{$bug}}, { total_time => $row->[0], login_name => $row->[1], }; } } return \%res; } sub get_inactive_bugs { my ($bugids, $start_date, $end_date) = @_; my $dbh = Bugzilla->dbh; my ($date_bits, $date_values) = sqlize_dates($start_date, $end_date); my $buglist = join ", ", @{$bugids}; my %res; # This sucks. I need to make sure that even bugs that *don't* show # up in the longdescs query (because no comments were filed during # the specified period) but *are* dependent on the parent bug show # up in the results if they have no work done; that's why I prefill # them in %res here and then remove them below. my $q = qq{SELECT DISTINCT bugs.bug_id, bugs.short_desc , bugs.bug_status FROM longdescs, bugs WHERE longdescs.bug_id in ($buglist) AND longdescs.bug_id = bugs.bug_id}; my $sth = $dbh->prepare($q); $sth->execute(); while (my $row = $sth->fetch) { $res{$row->[0]} = [$row->[1], $row->[2]]; } # Returns the total time worked on each bug, with description. This # query differs a bit from one in the query_work_by_buglist and I # avoided complicating that one just to make it more general. $q = qq{SELECT sum(longdescs.work_time) as total_time, longdescs.bug_id, bugs.short_desc, bugs.bug_status FROM longdescs, bugs WHERE longdescs.bug_id IN ($buglist) AND bugs.bug_id = longdescs.bug_id $date_bits } . $dbh->sql_group_by('longdescs.bug_id', 'bugs.short_desc, bugs.bug_status') . qq{ ORDER BY longdescs.bug_when}; $sth = $dbh->prepare($q); $sth->execute(@{$date_values}); while (my $row = $sth->fetch) { # XXX: see comment in get_work_by_owners if ($row->[0] == 0) { $res{$row->[1]} = [$row->[2], $row->[3]]; } else { delete $res{$row->[1]}; } } return \%res; } # # Misc # sub sort_bug_keys { # XXX a hack is the mother of all evils. The fact that we store keys # joined by semi-colons in the workdata-by-bug structure forces us to # write this evil comparison function to ensure we can process the # data timely -- just pushing it through a numerical sort makes TT # hang while generating output :-( my $list = shift; my @a; my @b; return sort { @a = split(";", $a); @b = split(";", $b); $a[0] <=> $b[0] } @{$list}; } # # Template code starts here # Bugzilla->login(LOGIN_REQUIRED); my $cgi = Bugzilla->cgi; Bugzilla->switch_to_shadow_db(); ThrowUserError("timetracking_access_denied") unless UserInGroup(Param("timetrackinggroup")); my @ids = split(",", $cgi->param('id')); map { ValidateBugID($_) } @ids; @ids = map { detaint_natural($_) && $_ } @ids; @ids = grep { Bugzilla->user->can_see_bug($_) } @ids; my $group_by = $cgi->param('group_by') || "number"; my $monthly = $cgi->param('monthly'); my $detailed = $cgi->param('detailed'); my $do_report = $cgi->param('do_report'); my $inactive = $cgi->param('inactive'); my $do_depends = $cgi->param('do_depends'); my $ctype = scalar($cgi->param("ctype")); my ($start_date, $end_date); if ($do_report && @ids) { my @bugs = @ids; # Dependency mode requires a single bug and grabs dependents. if ($do_depends) { if (scalar(@bugs) != 1) { ThrowCodeError("bad_arg", { argument=>"id", function=>"summarize_time"}); } @bugs = get_blocker_ids_unique($bugs[0]); @bugs = grep { Bugzilla->user->can_see_bug($_) } @bugs; } $start_date = trim $cgi->param('start_date'); $end_date = trim $cgi->param('end_date'); # Swap dates in case the user put an end_date before the start_date if ($start_date && $end_date && str2time($start_date) > str2time($end_date)) { $vars->{'warn_swap_dates'} = 1; ($start_date, $end_date) = ($end_date, $start_date); } ($start_date, $end_date) = check_dates($start_date, $end_date); if ($detailed) { my %detail_data; my $res = include_tt_details(\%detail_data, \@bugs, $start_date, $end_date); $vars->{'detail_data'} = $res; }