Merge branch 'master' into sipb

[ikiwiki.git] / ikiwiki-comment.in

diff --git a/ikiwiki-comment.in b/ikiwiki-comment.in
new file mode 100755 (executable)
index 0000000..0891766
--- /dev/null
+++ b/ikiwiki-comment.in
@@ -0,0 +1,123 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use lib '.'; # For use in nonstandard directory, munged by Makefile.
+use IkiWiki;
+use IkiWiki::Plugin::comments;
+use Getopt::Long;
+
+sub usage {
+       die gettext("usage: ikiwiki-comment pagefile [options]") . "\n";
+}
+
+sub main {
+       my $pagefile=shift || usage();
+       my $interactive = -t STDIN;
+       my $content;
+       my ($format, $username, $subject, $date, $url, $email, $ip);
+       GetOptions(
+               'format:s'      => \$format,
+               'username:s'    => \$username,
+               'subject:s'     => \$subject,
+               'date:s'        => \$date,
+               'url:s'         => \$url,
+               'email:s'       => \$email,
+               'ip:s'          => \$ip,
+       ) || usage();
+
+       my $dir=get_dir($pagefile);
+       my $page=get_page($pagefile);
+
+       IkiWiki::Plugin::comments::checkconfig();
+
+       if ($interactive) {
+               $format         ||= 'mdwn';
+               $username       ||= get_username();
+               $subject        ||= get_subject($page, $dir);
+               $date           ||= IkiWiki::Plugin::comments::commentdate();
+               $url            ||= undef;
+               $email          ||= undef;
+               $ip             ||= undef;
+       } else {
+               $format         ||= undef;
+               die "must supply username" unless defined $username;
+               $subject        ||= get_subject($page, $dir);
+               die "must supply date" unless defined $date;
+               $url            ||= undef;
+               $email          ||= undef;
+               $ip             ||= undef;
+               chomp($content = join('', <STDIN>));
+       }
+
+       my $comment=get_comment($format, $username, $subject, $date, $url, $email, $ip, $content);
+
+       # For interactive use, this will yield a hash of the comment before
+       # it's edited, but that's ok; the date provides sufficient entropy
+       # to avoid collisions, and the hash of a comment does not need to
+       # match its actual content.
+       # Doing it this way avoids needing to move the file to a final
+       # location after it's edited.
+       my $location=IkiWiki::Plugin::comments::unique_comment_location($page, $comment, $dir)."._comment";
+
+       IkiWiki::writefile($location, $dir, $comment);
+       exec_editor("$dir/$location") if $interactive;
+}
+
+sub get_dir {
+       my ($file) = @_;
+       my $dir=IkiWiki::dirname($file);
+       $dir="." unless length $dir;
+       return $dir;
+}
+
+sub get_page {
+       my ($file) = @_;
+       my $page=IkiWiki::basename($file);
+       $page=~s/\.[^.]+$// unless -d $file;
+       return $page;
+}
+
+sub get_username {
+       my $username = getpwuid($<);
+       $username="" unless defined $username;
+       return $username;
+}
+
+sub get_subject {
+       my ($page, $dir) = @_;
+       my $comment_num=1+IkiWiki::Plugin::comments::num_comments($page, $dir);
+       return "comment $comment_num";
+}
+
+sub get_comment {
+       my ($format, $username, $subject, $date, $url, $email, $ip, $content) = @_;
+       $format = defined $format ? $format = " format=$format" : q{};
+       $content = '' unless defined $content;
+       my $comment="[[!comment$format\n";
+       $comment.=" username=\"$username\"\n";
+       $comment.=" subject=\"\"\"$subject\"\"\"\n";
+       $comment.=" date=\"$date\"\n";
+       $comment.=" url=\"$url\"\n" if defined $url;
+       $comment.=" email=\"$email\"\n" if defined $email;
+       $comment.=" ip=\"$ip\"\n" if defined $ip;
+       $comment.=" content=\"\"\"\n$content\n\"\"\"]]\n";
+       return $comment;
+}
+
+sub exec_editor {
+       my ($file) = @_;
+
+       my @editor="vi";
+       if (-x "/usr/bin/editor") {
+               @editor="/usr/bin/editor";
+       }
+       if (exists $ENV{EDITOR}) {
+               @editor=split(' ', $ENV{EDITOR});
+       }
+       if (exists $ENV{VISUAL}) {
+       @editor=split(' ', $ENV{VISUAL});
+       }
+       exec(@editor, $file);
+}
+
+main(@ARGV);