monkeysphere - Unnamed repository; edit this file 'description' to name the repository.

path: root/src/subcommands/ma/list-certifiers

diff options

Diffstat (limited to 'src/subcommands/ma/list-certifiers')

0 files changed, 0 insertions, 0 deletions

an>\&rcs_prepedit);

    hook(type => "rcs", id => "rcs_commit", call => \&rcs_commit);

    hook(type => "rcs", id => "rcs_commit_staged", call => \&rcs_commit_staged);

    hook(type => "rcs", id => "rcs_add", call => \&rcs_add);

    hook(type => "rcs", id => "rcs_remove", call => \&rcs_remove);

    hook(type => "rcs", id => "rcs_rename", call => \&rcs_rename);

    hook(type => "rcs", id => "rcs_recentchanges", call => \&rcs_recentchanges);

    hook(type => "rcs", id => "rcs_diff", call => \&rcs_diff);

    hook(type => "rcs", id => "rcs_getctime", call => \&rcs_getctime);

}

sub checkconfig () {

    if (defined $config{tla_wrapper} && length $config{tla_wrapper}) {

        push @{$config{wrappers}}, {

            wrapper => $config{tla_wrapper},

            wrappermode => (defined $config{tla_wrappermode} ? $config{tla_wrappermode} : "06755"),

};

}

sub getsetup () {

return

plugin => {

            safe => 0, # rcs plugin

            rebuild => undef,

tla_wrapper => {

            type => "string",

#example => "", # TODO example

            description => "tla post-commit hook to generate",

            safe => 0, # file

            rebuild => 0,

tla_wrappermode => {

            type => "string",

            example => '06755',

            description => "mode for tla_wrapper (can safely be made suid)",

            safe => 0,

            rebuild => 0,

historyurl => {

            type => "string",

#example => "", # TODO example

            description => "url to show file history ([[file]] substituted)",

            safe => 1,

            rebuild => 1,

diffurl => {

            type => "string",

#example => "", # TODO example

            description => "url to show a diff ([[file]] and [[rev]] substituted)",

            safe => 1,

            rebuild => 1,

}

sub quiet_system (@) {

# See Debian bug #385939.

    open (SAVEOUT, ">&STDOUT");

close STDOUT;

    open (STDOUT, ">/dev/null");

    my $ret=system(@_);

close STDOUT;

    open (STDOUT, ">&SAVEOUT");

close SAVEOUT;

    return $ret;

}

sub rcs_update () {

    if (-d "$config{srcdir}/{arch}") {

        if (quiet_system("tla", "replay", "-d", $config{srcdir}) != 0) {

            warn("tla replay failed\n");

}

sub rcs_prepedit ($) {

    my $file=shift;

    if (-d "$config{srcdir}/{arch}") {

# For Arch, return the tree-id of archive when

# editing begins.

        my $rev=`tla tree-id $config{srcdir}`;

        return defined $rev ? $rev : "";

}

sub rcs_commit ($$$;$$) {

    my $file=shift;

    my $message=shift;

    my $rcstoken=shift;

    my $user=shift;

    my $ipaddr=shift;

    if (defined $user) {

        $message="web commit by $user".(length $message ? ": $message" : "");

}

    elsif (defined $ipaddr) {

        $message="web commit from $ipaddr".(length $message ? ": $message" : "");

}

    if (-d "$config{srcdir}/{arch}") {

# Check to see if the page has been changed by someone

# else since rcs_prepedit was called.

        my ($oldrev)=$rcstoken=~/^([A-Za-z0-9@\/._-]+)$/; # untaint

        my $rev=`tla tree-id $config{srcdir}`;

        if (defined $rev && defined $oldrev && $rev ne $oldrev) {

# Merge their changes into the file that we've

# changed.

            if (quiet_system("tla", "update", "-d",

                       "$config{srcdir}") != 0) {

                warn("tla update failed\n");

}

        if (quiet_system("tla", "commit",

                   "-L".IkiWiki::possibly_foolish_untaint($message),

               '-d', $config{srcdir}) != 0) {

            my $conflict=readfile("$config{srcdir}/$file");

            if (system("tla", "undo", "-n", "--quiet", "-d", "$config{srcdir}") != 0) {

                warn("tla undo failed\n");

}

            return $conflict;

}

    return undef # success

}

sub rcs_commit_staged ($$$) {

# Commits all staged changes. Changes can be staged using rcs_add,

# rcs_remove, and rcs_rename.

    my ($message, $user, $ipaddr)=@_;

    error("rcs_commit_staged not implemented for tla"); # TODO

}

sub rcs_add ($) {

    my $file=shift;

    if (-d "$config{srcdir}/{arch}") {

        if (quiet_system("tla", "add", "$config{srcdir}/$file") != 0) {

            warn("tla add failed\n");

}

sub rcs_remove ($) {

    my $file = shift;

    error("rcs_remove not implemented for tla"); # TODO

}

sub rcs_rename ($$) { # {{{a

    my ($src, $dest) = @_;

    error("rcs_rename not implemented for tla"); # TODO

}

sub rcs_recentchanges ($) {

    my $num=shift;

    my @ret;

    return unless -d "$config{srcdir}/{arch}";

    eval q{use Date::Parse};

    error($@) if $@;

    eval q{use Mail::Header};


context:
space:
mode: