change identity works
authormichael <michael>
Mon, 22 May 2006 12:27:16 +0000 (12:27 +0000)
committermichael <michael>
Mon, 22 May 2006 12:27:16 +0000 (12:27 +0000)
snom.pl

diff --git a/snom.pl b/snom.pl
index 8bf0869..da06ee5 100755 (executable)
--- 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
Impressum, Datenschutz