November 2007 - Projects

Re: [Projects] Patch Vcs
by Akim Demaille 30 Nov '07

30 Nov '07

>>> "RL" == Roland Levillain <roland(a)lrde.epita.fr> writes: >> De plus, je ne pense plus faire de changements sur Vcs car je ne >> l'utilise plus. Dans ce cas, je ne vois plus de raison de garder VCS :( Basculons à svnw.

3 2

buildfarm 9c1d65b: Fix the `Home' link in the WebStatus
by Benoit Sigoure 29 Nov '07

29 Nov '07

URL: https://svn.lrde.epita.fr/svn/lrde-tools/trunk/buildbot Git branch: master (HEAD: 34b0452) ChangeLog: 2007-11-29 Benoit Sigoure <tsuna(a)lrde.epita.fr> Fix the `Home' link in the WebStatus. * masters/menu.html: Use `_top' for the target instead of `top'. Report by Nicolas Despres and Guillaume Deslandes. --- masters/ChangeLog | 6 ++++++ masters/menu.html | 2 +- 2 files changed, 7 insertions(+), 1 deletions(-) diff --git a/masters/ChangeLog b/masters/ChangeLog index cec2792..fc1182f 100644 --- a/masters/ChangeLog +++ b/masters/ChangeLog @@ -1,3 +1,9 @@ +2007-11-29 Benoit Sigoure <tsuna(a)lrde.epita.fr> + + Fix the `Home' link in the WebStatus. + * masters/menu.html: Use `_top' for the target instead of `top'. + Report by Nicolas Despres and Guillaume Deslandes. + 2007-11-29 Alexandre Duret-Lutz <adl(a)lrde.epita.fr> * spot_master.cfg: Run `autoreconf -vi', not `autoreconf -fvi'. diff --git a/masters/menu.html b/masters/menu.html index d034431..135cbb4 100644 --- a/masters/menu.html +++ b/masters/menu.html @@ -36,7 +36,7 @@ body { <body> <div id="nav"> <ul> - <li><a href="/" target="top">Home</a></li> + <li><a href="/" target="_top">Home</a></li> <li><a href="waterfall" target="content">Waterfall</a></li> <li><a href="one_box_per_builder" target="content">Latest Build</a></li> <li><a href="one_line_per_build" target="content">Recent Builds</a></li>

1 0

buildfarm r476: spot_master.cfg: Run `autoreconf -vi', not `autoreconf -fvi'
by Alexandre Duret-Lutz 29 Nov '07

29 Nov '07

URL: https://svn.lrde.epita.fr/svn/lrde-tools/trunk/buildbot/masters ChangeLog: 2007-11-29 Alexandre Duret-Lutz <adl(a)lrde.epita.fr> * spot_master.cfg: Run `autoreconf -vi', not `autoreconf -fvi'. This way I can workaround Debian's broken libtool my checking in my own. --- spot_master.cfg | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) Index: trunk/buildbot/masters/spot_master.cfg =================================================================== --- trunk/buildbot/masters/spot_master.cfg (revision 475) +++ trunk/buildbot/masters/spot_master.cfg (revision 476) @@ -162,22 +162,22 @@ f_spot_unix = GNUBuildSystem(project_repos='spot', scm_step=checkout, - bootstrap_cmd='autoreconf -fvi') + bootstrap_cmd='autoreconf -vi') f_spot_unix_gcc3 = GNUBuildSystem(project_repos='spot', scm_step=checkout, - bootstrap_cmd='autoreconf -fvi', + bootstrap_cmd='autoreconf -vi', extra_configure_args='CC=gcc-3.3 CXX=g++-3.3', install_dir='spot_gcc3') f_spot_mingw = GNUBuildSystem(project_repos='spot', scm_step=checkout, - bootstrap_cmd='autoreconf -fvi', + bootstrap_cmd='autoreconf -vi', extra_configure_args='--host=mingw32 --build=i686-pc-cygwin') f_spot_vcxx = GNUBuildSystem(project_repos='spot', scm_step=checkout, - bootstrap_cmd='autoreconf -fvi', + bootstrap_cmd='autoreconf -vi', extra_configure_args='''CC=cccl CXX=cccl LD=cccl \\ && sed "s/^host=.*/host=\'i686-pc-msvc++8\'/" -i config.log''')

1 0

[LrdeTools] r475: Add the script `add-inline'
by Benoit Sigoure 28 Nov '07

28 Nov '07

URL: https://svn.lrde.epita.fr/svn/lrde-tools/trunk I <3 Perl. How many years would be required to do this with Transformers? ;) ChangeLog: 2007-11-28 Benoit Sigoure <tsuna(a)lrde.epita.fr> Add the script `add-inline'. * README: Advertise the script. * src/Makefile.am: Add the script. * src/add-inline: New. --- README | 5 + src/Makefile.am | 1 src/add-inline | 278 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 284 insertions(+) Index: trunk/src/add-inline =================================================================== --- trunk/src/add-inline (revision 0) +++ trunk/src/add-inline (revision 475) @@ -0,0 +1,278 @@ +#!/usr/bin/env perl +# add-inline.pl: Add missing `inline' keywords in C++ headers. +# Copyright (C) 2007 Benoit Sigoure <tsuna(a)lrde.epita.fr> +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <http://www.gnu.org/licenses/>. + +use warnings; +use strict; # spank me baby! + +# The following pattern matches a parenthesized group. +# Modified version of that proposed in man perlre(1). +my $paren_group = qr/defined/; # Fool use strict. +$paren_group = qr/(?: # Non-parens without backtracking: + (?> [^()]+ ) + | # Group with matching parens: + $ (??{ $paren_group }) $ + )* + /xo; + +# Almost the same regexp but matches an entire block of braces { ... } +my $brace_group = qr/defined/; # Fool use strict. +$brace_group = qr/(?: # Non-brace without backtracking: + (?> [^{}]+ ) + | # Group with matching braces: + \{ (??{ $brace_group }) \} + )* + /xo; + +# Exactly the same as braces but for curly brackets (for templates). +my $curly_group = qr/defined/; # Fool use strict. +$curly_group = qr/< + (?: # Non-curly without backtracking: + (?> [^<>]+ ) + | # Group with matching curly brackets: + (??{ $curly_group }) + )* + > + /xo; + +# A C++ comment +# This wonderful RE is explained in perlfaq6. Credits: Fred Curtis. +my $comment = qr< + /\*[^*]*\*+(?:[^/*][^*]*\*+)*/ + |//[^\n]* + >x; + +# Some common CPP directives +my $cpp_directive = qr{\#\s*(?: + define\s+\S+ + |if[^\n]+ + |ifn?def[^\n]+ + |undef + |include [<"].*?[">] + )}x; + +# string: CPP tag to search in the source files. +my $tag = undef; + +# string: name of the file currently processed. +my $file = undef; + +my $backup_suffix = $ENV{SIMPLE_BACKUP_SUFFIX} || '~'; + +# Verbose level (0 = quiet, 1 = normal, 2 = verbose) +my $verbose = 1; + +sub msg +{ + print "@_\n" if $verbose; +} + +sub verbose +{ + &msg if $verbose > 1; +} + +# line_count(STR) +# --------------- +# Count the number of line in STR +sub line_count($) +{ + my $s = shift; + return ($s =~ tr/\n/\n/) + 1; +} + +# add_inline(LINE, BEGIN, TEMPLATE, FN, REST) +# ------------------------------------------- +# Helper function for add_all_inline below. Adds the `inline' keyword where +# needed if needed. The arguments (except LINE) are strings that are matched +# with a pattern commented in the function near the (only) call site of this +# function. +# Returns a couple (changed, string) where changed is TRUE if string has been +# changed compared to the input source (that is, if `inline' was added in +# string). +sub add_inline($$$$$) +{ + my ($line, $begin, $template, $fn, $rest) = @_; + my $pretty_fn = $fn; + my $l = $line + line_count($` . $begin . $template) + 1; + $pretty_fn =~ s/\s+/ /g; + chomp($pretty_fn); + $pretty_fn =~ s/^\s+//; + my $inline = ''; + my $changed = 0; + if ($fn !~ /\binline\b/) + { + msg "$file: Adding inline to ``$pretty_fn'' near line $l"; + # Find the indentation. + $fn =~ /^\s*/; + my $indent = $&; + $inline = $indent . 'inline'; + $changed = 1; + # Re-ident the function-name if we're just about to stick `indent' and + # the function name together. + if ($fn !~ /^\s/s) + { + $indent =~ s/^\s\n*//; + if ($indent eq '') + { + $begin =~ /\s*$/s; + $indent = $&; + $indent =~ s/^\s*\n//; + } + $fn = "\n$indent$fn"; + } + } + return ($changed, $begin . $template . $inline . $fn . $rest); +} + +# add_all_inline(LINENO, CODE) +# ---------------------------- +# Add all the `inline' keywords in CODE that starts at the input line LINEO. +# Returns a couple (changed, string) where `changed' is the number of times +# `inline' was added in `string'. +sub add_all_inline($$) +{ + my ($line, $code) = @_; + my $changed = 0; # Number of times we added `inline'. + # Match the beginning of *definitions*. We locate definitions by matching + # (1) either the start of the #ifndef MLN_INCLUDE_ONLY block or by seeing a + # brace or a semi-colon. Then (2) we need to see whether we have template + # parameters (we most likely do, and we can even have multiple levels of + # template parameters for method templates in class templates). Sometimes + # we can find comments right after the template parameters, so we accept + # them in (3). Then (4) we greedily match the name of the function or + # method. The name is anything but braces and semi-colons. Then (5) we + # have the list of formal arguments followed by (6) an optional `const' + # qualifier. Eventually (7) matches the body of the function. Care is + # taken to not actually match the closing right-brace that terminates the + # function, otherwise the next match can't use this brace to detect the next + # function (things can be matched only once, after they are "consumed"). + $code =~ s{ + ((?:^|[{};]) # (1) + (?:\s|$comment|$cpp_directive)*) + ((?:\s*(?:template\s*$curly_group) # (2) + (?:\s*$comment)?)*) # (3) + ([^;{}]+?) # (4) + ($$paren_group$ # (5) + (?:\s*const)? # (6) + \s*[{]$brace_group)(?=[}]) # (7) + } + { + my ($n, $c) = add_inline ($line, $1, $2, $3, $4); + $changed += $n; + $c + }gsex; + return ($changed, $code); +} + +sub help($) +{ + my $rv = shift; + my $fd = $rv ? \*STDERR : \*STDOUT; + # Keep the -t option first (since it's mandatory) + print $fd <<EOF; +Usage: $0 OPTIONS FILES +Add missing `inline' keywords in C++ headers. + +Options: + -t, --tag=string This option is MANDATORY. It specifies the preprocessor + symbol to look for when searching for code blocks where + `inline' must be added. + -q, --quiet Don't print anything. + -s, --suffix=str Simple backup suffix to use (files are always backed up + before changing them). Defaults to `~'. The environment + variable SIMPLE_BACKUP_SUFFIX is honored. + -v, --verbose Be more verbose. + +Copyright (C) 2007 Benoit Sigoure. +This is free software; see the source for copying conditions. There is NO +warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +EOF + exit $rv; +} + +# Parse ARGV, return the list of files to update. +sub parse_options() +{ + use Getopt::Long; + Getopt::Long::config ('bundling', 'pass_through'); + Getopt::Long::GetOptions + ( + 'h|help' => sub { help(0); }, + 's|suffix=s' => \$backup_suffix, + 't|tag=s' => \$tag, + 'v|verbose' => sub { ++$verbose; }, + 'q|quiet' => sub { --$verbose; }, + ) + or die; + + foreach my $arg (@ARGV) + { + if ($arg =~ /^-./) + { + print STDERR "$0: unrecognized option or bad usage for `$arg'\n"; + print STDERR "Try `$0 --help' for more information.\n"; + exit 1; + } + } + return @ARGV; +} + +# process(PATH) +# ----------------- +# Process the file PATH. +sub process($) +{ + $file = shift; + verbose "processing `$file'"; + + open(IN, '<', $file) or die "Failed to open `$file' for reading: $!"; + $_ = join('', <IN>); + close(IN) or die "Failed to close `$file': $!"; + + my $changed = 0; + s{ + (\#\s*ifndef\s+\Q$tag\E) + (.*?) + (\#\s*endif) + } + { + my ($n, $c) = add_all_inline(line_count($`), $2); + $changed += $n; + $1 . $c . $3 + }sex; + if ($changed) + { + rename($file, $file . $backup_suffix) or die "Failed to backup `$file': $!"; + + open(OUT, '>', $file) or die "Failed to open `$file' for writing: $!"; + print OUT; + close(OUT) or die "Failed to close `$file': $!"; + } + else + { + msg "`$file' is unchanged" + } +} + +my @input_files = parse_options(); +help(1) if $#input_files == -1; +print STDERR "You must specify a tag\n" and help(1) if not $tag; + +foreach my $file (@input_files) +{ + process $file; +} Property changes on: trunk/src/add-inline ___________________________________________________________________ Name: svn:executable + * Index: trunk/src/Makefile.am =================================================================== --- trunk/src/Makefile.am (revision 474) +++ trunk/src/Makefile.am (revision 475) @@ -18,6 +18,7 @@ include ../edit.mk dist_bin_SCRIPTS = \ +add-inline \ apatche \ checkin \ cl2patch \ Index: trunk/README =================================================================== --- trunk/README (revision 474) +++ trunk/README (revision 475) @@ -136,6 +136,11 @@ expected to deliver at the end of their first internship (at the beginning of ``Ing 2''). +** src/add-inline +Add `inline' keywords in C++ code found in headers. This was useful for +Olena because all the code was written in headers and no inline keyword was +used, thus preventing separate compilation. + ** src/apatche Send patches to a mailing list. -- SIGOURE Benoit aka Tsuna (SUSv3 compliant) _____ "Jesus saves, but only Buddha /EPITA\ Promo 2008.CSI/ACU/YAKA makes incremental backups"

1 0

Re: [Projects] [LrdeTools] r474: Minor fixes
by Roland Levillain 27 Nov '07

27 Nov '07

Akim Demaille <demaille(a)gostai.com> writes: > URL: https://svn.lrde.epita.fr/svn/lrde-tools/trunk > > ChangeLog: > 2007-11-26 Akim Demaille <demaille(a)gostai.com> > > Minor fixes. > * src/install-pysyck (stderr): New. > Use it. > Fix uses of $debug_p. > Suggest using --sudo-command. > Use portable sed scripts. > Prefer case (a builtin) to grep. Thanks!

1 0

Be thankful on Monday
by elecgabriel＠robfinefood.be 26 Nov '07

26 Nov '07

EtGU Takes Off As World Looks To Energy Solutions 5 point you should be on top of this thanksgiving: 1. The world is gripped by a global energy crisis 2. Government sees no real relief in sight. Corporations are finding their own way out. 3. EnerBrite's proven system reduces energy costs by as much as 30%. 4. Hotels and other large facilities are already boast in the news about the relief E TgU has brought to there energy problems. 5. This coming week a marketing campaign will increase investor awareness and boost share prices. Heavy trading got Et GU moving hard all week. Wednesday and Friday saw a giant push, to cut pricing and grab large blocks of shares in expectation of next weeks trading. Get in early on Monday before the price climbs back up and take advantage of the spread.

1 0

Re: [Projects] cfd8bd6: Add a Maildir parser for the commit hook messages of spot
by Alexandre Duret-Lutz 26 Nov '07

26 Nov '07

>>> "Benoit" == Benoit Sigoure <tsuna(a)lrde.epita.fr> writes: Benoit> URL: https://svn.lrde.epita.fr/svn/lrde-tools/trunk/buildbot Benoit> Git branch: master (HEAD: 4ffdab6) Benoit> ChangeLog: Benoit> 2007-11-25 Benoit Sigoure <tsuna(a)lrde.epita.fr> Benoit> Add a Maildir parser for the commit hook messages of spot. Benoit> * masters/spot_master.cfg (MyMaildirSource): New class. Benoit> Use it. Benoit> Send build failures to <login>@src.lip6.fr. Merci ! -- Alexandre Duret-Lutz

1 0

[LrdeTools] r474: Minor fixes
by Akim Demaille 26 Nov '07

26 Nov '07

URL: https://svn.lrde.epita.fr/svn/lrde-tools/trunk ChangeLog: 2007-11-26 Akim Demaille <demaille(a)gostai.com> Minor fixes. * src/install-pysyck (stderr): New. Use it. Fix uses of $debug_p. Suggest using --sudo-command. Use portable sed scripts. Prefer case (a builtin) to grep. --- install-pysyck | 75 ++++++++++++++++++++++++++++++++++----------------------- 1 file changed, 45 insertions(+), 30 deletions(-) Index: trunk/src/install-pysyck =================================================================== --- trunk/src/install-pysyck (revision 473) +++ trunk/src/install-pysyck (revision 474) @@ -1,7 +1,12 @@ #! /bin/bash # The path of the script. -me="$0" +me=$(basename "$0") + +stderr () +{ + echo >&2 "$me: $@" +} # The (general) install prefix. prefix="/usr/local" @@ -72,7 +77,10 @@ # success, 1 otherwise. match_option() { - echo "$1" | grep -q "^$2" 2>/dev/null + case $1 in + "$2"*) return 0;; + * ) return 1;; + esac } # ARGUMENT OPTION @@ -80,8 +88,8 @@ # Get the argument of OPTION argument() { - # I don't remember whether sed -r is portable... - echo "$1" | sed "s/[^=]\+=$.*$/\1/" + # sed -r is not portable, and neither is +. + echo "$1" | sed 's/^[^=]*=//' } # CLEANUP @@ -123,11 +131,11 @@ break ;; n|no*) - echo "Installation aborted." + stderr "Installation aborted." exit 1 ;; *) - echo "Please answer \`y' or \`n'." + stderr "Please answer \`y' or \`n'." ;; esac done @@ -141,23 +149,23 @@ # an unexpected failure (ERR). # This feature is disabled in debug mode, so that the user can look at # the work directory after the script terminates. -debug_p || trap cleanup SIGHUP SIGINT SIGQUIT SIGTERM ERR +$debug_p || trap cleanup SIGHUP SIGINT SIGQUIT SIGTERM ERR cd "$work_dir" # Information -echo "Work directory is $work_dir" -echo "Syck prefix is $syck_prefix" -echo "PySyck prefix is $pysyck_prefix" -test -n "$sudo_command" && echo "Sudo command is $sudo_command" -debug_p && echo "Debug mode on" +stderr "Work directory is $work_dir" +stderr "Syck prefix is $syck_prefix" +stderr "PySyck prefix is $pysyck_prefix" +test -n "$sudo_command" && stderr "Sudo command is $sudo_command" +$debug_p && stderr "Debug mode on" # Turn on debug mode if requested so. -debug_p && set -x +$debug_p && set -x # Download. -echo "Downloading Syck from $syck_url..." +stderr "Downloading Syck from $syck_url..." wget -O "$syck_archive" "$syck_url" -echo "Downloading PySyck from $pysyck_url..." +stderr "Downloading PySyck from $pysyck_url..." wget -O "$pysyck_archive" "$pysyck_url" ## ------ ## @@ -168,17 +176,24 @@ | perl -n \ -e "print \"\$1\n\"" \ -e " if (s,^.* ([^ /]*syck[^ /]+)/\$,\1,)") -echo "Unpacking Syck into $syck_srcdir..." +stderr "Unpacking Syck into $syck_srcdir..." tar xzf "$syck_archive" cd "$syck_srcdir" -echo "Building Syck..." +stderr "Building Syck..." ./configure --prefix="$syck_prefix" make make check -echo "Installing Syck..." -eval "$sudo_command make install" -echo "Cleaning Syck build tree..." +stderr "Installing Syck..." +stderr "$sudo_command make install" +if !eval "$sudo_command make install"; then + stderr "make install failed." + if test x"$sudo_command" = x; then + stderr "You might need to use --sudo-command=sudo" + fi + exit 1 +fi +stderr "Cleaning Syck build tree..." make clean # Absolute prefix. @@ -196,11 +211,11 @@ | perl -n \ -e "print \"\$1\n\"" \ -e " if (s,^.* ([^ /]*PySyck[^ /]+)/\$,\1,)") -echo "Unpacking PySyck into $pysyck_srcdir..." +stderr "Unpacking PySyck into $pysyck_srcdir..." tar xzf "$pysyck_archive" cd "$pysyck_srcdir" -echo "Patching setup.cfg..." +stderr "Patching setup.cfg..." cat <<EOF | patch --- setup.cfg.orig 2007-11-13 23:28:01.000000000 +0100 +++ setup.cfg 2007-11-13 23:30:44.000000000 +0100 @@ -217,9 +232,9 @@ EOF -echo "Installing PySyck..." +stderr "Installing PySyck..." eval "$sudo_command python setup.py install --prefix=\"$pysyck_prefix\"" -echo "Cleaning PySyck build tree..." +stderr "Cleaning PySyck build tree..." python setup.py clean # Absolute prefix. @@ -228,9 +243,9 @@ cd .. # The end. -echo -echo "======================================================================" -echo "Syck and PySyck installed successfully! Don't forget to update" -echo "your PYTHONPATH to use the freshly installed PySyck" -echo "(e.g., pre/append $abs_pysyck_prefix/lib/python2.5/site-packages)." -echo "======================================================================" +stderr +stderr "======================================================================" +stderr "Syck and PySyck installed successfully! Don't forget to update" +stderr "your PYTHONPATH to use the freshly installed PySyck" +stderr "(e.g., pre/append $abs_pysyck_prefix/lib/python2.5/site-packages)." +stderr "======================================================================"

1 0

Re: [Projects] Be thankful on Monday
by Tsuna 26 Nov '07

26 Nov '07

On 2007-11-26, <elecgabriel(a)robfinefood.be> <elecgabriel(a)robfinefood.be> wrote: > SPAM On pourrait mettre cette liste en member-only-can-post? -- SIGOURE Benoit aka Tsuna (SUSv3 compliant) _____ "I think Git is definitely in the running /EPITA\ Promo 2008.CSI/ACU/YAKA to be the dominate version control system." -- Bob Proulx

1 0

cfd8bd6: Add a Maildir parser for the commit hook messages of spot
by Benoit Sigoure 25 Nov '07

25 Nov '07

URL: https://svn.lrde.epita.fr/svn/lrde-tools/trunk/buildbot Git branch: master (HEAD: 4ffdab6) ChangeLog: 2007-11-25 Benoit Sigoure <tsuna(a)lrde.epita.fr> Add a Maildir parser for the commit hook messages of spot. * masters/spot_master.cfg (MyMaildirSource): New class. Use it. Send build failures to <login>@src.lip6.fr. --- masters/ChangeLog | 7 ++++ masters/spot_master.cfg | 71 +++++++++++++++++++++++++++++++++++++++++++++-- 2 files changed, 75 insertions(+), 3 deletions(-) diff --git a/masters/ChangeLog b/masters/ChangeLog index a0ce577..6903e26 100644 --- a/masters/ChangeLog +++ b/masters/ChangeLog @@ -1,3 +1,10 @@ +2007-11-25 Benoit Sigoure <tsuna(a)lrde.epita.fr> + + Add a Maildir parser for the commit hook messages of spot. + * masters/spot_master.cfg (MyMaildirSource): New class. + Use it. + Send build failures to <login>@src.lip6.fr. + 2007-11-21 Benoit Sigoure <tsuna(a)lrde.epita.fr> Add a buildfarm for Spot. diff --git a/masters/spot_master.cfg b/masters/spot_master.cfg index 5754f0a..103175a 100644 --- a/masters/spot_master.cfg +++ b/masters/spot_master.cfg @@ -32,8 +32,73 @@ c['slavePortnum'] = 9945 # source code changes. Any class which implements IChangeSource can be added # to this list: there are several in buildbot/changes/*.py to choose from. -import buildbot.changes.pb -c['change_source'] = [buildbot.changes.pb.PBChangeSource()] +from buildbot.changes.mail import MaildirSource +from buildbot.changes import changes +from email.Utils import parseaddr +from email.Iterators import body_line_iterator +import re +from time import mktime, strptime +from twisted.python import log +# Forked from FCMaildirSource +class MyMaildirSource(MaildirSource): + name = "MyMaildirSource" + + def parse(self, m, prefix=None): + """Parse mail sent by spot CVS commit hook""" + + log.msg('MyMaildirSource.parse') + files = None + comments = None + lines = list(body_line_iterator(m)) + who = None + # Who, when + while lines: + line = lines.pop(0) + if line.startswith("Changes by:"): + line = line.rstrip("\n") + log.msg('Got a commit mail: ' + line) + r = re.compile(r'Changes by:\s*([^<]+) <([^>]*)>\s*([\d\s/:]*)') + m = r.match(line) + name = m.group(1) + addr = m.group(2) + # Take the login from the email eg: foo(a)bar.com -> foo + who = addr[0:addr.find('@')] + when = mktime(strptime(m.group(3), "%y/%m/%d %H:%M:%S")) + break + while lines: + line = lines.pop(0) + if line == "Modified files:\n": + files = [] + break + # What changed + while lines: + line = lines.pop(0) + if line == "\n": + break + file = line.rstrip("\n") + files.append(file) + # Why + while lines: + line = lines.pop(0) + if line == "Log message:\n": + comments = "" + break + # message is terminated by "Patches:" or "Index:..." (patch) + while lines: + line = lines.pop(0) + if line.startswith("Patches:") or line.startswith("Index: "): + comments = comments.rstrip() + "\n" + break + comments += line + # The mail was just some noise, it doesn't come from the + # commit hook or is malformated. + if who is None or files is None or comments is None: + log.msg("mail seems incomplete") + return None + return changes.Change(who, files, comments, when=when) + +import os +c['change_source'] = MyMaildirSource(os.path.expanduser("~/Maildir")) ####### SCHEDULERS # http://buildbot.sourceforge.net/manual-0.7.4.html#Listing-Change-Sources-an… @@ -173,7 +238,7 @@ c['status'].append(html.WebStatus(http_port="tcp:8045:interface=127.0.0.1", from buildbot.status import mail c['status'].append(mail.MailNotifier(fromaddr="buildbot(a)lrde.epita.fr", - lookup="lrde.epita.fr", + lookup="src.lip6.fr", mode="problem", sendToInterestedUsers=True)) #

1 0