#!/bin/sh
-#$Id: snom.pl,v 1.16 2006-05-21 22:30:17 sithglan Exp $
+#$Id: snom.pl,v 1.28 2006-05-22 11:22:30 michael Exp $
+
+# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html
PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
use Gtk2 '-init';
use Gtk2::Gdk::Keysyms;
use LWP::UserAgent;
-use Config::IniFiles;
my %g_key = ();
+my $g_host = Gtk2::ComboBox->new_text();
my $ua = LWP::UserAgent->new;
-my $cfg = Config::IniFiles->new(-file => "$ENV{HOME}/.snomrc")
- || die("can't open config: $ENV{HOME}/.snomrc: $!");
+open(INIFILE,"<$ENV{HOME}/.snomrc") || die("can't open config: $ENV{HOME}/.snomrc: $!");
+my %Config = ();
+my @sections = ();
+while(<INIFILE>) {
+ chomp;
+
+ next if (m/^#/);
+
+ if (m/^\s*\[(.*)\]\s*$/) {
+ push @sections, $1;
+ next;
+ }
-for my $section ($cfg->Sections) {
- for my $val (qw(host login password)) {
- if (defined($cfg->val($section, $val))) {
- print "$val: <" . $cfg->val($section, $val) . ">\n";
- }
- }
+ if (@sections) {
+ if (m/^\s*(.+)\s*=\s*(.*)\s*$/) {
+ ${$Config{$sections[$#sections]}}{$1} = $2;
+ }
+ }
}
-
-
-#$ua->credentials("${ARGV[0]}:80","snom","root","geheim");
+close(INIFILE);
+
+for my $section (@sections) {
+ if (defined(${$Config{$section}}{host})) {
+ $g_host->append_text($section);
+ if (defined(${$Config{$section}}{login}) &&
+ defined(${$Config{$section}}{password})) {
+ $ua->credentials(${$Config{$section}}{host}.":80",
+ "snom",
+ ${$Config{$section}}{login},
+ ${$Config{$section}}{password});
+ }
+ }
+}
+$g_host->set_active(0);
+UpdatePhoneInfo();
+$g_host->signal_connect(changed => \&UpdatePhoneInfo);
+$g_host->show();
set_locale Gtk2;
sub snom_key {
my $key = shift;
$key='%23' if ($key eq '#');
- my $req = HTTP::Request->new(GET => "http://${ARGV[0]}/command.htm?key=${key}");
+ my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/command.htm?key=${key}");
$ua->request($req);
}
sub snom_number {
my $number = shift;
- my $req = HTTP::Request->new(GET => "http://${ARGV[0]}/command.htm?number=${number}");
+ my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/command.htm?number=${number}");
$ua->request($req);
}
$table;
}
-if (!defined($ARGV[0])) {
- print STDERR "Usage: ${0} snom.phone.address\n";
- exit 1
-}
-
my $window = Gtk2::Window->new('toplevel');
$window->set_title("snom");
$window->signal_connect(delete_event => \&CloseAppWindow);
$display->signal_connect(leave_notify_event => \&DisplayMouseOver, FALSE);
$display->show();
-my $host = Gtk2::ComboBox->new();
-$host->show();
-
my $dispbox = Gtk2::VBox->new(0, 5);
$dispbox->pack_start($display, 0, 0, 0);
$dispbox->pack_start($softkeys, 0, 0, 0);
$dispbox->show();
my $outbox = Gtk2::VBox->new(0, 0);
-$outbox->pack_start($host, 0, 0, 0);
+$outbox->pack_start($g_host, 0, 0, 0);
$outbox->pack_end($output, 0, 0, 0);
$outbox->show();
return FALSE;
}
+sub UpdatePhoneInfo
+{
+ print "TODO: Update PhoneInfo from <".${$Config{$sections[$g_host->get_active]}}{host}."> here!\n";
+}
+
sub CloseAppWindow
{
$window->destroy;