Lines Matching refs:ostr
1131 local ($ostr) = "";
1135 /[Mm]/ ? ($ostr .= $lead) :
1136 /[Ee]/ ? ($sorrye = 1, $ostr .= $lead) :
1137 ($ostr .= $lead . "\\" . $_);
1143 $ostr .= $lead . "\\T") :
1145 $ostr .= $lead . "\\U") :
1146 /M/ ? ($ostr .= $lead,
1147 ($ostr ne "" ? push(@chats, $ostr, "\\c"):0),
1148 push(@chats, "HANGUP", "OFF"), $ostr = "") :
1149 /m/ ? ($ostr .= $lead,
1150 ($ostr ne "" ? push(@chats, $ostr, "\\c"):0),
1151 push(@chats, "HANGUP", "ON"), $ostr = "") :
1152 /[Ee]/ ? ($sorrye = 1, $ostr .= $lead) :
1153 /[dp]/ ? ($ostr .= $lead . "\\" . $_ . "\\" . $_) :
1154 /c/ ? ($str eq "" ? ($ostr .= $lead . "\\c") : 0) :
1155 ($ostr .= $lead . "\\" . $_);
1158 $ostr .= $str;
1159 push @chats, $ostr if $ostr ne "";