2012年3月6日星期二

Acclerys MS:Gateway start failed - process 31385 is not running

昨天孙老师给我发了一封邮件,让我给一个学生打开MS(Material Studio 5.0)。
今天首先在服务器上看了下web页面,发现没打开,于是就上服务器,直接启动。
以前写了一个脚本,一下在启动license和gateway。
可是这次license启动了,但是到gateway那里卡住了,进行不下去了。
于是我强行中断,手动运行gwrestart,发现如下信息:
Gateway start failed - process 31385 is not running。
不管怎么启动都不行,后来发现有一个日志文件:
/public/software/matsoft/Accelrys/MaterialsStudio50/etc/Gateway/root_default/httpd/logs/httpd_error_log.txt
查看了一下发现如下错误:
[Tue Mar 06 15:31:10 2012] [error] httpd: could not log pid to file /public/software/matsoft/Accelrys/MaterialsStudio50/etc/Gateway/configurations/default/httpd.pid
这下大致明白了是为什么,于是查看这个httpd.pid文件,发现文件权限是root的。
估计是哪次使用root来启动了,后来非正常退出了,导致进程标识文件还在。当使用普通用户再次启动的时候需要覆盖掉这个文件,发现删不掉,因此进程就启动不了了。
使用root账户删掉这个文件之后,gateway被成功运行。

2012年2月20日星期一

使用ipv6来访问在国内访问不了的网站

没办法,走在屋檐下,哪能不低头。不过还是有办法看到外面的东西的,只要你有ipv6。
目前看来好像某个墙对ipv6的技术还不行,因此我们还可以苟延残喘一下。

你只需要到这个地方 http://code.google.com/p/ipv6-hosts/source/browse/hosts

把这个hosts文件替换或者添加到你的hosts文件即可。
MAC OS X的位置在/private/etc/hosts
WINDOSW的位置在C:\Windows\system32\drivers\etc\hosts
LINUX的位置在/etc/hosts

不过目前好像还没有针对wordpress.com的。

如何一次性修改PPT所有幻灯片的文字和公式颜色

前不久搞了个wordpress.com的博客,当时blogspot上不去,wordpress.com可以上去。本打算作为长期博客的,谁知现在wordpress.com上不去了,blogspot使用ipv6的hosts文件现在倒是可以上去了,先将就吧。

昨天老板让给他改两个PPT文件的背景,要上课用。改背景很简单,直接进入母版视图,修改即可。问题是改过之后背景跟原来文字的颜色很雷同,导致字体很浅,都看不清了,公式也是如此。因此需要修改字体颜色以及公式的字体颜色。

如果只是个别几个倒是无所谓,可是每个PPT都是90多页,公式一大堆,一个个改真是费时费力。计算机时代还做这种重复性事情太不值得了,我想一定有简单的办法。不过现在我没有时间精力自己折腾,就网上搜索,果不其然还是有方法的,现在摘录总结如下,也算是给自己做个备忘。
首先是文字,建立一个宏,然后再运行之就可以了。参考文章:http://wsqxushui.blog.163.com/blog/static/556059922011216103253973/

Sub OED()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
   For Each oShape In oSlide.Shapes
          Set oTxtRange = oShape.TextFrame.TextRange
          If Not IsNull(oTxtRange) Then
         With oTxtRange.Font
             .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成你想要的文字颜色
          End With
          End If
   Next
   Next
End Sub

然后是公式的颜色,公式为mathtype输入的。参考文章一时找不到了,不好意思。

Sub EquationColor()
Dim oSld As Slide
Dim oShp As Shape
Dim oShapes As Shapes
Dim textColor As RGBColor
For Each oSld In ActivePresentation.Slides
    Set oShapes = oSld.Shapes
    For Each oShp In oShapes
               If oShp.Type = 7 Then
                    oShp.PictureFormat.ColorType = msoPictureBlackAndWhite
                    oShp.PictureFormat.Brightness = 0
                    oShp.PictureFormat.Contrast = 1
                    oShp.Fill.Visible = msoFalse
              End If
   Next oShp
Next oSld
End Sub
然后很方便的就解决了问题。在此再次说一下VBA功能确实强大,以后有空一定要好好学习学习。