$session = CGI::Session->load or die CGI::Session->errstr;
        
        if($session->is_empty) {
            print "Content-Type:text/xml\n\n";
        print <<"XML";
            <data duration="0">
               
 <titel><![CDATA[Gesperrt]]></titel>
               
 <text><![CDATA[Bitte einloggen!]]></text>
               
 <datum>0000-00-00 00:00:00</datum>
               
 <einloggen todo="1" />
               
 <bilder>
               
 </bilder>
            </data>
XML
            
            exit;
        }
        elsif($session->is_expired) {
            print "Content-Type:text/xml\n\n";
        print <<"XML";
            <data duration="0">
               
 <titel><![CDATA[Gesperrt]]></titel>
               
 <text><![CDATA[Session abgelaufen!]]></text>
               
 <datum>0000-00-00 00:00:00</datum>
               
 <einloggen todo="1" />
               
 <bilder>
               
 </bilder>
            </data>
XML
            
            exit;
        }