Subversion Repositories HomeAutomation

Rev

Rev 1890 | Rev 2101 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 1890 Rev 1892
Line 111... Line 111...
111 
        {
 111 
        {
112 
            last;
 112 
            last;
113 
        }
 113 
        }
114 
 
 114 
 
115 
        $packet =~ s/\n//g;
 115 
        $packet =~ s/\n//g;
116 
        $response .= substr($packet, 8);
 116 
        $response .= substr($packet, 8, -1);
117 
        $response .= "\n";
 117 
        $response .= "\n";
118 
    }
 118 
    }
119 
 
 119 
 
120 
    return $response;
 120 
    return $response;
121 
}
 121 
}