===================================================================
RCS file: /cvs/todotxt/Text-Todo/bin/todo.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- todotxt/Text-Todo/bin/todo.pl	2010/01/10 23:26:04	1.4
+++ todotxt/Text-Todo/bin/todo.pl	2010/01/10 23:37:12	1.5
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver: todo.pl,v 1.3 2010/01/10 22:59:16 andrew Exp $
+# $RedRiver: todo.pl,v 1.4 2010/01/10 23:26:04 andrew Exp $
 ########################################################################
 # todo.pl *** a perl version of todo.sh. Uses Text::Todo.
 #
@@ -155,7 +155,19 @@
     die "Unable to append\n";
 }
 
-sub archive   { return &unsupported }
+sub archive { 
+    my ( $config ) = @_;
+    my $todo = Text::Todo->new($config);
+    
+    my $file = $todo->file;
+
+    my $archived = $todo->archive;
+    if (defined $archived) {
+        return print "TODO: $file archived.\n";
+    }
+    die "Unable to archive $file\n";
+}
+
 sub command   { return &unsupported }
 sub del       { return &unsupported }
 sub depri     { return &unsupported }