$mbname .:: www.Doctor.co.th ::.

########################################## # Media Player mod version 1.4b4 # Author: ironwing ########################################## $Mediaplver = ' , Media Player 1.4b4'; sub RealMedia { $realid = $INFO{'realid'} if (defined($INFO{'realid'})); $width = $INFO{'width'} if (defined($INFO{'width'})); $height = $INFO{'height'} if (defined($INFO{'height'})); $reallink = $INFO{'reallink'} if (defined($INFO{'reallink'})); $realmedianame = $INFO{'realname'} if (defined($INFO{'realname'})); $reallink2 = $reallink; $reallink2 =~ s~\^~ ~isg; $reallink2 =~ s~\%~'~isg; $reallink2 =~ s/\cM//g; $reallink2 =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $reallink2 =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $reallink2 =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($reallink2); $realreal2 =~ s~\t~ \ \ \ ~g; $realreal2 =~ s~\n~
~g; $realmedianame =~ s~\^~ ~isg; $realmedianame =~ s~\%~'~isg; $realmedianame =~ s/\cM//g; $realmedianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $realmedianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $realmedianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($realmedianame); $realmedianame =~ s~\t~ \ \ \ ~g; $realmedianame =~ s~\n~
~g; print qq~Content-type: text/html\n\n~; print qq~$mbname .:: www.Doctor.co.th ::.~; print qq~

~; ##### SSI Center Banner Inside media popup ##### $INFO{'ssicname'} = 'realplayer_ssi'; require "$sourcedir/SSI_Center_Media.pl"; &SSI_Center_SSI_Media_Tags; ################################### print qq~

$realtxt{'06'}$realmedianame
( $reallink2 )

$realtxt{'05'}

Please visit www.Doctor.co.th

Thailand Physicians Community

~; print qq~

