GTK2-Perl程序示例：遠程桌面客戶端gtkremote

這個例子說明了如何將Glade界面直接放在程序中方便在郵件列表和論壇上直接發佈程序，以及如何用Gtk2::Helper調用網絡程序防止連接超時導致界面阻塞。程序中 用Expect實現了VNC密碼輸入。

 

#! /usr/bin/perl -w

#----------------------------------------------------------------------
# gtkremote.pl
#
# A remote desktop frontend of Gtk2/GladeXML
#
# Copyright (C) 2008 Viperii ([email protected])
#
#  This library is free software; you can redistribute it and/or
#  modify it under the terms of the GNU Lesser General Public
#  License as published by the Free Software Foundation; either
#  version 2 of the License, or (at your option) any later version.
#
#  This library is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
#  Lesser General Public License for more details.
#
#  You should have received a copy of the GNU Lesser General Public
#  License along with this library; if not, write to the
#  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
#  Boston, MA 02111-1307, USA.
#
#----------------------------------------------------------------------

use strict;
use warnings;

use Glib qw/TRUE FALSE/;
use Gtk2 '-init';
use Gtk2::Helper;
use Gtk2::GladeXML;

use FindBin qw($Bin);
use Expect;

my $CMD;
my $PID;
my $TAG;
my $CONN = 0;
my $PREFIX = '@PREFIX@';
my $BIN_DIR = (-d $PREFIX ? "$PREFIX/bin" : $Bin);
my $VNC_TMP = "/tmp/vncpasswd.tmp";

$| = 1;

my $glade_data; {local $/ = undef; $glade_data = <DATA>;}
my $gladexml = Gtk2::GladeXML->new_from_buffer($glade_data);
#my $gladexml = Gtk2::GladeXML->new($BIN_DIR.'/gtkremote.glade');
$gladexml->signal_autoconnect_from_package('main');

my $window = $gladexml->get_widget('main');
my $host_entry = $gladexml->get_widget('entry1');
my $port_entry = $gladexml->get_widget('entry2');
my $user_entry = $gladexml->get_widget('entry3');
my $pass_entry = $gladexml->get_widget('entry4');
my $combobox = $gladexml->get_widget('combobox1');
my $button = $gladexml->get_widget('button1');
my $status_icon = $gladexml->get_widget('image2');

my @prot_list = ("VNC", "RDP");
$combobox->append_text($_) foreach (@prot_list);
$combobox->set_active(0);

$window->show_all();
Gtk2->main();
$window->destroy;
exit 0;

sub on_main_delete_event
{
    kill 15 => $PID if $PID;
    unlink $VNC_TMP if -f $VNC_TMP;
    Gtk2->main_quit;
    exit;
}

sub on_combobox1_changed
{
    $combobox->get_active_text eq "VNC" ? $user_entry->set_sensitive(FALSE) : $user_entry->set_sensitive(TRUE);
}

sub on_button1_clicked
{
    unless($CONN)
    {
    remote_connect();
    }
    else
    {
    kill 15 => $PID if $PID;
    }
}

sub status_connect
{
    $CONN = 1;
    $button->child->set_text("Disconnect");
    $status_icon->set_from_stock('gtk-connect', 'large-toolbar');
}

sub status_disconnect
{
    $CONN = 0;
    $button->child->set_text("Connect");
    $status_icon->set_from_stock('gtk-disconnect', 'large-toolbar');
}

sub message_dialog_show
{
#$icon can be: a) 'info'
#              b) 'warning'
#              c) 'error'
#              d) 'question'
#$button_type can be: a) 'none'
#                     b) 'ok'
#                     c) 'close'
#                     d) 'cancel'
#                     e) 'yes-no'
#                     f) 'ok-cancel'

    my ($parent,$icon,$text,$button_type) = @_;

    my $dialog = Gtk2::MessageDialog->new_with_markup ($parent,
                               [qw/modal destroy-with-parent/],
                               $icon,
                               $button_type,
                               sprintf "$text");
    my $retval = $dialog->run;
    $dialog->destroy;
    return $retval;
}

