Articles of perl

Bugzilla:找不到SASL机制

我在Windows 7上使用Bugzilla。 我正在使用非官方的Bugzilla安装程序 。 我相应地遵循了这些步骤,并根据需要提供了有效的证书。 我打开Bugzilla并尝试创build一个新帐户,但出现以下错误。 Software error: No SASL mechanism found at C:/Program Files/Bugzilla/perl/perl/site/lib/Authen/SASL.pm line 77 at C:/Program Files/Bugzilla/perl/perl/lib/Net/SMTP.pm line 143 我跑了checksetup.pl,发现Authen :: SASL和SMTP都可以在我的机器上使用。 checksetup.pl的输出如下。 *这是perl 5.10.1上的Bugzilla 3.6.3 *在Win7 Build 7600上运行 检查Perl模块… 检查CGI.pm(v3.33)ok:发现v3.49 检查Digest-SHA(any)ok:发现v5.48 检查TimeDate(v2.21)ok:findv2.24 检查DateTime(v0.28)ok:findv0.53 检查DateTime-TimeZone(v0.79)ok:findv1.10 检查DBI(v1.41)ok:findv1.609 检查Template-Toolkit(v2.22)ok:findv2.22 检查电子邮件发送(v2.16)好的:findv2.198 检查Email-MIME(v1.861)确定:findv1.903 检查电子邮件MIME编码(v1.313)好的:findv1.313 检查Email-MIME-Modifier(v1.442)ok:findv1.903 检查URI(任何)确定:findv1.52 检查可用的perl DBD模块… 检查DBD-Pg(v1.45)ok:findv2.16.1 检查DBD-mysql(v4.00)ok:findv4.012 检查DBD-Oracle(v1.19)未find 以下Perl模块是可选的: 检查GD(v1.20)ok:findv2.44 检查图表(v2.1)ok:findv2.4.1 检查模板GD(任何)好的:发现v1.56 检查GDTextUtil(any)ok:findv0.86 […]

使用Perl脚本挂载远程分区

我正试图挂载远程服务器分区来放置备份。 我已经有了perl脚本来备份数据。 我试图在脚本中添加mount命令。 下面是脚本,请指导我如何做到这一点。 如果我在控制台上运行它,它和bash脚本一样工作。 如果我用perl运行它的show mount错误。 #!/usr/bin/perl system ("mount -t cifs //192.168.178.39/Backup/Data\ folders /mnt/Backup/ -o username=xyz.com/abc.admin,password=12345@0312");

perl +匹配文件中的最后一个数字并将其减1

我想在我的bash脚本中添加下面的perl命令,请指教 如何改变(减less一个)在Perl文件中的最后一个以“+”字符开头的数字? Example of original file ( before run the perl command ) more file 432423 53454 +535 343 45 +1000 请求的输出文件示例(在运行perl命令之后) more file 432423 53454 +535 343 45 +999

Bugzilla无法安装DBD :: mysql

