这篇Blog和HIS没有关系。
今年暑假单位组织旅游,路线是内蒙山西,现在刚回来,外出近十天的时间没碰电脑。
几乎每年暑假单位都要组织旅游,旅游回来当然少不了大家互相交流照片,所以大家围着某科室电脑看照片的情况经常发生。在旅游的路上,就考虑了一下照片管理的问题,把照片拷贝到PC上浏览的方式效率太低,既然医院有局域网,可以利用网络大家都在自己办公室里浏览照片。
回来以后马上处理了一下,其实很简单:把照片上传到服务器(或在某台安装LAMP的PC)上的/var/www/pic目录里,然后编写一个Perl程序tools_pic.cgi,内容如下:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
# 获取照片的文件名列表
my @pics = glob("/var/www/pic/*.JPG");
# 查询照片数量
my $maxpic = $#pics;
# 读取照片指针
open (f1,"log/img2.log");
my $i = ;
close f1;
# 处理照片的显示路径
$pics[$i] =~s/\/var\/www(.*)//;
$picpath = $1;
$i++;
if ($i > $maxpic) { $i = $i - $maxpic; }
# 保存照片浏览指针
open (f1,">log/img2.log");
print f1 $i;
close f1;
# 网页显示
print <
说明:
1. 照片信息:(照片指针=$i 照片文件名=$pics[$i])
2. 在照片上点右键“照片另存为”,可以保存照片。
3. 刷新页面可以浏览下一张照片。
HT
这样,在各科室里通过浏览器访问http://192.168.0.1/tools_pic.cgi,可以浏览到照片,刷新可以浏览下一张照片。
不难发现,在这个例子里有个问题,就是只设置了一个总的浏览指针,任何电脑访问这个网页,都会把浏览指针向前推进一次,所以如果几台电脑同时浏览照片,那么每台电脑上浏览到的照片不是连续的,要解决这个问题也很简单,就是在程序里识别每台电脑的IP地址,为每个IP地址单独保存指针。
如果要想实现浏览器自动播放照片,在上面网页中加入一句定时刷新页面的代码就可以了。
有个暑假真是不错,炎热的夏天可以待在家里凉快。
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/21129783/viewspace-670022/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/21129783/viewspace-670022/