~; exit; } 1; sub QuickMedia { $quickid = $INFO{'quickid'} if (defined($INFO{'quickid'})); $width = $INFO{'width'} if (defined($INFO{'width'})); $height = $INFO{'height'} if (defined($INFO{'height'})); $quicklink = $INFO{'quicklink'} if (defined($INFO{'quicklink'})); $quickname = $INFO{'quickname'} if (defined($INFO{'quickname'})); $quicklink2 = $quicklink; $quicklink2 =~ s~\^~ ~isg; $quicklink2 =~ s~\%~'~isg; $quicklink2 =~ s/\cM//g; $quicklink2 =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $quicklink2 =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $quicklink2 =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($quicklink2); $quicklink2 =~ s~\t~ \ \ \ ~g; $quicklink2 =~ s~\n~
~g; $quickname =~ s~\^~ ~isg; $quickname =~ s~\%~'~isg; $quickname =~ s/\cM//g; $quickname =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $quickname =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $quickname =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($quickname); $quickname =~ s~\t~ \ \ \ ~g; $quickname =~ s~\n~
~g; print qq~Content-type: text/html\n\n~; print qq~$mbname .:: www.Doctor.co.th ::.~; print qq~

~; ##### SSI Center Banner Inside media popup ##### $INFO{'ssicname'} = 'quickplayer_ssi'; require "$sourcedir/SSI_Center_Media.pl"; &SSI_Center_SSI_Media_Tags; ################################### print qq~

$realtxt{'06'}$quickname
( $quicklink2 )
$realtxt{'08'}

$realtxt{'07'}

Please visit www.Doctor.co.th

Thailand Physicians Community

~; print qq~

~; exit; } 1; sub FlashMedia { $flashid = $INFO{'flashid'} if (defined($INFO{'flashid'})); $width = $INFO{'width'} if (defined($INFO{'width'})); $height = $INFO{'height'} if (defined($INFO{'height'})); $flashlink = $INFO{'flashlink'} if (defined($INFO{'flashlink'})); $flashmedianame = $INFO{'flashname'} if (defined($INFO{'flashname'})); $flashlink2 = $flashlink; $flashlink2 =~ s~\^~ ~isg; $flashlink2 =~ s~\%~'~isg; $flashlink2 =~ s/\cM//g; $flashlink2 =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $flashlink2 =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $flashlink2 =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($flashlink2); $flashlink2 =~ s~\t~ \ \ \ ~g; $flashlink2 =~ s~\n~
~g; $flashmedianame =~ s~\^~ ~isg; $flashmedianame =~ s~\%~'~isg; $flashmedianame =~ s/\cM//g; $flashmedianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $flashmedianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $flashmedianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($flashmedianame); $flashmedianame =~ s~\t~ \ \ \ ~g; $flashmedianame =~ s~\n~
~g; print qq~Content-type: text/html\n\n~; print qq~$mbname .:: www.Doctor.co.th ::.~; print qq~

~; ##### SSI Center Banner Inside media popup ##### $INFO{'ssicname'} = 'flashplayer_ssi'; require "$sourcedir/SSI_Center_Media.pl"; &SSI_Center_SSI_Media_Tags; ################################### print qq~

$realtxt{'06'}$flashmedianame
( $flashlink2 )

$realtxt{'10'}

Please visit www.Doctor.co.th

Thailand Physicians Community

~; print qq~

~; exit; } 1; sub WinMedia { $winid = $INFO{'winid'} if (defined($INFO{'winid'})); $width = $INFO{'width'} if (defined($INFO{'width'})); $height = $INFO{'height'} if (defined($INFO{'height'})); $winlink = $INFO{'winlink'} if (defined($INFO{'winlink'})); $winmedianame = $INFO{'winname'} if (defined($INFO{'winname'})); $winlink2 = $winlink; $winlink2 =~ s~\^~ ~isg; $winlink2 =~ s~\%~'~isg; $winlink2 =~ s/\cM//g; $winlink2 =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $winlink2 =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $winlink2 =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($winlink2); $winlink2 =~ s~\t~ \ \ \ ~g; $winlink2 =~ s~\n~
~g; $winmedianame =~ s~\^~ ~isg; $winmedianame =~ s~\%~'~isg; $dummyholder = qq~CODEBASE="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715"~; $winmedianame =~ s/\cM//g; $winmedianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $winmedianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $winmedianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($winmedianame); $winmedianame =~ s~\t~ \ \ \ ~g; $winmedianame =~ s~\n~
~g; print qq~Content-type: text/html\n\n~; print qq~$mbname .:: www.Doctor.co.th ::.~; print qq~

~; ##### SSI Center Banner Inside media popup ##### $INFO{'ssicname'} = 'winplayer_ssi'; require "$sourcedir/SSI_Center_Media.pl"; &SSI_Center_SSI_Media_Tags; ##### SSI Center Banner Inside media popup ##### print qq~

$realtxt{'06'}$winmedianame
( $winlink2 )

$realtxt{'12'}

Please visit www.Doctor.co.th

Thailand Physicians Community

~; exit; } 1; ################################################################## sub MediaSettings1 { &is_admin; require "$vardir/mediasettings.txt"; my($flashtagschecked); my($bgmediaflagchecked); if ($flashtags) { $flashtagschecked = ' checked'; } if ($bgmediaflag) { $bgmediaflagchecked = ' checked'; } my $helpfile2 = $helpfile; $helpfile2 =~ m/(.+)(\/.+$)/; my $mediahelpfile = $1 . qq~/MediaPlayerHelp.html~; $yymain .= qq~ ~; $yytitle = "$realtxt{'13'}"; &template; exit; } # MediaSettings2 saves changes to Media Player settings in mediasettings.txt. Called by MediaSettings1. sub MediaSettings2 { &is_admin; my @onoff = qw"flashtags bgmediaflag"; # Set as 0 or 1 if box was checked or not my $fi; map { $fi = lc $_; ${$_} = $FORM{$fi} eq 'on' ? 1 : 0; } @onoff; $realtypes = $FORM{'realtypes'} || 'rpm,ram'; $flashtypes = $FORM{'flashtypes'} || 'swf'; $winmediatypes = $FORM{'winmediatypes'} || 'asx,wme,wma,smi,wmv'; $bgmedianame = $FORM{'bgmedianame'} || "$realtxt{'20'}"; $bgmediaurl = $FORM{'bgmediaurl'} || "$realtxt{'20'}"; $bgmediatext = $FORM{'bgmediatext'} || "$realtxt{'20'}"; $bgmediawidth = $FORM{'bgmediawidth'} || "200"; $bgmediaheight = $FORM{'bgmediaheight'} || "200"; my $filler = q~ ~; my $setfile = << "EOF"; ############################################################################### # mediasettings.txt - Settings for MediaPlayer 1.4 # ############################################################################### \$flashtags = "$flashtags"; # Set to 1 to allow inline flash tags, else 0. \$realtypes = "$realtypes"; # File extensions to use with RealPlayer \$flashtypes = "$flashtypes"; # File extensions to use with Flash Player \$winmediatypes = "$winmediatypes"; # File extensions to use with Windows Media Player \$bgmediaflag = "$bgmediaflag"; # Display background media link: 1=show. 0=noshow \$bgmedianame = "$bgmedianame"; # Background media file name to display in player window \$bgmediaurl = "$bgmediaurl"; # Background media file URL \$bgmediatext = "$bgmediatext"; # Background media player link text \$bgmediawidth = "$bgmediawidth"; # Background media player width \$bgmediaheight = "$bgmediaheight"; # Background media player height 1; EOF $setfile =~ s~(.+\;)\s+(\#.+$)~$1 . substr( $filler, 0, (70-(length $1)) ) . $2 ~gem; $setfile =~ s~(.{64,}\;)\s+(\#.+$)~$1 . "\n " . $2~gem; $setfile =~ s~^\s\s\s+(\#.+$)~substr( $filler, 0, 70 ) . $1~gem; fopen(FILE, ">$vardir/mediasettings.txt"); print FILE $setfile; fclose(FILE); $yySetLocation = qq~$cgi;action=admin~; &redirectexit; } # MediaTags1 creates media links everywhere but inside quotes sub MediaTags1 { my($medialink,$width,$height,$medianame) = @_; $medialink =~ /\.(.?.?.?.?)$/; $mediaext = $1; if ( $mediaflag eq 'imindex' ) {$mediausername = $userprofile[1];} if ( $mediaflag eq 'imoutbox' ) {$mediausername = $userprofile[1];} if ( $mediaflag eq 'imshow' ) {$mediausername = $userprofile[1];} if ( $mediaflag eq 'doshowims' ) {$mediausername = $musername;} $mediaid = (int( rand(899)) + 100); chomp $realtypes; @realtypeslist = split(",",$realtypes); $realtypesflag = 0; foreach $realtypeslistitem (@realtypeslist) { if ($mediaext eq $realtypeslistitem) { $realtypesflag = 1; } } chomp $flashtypes; @flashtypeslist = split(",",$flashtypes); $flashtypesflag = 0; foreach $flashtypeslistitem (@flashtypeslist) { if ($mediaext eq $flashtypeslistitem) { $flashtypesflag = 1; } } chomp $winmediatypes; @winmediatypeslist = split(",",$winmediatypes); $winmediatypesflag = 0; foreach $winmediatypeslistitem (@winmediatypeslist) { if ($mediaext eq $winmediatypeslistitem) { $winmediatypesflag = 1; } } if ( $flashtypesflag == 1 ) { $medianame2 = $medianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $medianame =~ s~\[.+?\]~~isg; $medianame =~ s~\<.+?\>~~isg; $medianame =~ s/\cM//g; $medianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $medianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $medianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($medianame); $medianame =~ s~\t~ \ \ \ ~g; $medianame =~ s~\n~
~g; return qq~\n$mediausername$realtxt{'09'}

