当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 1 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 专门控制 screen 的菜单 作者 jsosic
帖子发表于 : 2008-07-22 15:10 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
代码:
DestroyMenu recreate SubMenuScreen
  AddToMenu SubMenuScreen
  + DynamicPopupAction Function BuildScreenMenu

DestroyFunc BuildScreenMenu
  AddToFunc BuildScreenMenu
  + I DestroyMenu recreate SubMenuScreen
  + I AddToMenu SubMenuScreen
  + I Piperead 'echo "`$HOME/.fvwm/fvwm-screen-menu.pl`"'

Key v A 4 Popup SubMenuScreen


代码:
☎  cat fvwm-screen-menu.pl
#!/usr/bin/perl -w
#################################
# fvwm-screen-menu.pl      #
#       by: jsosic   #
#################################

#
use Shell qw(screen grep hostname);
# Get list of detached/attached screen sessions and hostname
$s_detached_sessions = screen('-list | grep Detached');
$s_attached_sessions = screen('-list | grep Attached');
$hostname = hostname('');


# regexps rule ;)
$hostname=~s/\s//g;
$s_detached_sessions=~s/(\)|\(|Detached|$hostname|^\s+)//g;
$s_attached_sessions=~s/(\)|\(|Attached|$hostname|^\s+)//g;
$s_detached_sessions=~s/^[0-9]{2,6}\.//g;
$s_attached_sessions=~s/^[0-9]{2,6}\.//g;
$s_detached_sessions=~s/..\n//g;
$s_attached_sessions=~s/..\n//g;


# Finally, here's what we came for.
@ls_detached_sessions = split /\s+/, $s_detached_sessions;
foreach my $session (@ls_detached_sessions){
   print "  + \"$session\" Exec exec gnome-terminal -x screen -r $session  \n";
}
# put separator if there are detached screens...
if ($s_detached_sessions ne ""){
   print "  + \"\" NoP\n";
}



# Add some general stuff...
print "  + \"New Session\"   Exec exec gnome-terminal -x screen \n";
print "  + \"Reattach first\"   Exec exec gnome-terminal -x screen -d -RR \n";



# put separator if there are attached screens...
if ($s_attached_sessions ne ""){
   print "  + \"\" NoP\n";
}
# Little last minute addition: Attached sessions
@ls_attached_sessions = split /\s+/, $s_attached_sessions;
foreach my $session (@ls_attached_sessions){
   print "  + \"$session\" Exec exec gnome-terminal -x screen -d $session \n";
}


附件:
Screenshot.png
Screenshot.png [ 1.26 MiB | 被浏览 292 次 ]



_________________
● 鸣学
页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 1 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译