Fixed URL extraction

[gosa.git] / gosa-si / modules / GosaSupportDaemon.pm

diff --git a/gosa-si/modules/GosaSupportDaemon.pm b/gosa-si/modules/GosaSupportDaemon.pm
index bcf0176dae6d27c7475eabae4360c507be9b3c01..5e6baca9ed67b0099b07490e5cb61513180b29b9 100644 (file)
--- a/gosa-si/modules/GosaSupportDaemon.pm
+++ b/gosa-si/modules/GosaSupportDaemon.pm
@@ -10,6 +10,8 @@ my @functions = (
     "transform_msg2hash",
     "get_time",
     "build_msg",
+    "db_res2xml",
+    "db_res2si_msg",
     "get_where_statement",
     "get_select_statement",
     "get_update_statement",
@@ -25,7 +27,6 @@ use Crypt::Rijndael;
 use Digest::MD5  qw(md5 md5_hex md5_base64);
 use MIME::Base64;
 use XML::Simple;
-use utf8;
 
 my $op_hash = {
     'eq' => '=',
@@ -142,98 +143,6 @@ sub add_content2xml_hash {
 }
 
 
-#===  FUNCTION  ================================================================
-#         NAME:  encrypt_msg
-#   PARAMETERS:  msg - string - message to encrypt
-#                my_cipher - ref - reference to a Crypt::Rijndael object
-#      RETURNS:  crypted_msg - string - crypted message
-#  DESCRIPTION:  crypts the incoming message with the Crypt::Rijndael module
-#===============================================================================
-#sub encrypt_msg {
-#    my ($msg, $key) = @_;
-#    my $my_cipher = &create_ciphering($key);
-#    {
-#      use bytes;
-#      $msg = "\0"x(16-length($msg)%16).$msg;
-#    }
-#    $msg = $my_cipher->encrypt($msg);
-#    chomp($msg = &encode_base64($msg));
-#    # there are no newlines allowed inside msg
-#    $msg=~ s/\n//g;
-#    return $msg;
-#}
-
-
-#===  FUNCTION  ================================================================
-#         NAME:  decrypt_msg
-#   PARAMETERS:  crypted_msg - string - message to decrypt
-#                my_cipher - ref - reference to a Crypt::Rijndael object
-#      RETURNS:  msg - string - decrypted message
-#  DESCRIPTION:  decrypts the incoming message with the Crypt::Rijndael module
-#===============================================================================
-#sub decrypt_msg {
-#    my ($msg, $my_cipher) = @_ ;
-#    
-#    if(defined $msg && defined $my_cipher) {
-#        $msg = &decode_base64($msg);
-#    }
-#    $msg = $my_cipher->decrypt($msg); 
-#    $msg =~ s/\0*//g;
-#    return $msg;
-#    my ($msg, $key) = @_ ;
-#    $msg = &decode_base64($msg);
-#    my $my_cipher = &create_ciphering($key);
-#    $msg = $my_cipher->decrypt($msg); 
-#    $msg =~ s/\0*//g;
-#    return $msg;
-#}
-
-
-#===  FUNCTION  ================================================================
-#         NAME:  create_ciphering
-#   PARAMETERS:  passwd - string - used to create ciphering
-#      RETURNS:  cipher - object
-#  DESCRIPTION:  creates a Crypt::Rijndael::MODE_CBC object with passwd as key
-#===============================================================================
-#sub create_ciphering {
-#    my ($passwd) = @_;
-#    $passwd = substr(md5_hex("$passwd") x 32, 0, 32);
-#    my $iv = substr(md5_hex('GONICUS GmbH'),0, 16);
-#
-#    #daemon_log("iv: $iv", 7);
-#    #daemon_log("key: $passwd", 7);
-#    my $my_cipher = Crypt::Rijndael->new($passwd , Crypt::Rijndael::MODE_CBC());
-#    $my_cipher->set_iv($iv);
-#    return $my_cipher;
-#}
-
-
-#===  FUNCTION  ================================================================
-#         NAME:  open_socket
-#   PARAMETERS:  PeerAddr string something like 192.168.1.1 or 192.168.1.1:10000
-#                [PeerPort] string necessary if port not appended by PeerAddr
-#      RETURNS:  socket IO::Socket::INET
-#  DESCRIPTION:  open a socket to PeerAddr
-#===============================================================================
-#sub open_socket {
-#    my ($PeerAddr, $PeerPort) = @_ ;
-#    if(defined($PeerPort)){
-#        $PeerAddr = $PeerAddr.":".$PeerPort;
-#    }
-#    my $socket;
-#    $socket = new IO::Socket::INET(PeerAddr => $PeerAddr,
-#            Porto => "tcp",
-#            Type => SOCK_STREAM,
-#            Timeout => 5,
-#            );
-#    if(not defined $socket) {
-#        return;
-#    }
-#    &daemon_log("open_socket: $PeerAddr", 7);
-#    return $socket;
-#}
-
-
 sub get_time {
     my ($seconds, $minutes, $hours, $monthday, $month,
             $year, $weekday, $yearday, $sommertime) = localtime(time);
@@ -276,6 +185,45 @@ sub build_msg ($$$$) {
 }
 
 
+sub db_res2xml {
+    my ($db_res) = @_ ;
+    my $xml = "";
+
+    my $len_db_res= keys %{$db_res};
+    for( my $i= 1; $i<= $len_db_res; $i++ ) {
+        $xml .= "\n<answer$i>";
+        my $hash= $db_res->{$i};
+        while ( my ($column_name, $column_value) = each %{$hash} ) {
+            $xml .= "<$column_name>";
+            my $xml_content;
+            if( $column_name eq "xmlmessage" ) {
+                $xml_content = &encode_base64($column_value);
+            } else {
+                $xml_content = $column_value;
+            }
+            $xml .= $xml_content;
+            $xml .= "</$column_name>"; 
+        }
+        $xml .= "</answer$i>";
+
+    }
+
+    return $xml;
+}
+
+
+sub db_res2si_msg {
+    my ($db_res, $header, $target, $source) = @_;
+
+    my $si_msg = "<xml>";
+    $si_msg .= "<header>$header</header>";
+    $si_msg .= "<source>$source</source>";
+    $si_msg .= "<target>$target</target>";
+    $si_msg .= &db_res2xml;
+    $si_msg .= "</xml>";
+}
+
+
 sub get_where_statement {
     my ($msg, $msg_hash) = @_;
     my $error= 0;