$medianame2~; } elsif ( $realtypesflag == 1 ) { $medianame2 = $medianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $medianame =~ s~\[.+?\]~~isg; $medianame =~ s~\<.+?\>~~isg; $medianame =~ s/\cM//g; $medianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $medianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $medianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($medianame); $medianame =~ s~\t~ \ \ \ ~g; $medianame =~ s~\n~
~g; return qq~\n$mediausername$realtxt{'03'}

$medianame2~; } elsif ( $winmediatypesflag == 1 ) { $medianame2 = $medianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $medianame =~ s~\[.+?\]~~isg; $medianame =~ s~\<.+?\>~~isg; $medianame =~ s/\cM//g; $medianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $medianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $medianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($medianame); $medianame =~ s~\t~ \ \ \ ~g; $medianame =~ s~\n~
~g; return qq~\n$mediausername$realtxt{'02'}

$medianame2~; } else { $medianame2 = $medianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $medianame =~ s~\[.+?\]~~isg; $medianame =~ s~\<.+?\>~~isg; $medianame =~ s/\cM//g; $medianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $medianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $medianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($medianame); $medianame =~ s~\t~ \ \ \ ~g; $medianame =~ s~\n~
~g; return qq~\n$mediausername$realtxt{'04'}

$medianame2~; } } # MediaTags2 creates media links inside quotes sub MediaTags2 { my($medialink,$width,$height,$medianame) = @_; $medialink =~ /\.(.?.?.?.?)$/; $mediaext = $1; $mediaid = (int( rand(899)) + 100); chomp $realtypes; @realtypeslist = split(",",$realtypes); $realtypesflag = 0; foreach $realtypeslistitem (@realtypeslist) { if ($mediaext eq $realtypeslistitem) { $realtypesflag = 1; } } chomp $flashtypes; @flashtypeslist = split(",",$flashtypes); $flashtypesflag = 0; foreach $flashtypeslistitem (@flashtypeslist) { if ($mediaext eq $flashtypeslistitem) { $flashtypesflag = 1; } } chomp $winmediatypes; @winmediatypeslist = split(",",$winmediatypes); $winmediatypesflag = 0; foreach $winmediatypeslistitem (@winmediatypeslist) { if ($mediaext eq $winmediatypeslistitem) { $winmediatypesflag = 1; } } if ( $flashtypesflag == 1 ) { $medianame2 = $medianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $medianame =~ s~\[.+?\]~~isg; $medianame =~ s~\<.+?\>~~isg; $medianame =~ s/\cM//g; $medianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $medianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $medianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($medianame); $medianame =~ s~\t~ \ \ \ ~g; $medianame =~ s~\n~
~g; return qq~\n$qmediausername$realtxt{'09'}$medianame2~; } elsif ( $realtypesflag == 1 ) { $medianame2 = $medianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $medianame =~ s~\[.+?\]~~isg; $medianame =~ s~\<.+?\>~~isg; $medianame =~ s/\cM//g; $medianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $medianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $medianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($medianame); $medianame =~ s~\t~ \ \ \ ~g; $medianame =~ s~\n~
~g; return qq~\n$qmediausername$realtxt{'03'}$medianame2~; } elsif ( $winmediatypesflag == 1 ) { $medianame2 = $medianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $medianame =~ s~\[.+?\]~~isg; $medianame =~ s~\<.+?\>~~isg; $medianame =~ s/\cM//g; $medianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $medianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $medianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($medianame); $medianame =~ s~\t~ \ \ \ ~g; $medianame =~ s~\n~
~g; return qq~\n$qmediausername$realtxt{'02'}$medianame2~; } else { $medianame2 = $medianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $medianame =~ s~\[.+?\]~~isg; $medianame =~ s~\<.+?\>~~isg; $medianame =~ s/\cM//g; $medianame =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g; $medianame =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g; $medianame =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1\n$2~g; &ToHTML($medianame); $medianame =~ s~\t~ \ \ \ ~g; $medianame =~ s~\n~
~g; return qq~\n$qmediausername$realtxt{'04'}$medianame2~; } } ### BGMedia is used for background media sub BGMedia { require "$vardir/mediasettings.txt"; $bgmediaurl =~ /\.(.?.?.?.?)$/; $mediaext = $1; $mediaid = (int( rand(899)) + 100); chomp $realtypes; @realtypeslist = split(",",$realtypes); $realtypesflag = 0; foreach $realtypeslistitem (@realtypeslist) { if ($mediaext eq $realtypeslistitem) { $realtypesflag = 1; } } chomp $flashtypes; @flashtypeslist = split(",",$flashtypes); $flashtypesflag = 0; foreach $flashtypeslistitem (@flashtypeslist) { if ($mediaext eq $flashtypeslistitem) { $flashtypesflag = 1; } } chomp $winmediatypes; @winmediatypeslist = split(",",$winmediatypes); $winmediatypesflag = 0; foreach $winmediatypeslistitem (@winmediatypeslist) { if ($mediaext eq $winmediatypeslistitem) { $winmediatypesflag = 1; } } if ( $flashtypesflag == 1 ) { $medianame = $bgmedianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $yybgmedia = qq~$bgmediatext~; } elsif ( $realtypesflag == 1 ) { $medianame = $bgmedianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $yybgmedia = qq~$bgmediatext~; } elsif ( $winmediatypesflag == 1 ) { $medianame = $bgmedianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $yybgmedia = qq~$bgmediatext~; } else { $medianame = $bgmedianame; $medianame =~ s~\s~^~isg; $medianame =~ s~'~%~isg; $yybgmedia = qq~$bgmediatext~; } } 1;