2 # stodo commits the changes made to a subversion backed todo db, and
3 # is released under the terms of the GPL version 2, or any later
4 # version, at your option. See the file README and COPYING for more
5 # information. Copyright 2004 by Don Armstrong <don@donarmstrong.com>.
18 stodo - devtodo event script which attempts to commit the changes made to a .todo file after a change
25 --simulate, -s simulate: don't actually do anything
26 --quiet, -q don't output to STDOUT
27 --debug, -d debugging level (Default 0)
28 --help, -h display this help
29 --man, -m display manual
35 =item B<--simulate, -s>
37 Simulation mode, don't actually commit anything.
41 Don't output anything to STDOUT
45 Debug verbosity. (Default 0)
49 Display brief useage information.
57 =head1 ENVIRONMENTAL VARIABLES
63 Todo databse location, set by devtodo
65 =item B<STODO_NO_COMMIT>
67 If set, stodo assumes that there is no network, and doesn't commit
86 use Data::Diff qw(Diff);
87 use File::Basename qw(dirname basename);
91 # XXX parse config file
93 my %options = (quiet => 0,
100 GetOptions(\%options,'debug|d+','help|h|?','man|m','quiet|q+','simulate|s+');
102 pod2usage() if $options{help};
103 pod2usage({verbose=>2}) if $options{man};
105 $DEBUG = $options{debug};
107 # Figure out what we're doing
108 my $tododb = exists $ENV{TODODB} ? $ENV{TODODB} : '.todo';
109 if ($tododb !~ m#^/#) {
110 $tododb = cwd().'/'.$tododb;
112 if (not -r $tododb) {
113 print STDERR "Todo DB '$tododb' does not exist or is not readable\n";
116 $tododb = full_readlink($tododb);
117 my $base_dir = dirname($tododb);
118 my $tododb_name = basename($tododb);
120 if (not -e "$base_dir/.svn") {
121 print STDERR "$base_dir/.svn doesn't exist, not commiting\n" unless $options{quiet};
125 if (not -e "$base_dir/.svn/text-base/${tododb_name}.svn-base") {
126 print STDERR "$base_dir/.svn/text-base/${tododb_name}.svn-base doesn't exist, not committing\n" unless $options{quiet};
130 # Make sure that we can ping the subversion server
131 my $svn_entries_fh = new IO::File "$base_dir/.svn/entries",'r'
132 or die "unable to open $base_dir/.svn/entries: $!";
135 while (<$svn_entries_fh>) {
136 next unless m#^(?:\s+url=\")?(http|svn\+ssh|file):///?([^\/]+)#;
138 last if $url_type eq 'file';
142 if ($ENV{STODO_NO_COMMIT}) {
143 print STDERR "Exiting because of STODO_NO_COMMIT env variable\n" unless $options{quiet};
146 if (not defined $svn_host and (not defined $url_type or $url_type ne 'file')) {
147 die "Was unable to find which host the svn repository is located on";
149 if ($url_type ne 'file') {
150 qx(ping -q -c 3 $svn_host >/dev/null 2>&1);
152 print "Unable to ping $svn_host\n" unless $options{quiet};
153 exit 0 unless $options{simulate};
158 # See what has changed
159 #my $svn_fh = new IO::Handle;
160 #open($svn_fh,'-|','svn','diff',$tododb) or die "Unable to execute svn diff $tododb; $!";
162 # next unless /^[-+]/;
165 my $todo_db_old = fix_content(XMLin("$base_dir/.svn/text-base/${tododb_name}.svn-base",KeyAttr=>'time')->{note});
166 my $todo_db_new = fix_content(XMLin($tododb,KeyAttr=>'time')->{note});
170 my $diff = Diff($todo_db_new,$todo_db_old);
173 #print Dumper($diff);
175 if (exists $diff->{uniq_a}) {
176 foreach (values %{$diff->{uniq_a}}) {
177 my ($content,$priority) = map {s/^\s*|\s*$//g; s/\n/ /g; $_;} @{$_}{qw(content priority)};
178 push @commit_message,qq( * Added todo: [$priority] $content);
182 if (exists $diff->{uniq_b}) {
183 foreach (values %{$diff->{uniq_b}}) {
184 my ($content,$priority) = map {s/^\s*|\s*$//g; s/\n/ /g; $_;} @{$_}{qw(content priority)};
185 push @commit_message,qq( * Deleted todo: [$priority] $content);
189 if (exists $diff->{diff}) {
190 # This entry has either been edited, completed, or uncompleted
191 foreach my $entry_key (keys %{$diff->{diff}}) {
192 my ($content,$priority) = map {s/^\s*|\s*$//g; s/\n/ /g; $_;} @{$todo_db_new->{$entry_key}}{qw(content priority)};
193 my $diff_entry = $diff->{diff}{$entry_key};
194 if (exists $diff_entry->{uniq_a} and exists $diff_entry->{uniq_a}{done}) {
195 push @commit_message,qq( * Finished todo: [$priority] $content);
197 if (exists $diff_entry->{uniq_a} and exists $diff_entry->{uniq_b}{done}) {
198 push @commit_message,qq( * Marked as undone: [$priority] $content);
200 if (exists $diff_entry->{diff}) {
202 if (exists $diff_entry->{diff}{content}) {
203 push @what_changed,'content';
205 if (exists $diff_entry->{diff}{priority}) {
206 push @what_changed,'priority';
208 if (not @what_changed) {
209 @what_changed = keys %{$diff_entry->{diff}};
211 push @commit_message,qq( * Todo changed ).join(' and ',@what_changed).qq( [$priority] $content);
216 if (exists $diff->{same}) {
217 foreach my $entry_key (keys %{$diff->{same}}) {
218 my ($content,$priority) = map {s/^\s*|\s*$//g; s/\n/ /g; $_;} @{$todo_db_new->{$entry_key}}{qw(content priority)};
219 my $diff_entry = $diff->{same}{$entry_key};
220 if (exists $diff_entry->{uniq_a} and exists $diff_entry->{uniq_a}{done}) {
221 push @commit_message,qq( * Finished todo: [$priority] $content);
223 if (exists $diff_entry->{uniq_a} and exists $diff_entry->{uniq_b}{done}) {
224 push @commit_message,qq( * Marked as undone: [$priority] $content);
226 if (exists $diff_entry->{diff}) {
228 if (exists $diff_entry->{diff}{content}) {
229 push @what_changed,'content';
231 if (exists $diff_entry->{diff}{priority}) {
232 push @what_changed,'priority';
234 if (not @what_changed) {
235 @what_changed = keys %{$diff_entry->{diff}};
237 push @commit_message,qq( * Todo changed ).join(' and ',@what_changed).qq( [$priority] $content);
243 if (not @commit_message) {
244 print "No commit message\n" if $DEBUG or $options{simulate};
248 my $commit_message = join('', map {qq($_\n)} @commit_message);
249 if ($options{simulate}) {
250 print "svn commit -F - $tododb <<EOF\n";
251 print $commit_message;
255 system('svn','commit','-m',$commit_message,$tododb);
259 # Commit the changes with an appropriate commit message
264 if (not ref(${[values %{$s}]}[0]) eq 'HASH') {
265 $s = {$s->{time} => $s};
267 foreach my $entry (values %{$s}) {
268 if (exists $entry->{content}) {
269 $entry->{content} =~ s/^\s*|\s*$//g;
271 if (exists $entry->{comment}) {
272 $entry->{comment} =~ s/^\s*|\s*$//g;
282 $file = readlink $file;