Subversion Repositories HomeAutomation

Rev

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

Rev 1040 Rev 1043
Line 106... Line 106...
106 
        {
 106 
        {
107 
            print $text;
 107 
            print $text;
108 
        }
 108 
        }
109 
        else
 109 
        else
110 
        {
 110 
        {
111 
            print "Connection closed by other side!";
 111 
            print "Connection closed by other side!\n";
112 
            close($sock);
 112 
            close($sock);
113 
            exit 1;
 113 
            exit 1;
114 
        }
 114 
        }
115 
    }
 115 
    }
116 
}
 116 
}
Line 135... Line 135...
135 
            close($sock);
 135 
            close($sock);
136 
            exit 1;
 136 
            exit 1;
137 
        }
 137 
        }
138 
        elsif ($text eq '')
 138 
        elsif ($text eq '')
139 
        {
 139 
        {
140 
            print "Connection closed by other side!";
 140 
            print "Connection closed by other side!\n";
141 
            close($sock);
 141 
            close($sock);
142 
            exit 1;
 142 
            exit 1;
143 
        }
 143 
        }
144 
    }
 144 
    }
145 
}
 145 
}