Item175: added bridges for Meta, Time and OopsException

git-svn-id: http://svn.foswiki.org/trunk@1038 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Nov 28, 2008 · cdb2931 · cdb2931
1 parent b9a116c
commit cdb2931
Show file tree

Hide file tree

Showing 6 changed files with 53 additions and 2 deletions.
diff --git a/TWikiCompatibilityPlugin/data/System/TWikiCompatibilityPlugin.txt b/TWikiCompatibilityPlugin/data/System/TWikiCompatibilityPlugin.txt
@@ -25,7 +25,7 @@ Map TWIKIWEB to SYSTEMWEB and MAINWEB to USERSWEB - no Preference settings requi
 Many thanks to the following sponsors for supporting this work:
    * Acknowledge any sponsors here
 
-|  Plugin Author(s): | SvenDowideit |
+|  Plugin Author(s): | Sven Dowideit, Michael Daum, Crawford Currie |
 |  Copyright: | &copy; SvenDowideit@fosiki.com |
 |  License: | [[http://www.gnu.org/licenses/gpl.html][GPL3 (Gnu General Public License)]] |
 |  Plugin Version: | %$VERSION% |

diff --git a/TWikiCompatibilityPlugin/lib/Foswiki/Plugins/TWikiCompatibilityPlugin.pm b/TWikiCompatibilityPlugin/lib/Foswiki/Plugins/TWikiCompatibilityPlugin.pm
@@ -1,4 +1,4 @@
-# Plugin for Foswiki - The Free Open Source Wiki, http://foswiki.org/
+# Plugin for Foswiki - The Free and Open Source Wiki, http://foswiki.org/
 #
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License

diff --git a/TWikiCompatibilityPlugin/lib/Foswiki/Plugins/TWikiCompatibilityPlugin/MANIFEST b/TWikiCompatibilityPlugin/lib/Foswiki/Plugins/TWikiCompatibilityPlugin/MANIFEST
@@ -10,6 +10,9 @@ lib/TWiki/UI.pm 0644 Perl module
 lib/TWiki/Attrs.pm 0644 Perl module
 lib/TWiki/Sandbox.pm 0644 Perl module
 lib/TWiki/Prefs.pm 0644 Perl module
+lib/TWiki/Meta.pm 0644 Perl module
+lib/TWiki/OopsException.pm 0644 Perl module
+lib/TWiki/Time.pm 0644 Perl module
 
 #make TWiki a real web
 data/TWiki/WebPreferences.txt 0644 make it a valid web

diff --git a/TWikiCompatibilityPlugin/lib/TWiki/Meta.pm b/TWikiCompatibilityPlugin/lib/TWiki/Meta.pm
@@ -0,0 +1,11 @@
+package TWiki::Meta;
+
+use Foswiki::Meta;
+
+sub new {
+    shift;
+    return new Foswiki::Meta(@_);
+}
+
+1;
+
diff --git a/TWikiCompatibilityPlugin/lib/TWiki/OopsException.pm b/TWikiCompatibilityPlugin/lib/TWiki/OopsException.pm
@@ -0,0 +1,14 @@
+package TWiki::OopsException;
+use Error;
+use Assert;
+use base 'Error';
+
+use Foswiki::OopsException;
+
+sub new {
+    shift;
+    return new Foswiki::OopsException(@_);
+}
+
+1;
+
diff --git a/TWikiCompatibilityPlugin/lib/TWiki/Time.pm b/TWikiCompatibilityPlugin/lib/TWiki/Time.pm
@@ -0,0 +1,23 @@
+package TWiki::Time;
+
+# Bridge between TWiki::Time and Foswiki::Time
+
+use strict;
+
+use Foswiki::Time;
+
+use vars qw( @ISOMONTH @WEEKDAY @MONTHLENS %MON2NUM );
+
+@ISOMONTH = @Foswiki::Time::ISOMONTH;
+@WEEKDAY = @Foswiki::Time::WEEKDAY;
+@MONTHLENS = @Foswiki::Time::MONTHLENS;
+@MON2NUM = @Foswiki::Time::MON2NUM;
+
+sub parseTime { Foswiki::Time::parseTime(@_) }
+sub formatTime { Foswiki::Time::formatTime(@_) }
+sub _weekNumber { Foswiki::Time::_weekNumber(@_) }
+sub formatDelta { Foswiki::Time::formatDelta(@_) }
+sub parseInterval { Foswiki::Time::parseInterval(@_) }
+sub _parseDuration { Foswiki::Time::_parseDuration(@_) }
+
+1;