World: r3wp

it's always good to use>> trace/net on

cookie demon ?

oldes i used it but i wasn't able to understand the result

oldes so how do you made it to get the information where can i get 
your cookie deamon ?

.... ooooooooooooooldeeeeeeeeeeeees comebaaaaaaaaaaaaaaack pleaaaaaaaaase 
T___T

system/schemes/http/user-agent: "Mozilla/4.0 (compatible; MSIE 6.0; 
Windows NT 5.0)"
that's enough

then what you do ?
data: read http://ifb.impek.com:8000/

print data

the cookies-daemon is not needed here. It's just the peace of code 
which makes REBOL to look like a browser.

yes.

but I don't know what exactly do you need, if the text info which 
you get in the browser or the mp3 data

want to know the worst oldes ?

if you need the mp3, than just use for example:
system/schemes/http/user-agent: "Winamp"

i tryed with that  system/scheme/http/user-agent: "Mozilla/4.0"

and  got the stream mp3

in php that's what they do

they take a sample of the MP3 sent then they extract the metatag 
part to get the song and artists

so you want the text? or what?

the HTML way is cool ... the MP3 way hangs  i don't know how to get 
only 1 sample to wor with it

in php they do it like that 

	function getHTML($page=False)
	{
		if (!$page)
			$page = $this->path;
		$contents = "";

  $domain = (substr($this->domain, 0, 7) == "http://") ? substr($this->domain, 
  7) : $this->domain;



  if (@$fp = fsockopen($domain, $this->port, $this->errno, $this->errstr, 
  2))
		{
			fputs($fp, "GET ".$page." HTTP/1.1\r\n".

    "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)\r\n".
				"Accept: */*\r\n".
				"Host: ".$domain."\r\n\r\n");

			$c = 0;
			while (!feof($fp) && $c <= 20)
			{
				$contents .= fgets($fp, 4096);
				$c++;
			}

			fclose ($fp);

			$this->encodeContent($contents);

			preg_match("/(Content-Type:)(.*)/i", $contents, $matches);
			if (count($matches) > 0)
			{
				$contentType = trim($matches[2]);


    preg_match("/(meta http-equiv=\"Content-Type\" content=\"(.*); charset=(.*)\")/iU", 
    $contents, $matches);
				if (isset($matches[3]))
				{
					$this->setStreamEncoding($matches[3]);
				}
				if ($contentType == "text/html")
				{
					$this->isShoutcast = True;
					return $contents;
				}
				else
				{
					$this->isShoutcast = False;


     $htmlContent = substr($contents, 0, strpos($contents, "\r\n\r\n"));


     $dataStr = str_replace("\r", "\n", str_replace("\r\n", "\n", $contents));
					$lines = explode("\n", $dataStr);
					foreach ($lines AS $line)
					{
						if ($dp = strpos($line, ":"))
						{
							$key = substr($line, 0, $dp);
							$value = trim(substr($line, ($dp+1)));
							if (preg_match("/genre/i", $key))
								$this->nonShoutcastData['Stream Genre'] = $value;
							if (preg_match("/name/i", $key))
								$this->nonShoutcastData['Stream Title'] = $value;
							if (preg_match("/url/i", $key))
								$this->nonShoutcastData['Stream URL'] = $value;
							if (preg_match("/content-type/i", $key))
								$this->nonShoutcastData['Content Type'] = $value;
							if (preg_match("/icy-br/i", $key))

        $this->nonShoutcastData['Stream Status'] = "Stream is up at ".$value."kbps";
							if (preg_match("/icy-notice2/i", $key))
							{

        $this->nonShoutcastData['Server Status'] = "This is <span style=\"color: 
        red;\">not</span> a Shoutcast server!";
								if (preg_match("/ultravox/i", $value))

         $this->nonShoutcastData['Server Status'] .= " But an <a href=\"http://ultravox.aol.com/\" 
         target=\"_blank\">Ultravox</a> Server";
								$this->altServer = $value;
							}
						}
					}
					return nl2br($htmlContent);
				}
			}
			else
				return $contents;
		}
		else
		{
			return False;
		}
	}

but as they you the Mozilla thing i think they are working on the 
HTML version and not the meta tag

p: open/direct/no-wait/binary http://ifb.impek.com:8000/
buf: copy/part p 2048
probe as-string copy/part  buf find buf "^M^/^M^/"
close p

** Script Error: copy expected range argument of type: number series 
port pair
** Where: getHTML
** Near: probe as-string copy/part buf find

after the ICY info there is MP3 stream which can contain ID3 tags

you can get the stream using something like:
while [not none? buf: copy/part p 2048][probe buf]

that means that there was not found the "^M^/^M^/"

so you want the HTML?

for MP3 use:
system/schemes/http/user-agent: "Winamp"

and use trace/net on to see what's going on

also.. I see... I'm using R2, not R3

i got that {icy-notice1:<BR>This stream requires <a href="http://www.winamp.com/">Winamp</a><BR>^M

icy-notice2:SHOUTcast Distributed Network Audio Server/Linux v1.9.8<BR>^M
icy-name:OUIFM^M
icy-genre:Rock^M
icy-url:http://www.ouifm.fr^M
content-type:audio/mpeg^M
icy-pub:1^M
icy-br:128}
>>

ok in my opinion the metatag data stack retreived from the MP3 is 
 faster and more beautyfull way than parsing HTML data

to get the HTML, just use:

system/schemes/http/user-agent: "Mozilla/4.0 (compatible; MSIE 6.0; 
Windows NT 5.0)"
buf: read http://ifb.impek.com:8000/
print buf

same i'm using R2 ... i don't code with R3 ... and yeah taht the 
R3  group .. shame on me ... I won't get a gift for Xmas...

but we are in Rebol3 group!

why in  the php version they use this size ?
while (!feof($fp) && $c <= 20)
			{
				$contents .= fgets($fp, 4096);
				$c++;
			}

and you 2048 ?

in that  stack i'm supposed to get  mp3 >metatag>mp3

that's supposed to be the structure

i don't understand  in teh reply it's supposed to have the title 
of the song and the artist information ...

can this help you oldes ? http://www.smackfu.com/stuff/programming/shoutcast.html

can i do this oldes ? p: open/direct/no-wait/binary http://ifb.impek.com:8000/
insert p "GET path HTTP/1.0 ^/ Icy-MetaData:1 ^/^/"

user-agent winamp doesn't work in fact the reply we have is like 
an HTTP document not found ...

opening http scheme is doing the GET for you, so no, you can't do 
that.

cause you use the http:// scheme no ?

in your url ?  using the tcp:// would it be possible ?

yes

: open/direct/no-wait/binary tcp://ifb.impek.com:8000/
insert p "GET path HTTP/1.0 ^/ Icy-MetaData:1 ^/^/"

like that ?

how can i inject request to the socket ?