1234567891011121314151617181920212223 |
- $V = shift;
- foreach $file (@ARGV) {
- next if ($file =~ m/\/config\//);
- next if ($file =~ m/\/extensions\/TeX\/mhchem3\//);
- next if ($file =~ m/\/extensions\/a11y\//);
- open(INFILE,"<",$file) || die "Can't open '$file' for reading: $!\n";
- @lines = <INFILE>; close(INFILE);
- $lines = join("",@lines);
- $lines =~ s/( "?version"?(:| =) ")\d+(\.\d+)*(-beta([-.]\d+)?)?"/$1$V"/gi;
- $lines =~ s/MathJax.version = "\d+(\.\d+)*(-beta([-.]\d+)?)?"/MathJax.version = "$V"/;
- $lines =~ s/MathJax.fileversion = "\d+(\.\d+)*(-beta([-.]\d+)?)?"/MathJax.fileversion = "$V"/;
- $lines =~ s/MathJax.cdnVersion = "(\d+(\.\d+)*(-beta([-.]\d+)?)?)?"/MathJax.cdnVersion = "$V"/;
- open(OUTFILE,">",$file);
- print OUTFILE $lines;
- close(OUTFILE);
- }
|