loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

-version 1.19, 2001/03/22 22:44:12
+version 1.20, 2001/03/24 21:51:58
  Line 6
  # 05/29/00,05/30,10/11 Gerd Kortemeyer)
  #
  # 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer
+ # 03/23 Guy Albertelli
+ # 03/24 Gerd Kortemeyer
  package Apache::lonpublisher;
- Line 590  if (-e $target) {
+ Line 592  if (-e $target) {
                 $scrout.=$reply;
                 print $logfile $reply;
             }
+        }
+     }
+     closedir(DIR);
+ }
+ # ---------------------------------------- Send update notifications, meta only
+ {
+     my $filename;
+     $target=~/(.*)\/([^\/]+)$/;
+     my $srcf=$2.'.meta';
+     opendir(DIR,$1);
+     while ($filename=readdir(DIR)) {
+        if ($filename=~/$srcf\.(\w+)$/) {
+ 	   my $subhost=$1;
+            if ($subhost ne 'meta') {
+ 	       $scrout.=
+                 '<p>Notifying host for metadata only '.$subhost.':';
+                print $logfile
+                 "\nNotifying host for metadata only '.$subhost.':'";
+                my $reply=&Apache::lonnet::critical(
+                                 'update:'.$target.'.meta',$subhost);
+                $scrout.=$reply;
+                print $logfile $reply;
+            }
         }
      }
      closedir(DIR);