sub remote_connect
{
    status_connect();

    my $host = $host_entry->get_text;
    my $port = $port_entry->get_text;
    my $user = $user_entry->get_text;
    my $pass = $pass_entry->get_text;
    my $prot = $combobox->get_active_text;

    if($host)
    {
    if($prot eq "VNC")
    {
        unlink $VNC_TMP if -f $VNC_TMP;

        $CMD = "vncviewer $host";
        $CMD .= "::$port" if $port =~ /^(\d+)$/;
        if(length($pass) >= 6)
        {
        my $sh = Expect->spawn('/bin/sh') or die "Cannot spawn shell: $!\n";
        my $exp = new Expect;
        my $command = "vncpasswd $VNC_TMP";
        $exp->spawn($command) or die "Cannot spawn $command: $!\n";
        $exp->expect(10, 'Password:');
        $exp->send("$pass\n");
        $exp->expect(10, 'Verify:');
        $exp->send("$pass\n");
        $exp->interact();
        $exp->soft_close();
        $sh->hard_close();

        $CMD .= " -passwd $VNC_TMP";
        }
        else
        {
        message_dialog_show($window,
                    'error',
                    'VNC password too short.',
                    'ok'
            );
        status_disconnect();
        return;
        }
    }
    elsif($prot eq "RDP")
    {
        $CMD = "rdesktop $host";
        $CMD .= ":$port" if $port =~ /^(\d+)$/;
        $CMD .= " -u $user" if $user;
        $CMD .= " -p $pass" if $pass;
    }
    else
    {
        status_disconnect();
        return;
    }
    }
    else
    {
    status_disconnect();
    return;
    }

    $PID = open my $pipe, '-|', "$CMD" or die "Failed open pipe: $CMD\n";

    $TAG = Gtk2::Helper->add_watch(fileno($pipe), in => sub
                   {
                       if(eof($pipe))
                       {
                       Gtk2::Helper->remove_watch($TAG);
                       close($pipe);
                       unlink $VNC_TMP if -f $VNC_TMP;
                       status_disconnect();
                       0;
                       }
                       else
                       {
                       #my $line = <$pipe>; # stdout string.
                       #print "OUTPUT: ".$line."\n" if $line;
                       }

                       1;
                   } );
}

