Perl SVN hook with czech characters
I downloaded the sample SVN post-commit hook provided by Slack integration. #!/usr/bin/perl use warnings; use strict; use HTTP::Request::Common qw(POST); use HTTP::Status qw(is_client_error); use LWP::UserAgent; use JSON; my $repository = "myrepo"; my $websvn = "websvn.mydomain.com"; my $opt_domain = "myteam.slack.com"; my $opt_token = "mytoken"; my $log = qx|export LC_ALL="cs_CZ.UTF-8"; /usr/bin/svnlook log -r $ARGV[1] $ARGV[0]|; my $log = $log." ".unpack('H*',$log); my $who = `/usr/bin/svnlook author -r $ARGV[1] $ARGV[0]`; my $url = "http://${websvn}/revision.php?repname=${repository}&rev=