Development log

#!/opt/ucl/bin/perl read(STDIN, $string, $ENV{'CONTENT_LENGTH'}); $file=$string; $file=~s#=.*$##; chdir ('INSERT_FULL_PATH_TO_SDR_CACHE'); if (!open(TEXTFILE, $file)) { print "Content-type: text/html\n\n"; print "Please reload the previous page, this announcement has expired\n"; } $counter = 0; while ($line = ) { if ($line =~ /^m=/){ $media = $line; if ($media =~ /audio/){ $counter=1; $audioport = $line; $audioport=~s#m=audio\s##; $audioport=~s#\s.*$##; $audio = "audio"; } elsif ($media =~ /video/){ $counter=2; $videoport = $line; $videoport=~s#m=video\s##; $videoport=~s#\s.*$##; $video = "video"; } elsif ($media =~ /text/){ $counter=3; $textport = $line; $textport=~s#m=text\s##; $textport=~s#\s.*$##; $text = "text"; } elsif ($media =~ /whiteboard/){ $counter=4; $wbport = $line; $wbport=~s#m=whiteboard\s##; $wbport=~s#\s.*$##; $wb = "whiteboard"; } } elsif ($counter =~ /1/){ $audiottl = $line; $audiottl=~s#^.*/##; $audioaddr = $line; $audioaddr=~s#^c=IN IP4\s##; $audioaddr=~s#/.*$##; $counter = 0; } elsif ($counter =~ /2/){ $videottl = $line; $videottl=~s#^.*/##; $videoaddr = $line; $videoaddr=~s#^c=IN IP4\s##; $videoaddr=~s#/.*$##; $counter = 0; } elsif ($counter =~ /3/){ $textttl = $line; $textttl=~s#^.*/##; $textaddr = $line; $textaddr=~s#^c=IN IP4\s##; $textaddr=~s#/.*$##; $counter = 0; } elsif ($counter =~ /4/){ $wbttl = $line; $wbttl=~s#^.*/##; $wbaddr = $line; $wbaddr=~s#^c=IN IP4\s##; $wbaddr=~s#/.*$##; $counter = 0; } elsif ($line =~ /^s=/){ $subject = $line; $subject=~s#^s=##; $cgi_script="toolstart.cgi"; } elsif ($line =~ /^i=/){ $info = $line; $info=~s#^i=##; } } print "Content-type: text/html\n\n"; print "\n Development log

$subject

$info

"; if ($audio eq "") {} else { print "";} if ($video eq "") {} else { print ""; } if ($text eq "") {} else { print ""; } if ($wb eq "") {} else { print " "; } print "

Media	Address	Port	ttl
$audio	$audioaddr	$audioport	$audiottl
$video	$videoaddr	$videoport	$videottl
$text	$textaddr	$textport	$textttl
$wb	$wbaddr	$wbport	$wbttl

"; print "

For further information please email YOURNAME\@DOMAINNAME "; .