Diff for /doc/loncapafiles/mimetex_version_check.piml between versions 1.1 and 1.2

version 1.1, 2008/12/18 22:30:24 version 1.2, 2008/12/27 01:21:48
Line 50  http://www.lon-capa.org/ Line 50  http://www.lon-capa.org/
                         chomp($version);                          chomp($version);
                         if ($currversion=~ /^\d+\.\d+$/) {                          if ($currversion=~ /^\d+\.\d+$/) {
                             if ($currversion ne $newversion) {                              if ($currversion ne $newversion) {
                                 unlink('/home/httpd/cgi/mimetexcache/*.gif');                                  &clear_mimetex_cache(); 
                                 print "All .gif files cached by previous mimeTeX version have been removed from the mimetexcache directory\n";  
                                 if (open($fh, ">$currversionfile")) {                                  if (open($fh, ">$currversionfile")) {
                                     print $fh "$newversion";                                      print $fh "$newversion";
                                     close($fh);                                      close($fh);
Line 61  http://www.lon-capa.org/ Line 60  http://www.lon-capa.org/
                         }                          }
                     }                      }
                 } else {                  } else {
                     unlink('/home/httpd/cgi/mimetexcache/*.gif');                      &clear_mimetex_cache();
                     print "All .gif files cached by previous mimeTeX version have been removed from the mimetexcache directory\n";  
                     if (open($fh, ">$currversionfile")) {                      if (open($fh, ">$currversionfile")) {
                         print $fh "$newversion";                          print $fh "$newversion";
                         close($fh);                          close($fh);
                         print "mimetex-version file in /home/httpd/lonTabs set to version: $newversion.\n";`                          print "mimetex-version file in /home/httpd/lonTabs set to version: $newversion.\n";
                     }                      }
                 }                  }
             }              }
         }          }
       } else {
           print "Couldn't find the mimetex version file: $newversionfile\n";
       }
   
       sub clear_mimetex_cache {
           my $mimetexcache = '/home/httpd/cgi-bin/mimetexcache';
           if (opendir(my $dir,$mimetexcache)) {
               my @gifs = grep(/^[^\/]+\.gif$/,readdir($dir));
               if (@gifs > 0) {
                   my $counter = 0;
                   foreach my $gif (@gifs) {
                       unlink("$mimetexcache/$gif");
                       $counter ++;
                   }
                   if ($counter) {
                       print "$counter .gif file(s) cached by previous mimeTeX version have been removed from the mimetexcache directory\n";
                   }
               }
               closedir($dir);
           } else {
               print "An error occurred opening the directory: $mimetexcache\n";
           }
     }      }
 </perlscript>  </perlscript>
 </file>  </file>

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>