Item1918: TagMe import: do not import tags from Trash or tags from no…

…n-existing topics.

git-svn-id: http://svn.foswiki.org/trunk/TagsPlugin@8313 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

lib/Foswiki/Plugins/TagsPlugin/ImportTagMe.pm

@@ -96,7 +96,25 @@ sub do {
     # loop through all topics / files
     use Foswiki::Plugins::TagsPlugin::Tag;
     foreach my $webTopic (@list) {
+
+        my ($web, $topic) = Foswiki::Func::normalizeWebTopicName( "", $webTopic );
         $webTopic =~ s/[\/\\]/\./g;
+        $web      =~ s/[\/\\]/\./g;
+
+        # do not import garbage
+        if ($web =~ m/^Trash/) {
+            Foswiki::Func::writeDebug("TagsPlugin::TagMe-Import: skipping topic from Trash: $webTopic");
+            $retval .= "<br /> $webTopic (skipping, trash topic)";
+            next;
+        }; 
+
+        # do not import legacy
+        if (not Foswiki::Func::topicExists( $web, $topic )) {
+            Foswiki::Func::writeDebug("TagsPlugin::TagMe-Import: skipping nonexisting $webTopic");
+            $retval .= "<br /> $webTopic (skipping, non-existsing)";
+            next;
+        }; 
+
         my $text = Foswiki::Func::readFile("$workAreaDir/_tags_$webTopic.txt");
         my @tagInfo = grep { /^[0-9]/ } split( /\n/, $text );
         foreach my $line (@tagInfo) {