[ANNOUNCE] vdr-osdserver 0.0.2

while ( $i < @ThreadList ) {
	$Thread = QuoteString($ThreadList[$i]);
        if ( substr($Thread,0,1) eq "[" ) {
            SendCmd "sopt$i=smenu.AddNew OsdItem '$Thread'" or return $false;
            SendCmd "sopt$i.EnableEvent keyOk" or return $false;
        }
#       else {
#           SendCmd "smenu.AddNew OsdItem -unselectable '$Thread'" or return $false;
#       }
        $i++;
}
..............
 while (1) {
        SendCmd "smenu.SleepEvent" or return $false;
        if (IsEvent("smenu","keyRed")) {
            SendCmd "delete smenu" or return $false;
            ShowUrls();
        }
        if (IsEvent("smenu","close")) {
            SendCmd "delete smenu" or return $false;
            return $true;
        }
        SendCmd "smenu.GETCURRENT" or return $false;
        if (!defined $reply3xx[0] || $reply3xx[0] != 302) { return $false; }
        $result = $reply3xx[1];
        ReadThread($result);
        SendCmd "smenu.SETCURRENT $pointer" or return $false;
        SendCmd "smenu.show" or return $false;
    }

# Enough generic stuff, now for some hello world


sub SubMenu2() {
    SendCmd "submenu2=New Menu 'Submenü 2'" or return $false;
    SendCmd "submenu1.addsubmenu submenu2" or return $false;
    SendCmd "submenu2.SetColorKeyText -blue 'Verlassen'" or return $false;
    SendCmd "submenu2.EnableEvent keyBlue" or return $false;
    SendCmd "ssopt1=submenu2.AddNew OsdItem 'Eintrag Submenü 2'" or return $false;
    SendCmd "submenu2.show" or return $false;
    while (1) {
        SendCmd "submenu2.SleepEvent" or return $false;
        if (IsEvent("submenu2","close")) {
            SendCmd "submenu2.SendState osEnd" or return $false;
            SendCmd "delete submenu2" or return $false;
            return $true;
        }
        if (IsEvent("submenu2","keyBlue")) {
            SendCmd "submenu2.SendState osEnd" or return $false;
            SendCmd "delete submenu2" or return $false;
            return $true;
        }
    }
}


sub SubMenu1() {
    SendCmd "submenu1=New Menu 'Submenü 1'" or return $false;
    SendCmd "menu.addsubmenu submenu1" or return $false;
    SendCmd "sopt1=submenu1.AddNew OsdItem 'Submenü Eintrag 1'" or return $false;
    SendCmd "sopt1.EnableEvent keyOk" or return $false;
    SendCmd "submenu1.show" or return $false;
    while (1) {
        SendCmd "submenu1.SleepEvent" or return $false;
        if (IsEvent("submenu1","close")) {
            SendCmd "submenu1.SendState osEnd" or return $false;
            SendCmd "delete submenu1" or return $false;
            return $true;
        }
        if (IsEvent("sopt1","keyOk")) {
            SubMenu2();
            SendCmd "submenu1.show" or return $false;
        }
    }
}


sub MainMenu() {
    SendCmd "menu=New Menu 'VDR-Portal'" or return $false;
    SendCmd "opt1=menu.AddNew OsdItem 'Eintrag 1'" or return $false;
    SendCmd "opt1.EnableEvent keyOk" or return $false;
    SendCmd "menu.Show" or return $false;
    while (1) {
        SendCmd "menu.SleepEvent" or return $false;
        if (IsEvent("menu","close")) {
            SendCmd "menu.SendState osEnd" or return $false;
            SendCmd "delete menu" or return $false;
            return $true;
        }
        if (IsEvent("opt1","keyOk")) {
            SubMenu1();
            SendCmd "menu.Show" or return $false;
        }
    }
}


###############
#  Main Code  #
###############


ConnectServer localhost,2010;
# Connect to the server process


ReadReply;
# Read server welcome


SendCmd "Version 0.1" or error;
# Identify to server with protocol version#


MainMenu() or error;


SendCmd "Quit";
# ... and good bye


close(SOCK);
# close socket

