From c78daee5180666efc5a13f256b4f73c70f71dc48 Mon Sep 17 00:00:00 2001 From: michael Date: Mon, 22 May 2006 12:27:16 +0000 Subject: [PATCH 1/1] change identity works --- snom.pl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/snom.pl b/snom.pl index 8bf0869..da06ee5 100755 --- a/snom.pl +++ b/snom.pl @@ -1,7 +1,5 @@ #!/bin/sh -#$Id: snom.pl,v 1.38 2006-05-22 12:22:53 michael Exp $ - -# http://developer.gnome.org/doc/API/2.2/gtk/gtk-migrating-GtkComboBox.html +#$Id: snom.pl,v 1.39 2006-05-22 12:27:16 michael Exp $ PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@" @@ -375,7 +373,8 @@ sub UpdatePhoneInfo sub SwitchIdentity { - print "TODO: Switch Identity on <".${$Config{$sections[$g_host->get_active]}}{host}."> to ".$g_identity->get_active."!\n"; + my $req = HTTP::Request->new(GET => "http://".${$Config{$sections[$g_host->get_active]}}{host}."/dummy.htm?SETTINGS=Set&active_line=".($g_identity->get_active+1)); + $ua->request($req); } sub CloseAppWindow -- 2.39.5