File: www.pl

package info (click to toggle)

sirc 2.211-9.1

links: PTS
area: main
in suites: etch, etch-m68k, lenny, squeeze
size: 476 kB
ctags: 420
sloc: perl: 5,330; ansic: 1,200; sh: 855; makefile: 78

file content (21 lines) | stat: -rw-r--r-- 478 bytes

parent folder | download | duplicates (4)

# www.pl, 3 Jul 1995 by Roger Espel Llima (orabidoo)
# for use with the sirc IRC client and with netscape for Unix

$www_url="www.eleves.ens.fr:8080/home/espel/sirc.html";

sub hook_www {
  $www_url=$& if (($_[1] || $_[0])  =~ /(http|ftp|telnet):\/\/[^ ]+/i); 
}
&addhook("public", "www");
&addhook("msg", "www");

sub cmd_www {
  system("netscape", "-remote", "openURL($www_url)");
}
&addcmd("www");

sub cmd_url {
  &tell("*\cbW\cb* The URL is: $www_url");
}
&addcmd("url");