Changeset 207

Timestamp:

05/18/06 16:42:10 (3 years ago)

Author:

ogawa

Message:

Fix: captcha.pl pointed to wrong data_folder and output_folder.

Files:

• captcha/trunk/plugins/captcha/captcha.pl (modified) (3 diffs)

captcha/trunk/plugins/captcha/captcha.pl

@@ -12 +12 @@
 use MT;
 use MT::Template::Context;
+use File::Spec;
+use File::Basename;
 use Authen::Captcha;
 use base 'MT::Plugin';
@@ -26 +28 @@
 MT->add_plugin($plugin);
 
-my $captcha = Authen::Captcha->new(data_folder => './data',
-                                   output_folder => './images');
+my $dirname = dirname(__FILE__);
+my $captcha = Authen::Captcha->new(
+   data_folder => File::Spec->catdir($dirname, 'data'),
+   output_folder => File::Spec->catdir($dirname, 'images')
+);
+
 MT->add_callback('CommentThrottleFilter', 5, $plugin, \&captcha_test);
 MT::Template::Context->add_tag(CaptchaJsURL => \&captcha_js_url);
@@ -50 +56 @@
     my $path = MT::ConfigMgr->instance->CGIPath;
     $path .= '/' unless $path =~ m!/$!;
-    $path . 'plugins/captcha/captcha_js.cgi'; # ad hoc
+    $path . 'plugins/captcha/captcha_js.cgi';
 }