Changeset 483 for trunk/TWikiReleaseTrackerPlugin/lib/TWiki/Plugins/TWikiReleaseTrackerPlugin/FileDigest.pm

Timestamp:

11/09/08 14:58:26 (4 years ago)

Author:

RobManson

Message:

Item38: Fixed up a load of legacy package/namespace issues so I could install it so I could test the changes I made to remove the backticks and replace them with ->sysCommand(). There's still an issue in TWikiReleaseTrackerPlugin.pm:137-139 with the Content-type. If you take this line out then twiki/bin/view/TWiki/TRTChangesFromDistribution gets sent as plain/text.

File:

• trunk/TWikiReleaseTrackerPlugin/lib/TWiki/Plugins/TWikiReleaseTrackerPlugin/FileDigest.pm (modified) (6 diffs)

trunk/TWikiReleaseTrackerPlugin/lib/TWiki/Plugins/TWikiReleaseTrackerPlugin/FileDigest.pm

@@ -4 +4 @@
 use Digest::MD5;
 use FileHandle;
-use Common;
-
-package FileDigest;
+use TWiki::Plugins::TWikiReleaseTrackerPlugin::Common;
+
+package TWiki::Plugins::TWikiReleaseTrackerPlugin::FileDigest;
 =pod
 
@@ -197 +197 @@
     my $dh = DirHandle->new($dir) || die "$! - $dir";
 
-    Common::debug "loading indexes from $dir:\n\n";
+    TWiki::Plugins::TWikiReleaseTrackerPlugin::Common::debug "loading indexes from $dir:\n\n";
     foreach my $index (sort grep { /.md5$/ } $dh -> read()) {
         loadIndex($dir."/".$index);
@@ -205 +205 @@
 sub loadIndex {
     my ($filename) = @_;
-    Common::debug "loading index $filename\n";
+    TWiki::Plugins::TWikiReleaseTrackerPlugin::Common::debug "loading index $filename\n";
     my $fh = new FileHandle $filename, "r";
     unless (defined $fh) {
@@ -214 +214 @@
     while (my $line = <$fh>) {
         chomp $line;
-        Common::debug "$line\n";
+        TWiki::Plugins::TWikiReleaseTrackerPlugin::Common::debug "$line\n";
 
         next if ($line eq "");
@@ -220 +220 @@
         my ($digest, $distributionfile) = split /\s+/, $line;
         my ($distribution, $file) = split /=/, $distributionfile;
-        Common::debug "$distribution, $file, $digest \n";
+        TWiki::Plugins::TWikiReleaseTrackerPlugin::Common::debug "$distribution, $file, $digest \n";
         addOccurance($distribution, $file, $digest);
     }
@@ -232 +232 @@
         die "$! - $filename";
     };
-    Common::debug "Saving to $filename\n";
+    TWiki::Plugins::TWikiReleaseTrackerPlugin::Common::debug "Saving to $filename\n";
     foreach my $digest (keys %digestToOccurances) {
         my @occurances = retreiveOccurancesForDigest($digest);