> submenu2.show
< 200 Ready.
> submenu2.SleepEvent
< 412 Error: Object is not active.
< 200 Ready.
> submenu1.SleepEvent
< 412 Error: Object is not active.
< 200 Ready.
> menu.Show
< 200 Ready.
> menu.SleepEvent
< 412 Error: Object is not active.
< 200 Ready.
> Quit
< 202 Good Bye.

GNU gdb 2002-04-01-cvs
Copyright 2002 Free Software Foundation, Inc.
...
Loaded symbols for /lib/libnsl.so.1
#0  0xb7da15f0 in strcmp () from /lib/libc.so.6
(gdb) bt
#0  0xb7da15f0 in strcmp () from /lib/libc.so.6
#1  0x080a77bc in Get__9cI18nListPCc (this=0x8209280,
    Plugin=0x8210b98 "osdserver") at i18n.c:8245
#2  0x080a7819 in I18nRegister__FPA20_CPCcPCc (Phrases=0x0,
    Plugin=0x8210b98 "osdserver") at i18n.c:8264
#3  0x080cb70d in _._7cPlugin (this=0x8221fe8, __in_chrg=3) at plugin.c:38
#4  0xb6f740ec in cPluginOsdServer::~cPluginOsdServer (this=0x8221fe8,
    __in_chrg=3) at osdserver.c:32
#5  0x080cb9c6 in _._4cDll (this=0x8210b40, __in_chrg=3) at plugin.c:160
#6  0x080f23a9 in Del__9cListBaseP11cListObjectb (this=0xbfa4ad1c,
    Object=0x8210b40, DeleteObject=true) at tools.c:1408
#7  0x080cc6dd in Shutdown__14cPluginManagerb (this=0xbfa4ad10, Log=true)
    at plugin.c:481
#8  0x080f910b in main (argc=45, argv=0xbfa4add4) at vdr.c:1425
(gdb)
(gdb) bt full
#0  0xb7da15f0 in strcmp () from /lib/libc.so.6
No symbol table info available.
#1  0x080a77bc in Get__9cI18nListPCc (this=0x8209280,
    Plugin=0x8210b98 "osdserver") at i18n.c:8245
        p = (cI18nEntry *) 0x88a7be0
        this = (cI18nList *) 0xfffffffd
        Plugin = 0x8210b98 "osdserver"
#2  0x080a7819 in I18nRegister__FPA20_CPCcPCc (Phrases=0x0,
    Plugin=0x8210b98 "osdserver") at i18n.c:8264
        Phrases = (char *(*)[21]) 0x0
        Plugin = 0x8210b98 "osdserver"
        p = (cI18nEntry *) 0xfffffffd
#3  0x080cb70d in _._7cPlugin (this=0x8221fe8, __in_chrg=3) at plugin.c:38
        this = (cPlugin *) 0x8221fe8
        __in_chrg = 3
#4  0xb6f740ec in cPluginOsdServer::~cPluginOsdServer (this=0x8221fe8,
    __in_chrg=3) at osdserver.c:32
        this = (cPluginOsdServer *) 0x8221fe8
#5  0x080cb9c6 in _._4cDll (this=0x8210b40, __in_chrg=3) at plugin.c:160
        this = (cDll *) 0x8210b40
#6  0x080f23a9 in Del__9cListBaseP11cListObjectb (this=0xbfa4ad1c,
    Object=0x8210b40, DeleteObject=true) at tools.c:1408
        this = (cListBase *) 0xbfa4ad1c
        Object = (cListObject *) 0x8210b40
#7  0x080cc6dd in Shutdown__14cPluginManagerb (this=0xbfa4ad10, Log=true)
    at plugin.c:481
        dll = (cDll *) 0x8210b40
