Databases
StackOverflow2013
Postsdbo
POStrange Behaviour of Hook Script commit-mime-type-check.pl on windows
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POStrange Behaviour of Hook Script commit-mime-type-check.pl on windows
    primarykey
    data
    text
    <p>I have downloaded pre-commit hook script "commit-mime-type-check.pl" from <a href="http://svn.apache.org/viewvc/subversion/trunk/contrib/hook-scripts/check-mime-type.pl?revision=867034&amp;view=co" rel="nofollow">svn.apache.org</a> I am working on windows there are only two things to change path to svnlook binary and path to temp dir.I did that. but I am getting following error</p> <pre><code>Error: Commit failed (details follow): Error: Commit blocked by pre-commit hook (exit code 1) with output: Error: '-' is not recognized as an internal or external command, Error: operable program or batch file. Error: C:\vsvn\Repositories\myproj\hooks\local_commit_mime_eol_check.pl: Error: `C:\vsvn\bin\svnlook.exe changed C:\vsvn\Repositories\myproj -t 16-1l' failed Error: with no output. Finished!: </code></pre> <p>I debugged by self and found where it is getting failed. </p> <pre><code>my $pid = open(SAFE_READ, '-|'); </code></pre> <p>I read the explanation on about open with "-|" on [_http://perldoc.perl.org/perlipc.html#Using-open()-for-IPC] under safe pipe Open</p> <blockquote> <p>Safe Pipe Opens Another interesting approach to IPC is making your single program go multiprocess and communicate between--or even amongst--yourselves. The open() function will accept a file argument of either "-|" or "|-" to do a very interesting thing: it forks a child connected to the filehandle you've opened. The child is running the same program as the parent. This is useful for safely opening a file when running under an assumed UID or GID, for example. If you open a pipe to minus, you can write to the filehandle you opened and your kid will find it in his STDIN. If you open a pipe from minus, you can read from the filehandle you opened whatever your kid writes to his STDOUT.</p> </blockquote> <p><strong>What I am not able to understand it is due to non-compatibility or what. As it is originally was written on linux box and that is very rich for piping and intern process communication. where I always find window poor.(No offence to anyone. this is my personal feeling. Lets get back to the topic. I am looking for all the wild suggestions. Not seeking for fix but if I get, I would appreciate</strong> </p> <p>I tried everything but failed at last I tried to google about this to if someone is also facing the same issue. not many links but found <a href="http://jasig.275507.n4.nabble.com/pre-commit-hook-re-svn-mime-type-preventing-commit-td1572805.html" rel="nofollow">this one</a> and interesting part is this, it is unresolved. Then I have no way but ask here.</p> <p>Below is the script code for your reference</p> <pre><code>#!/usr/bin/env perl # ==================================================================== # commit-mime-type-check.pl: check that every added file has the # svn:mime-type property set and every added file with a mime-type # matching text/* also has svn:eol-style set. If any file fails this # test the user is sent a verbose error message suggesting solutions and # the commit is aborted. # # Usage: commit-mime-type-check.pl REPOS TXN-NAME # ==================================================================== # Most of commit-mime-type-check.pl was taken from # commit-access-control.pl, Revision 9986, 2004-06-14 16:29:22 -0400. # ==================================================================== # Copyright (c) 2000-2004 CollabNet. All rights reserved. # # This software is licensed as described in the file COPYING, which # you should have received as part of this distribution. The terms # are also available at http://subversion.tigris.org/license.html. # If newer versions of this license are posted there, you may use a # newer version instead, at your option. # # This software consists of voluntary contributions made by many # individuals. For exact contribution history, see the revision # history and logs, available at http://subversion.tigris.org/. # ==================================================================== # Turn on warnings the best way depending on the Perl version. BEGIN { if ( $] &gt;= 5.006_000) { require warnings; import warnings; } else { $^W = 1; } } use strict; use Carp; ###################################################################### # Configuration section. # Svnlook path. my $svnlook = "/usr/bin/svnlook"; # Since the path to svnlook depends upon the local installation # preferences, check that the required program exists to insure that # the administrator has set up the script properly. { my $ok = 1; foreach my $program ($svnlook) { if (-e $program) { unless (-x $program) { warn "$0: required program `$program' is not executable, ", "edit $0.\n"; $ok = 0; } } else { warn "$0: required program `$program' does not exist, edit $0.\n"; $ok = 0; } } exit 1 unless $ok; } ###################################################################### # Initial setup/command-line handling. &amp;usage unless @ARGV == 2; my $repos = shift; my $txn = shift; unless (-e $repos) { &amp;usage("$0: repository directory `$repos' does not exist."); } unless (-d $repos) { &amp;usage("$0: repository directory `$repos' is not a directory."); } # Define two constant subroutines to stand for read-only or read-write # access to the repository. sub ACCESS_READ_ONLY () { 'read-only' } sub ACCESS_READ_WRITE () { 'read-write' } ###################################################################### # Harvest data using svnlook. # Change into /tmp so that svnlook diff can create its .svnlook # directory. my $tmp_dir = '/tmp'; chdir($tmp_dir) or die "$0: cannot chdir `$tmp_dir': $!\n"; # Figure out what files have added using svnlook. my @files_added; foreach my $line (&amp;read_from_process($svnlook, 'changed', $repos, '-t', $txn)) { # Add only files that were added to @files_added if ($line =~ /^A. (.*[^\/])$/) { push(@files_added, $1); } } my @errors; foreach my $path ( @files_added ) { my $mime_type; my $eol_style; # Parse the complete list of property values of the file $path to extract # the mime-type and eol-style foreach my $prop (&amp;read_from_process($svnlook, 'proplist', $repos, '-t', $txn, '--verbose', $path)) { if ($prop =~ /^\s*svn:mime-type : (\S+)/) { $mime_type = $1; } elsif ($prop =~ /^\s*svn:eol-style : (\S+)/) { $eol_style = $1; } } # Detect error conditions and add them to @errors if (not $mime_type) { push @errors, "$path : svn:mime-type is not set"; } elsif ($mime_type =~ /^text\// and not $eol_style) { push @errors, "$path : svn:mime-type=$mime_type but svn:eol-style is not set"; } } # If there are any errors list the problem files and give information # on how to avoid the problem. Hopefully people will set up auto-props # and will not see this verbose message more than once. if (@errors) { warn "$0:\n\n", join("\n", @errors), "\n\n", &lt;&lt;EOS; Every added file must have the svn:mime-type property set. In addition text files must have the svn:eol-style property set. For binary files try running svn propset svn:mime-type application/octet-stream path/of/file For text files try svn propset svn:mime-type text/plain path/of/file svn propset svn:eol-style native path/of/file You may want to consider uncommenting the auto-props section in your ~/.subversion/config file. Read the Subversion book (http://svnbook.red-bean.com/), Chapter 7, Properties section, Automatic Property Setting subsection for more help. EOS exit 1; } else { exit 0; } sub usage { warn "@_\n" if @_; die "usage: $0 REPOS TXN-NAME\n"; } sub safe_read_from_pipe { unless (@_) { croak "$0: safe_read_from_pipe passed no arguments.\n"; } print "Running @_\n"; my $pid = open(SAFE_READ, '-|'); unless (defined $pid) { die "$0: cannot fork: $!\n"; } unless ($pid) { open(STDERR, "&gt;&amp;STDOUT") or die "$0: cannot dup STDOUT: $!\n"; exec(@_) or die "$0: cannot exec `@_': $!\n"; } my @output; while (&lt;SAFE_READ&gt;) { chomp; push(@output, $_); } close(SAFE_READ); my $result = $?; my $exit = $result &gt;&gt; 8; my $signal = $result &amp; 127; my $cd = $result &amp; 128 ? "with core dump" : ""; if ($signal or $cd) { warn "$0: pipe from `@_' failed $cd: exit=$exit signal=$signal\n"; } if (wantarray) { return ($result, @output); } else { return $result; } } sub read_from_process { unless (@_) { croak "$0: read_from_process passed no arguments.\n"; } my ($status, @output) = &amp;safe_read_from_pipe(@_); if ($status) { if (@output) { die "$0: `@_' failed with this output:\n", join("\n", @output), "\n"; } else { die "$0: `@_' failed with no output.\n"; } } else { return @output; } } </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USDavid W.
    1. USAlix
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POStrange Behaviour of Hook Script commit-mime-type-check.pl on windows
      1. This table or related slice is empty.
      1. VTDownMod
    2. VO
      singulars
      1. POStrange Behaviour of Hook Script commit-mime-type-check.pl on windows
      1. This table or related slice is empty.
      1. VTModeratorReview
    1. This table or related slice is empty.
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload