Mercurial > hgrepos > hgweb.cgi > s4

comparison mpsplit.pl @ 12:262bbdea72e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clear taint flag
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 21 Jul 2015 08:02:30 +0900
parents 3565d93c2fb1
children 347ea2bca687
comparison
equal deleted inserted replaced
11:3565d93c2fb1 12:262bbdea72e2
1 #!/usr/bin/env perl 1 #!/usr/bin/env perl
2 $sep = "--" . $ARGV[0]; 2 $sep = "--" . $ARGV[0];
3 $dir = ($ARGV[1] || "tmp"); 3 $dir = ($ARGV[1] || "tmp");
4 if ($dir =~ /^([^<>\;\&]*)$/) {
5 $dir = $1;
6 }
4 7
5 #print "sep=".$sep, "dir=$dir\n"; 8 #print "sep=".$sep, "dir=$dir\n";
6 #binmode STDIN; 9 #binmode STDIN;
7 $/ = undef; 10 $/ = undef;
8 $stream = (<STDIN>); 11 $stream = (<STDIN>);
21 next; 24 next;
22 } 25 }
23 $name = $2; 26 $name = $2;
24 #print "name=$name\n"; 27 #print "name=$name\n";
25 if ($header =~ /filename=(['\"]?)(.*?)\1/ && $2 gt "") { 28 if ($header =~ /filename=(['\"]?)(.*?)\1/ && $2 gt "") {
26 $fn = $2; 29 $fn=$2;
30 if ($fn =~ /^([^\/]*)$/) {
31 $fn = $1;
32 }
27 open(OUT, ">$dir/$fn"); 33 open(OUT, ">$dir/$fn");
28 print OUT $body; 34 print OUT $body;
29 close(OUT); 35 close(OUT);
30 printf("%s:filename=%s\n", $name, unpack("H*", $fn)); 36 printf("%s:filename=%s\n", $name, unpack("H*", $fn));
31 } else { 37 } else {

yatex.org