#8  0x080f910b in main (argc=45, argv=0xbfa4add4) at vdr.c:1425
        savedTm = {c_iflag = 1280, c_oflag = 5, c_cflag = 1215,
  c_lflag = 35387, c_line = 0 '\0',
  c_cc = "\003\034\177\025\004\0\001\0\021\023\032\0\022\017\027\026", '\0' <repeats 15 times>, c_ispeed = 3086333888, c_ospeed = 3215240584}
        HasStdin = true
        StartedAsRoot = false
        VdrUser = 0x0
        SVDRPport = 2001
        AudioCommand = 0x0
        ConfigDirectory = 0xbfa4ceb9 "/etc/vdr"
        EpgDataFileName = 0xbfa4cecc "/video0/epg.data"
        DisplayHelp = false
        DisplayVersion = false
        DaemonMode = false
        SysLogTarget = 8
        MuteAudio = false
        WatchdogTimeout = 900
        Terminal = 0x0
        Shutdown = 0xbfa4cee0 "/usr/bin/safepower.sh"
        UseKbd = true
        LircDevice = 0x81b0c12 "/dev/lircd"
        RcuDevice = 0x0
        PluginManager = {static pluginManager = 0xbfa4ad10,
  directory = 0x820fd60 "/usr/lib/vdr/plugins", lastHousekeeping = 1187793108,
  nextHousekeeping = 15, dlls = {<cList<cDll>> = {<cListBase> = {
        objects = 0x8210610, lastObject = 0x8210ad8, count = 14,
        _vptr. = 0x81bd3dc <cDlls virtual table>}, <No data fields>}, <No data fields>}, _vptr. = 0x81bd3cc <cPluginManager virtual table>}
        ExitCode = 0
        long_options = {{name = 0x81b0c32 "audio", has_arg = 1, flag = 0x0,
    val = 97}, {name = 0x81b0c38 "buffer", has_arg = 1, flag = 0x0, val = 98},
  {name = 0x81b0c3f "config", has_arg = 1, flag = 0x0, val = 99}, {
    name = 0x81b0c46 "daemon", has_arg = 0, flag = 0x0, val = 100}, {
    name = 0x81b0c4d "device", has_arg = 1, flag = 0x0, val = 68}, {
    name = 0x81b0c54 "epgfile", has_arg = 1, flag = 0x0, val = 69}, {
    name = 0x81b0c5c "grab", has_arg = 1, flag = 0x0, val = 103}, {
    name = 0x81b0c61 "help", has_arg = 0, flag = 0x0, val = 104}, {
    name = 0x81b0c66 "lib", has_arg = 1, flag = 0x0, val = 76}, {
    name = 0x81b0c6a "lirc", has_arg = 2, flag = 0x0, val = 364}, {
    name = 0x81b0c6f "log", has_arg = 1, flag = 0x0, val = 108}, {
    name = 0x81b0c73 "mute", has_arg = 0, flag = 0x0, val = 109}, {
    name = 0x81b0c78 "no-kbd", has_arg = 0, flag = 0x0, val = 366}, {
    name = 0x81b0c7f "plugin", has_arg = 1, flag = 0x0, val = 80}, {
    name = 0x81b0c86 "port", has_arg = 1, flag = 0x0, val = 112}, {
    name = 0x81b0c8b "rcu", has_arg = 2, flag = 0x0, val = 370}, {
    name = 0x81b0c8f "record", has_arg = 1, flag = 0x0, val = 114}, {
    name = 0x81b0c96 "shutdown", has_arg = 1, flag = 0x0, val = 115}, {
    name = 0x81b0c9f "terminal", has_arg = 1, flag = 0x0, val = 116}, {
    name = 0x81b0ca8 "timeset", has_arg = 1, flag = 0x0, val = 84}, {
    name = 0x81b0cb0 "user", has_arg = 1, flag = 0x0, val = 117}, {
    name = 0x81b0cb5 "version", has_arg = 0, flag = 0x0, val = 86}, {
    name = 0x81b0cbd "vfat", has_arg = 0, flag = 0x0, val = 374}, {
    name = 0x81b0cc2 "video", has_arg = 1, flag = 0x0, val = 118}, {
    name = 0x81b0cc8 "watchdog", has_arg = 1, flag = 0x0, val = 119}, {
    name = 0x0, has_arg = 0, flag = 0x0, val = 0}}
        c = -3
        LangEnv = 0xfffffffd <Address 0xfffffffd out of bounds>
        Menu = (cOsdObject *) 0x0
        LastChannel = 2
        LastTimerChannel = -1
        PreviousChannel = {1, 2}
        PreviousChannelIndex = 1
        LastChannelChanged = 1187792512
        LastActivity = 1187787407
        LastCamMenu = 1187788016
        MaxLatencyTime = 12
        ForceShutdown = false
        UserShutdown = false
        InhibitEpgScan = false
        IsInfoMenu = false
        CurrentSkin = (cSkin *) 0x0
