5

ユーザーのグループをRTで特権としてバッチマークするスクリプトを作成しようとしています。RT wikiで、ユーザーをグループに追加して特権ステータスを与えるためのスクリプトを見つけ、グループへの追加に関係する部分を削除しました。私が残しているperlスクリプトは次のとおりです。

#!/usr/bin/perl
# Usage: ./rt_set_privileged.pl <username>

use strict;
use lib "/var/www/ticket.ourcompany.com/lib";
use RT;
use RT::User;
use RT::Interface::CLI;

RT::LoadConfig();
RT::Init();

# Create RT User Object
my $user = new RT::User($RT::SystemUser);

# Instantiate the user object with the user passed as parameter
my $usertoadd = $ARGV[0];
$user->Load( $usertoadd );

# Set the privileged flag (1=privileged, 0=unprivileged)
$user->SetPrivileged(1);

exit 1

1行に1つのユーザー名をファイルに入れています。私はまだperlを知らないので、ファイルをループして名前ごとに1回perlスクリプトを実行する小さなbashスクリプトを作成しようとしました。現在のBashスクリプト：

#!/bin/bash

touch commands.sh
cat usernames.txt | while read LINE ; do
        N=$((N+1))
        echo /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\" >> commands.sh
        /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\"
        perl /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\"
        perl -w /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\"
        eval /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\"
        perl "/home/chris/RT/bin/rt_set_privileged.pl $LINE"
done
echo "Processed $N users"

ご覧のとおり、コマンドを実行するためにかなりの数の方法を試しましたが、役に立ちませんでした。厄介なのは、後でcommands.shファイルから任意のコマンドを取得して、問題なくターミナルに直接貼り付けることができることです。これは問題なく機能します。ただし、bashスクリプトを実行すると、次のメッセージが大量に表示されます。

[Tue Sep  4 07:43:56 2012] [critical]: _AddMember called with a parameter that's not an integer. (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:912)
[Tue Sep  4 07:43:58 2012] [warning]: Use of uninitialized value $principal in pattern match (m//) at /var/www/ticket.ourcompany.com/lib/RT/Group.pm line 970. (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:968)
[Tue Sep  4 07:43:58 2012] [error]: Group::HasMember was called with an argument that isn't an RT::Principal or id. It's (undefined) (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:973)
[Tue Sep  4 07:43:58 2012] [warning]: Use of uninitialized value $principal in pattern match (m//) at /var/www/ticket.ourcompany.com/lib/RT/Group.pm line 970. (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:968)
[Tue Sep  4 07:43:58 2012] [error]: Group::HasMember was called with an argument that isn't an RT::Principal or id. It's (undefined) (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:973)
[Tue Sep  4 07:43:58 2012] [warning]: Use of uninitialized value in concatenation (.) or string at /var/www/ticket.ourcompany.com/lib/RT/User.pm line 341. (/var/www/ticket.ourcompany.com/lib/RT/User.pm:341)
[Tue Sep  4 07:43:58 2012] [critical]: User  is neither privileged nor unprivileged. something is drastically wrong. (/var/www/ticket.ourcompany.com/lib/RT/User.pm:341)
[Tue Sep  4 07:43:58 2012] [warning]: Use of uninitialized value $new_member in pattern match (m//) at /var/www/ticket.ourcompany.com/lib/RT/Group.pm line 911. (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:911)

コマンドがパラメーターなしで実行されていることを示します。この時点で、私が解決しようとしている間に、実際にユーザーごとに1回コマンドを実行できたはずですが、誰か助けてもらえますか？

4

5 に答える 5

2

そのPerlコードにはたくさんのプログラミングエラーがあります—あなたが受け取るエラーメッセージはすべてコンパイラメッセージです。したがって、呼び出しは正しいですが、Perlコードは間違っています。

あなたがしたいのは、すべてのエラーメッセージと警告が消えるまでPerlコードを編集することです。

編集：Perlコードは、その時点で実行されている環境で間違っています。

于 2012-09-04T23:11:37.560 に答える
2

ああ、こんなに単純な問題に気付くのにこんなに時間がかかったのは悲しいことです。問題は文字列のフォーマットの1つでした-ファイルusernames.txtは、Windowsを使用している誰かによって作成され、dosフォーマット（CRLF）を持っていました。引数は[username][LF]として到着し、$User変数のインスタンス化を台無しにしていたと思います。

議論するためにここに来なければ、これを手に入れることはできなかったと確信しています。私は自分で試してみただけで、輪になって回っていました。

解決策は次のとおりです。

sudo apt-get install tofrodos
sudo fromdos usernames.txt

そして、元のスクリプトが機能しました

助けてくれてありがとう。

編集：これを元の質問の編集から独自の回答に移動するのに十分な時間が経過しました

于 2012-09-10T05:59:18.910 に答える
1 
perl /home/chris/RT/bin/rt_set_privileged.pl "$LINE"

ファイルが実行可能になっている場合は、次のこともできます。

/home/chris/RT/bin/rt_set_privileged.pl "$LINE"

例えば、

$ cat usernames.txt 
ikegami
Chris O'Kelly

$ cat script.pl 
#!/usr/bin/env perl
print "arg=<<$ARGV[0]>>\n";

$ while read LINE ; do script.pl "$LINE"; done <usernames.txt
arg=<<ikegami>>
arg=<<Chris O'Kelly>>

xargs代わりに使用できますwhile read：

$ xargs -n1 -d\\n script.pl <usernames.txt 
arg=<<ikegami>>
arg=<<Chris O'Kelly>>
于 2012-09-04T22:24:04.250 に答える
1

別の解決策：bashスクリプトを使用せずに、perlスクリプトを直接編集し、usernames.txtファイルを開いて、1行ずつ読み取ります。これで問題も解決します。

ここのようにhttp://www.perlfect.com/articles/perlfile.shtml：

my $file = "usernames.txt";
open USERS, "<$file" or die "Can't open $file ($!)";

while(<USERS>) {
 my $usertoadd = $_;
 chomp $usertoadd;
 $user->Load( $usertoadd );
 $user->SetPrivileged(1);
}
于 2012-09-04T23:38:29.520 に答える
0

更新： Peniwizeのブログからの貴重なヒントのおかげで、ユーザー名にスペースが含まれる可能性が考慮されるようになりました。

OLD_IFS=$IFS
IFS=$'\n'    
priveleged=( $( cat usernames.txt) )
for i in "${priveleged[@]}"
do
    perl /home/chris/RT/bin/rt_set_privileged.pl $i
done
IFS=$OLD_IFS
于 2012-09-04T22:27:23.073 に答える