__DATA__
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE glade-interface SYSTEM "glade-2.0.dtd">
<!--Generated with glade3 3.4.0 on Wed Feb  6 18:08:05 2008 -->
<glade-interface>
  <widget class="GtkWindow" id="main">
    <property name="visible">True</property>
    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
    <property name="window_position">GTK_WIN_POS_CENTER</property>
    <property name="type_hint">GDK_WINDOW_TYPE_HINT_DIALOG</property>
    <signal name="delete_event" handler="on_main_delete_event"/>
    <child>
      <widget class="GtkHBox" id="hbox1">
        <property name="visible">True</property>
        <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
        <child>
          <widget class="GtkFixed" id="fixed5">
            <property name="visible">True</property>
            <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
            <child>
              <widget class="GtkImage" id="image1">
                <property name="width_request">71</property>
                <property name="height_request">63</property>
                <property name="visible">True</property>
                <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                <property name="stock">gtk-network</property>
                <property name="icon_size">6</property>
              </widget>
              <packing>
                <property name="y">53</property>
              </packing>
            </child>
          </widget>
        </child>
        <child>
          <widget class="GtkVBox" id="vbox1">
            <property name="visible">True</property>
            <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
            <child>
              <widget class="GtkFixed" id="fixed2">
                <property name="visible">True</property>
                <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                <child>
                  <widget class="GtkLabel" id="label1">
                    <property name="width_request">39</property>
                    <property name="height_request">22</property>
                    <property name="visible">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="label" translatable="yes">Host:</property>
                  </widget>
                  <packing>
                    <property name="x">1</property>
                    <property name="y">10</property>
                  </packing>
                </child>
                <child>
                  <widget class="GtkEntry" id="entry1">
                    <property name="width_request">125</property>
                    <property name="height_request">25</property>
                    <property name="visible">True</property>
                    <property name="can_focus">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                  </widget>
                  <packing>
                    <property name="x">78</property>
                    <property name="y">10</property>
                  </packing>
                </child>
                <child>
                  <widget class="GtkLabel" id="label2">
                    <property name="width_request">34</property>
                    <property name="height_request">23</property>
                    <property name="visible">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="label" translatable="yes">Port:</property>
                  </widget>
                  <packing>
                    <property name="x">205</property>
                    <property name="y">10</property>
                  </packing>
                </child>
                <child>
                  <widget class="GtkEntry" id="entry2">
                    <property name="width_request">50</property>
                    <property name="height_request">25</property>
                    <property name="visible">True</property>
                    <property name="can_focus">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="max_length">5</property>
                  </widget>
                  <packing>
                    <property name="x">240</property>
                    <property name="y">10</property>
                  </packing>
                </child>
              </widget>
            </child>
            <child>
              <widget class="GtkFixed" id="fixed4">
                <property name="visible">True</property>
                <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                <child>
                  <widget class="GtkLabel" id="label3">
                    <property name="width_request">61</property>
                    <property name="height_request">22</property>
                    <property name="visible">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="label" translatable="yes">Protocol:</property>
                  </widget>
                  <packing>
                    <property name="y">7</property>
                  </packing>
                </child>
                <child>
                  <widget class="GtkComboBox" id="combobox1">
                    <property name="width_request">86</property>
                    <property name="height_request">27</property>
                    <property name="visible">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="items" translatable="yes"></property>
                    <signal name="changed" handler="on_combobox1_changed"/>
                  </widget>
                  <packing>
                    <property name="x">79</property>
                    <property name="y">6</property>
                  </packing>
                </child>
              </widget>
              <packing>
                <property name="position">1</property>
              </packing>
            </child>
            <child>
              <widget class="GtkFixed" id="fixed3">
                <property name="visible">True</property>
                <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                <child>
                  <widget class="GtkLabel" id="label4">
                    <property name="width_request">76</property>
                    <property name="height_request">22</property>
                    <property name="visible">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="label" translatable="yes">Username:</property>
                  </widget>
                  <packing>
                    <property name="y">8</property>
                  </packing>
                </child>
                <child>
                  <widget class="GtkEntry" id="entry3">
                    <property name="width_request">115</property>
                    <property name="height_request">25</property>
                    <property name="visible">True</property>
                    <property name="can_focus">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="max_length">128</property>
                  </widget>
                  <packing>
                    <property name="x">79</property>
                    <property name="y">6</property>
                  </packing>
                </child>
                <child>
                  <widget class="GtkLabel" id="label5">
                    <property name="width_request">71</property>
                    <property name="height_request">21</property>
                    <property name="visible">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="label" translatable="yes">Password:</property>
                  </widget>
                  <packing>
                    <property name="y">36</property>
                  </packing>
                </child>
                <child>
                  <widget class="GtkEntry" id="entry4">
                    <property name="width_request">115</property>
                    <property name="height_request">25</property>
                    <property name="visible">True</property>
                    <property name="can_focus">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="max_length">128</property>
                    <property name="visibility">False</property>
                  </widget>
                  <packing>
                    <property name="x">79</property>
                    <property name="y">34</property>
                  </packing>
                </child>
              </widget>
              <packing>
                <property name="position">2</property>
              </packing>
            </child>
            <child>
              <widget class="GtkFixed" id="fixed1">
                <property name="visible">True</property>
                <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                <child>
                  <widget class="GtkButton" id="button1">
                    <property name="visible">True</property>
                    <property name="can_focus">True</property>
                    <property name="receives_default">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="label" translatable="yes">Connect</property>
                    <property name="response_id">0</property>
                    <signal name="clicked" handler="on_button1_clicked"/>
                  </widget>
                  <packing>
                    <property name="x">77</property>
                    <property name="y">10</property>
                  </packing>
                </child>
                <child>
                  <widget class="GtkImage" id="image2">
                    <property name="width_request">32</property>
                    <property name="height_request">32</property>
                    <property name="visible">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                    <property name="stock">gtk-disconnect</property>
                    <property name="icon_size">3</property>
                  </widget>
                  <packing>
                    <property name="x">3</property>
                    <property name="y">7</property>
                  </packing>
                </child>
                <child>
                  <widget class="GtkLayout" id="layout1">
                    <property name="width_request">295</property>
                    <property name="height_request">10</property>
                    <property name="visible">True</property>
                    <property name="events">GDK_POINTER_MOTION_MASK | GDK_POINTER_MOTION_HINT_MASK | GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK</property>
                  </widget>
                  <packing>
                    <property name="x">4</property>
                    <property name="y">43</property>
                  </packing>
                </child>
              </widget>
              <packing>
                <property name="position">3</property>
              </packing>
            </child>
          </widget>
          <packing>
            <property name="position">1</property>
          </packing>
        </child>
      </widget>
    </child>
  </widget>
</glade-interface>