blob: a5b6cf646a6de1eee0805885fdf6a97cba573d97
| 1 | #!/usr/bin/perl -w |
| 2 | |
| 3 | use File::Spec; |
| 4 | my $path_curf = File::Spec->rel2abs(__FILE__); |
| 5 | my ($vol, $dirs, $file) = File::Spec->splitpath($path_curf); |
| 6 | print "C Dir = ", $dirs,"\n"; |
| 7 | |
| 8 | my $name; |
| 9 | my $dpath; |
| 10 | $name = `whoami`; |
| 11 | chomp $name; |
| 12 | |
| 13 | use POSIX; |
| 14 | my $time=strftime("%Y%m%d_%H%M%S",localtime()); |
| 15 | $ddir = "/tmp/".$name; |
| 16 | $output = `mkdir $ddir`; |
| 17 | $dpath = "$ddir"."/".$time.".diff"; |
| 18 | print "dpath:", $dpath, "\n"; |
| 19 | |
| 20 | my $FILE; |
| 21 | my $FILE_O; |
| 22 | open($FILE, '<&STDIN'); |
| 23 | open ($FILE_O,">",$dpath); |
| 24 | while (<$FILE>) { |
| 25 | chomp; |
| 26 | my $line = $_; |
| 27 | print $FILE_O "$line"; |
| 28 | print $FILE_O "\n"; |
| 29 | } |
| 30 | close $FILE; |
| 31 | close $FILE_O; |
| 32 | |
| 33 | system("python $dirs/check_patch.py $dpath"); |
| 34 | $exitcode = $?; |
| 35 | system("rm $dpath"); |
| 36 | if($exitcode == 0) |
| 37 | { |
| 38 | exit 0; |
| 39 | } |
| 40 | else |
| 41 | { |
| 42 | exit 1; |
| 43 | } |
| 44 | |
| 45 | |
| 46 |