(gdb) q

Program terminated with signal 11, Segmentation fault.
#0  0x08101e48 in strn0cpy (dest=0x0, src=0x922faa0 "Test", n=255) at tools.c:134
134       for ( ; --n && (*dest = *src) != 0; dest++, src++) ;
(gdb) bt
#0  0x08101e48 in strn0cpy (dest=0x0, src=0x922faa0 "Test", n=255) at tools.c:134
#1  0xb67f0e6c in cOsdServerMenuEditStrItem (this=0x9255cd0, Name=0x922fa99 "Name", Value=0x922faa0 "Test", Length=255)
    at osdobjects.c:410
#2  0xb67ea203 in cCommandProcessor::NewEditStrItem (this=0x922fb80, cmd=@0xb14d9220) at interpreter.c:311
#3  0xb67ec739 in cCommandProcessor::NewObject (this=0x922fb80, cmd=@0xb14d9220) at interpreter.c:434
#4  0xb67ec7ac in cCommandProcessor::CmdMenuAddNew (this=0x922fb80, cmd=@0xb14d9220, menu=0x9255e00) at interpreter.c:694
#5  0xb67ec908 in cCommandProcessor::ProcessMenuCommand (this=0x922fb80, cmd=@0xb14d9220, timeout=@0xb14d9238, menu=0x9255e00)
    at interpreter.c:1085
#6  0xb67ecd7f in cCommandProcessor::ProcessCommand (this=0x922fb80, cmd=@0xb14d9220, timeout=@0xb14d9238) at interpreter.c:1200
#7  0xb67ed070 in cCommandProcessor::Action (this=0x922fb80, Selector=@0xb14d9290) at interpreter.c:1339
#8  0xb67e6b4e in cServer::Action (this=0x90b8978) at server.c:186
#9  0x080fe45c in cThread::StartThread (Thread=0x90b8978) at thread.c:244
#10 0xb7f30240 in start_thread () from /lib/tls/i686/cmov/libpthread.so.0
#11 0xb7da73de in clone () from /lib/tls/i686/cmov/libc.so.6
Current language:  auto; currently c++

#!/usr/bin/perl
use strict;
use warnings;
use Socket;


# Convenient return values
my $true = 1;
my $false = 0;




##################################### osdserver #######################################


# Some generic stuff for handling a connection


sub NetError(*) {
    # Network error
    my ($msg)=@_;
    print STDERR "$msg\n";
    exit 1;
}


sub error() {
    # Fatal error. Send quit command, close socket and terminate.
    SendCmd("Quit");


        close SOCK;


    exit 1;
}


sub ConnectServer(**) {
    # Connect to the OSDServer
    my ($host,$port)=@_;


    my $iaddr = inet_aton($host)                || NetError("no host: $host");
    my $paddr = sockaddr_in($port, $iaddr);


    my $proto = getprotobyname('tcp');
    socket(SOCK, PF_INET, SOCK_STREAM, $proto)  || NetError("socket: $!");
    connect(SOCK, $paddr)                       || NetError("connect: $!");
    select(SOCK); $| = 1; select(STDOUT);
}


my @reply2xx;
my @reply3xx;
my @reply4xx;
my @reply5xx;
my @reply6xx;


sub ReadReply() {
    # Read a complete server reply until 2xx return code,
    # and store replies in each category by number
        @reply2xx=undef;
        @reply3xx=undef;
        @reply4xx=undef;
        @reply5xx=undef;
        @reply6xx=undef;


        while (<SOCK>) {
            chomp;
            $_ =~ s/\r$//;


                print "< $_\n";
                # screen echo


                if ($_ =~ /^2/) { @reply2xx=split(/\s+/,$_,2); last; }
                if ($_ =~ /^3/) { @reply3xx=split(/\s+/,$_); }
                if ($_ =~ /^4/) { @reply4xx=split(/\s+/,$_,2); }
                if ($_ =~ /^5/) { @reply5xx=split(/\s+/,$_,2); }
                if ($_ =~ /^6/) {
                    my @tmpreply6xx=split(/\s+/,$_,2);
                    if (defined $reply6xx[0] && $reply6xx[0] == $tmpreply6xx[0]) {
                        $tmpreply6xx[1] = "$tmpreply6xx[1]\n$reply6xx[1]";
                    }
                    @reply6xx = @tmpreply6xx;
                }
        }
        return $false if defined $reply4xx[0];
        return $true;
}


