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

我将用户放在一个文件中，每行一个用户名。我还不知道 perl，所以我尝试创建一个小 bash 脚本来遍历文件并为每个名称运行一次 perl 脚本。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)

暗示该命令在没有任何参数的情况下运行。在这一点上，在我试图解决它的时候，我实际上可以为每个用户运行一次命令，有人可以帮忙吗？

4

5 回答 5

2

Arrgh，我很遗憾我花了这么长时间才意识到这么简单的问题。问题是字符串格式之一 - 文件 usernames.txt 是由使用 Windows 的人创建的，并且具有 dos 格式 (CRLF)。我猜这个参数是作为 [username][LF] 到达的，并且搞砸了 $User 变量的实例化。

我敢肯定，如果不来这里讨论，我永远不会得到这个，我只是在兜圈子，只是自己尝试。

该决议只是为了：

sudo apt-get install tofrodos
sudo fromdos usernames.txt

然后原始脚本起作用了

非常感谢各位的帮助。

编辑：现在已经有足够的时间让我把它从原始问题的编辑移到它自己的答案

于 2012-09-10T05:59:18.910 回答
2

你在那个 Perl 代码中有一堆编程错误——你得到的错误消息都是编译器消息。所以调用是正确的，但是 Perl 代码是错误的。

您要做的是编辑 Perl 代码，直到所有错误消息和警告都消失。

编辑：Perl 代码在当时运行的环境中是错误的。

于 2012-09-04T23:11:37.560 回答
1 
perl /home/chris/RT/bin/rt_set_privileged.pl "$LINE"

If the file was made executable, you can also do:

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

For example,

$ 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>>

You could use xargs instead of 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 文件并逐行阅读 - 这也可以解决您的问题。

像这里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 回答