我根本不熟悉我现在正在做的事情,所以我对此非常紧张。 我有一些网站运行在我的服务器上使用MySQL。 我使用mysql -v ,我得到: mysql Ver 14.12 Distrib 5.0.77, for redhat-linux-gnu (x86_64) using readline 5.1 我使用./checksetup –check-modules作为bugzilla文档指定的。 我得到了需要安装一些模块的回应。 我已经安装了所有这些模块。 但是,当我尝试安装DBD :: mysql我得到一个错误。 /usr/bin/make –NOT OK 我已经把所有的输出放到一个文本文件中,但是不想在这里发布,因为它很长。 有谁知道我怎么能克服这个问题? 我正在使用Redhat Linux …并且是一个NooB;( 编辑:运行mysql更新我使用这个命令: /usr/bin/perl install-module.pl DBD::mysql 关于运行CPAN,我不确定,但是这些行出现在输出中 Checking for CPAN (v1.81) ok: found v1.98 Checking for YAML (any) ok: found v0.81 Checking for ExtUtils-MakeMaker (v6.31) ok: […]

运行perl脚本使用root cron告诉我“访问被拒绝”

这来自这里 现在运行,但是当我使用root crontab运行它时,它告诉我: *tail: /var/log/backupeitor.log: file truncated /bin/sh: /home/backup/scripts/backupeitor.pl: Permission denied* 文件权限: *srv156:/home/backup/scripts$ ls -alrt insgesamt 28 drwxrwxrwx 2 root root 4096 19. Sep 13:23 off -rwxrwxrwx 1 root root 1274 24. Okt 15:16 backup_mysql.sh -rwxrwxrwx 1 root root 302 24. Okt 15:16 backup_postgres.sh drwxrwxrwx 5 root root 4096 18. Dez 14:55 .. drwxrwxrwx 3 […]

无法安装Perl模块Authen :: Libwrap

尝试安装时出现此错误。 我怎样才能安装它? Webmin取决于它。 [root@ip-172-31-15-65 home]# cpan Authen::Libwrap CPAN: Storable loaded ok (v2.20) Going to read '/root/.cpan/Metadata' Database was generated on Sat, 05 Apr 2014 04:41:02 GMT Running install for module 'Authen::Libwrap' CPAN: YAML loaded ok (v0.90) Running make for D/DM/DMUEY/Authen-Libwrap-0.22.tar.gz CPAN: Digest::SHA loaded ok (v5.47) CPAN: Compress::Zlib loaded ok (v2.064) Checksum for /root/.cpan/sources/authors/id/D/DM/DMUEY/Authen-Libwrap-0.22.tar.gz ok Authen-Libwrap-0.22 […]

Apache – 用KerberosreplaceApache :: AuthenNTLM(mod_auth_kerb)

在Solaris上的Intranet系统中,我们目前使用perls Apache2 :: AuthenNTLM模块来与Win 2k3 doman服务器进行身份validation,因此我们可以访问浏览该站点的用户的用户ID。 转移到赢得2012 AD服务器,我们被告知这不会支持NTLM,微软现在不build议这么做。 是mod- auth-为这个软件的用例遏制一个合适的替代品吗? 我search谷歌,找不到相关的文章或教程显示mod-auth-curb被用于这种方式。 我很难入门,并可以在正确的方向使用一个点。 谢谢

后缀参数default_privs

我在main.cf设置了default_privs=myuser ,这是一个perl脚本,在这个用户的上下文中执行。 在perl脚本中,我添加了一些debugging来打印出用户: my $exec_username = $ENV{LOGNAME} || $ENV{USER} || getpwuid($<); $logger->info("Script is running in context of user:".$exec_username); 如果脚本是由传入的电子邮件触发的,则可以看到脚本正在用户“myuser”的上下文中运行。 在脚本的后面,我尝试复制一个文件。 我使用反引号从STDOUT和STDERR获得输出: my $copycmd = "cp -f -v '".$final_tiff."' '".$fax_file_name."'"; $logger->info("Copy command: ".$copycmd); my $copylog=`$copycmd 2>&1`; $logger->info($copylog); 但是这给了我: cp: cannot create regular file … : Permission denied 用户“myuser”是在glusterfs文件共享上拥有rw权限的组的一部分。 正如你在代码中看到的,我也打印出复制命令。 如果我使用相同的命令并在shell中运行它,如: su myuser cp … … 该文件被复制。 […]

Spamassassin:绕过/etc/resolv.conf查询DNSBL的DNS?

题 有没有办法让spamassassin绕过我的Linux系统的DNS服务器来查询DNSBLs? 背景信息 当我的服务器收到电子邮件时,通过spamassassin进行检查。 其中一项检查将在DNS黑名单中查找涉及的邮件服务器。 不幸的是,我的提供商的DNS不允许再查询这些BL。 这是通过spamassassin的标题信息URIBL_BLOCKED在我收到的所有电子邮件中显示的。 我也手动testing了这个: root@net:# dig 2.0.0.127.multi.uribl.com txt +short "127.0.0.1 -> Query Refused. See http://uribl.com/refused.shtml for more information [Your DNS IP: 123.123.123.123]" ( 123.123.123.123在我的/etc/resolv.conf被configuration为dns。) 当我手动查询他们的域名服务器之一(请参阅@ cc.uribl.com),而不使用我的提供商的recursor,我得到一个答案: root@net:# dig 2.0.0.127.multi.uribl.com txt @cc.uribl.com. +short permanent testpoint (请注意,这是BL应该给出这个结果的一个testing) 概要 那么有什么办法可以让spamassassin不使用系统默认的dns的dnsbl查询,而不是在这个系统上安装dns recursor? UPDATE 好的,实际上安装本地dns-recursor没有问题。 它重量轻,易于安装,现在我不再有BL的问题了。

如何在OS X 10.6中增加域套接字的缓冲区大小

在Linux中,将大量数据转储到域套接字中没有问题,但是在大约65条logging之后,OS X 10.6.2上的相同代码就会出现。 套接字阅读器代码看起来像 #!/usr/bin/perl use strict; use warnings; use IO::Socket; unlink "foo"; my $sock = IO::Socket::UNIX->new ( Local => 'foo', Type => SOCK_DGRAM, Timeout => 600, ) or die "Could not create socket: $!\n"; while (<$sock>) { chomp; print "[$_]\n"; } 客户端代码看起来像 #!/usr/bin/perl use strict; use warnings; use IO::Socket; my $sock = IO::Socket::UNIX->new ( […]