sub SendCmd(*) {
    # Send a command and read the reply


        my ($cmd)=@_;


        print "> $cmd\n";
        # screen echo


        print SOCK "$cmd\n";
        # network send


        return ReadReply;
}


sub IsEvent(**) {
    # Helper to check reply for a certain event


    my ($obj,$ev) = @_;
    return $false if !defined $reply3xx[0];
    return $false if $reply3xx[0] != 300;
    return $false if $reply3xx[1] ne $obj;
    return $false if $reply3xx[2] ne $ev;


    return $true;
}




sub QuoteString(*) {
    # Quote arbitrary string for use in '' and ""
    my ($str)=@_;


    $str =~ s/\\/\\\\/g;
    $str =~ s/'/\\'/g;
    $str =~ s/"/\\"/g;
    $str =~ s/\r/\\r/g;
    $str =~ s/\n/\\n/g;
    $str =~ s/\t/\\t/g;


    return $str;
}


sub UnquoteString(*) {
    # Unquote string
    my ($str)=@_;


    $str =~ s/\\'/'/g;
    $str =~ s/\\"/"/g;
    $str =~ s/\\r/\r/g;
    $str =~ s/\\n/\n/g;
    $str =~ s/\\t/\t/g;
    $str =~ s/\\\\/\\/g;


    return $str;
}


# Enough generic stuff, now for some hello world




sub Settings() {
    my $uname="Test";
    SendCmd "setting=New Menu 'Settings'" or return $false;
    SendCmd "setting.SetColumns 10" or return $false;
    SendCmd "setting.EnableEvent close keyRed keyBlue" or return $false;
    SendCmd "setting.SetColorKeyText -blue 'Exit'" or return $false;
    SendCmd "setting.AddNew OsdItem -unselectable 'Test Text'" or return $false;
    SendCmd "uname=setting.AddNew EditStrItem 'Name' '$uname'" or return $false;
    SendCmd "menu.addsubmenu setting" or return $false;
    SendCmd "setting.show" or return $false;


    while (1) {
        SendCmd "setting.SleepEvent" or return $false;


        if (IsEvent("setting","keyRed")) {
            SendCmd "uname.GetValue -quoted" or return $false;
            if (!defined $reply5xx[0] || $reply5xx[0] != 500) { return $false; }
            $uname = $reply5xx[1];
            SendCmd "setting.SendState osBack" or return $false;
            SendCmd "delete setting" or return $false;
            return $true;
        }
        elsif (IsEvent("setting","close")) {
            SendCmd "setting.SendState osBack" or return $false;
            SendCmd "delete setting" or return $false;
            return $true;
        }
        elsif (IsEvent("setting","keyBlue")) {
            SendCmd "setting.SendState osBack" or return $false;
            SendCmd "delete setting" or return $false;
            return $true;
        }
    }
}




sub Start() {
    SendCmd "menu=New Menu 'Testl'" or return $false;
    SendCmd "menu.SetColorKeyText -blue 'Exit'" or return $false;
    SendCmd "menu.SetColorKeyText -yellow 'Yellow'" or return $false;
    SendCmd "menu.EnableEvent keyBlue keyYellow close" or return $false;


    SendCmd "menu.AddNew OsdItem -unselectable 'Test'" or return $false;
    SendCmd "menu.Show" or return $false;


    while (1) {
        SendCmd "menu.SleepEvent" or return $false;
        if (IsEvent("menu","keyBlue")) {
            SendCmd "menu.SendState osEnd" or return $false;
            SendCmd "delete menu" or return $false;
            return;
        }
        elsif (IsEvent("menu","keyYellow")) {
            Settings();
        }
        elsif (IsEvent("menu","close")) {
            SendCmd "menu.SendState osEnd" or return $false;
            SendCmd "delete menu" or return $false;
            return;
        }
    }
}


###############
#  Main Code  #
###############


ConnectServer localhost,2010;
# Connect to the server process


ReadReply;
# Read server welcome


SendCmd "Version 0.1" or error;
# Identify to server with protocol version#


Start() or error;


SendCmd "Quit";
# ... and good bye


close(SOCK);
# close socket