use strict;
use warnings;

#--------------------------------------------------------------------------------------------------------------
# HTML Link List Dialog
#--------------------------------------------------------------------------------------------------------------

sub show_links {
	my $links_txt =
"--------------------------------------------------------------------------------
Below is a list of my favourite p2p sites, go forth and leech:

http://tvunderground.org.ru/index.php (mem reccomends)
* Excellent source of TV series and anime for ed2k.

http://undergroundtorrents.org.ru/tracker/index.php
* same as above but for torrents

http://www.mininova.org/ (mem reccomends)
* Has everything, excellent for new movies.

Other Links reccomended by namefix.pl users

http://www.isohunt.com

http://www.mangareactor.tk/

http://www.baka-updates.com/

http://www.boxtorrents.com/

--------------------------------------------------------------------------------
General Sites I like:

www.krradio.com (mem reccomends)
* Great selection of heavy metal and hard rock
  streams available in cd/fm.

www.digg.com
* Intresting stuff, is like slashdot before it went
  to hell.
";
        my $top = $main::mw -> Toplevel();
        $top -> title("Links");

        my $top_lab = $top -> Label(
        	-text=>"Links",
        	-font=>$main::dialog_title_font
        )
        -> grid(
        	-row => 1,
        	-column => 1,
        	-columnspan => 2
        );

        my $txt = $top -> Scrolled(
        	"ROText",
        	-scrollbars=>"osoe",
        	-font=>$main::dialog_font
        )
        -> grid(
        	-row => 2,
        	-column => 1,
        	-columnspan => 2
        );
        $txt->menu(undef);

        $txt -> insert('end', "$links_txt");

        my $but_close = $top -> Button(
        	-text=>"Close",
        	-activebackground => 'white',
        	-command => sub {
        		destroy $top;
        	}
        )
        -> grid(
        	-row => 4,
        	-column => 1,
        	-columnspan => 2
        );

	$top->resizable(0,0);
}

1;