S

Yüzbaşı
21 Ekim 2004
Tarihinde Katıldı
Takip Ettikleri
0 üye
Görüntülenme
Toplam: 20 (Bu ay: 0)
Gönderileri
Bugün elime geçen cihazla ilgili ilk izlenimlerimi sizlerle paylaşmak istedim.

SPYbox S9 Kutu İçeriği

Bana bugün gelen kutu içerisinden çıkanlar şöyle:

1. SPYbox S9 cihaz
2. TV kumandası
3. Akıllı Klavye ve Air Mouse şeklinde tasarlanmış çift taraflı bir kumanda ve USB alıcı adaptörü
4. Güç adaptörü
5. HDMI kablo
6. Her iki kumanda için ikişer adet olmak üzere toplam 4 adet pil.

SPYbox S9 Akıllı Klavye ve Air Mouse

SPYbox S9 cihaz ile birlikte gelen; aynı zamanda hem klavye, hem fare, hem de klasik TV kumandası olarak kullanabileceğiniz, bir tarafı klasik kumanda görünümlü, diğer tarafı klavye şeklinde tasarlanmış gayet kullanışlı bir kumanda. Bu kumandaya 10 üzerinden 7 ya da 8 puan verebilirim. Beğendim.

Bu kumandanın pilini takmak üzere pil yuvasını açtığımda buradan USB alıcı adaptörü çıktı. Buna şaşırdım. Bu adaptör yerine cihaz üzerine bir alıcı yerleştirilseydi daha hoş olurdu.

SPYbox S9 Klasik Kumanda

Kumanda üzerine hoşunuza gidebilecek ekstra 4 tuş yerleştirilmiş.
1. PlayStore: Google Play Store
2. IPTV: SpyIPTV isimli uygulama
3. YouTube: YouTube uygulaması
4. APP: Cihazınızda kurulu android uygulamaların listesi

SPYbox S9 İlk Açılış ve SPYbox S9 Kurulum

Cihazı ilk açtığımda her şey kurulu vaziyette ekrana geldi. Türksat uydusu tanımlıydı. Kanallar doğrudan açıldı. İlk kanal TRT4K olarak ayarlanmış. 4K desteklemeyen televizyonumda bu kanal izlenebiliyordu. Tabii ki görüntü kalitesi kendi TV'min kapasitesi ile sınırlıydı. Standart bir LCD TV kullanıyorum. Kanal listesinde toplam 522 kanal vardı.

İlk açılışta benden herhangi bir özelleştirme istemediğinden bu hoşuma gitmedi ve ana ekrandaki Ayarlar/Yedekleme ve Sıfırlama menüsü üzerinden cihazı sıfırladım ("her şeyi sil" dedim). Cihaz sıfırlandıktan sonra otomatik olarak yeniden başladı. İlk açılışta gelmesini beklediğim çeşitli özelleştirme seçenekleri geldi. Öncelikle dil seçimi yapıyoruz. Türkçe ve basit bir kurulum ekranı var. Bunda kimsenin bir zorluk yaşayacağını sanmıyorum. Sıfırlama yaparsanız Spybox App Market'teki uygulamaları cihazınıza yüklemeyi unutmayın. Cihazı sıfırlayınca bu uygulamalar da siliniyor. Bu işlem birkaç dakikanızı alacaktır.

SPYbox S9 Kablolu & Kablosuz Ağ Bağlantısı

SPYbox S9'da aynı anda hem kablolu hem kablosuz ağ bağlantısı kullanamıyoruz. Ağ/internet kablosu takılıyken wifi bağlantısına tıkladım. Ancak "Zaten bir bağlantınız var" gibi bir uyarıyla karşılaştım. Kabloyu çıkardıktan sonra wifi şifrenizi girerek kablosuz bağlantı kurabilirsiniz.

SPYbox S9 SpyIPTV

SpyIPTV isimli uygulama cihazda kurulu vaziyette geliyor. Kurulu değilse de Spybox App Market'ten indirip kurabilirsiniz. Burada kategorilere ayrılmış şekilde yüzlerce kanal mevcut. Genel olarak baktığımda çalışmayan bir kanal göremedim.

Spybox App Market

Google Play Store gibi Spybox'un kendine has bir marketi var. Markete tarayıcı üzerinden ve spybox.tv/market adresinden ulaşılıyor. Bilgisayar ya da başka bir cihazınızla bu markete giremiyorsunuz. Sadece Uydu Alıcınızla girebilirsiniz. Market içerisinde sadece birkaç uygulama var. Ancak bu uygulamalar muhtemelen en çok kullanacağınız uygulamalar olacaktır. İnternet üzerinden radyo, televizyon, sinema filmi, tv dizisi vs izlemek için bu uygulamaları kullanabilirsiniz.

Genel Değerlendirme

Genel bir değerlendirme yapabilmem için henüz çok erken. Ancak eski bir DreamBox 800 HD SE kullanıcısı olarak ilk izlenimlerim olumlu. Gayet kullanışlı bir cihaz. Hız sorunu yok. Kanal geçişleri pek hızlı değil. Ancak diğer özellikleri yanında onu şimdilik sineye çekebiliyorum.

Fiyatı çok fazla. Ancak bu tür cihazların kullanıcı sayısı yeterince fazla değil sanırım. O yüzden fiyat da yüksek kalıyor. Bu piyasaya çok hakim değilim. Bunlar genel kanaatlerim.

Bildiğim kadarıyla cihaz için yeni bir yazılım güncellemesi hazırlanıyor. Bu güncellemeye Güncel biss keylerin de dahil edilmesi çok zor olmasa gerek. Bu illegal bir şey değil. Neden insanlar biss key bulmakla-girmekle ugraştırılıyor anlamak mümkün değil.

Cihaz kullanıcılarını bir araya toplayıp cihazla ilgili her detayı konuşabilmemiz/öğrenebilmemiz için bir forum açtım. O forumda detayları birbirimizle paylaşırsak hepimiz için yararlı olacaktır.

http://www.spyboxs9.com
Belli ki bu sorunu yüzlerce kişi yaşamış. Onlarca sitede birçok konu açılmış. Birbirine benzeyen birçok çözüm önerilmiş. Hepsini denedim ancak bir türlü sorun düzelmedi. Cihazı ve ds3'ü sıfır satın aldım. İlk çalıştırdığımda cihazla birlikte gelen orijinal ds3'te hiçbir sorun yaşamadım. Ayrı olarak 100 TL'ye gg'den satın aldığım ds3 ise kablosuz olarak hiç çalışmadı.

Kablo takılıyken sorunlu DS3'ün PS tuşuna basarak da açamıyorum cihazı. Ancak cihaz açıldıktan sonra DS3 kablolu olarak çalışıyor.

1. DS3 ve PS3 kapalıyken ve açıkken ayrı ayrı reseti denedim. İşe yaramadı.
2. Cihazın üzerindeki düğmeden ve sorunlu DS3'ten cihazı kapatıp yeniden başlatma gibi farklı kombinasyonların hepsini tek tek denedim. Yine işe yaramadı.

Bu alana yeni girdim. Bu işin basit bir çözümü var belki. Yardımcı olunursa sevinirim.
silinebilir
...
Hiçbir eklenti/program kurmadan bilgisayarınızdan ip adresini yazarak dreambox'ınıza girin. Anasayfada sağ tarafta bulunan TV simgesine tıklayın. stream.m3u isimli bir dosya açılacak. Bunu vlc player ile çalıştırın. O anda dreambox'ta hangi kanal açıksa onu izlemeye başlarsınız. Sonra tv'den kanal değiştirin. Bilgisayarınızda kanal değişmez. İlk açılan kanal yayına devam eder. TV'den başka kanallar izlenebilir.
ÖNERİR MİSİNİZ?

298,40 TL (KDV Dahil)

Yeni Nesil A4 İşlemci


•İşlemci : Centrality A4 500 mhz
•İşletim sistemi : Wince 6.0 Core versiyon
•Ekran : 5’’ dokunmatik TFT LCD ekran
•GPS : SIRF Atlas 4
•Hafıza : 2Gb Flash / 128mb ddr ram
•Kart Yuvası : SDHC Mikro SD/MMC kart yuvası 8GB kapasiteye kadar SD kart desteği. USB 2.0 ve USB şarj özelliği.
•Multimedya : Müzik (MP3, MP4, WAV),
•Video (MPEG-4, AVI),
•Resim (Jpeg, PNG, Gif, Tiff)
•E-Kitap
•Flash Oynatıcı
•AV Girişi : Var
•Bluetooth : Var
•E Kitap okuma : Var
•Fotoğraf gösterimi : Var
•Fotonav özelliği: Var (Koordinatlı fotoğraf ekleme ve fotoğrafa rota yapabilme özelliği)
•Lisan : Türkçe dahil 30 ayrı lisan
•Kamyon modu : Var (Bu özellik seçildiğinde kamyonu giremeyeceği yollara yönlendirmez)
•Kılıf : Var (Yüksek kaliteli %100 gerçek deri kılıf)
•Değiştirilebilir pil : Var 3.7v 800mAh 3.0Wh

Kutu İçeriği :


•1 Adet dokunmatik ekran kalemi ile portatif navigasyon cihazı.
•1 Adet USB bağlantı / şarj kablosu.
•1 Adet vakumlu ön cam için araç tutacağı.
•1 Adet 12 Volt DC araç şarj aleti.
•Türkçe kullanma kılavuzu.
•Cd


•Harita : TeleAtlas Authorised Infotech Combined 8.0 v. 2010 / 3
•81 il, 237 ilçe kapsama alanı,
•535.000 ad POI
•221.000 km. Toplam yol. Y
•ılda 4 defa güncellenen harita desteği
•GPS Log : Tek bir tuşla gidilen rotanın nokta nokta, zaman + sürat + iz kaydı özelliği
•Yazılım : Mireo Black Edition 3.1v

Yazılım Özellikleri :


•Birçok ülkede ödül almış, kullanıcı dostu ve son derece kolay bir arayüz
•En yakın rakibinden çok daha hızlı arama, bulma ve yeniden rota hesaplama özelliği
•Kuruma özel kişiselleştirebilme, görselliğini değiştirebilme özelliği
•Kuruma özel POI kategorisi oluşturma ve altını doldurma özelliği
•Polis kameralarında (EDS) veya hız aşımlarında sesli ve görsel uyarı özelliği
•Son gidilen yerleri ve rotaları kaydetme ve raporlama özelliği
•Analog ve dijital hız gösterme özelliği
•Koordinatlı fotoğraf ekleme ve fotoğrafa rota yapabilme özelliği



Not : G-Sat bir Taiwan markasıdır.

Orijinal %100 gerçek deri kılıf hediyeli




Ürün Özellikleri :
Bluetooh Araç Kiti Özelliği Var
Ekran Boyutu 5'
mp3 Çalma Özelliği Var
Arttırılabilir Hafıza Var
Video Oynatma Var
Diğer:
Garanti Süresi (Ay) 24


8 mbit'e kadar sınırsız adsl kullanıyorum. Bağlantı hızım maksimum 0,500 mbit. 15 GB aylık kotayı doldurmadım. Buna rağmen bağlantım aşırı yavaş. Yahoo gibi sitelere ping atıyorum yüzde 25 kayıp veriyor. Bilgisayardan az-çok anlıyorum. Virüs ve benzer sorun yok. Müşter hizmetlerini 10 gündür arıyorum düzelttik diyorlar ama düzeltemiyorlar. Ne yapmalıyım?

Arkadaşilar oyun sırasında hata raporu alıyorum ve oyun kapanıyor .Bu sorunu nasıl çözebilirim?
Dizüstü bilgisayar almak istiyorum ve çok fena kafam karıştı. Aşağıdaki iki notebook arasında kaldım. Öneriniz olur mu?

ACER AS5739G-874G32MN INTEL CORE 2 DUO P8700 2.53GHZ 4GB 320GB 15.6" TAŞINABİLİR BİLGİSAYAR : 1910 TL
ASUS N61VN280BD INTEL CORE 2 DUO T9600 2.8GHZ 4GB 500GB 16" TAŞINABİLİR BİLGİSAYAR : 2.133 TL

Asus'un fiyatı linkte farklı görünüyor. Burada yazdığım bana özel fiyatı...
http://www.gigfoot.net/software/1.html
adresindeki "Flash MP3 Player"i satın aldım. Ancak kurulumu nasıl yapacağımı bilmiyorum.
Aşağıdaki sayfada (kodlar içinde) nerede nasıl ayarlamalar yapılacağı konusunda yardımcı olabilecek var mı acaba?

#!/usr/bin/perl 
#################################################
#################################################
#################################################
# The web-based flash mp3player
# version 052305
# Gigfoot LLC
# James True
#################################################
# MP3_BIN
# The default for this to run smooth is that this script
# reside inside the folder where your mp3 files exist.
# If you want to change this, you may specify an
# absolute directory path where your mp3files are found.
# examples are "/home/you/web/mp3" or "c:/IIS/web/shares/" etc
# If you change the MP3_BIN you will need to also change to MP3_BIN_URL accordingly.
# Hint, MP3_BIN_URL will usually be your absolute MP3_BIN without the DOCUMENT_ROOT at the front.
# ALWAYS end both of these variables with a slash (/).
# Change at your own risk and rock on.
my $MP3_BIN = "";
my $MP3_BIN_URL = "";
#################################################
# START_PAGE
# This is optional, set this to a url if you do not
# want this program to decide on your start page.
# The start page is the url displayed in the main frames window
my $START_PAGE = "";
#################################################
# BG_COLOR
# if you want to override the random colors you can specify a hex color below.
# Example: $BG_COLOR = ""; = RANDOM
# Example: $BG_COLOR = "FF0000"; = ALWAYS RED
# Example: $BG_COLOR = "00FF00"; = ALWAYS GREEN
# Example: $BG_COLOR = "0000FF"; = ALWAYS BLUE
my $BG_COLOR = "";
#################################################
# RECURSE
# if your mp3 files are stored inside of seperate subfolders
# turn on FOLDER_RECURSE to have it scan the subfolders for a new song
# Example: 0 = off 1 = on
my $FOLDER_RECURSE = 0;
#################################################
# SECURITY
# UNIX,LINUX,MACOSX servers may be able to provide
# extra security by enabling CHMODING. This turns
# the file permissions off for all mp3 files cept
# the one currently being played. If you turn this
# feature on, make sure your player is working properly on your server!
# 1 = on | 0 = off
my $SECURITY_CHMOD = 0;
#################################################
# AUTOCOMPLETE
# used mainly by folks who are running their player out of a cgi-bin folder
# If auto-complete is on, you can request a mp3song by the title of the mp3 only.
# This only works if you pass an src variable with no slashes in it.
# So if AUTO_COMPLETE_URL is set to 1 then the url below will work
#http://www.yourdomain.com/cgi-bin/mp3player.cgi?src=Acoustic Syndicate - secret track.mp3
my $AUTO_COMPLETE = 1;
#################################################
#################################################
### End of user defined section
#################################################
#################################################
use strict;##### strick means if you see an internal server error, check your logs for complete details :)
#use LWP::Simple;
use Cwd;
print "Content-type:text/html\n\n";
my $debug = "";
my %MYENV = &initENV;
my %GET = &readGet;
if (($AUTO_COMPLETE)&&($GET{'src'})&&($GET{'src'} !~ /[\\\/]+/)){$GET{'src'} = $MP3_BIN_URL.$GET{'src'};}
#################################################
#################################################
#################################################
if ($SECURITY_CHMOD){&SecureFiles();}
&readGet;
if ($GET{'action'} eq ""){$GET{'action'} = "frames";}
if ($GET{'action'} eq "Info"){&Info();exit;}
#if ($GET{'action'} eq "Visual"){&Visual();exit;}
if ($GET{'action'} eq "Playlist"){&Playlist();exit;}
if ($GET{'action'} eq "Playlist2"){&Playlist2();exit;}
if ($GET{'action'} eq "Search"){&Search();exit;}
if ($GET{'action'} eq "frames"){&frames();exit;}
if ($GET{'action'} eq "frames2"){&frames2();exit;}
if ($GET{'action'} eq "framesvisual"){&framesvisual();exit;}
if ($GET{'action'} eq "PlaylistFrames"){&PlaylistFrames();exit;}
if ($GET{'action'} eq "mp3frame"){&mp3frame();exit;}
if ($GET{'action'} eq "mp3frame2"){&mp3frame2();exit;}
if ($GET{'action'} eq "mp3framevisual"){&mp3framevisual();exit;}
exit;
#################################################
#################################################
#################################################
sub AllowFile{
chmod (0755,$_[0]);
}########################################### end AllowFile
sub SecureFiles{
## turn off all permissions for mp3 file to prrevent users from downloading
my @sec;
if ($FOLDER_RECURSE){
@sec = &RecurseMP3($MP3_BIN);
}else{
@sec = &ReadContent($MP3_BIN,'\.mp3');
}
foreach my $file(@sec){
chmod (0700,"$MP3_BIN$file");
}
}########################################### end SecureFiles
#sub Visual{
## OUTPUT a numeric representation of this song to the flash environment
#if (!$GET{'VMETHOD'}){$GET{'VMETHOD'} = "SINGLE";}
#my %MP;
#print "//<pre>Output Flash readable code for this mp3 src\n";
#if ($GET{'src'}){
##%MP = &DescribeMP3($GET{'src'});
#print "&VMETHOD=$GET{'VMETHOD'}&\n";
#print "&viznotes=V:$MP{'VERSION'} L:$MP{'LAYER'} M:$MP{'MODE'}&\n";
#print "&bsize=".(-s "$GET{'src'}")."&\n";
#my $xx;
#if ($GET{'VMETHOD'} eq "SINGLE"){$xx = &SINGLE(%MP);}
#foreach my $li(keys %MP){
#my $clsrc = $MP{$li};
#$clsrc =~ s/\&/\%26/g;
#print "&$li=$clsrc&\n";
#}
#print "&xx=".$xx."&\n";
#}#################
#print "&vloaded=1&\n";
#print "//</pre>\n";
#exit;
#}############################################### end Visual
sub SINGLE{
my %MP = @_;
my $str;
for(my $tt=0;$tt<$MP{'SECS'};$tt++){
my @sec;
my $startSeek = ($MP{'BYTES_PER_SECOND'}*($tt+1))+$MP{'START_SOUND'};
while(($#sec+1)<=20){
##################
local $/ = \1;
my $scnt;
open (FILE,"$GET{'src'}");
seek(FILE,$startSeek,0);
while (my $zline = <FILE>){$scnt++;
$zline = unpack 'c2', $zline;
$zline = $zline+128;
$zline = int(($zline*100)/256);
if ($GET{'debug'}){print "<li>$zline\n";}
push(@sec,$zline);
$startSeek = $startSeek+($MP{'BYTES_PER_SECOND'}*($#sec+2))+1;
last;
}close FILE;
##################
my $vl = $tt;
$vl =~ s/.*(.)$/$1/;
push(@sec,$vl);
}
$str .= join("|",@sec)."|";
}
$str =~ s/\|$//;
return $str;
}################################################# end SINGLE
#sub DescribeMP3{
#my $file = $_[0];
#my %OUT;
#$OUT{'src'} = $file;
#use MP3::Info qw(:all);
#my $info = get_mp3info($file) or ($OUT{'ERROR'} = "get_mp3info $1 $! $_");
#if ($OUT{'ERROR'}){return %OUT;}
#foreach my $ky(keys %$info){
#$OUT{$ky} = $info->{$ky};
#my $kvv = $info->{$ky};
#$kvv =~ s/\&/\%26/g;
#}
#$OUT{'BYTES_PER_SECOND'} = ($OUT{'SIZE'}/$OUT{'SECS'});
#$OUT{'START_SOUND'} = (-s $file)-$OUT{'SIZE'};
#my $tag = get_mp3tag($file) or ($OUT{'ERROR'} = "get_mp3tag $1 $! $_");
#if ($OUT{'ERROR'}){return %OUT;}
#foreach my $ky(keys %$tag){
#$OUT{$ky} = $tag->{$ky};
#my $kv = $OUT{$ky};$kv =~ s/\&/\%26/g;
#}
#return %OUT;
#}################################### end DescribeMP3
sub frames{
##########################action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src
my $auto = "";
if ($ENV{'QUERY_STRING'} !~ /\&/){
$auto = "y";
$GET{'shuffle'} = "y";
$GET{'autoStart'} = "y";
$GET{'reload'} = "y";
}
if (!$GET{'startPage'}){$GET{'startPage'} = $START_PAGE;}
if (!$GET{'startPage'}){$GET{'startPage'} = $ENV{'HTTP_REFERER'};}
if (!$GET{'startPage'}){$GET{'startPage'} = "http://$ENV{'SERVER_NAME'}";}
if ($GET{'bgColor'}){$GET{'bgColor'} = "bgColor=$GET{'bgColor'}";}
if ($GET{'vol'}){$GET{'vol'} = "vol=$GET{'vol'}";}
print <<EOM;
<title>MP3 Player / $ENV{'SERVER_NAME'}</title>
<frameset frameborder=0 framespacing="0" framepadding="0" rows="*,32">
<frame name="mainWindow" target="mainWindow" src="$GET{'startPage'}" scrolling="auto">
<frame name="mp3Player" target="mainWindow" src="?action=mp3frame&shuffle=$GET{'shuffle'}&autoStart=$GET{'autoStart'}&reload=$GET{'reload'}&$GET{'bgColor'}&$GET{'vol'}&src=$GET{'src'}" scrolling="no">
<noframes>
<body>
<p>This Page Requires Frames.</p>
</body>
</noframes>
</frameset>
EOM
}################################################## end frames
sub framesvisual{
##########################action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src
my $auto = "";
if ($ENV{'QUERY_STRING'} !~ /\&/){
$auto = "y";
$GET{'shuffle'} = "y";
$GET{'autoStart'} = "y";
$GET{'reload'} = "y";
}
if (!$GET{'startPage'}){$GET{'startPage'} = $START_PAGE;}
if (!$GET{'startPage'}){$GET{'startPage'} = $ENV{'HTTP_REFERER'};}
if (!$GET{'startPage'}){$GET{'startPage'} = "http://$ENV{'SERVER_NAME'}";}
if ($GET{'bgColor'}){$GET{'bgColor'} = "bgColor=$GET{'bgColor'}";}
my $tm = time;
print <<EOM;
<title>MP3 Player / $ENV{'SERVER_NAME'}</title>
<frameset frameborder=0 framespacing="0" framepadding="0" rows="*,300">
<frame name="mainWindow" target="mainWindow" src="$GET{'startPage'}" scrolling="auto">
<frame name="mp3Player" target="mainWindow" src="?action=mp3framevisual&c=$tm&shuffle=$GET{'shuffle'}&autoStart=$GET{'autoStart'}&reload=$GET{'reload'}&$GET{'bgColor'}&src=$GET{'src'}" scrolling="no">
<noframes>
<body>
<p>This Page Requires Frames.</p>
</body>
</noframes>
</frameset>
EOM
}################################################## end framesvisual
sub frames2{
##########################action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src
my $auto = "";
if ($ENV{'QUERY_STRING'} !~ /\&/){
$auto = "y";
$GET{'shuffle'} = "y";
$GET{'autoStart'} = "y";
$GET{'reload'} = "y";
}
if ($GET{'vol'}){$GET{'vol'} = "&vol=$GET{'vol'}&";}
if (!$GET{'startPage'}){$GET{'startPage'} = $START_PAGE;}
if (!$GET{'startPage'}){$GET{'startPage'} = $ENV{'HTTP_REFERER'};}
if (!$GET{'startPage'}){$GET{'startPage'} = "http://$ENV{'SERVER_NAME'}";}
if ($GET{'bgColor'}){$GET{'bgColor'} = "bgColor=$GET{'bgColor'}";}
my $tm = time;
print <<EOM;
<title>MP3 Player / $ENV{'SERVER_NAME'}</title>
<frameset frameborder=0 framespacing="0" framepadding="0" rows="*,200">
<frame name="mainWindow" target="mainWindow" src="$GET{'startPage'}" scrolling="auto">
<frame name="mp3Player" target="mainWindow" src="?$GET{'vol'}&action=mp3frame2&c=$tm&shuffle=$GET{'shuffle'}&autoStart=$GET{'autoStart'}&reload=$GET{'reload'}&$GET{'bgColor'}&src=$GET{'src'}" scrolling="no">
<noframes>
<body>
<p>This Page Requires Frames.</p>
</body>
</noframes>
</frameset>
EOM
}################################################## end frames2
sub PlaylistFrames{
##########################action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src
my $auto = "";
if ($ENV{'QUERY_STRING'} !~ /\&/){
$auto = "y";
$GET{'shuffle'} = "y";
$GET{'autoStart'} = "y";
$GET{'reload'} = "y";
}
if (!$GET{'startPage'}){$GET{'startPage'} = $START_PAGE;}
if (!$GET{'startPage'}){$GET{'startPage'} = $ENV{'HTTP_REFERER'};}
if (!$GET{'startPage'}){$GET{'startPage'} = "http://$ENV{'SERVER_NAME'}";}
if ($GET{'bgColor'}){$GET{'bgColor'} = "bgColor=$GET{'bgColor'}";}
print <<EOM;
<title>MP3 Player / $ENV{'SERVER_NAME'}</title>
<frameset frameborder=0 framespacing="0" framepadding="0" rows="*,32">
<frame name="mainWindow" target="mainWindow" src="?action=Playlist2&" scrolling="auto">
<frame name="mp3Player" target="mainWindow" src="?action=mp3frame&shuffle=$GET{'shuffle'}&autoStart=$GET{'autoStart'}&reload=$GET{'reload'}&$GET{'bgColor'}&src=$GET{'src'}" scrolling="no">
<noframes>
<body>
<p>This Page Requires Frames.</p>
</body>
</noframes>
</frameset>
EOM
}################################################## end PlaylistFrames
sub mp3framevisual{
#my %GET = %_;
my @mp3s;
my @cnt;
##print "$MP3_BIN cnt=$#cnt<hr>";
if ($FOLDER_RECURSE){
@cnt = &RecurseMP3($MP3_BIN);
}else{
@cnt = &ReadContent($MP3_BIN,'\.mp3');
}
my $LIBRARY_TOTAL = $#cnt+1;
my $nowx = 0;
my $emptymp3;
my $st;
my $src;
my $srcX;
if ($GET{'src'}){$src = $GET{'src'};}
my $lastSrc = $GET{'lastSrc'};
my $lastSrcPattern;
$lastSrc =~ s/.*\///;
$srcX = $src;
$srcX =~ s/.*\///;
my @dcnt = @cnt;
if ($lastSrc eq ""){$lastSrcPattern = "BLAGGABLUGGABLOOGA";}else{$lastSrcPattern = "$lastSrc";}
foreach my $of(@dcnt){
if ($of =~ /\.mp3$/i){
$emptymp3 = $of;
my $cof = $of;
my $clastSrcPattern = $lastSrcPattern;
$cof =~ s/\W+//g;
$clastSrcPattern =~ s/\W+//g;
if ($cof !~ /$clastSrcPattern/i){
push (@mp3s,$of);
}
$of =~ s/\W+//g;
my $srcD = $src;
$srcD =~ s/\W+//g;
my $srcXD = $srcX;
$srcXD =~ s/\W+//g;
my $lastSrcD = $lastSrc;
$lastSrcD =~ s/\W+//g;
if (($srcXD)&&($of =~ /$srcXD$/i)){$st = $nowx;}
if (($lastSrcD)&&($of =~ /$lastSrcD$/i)){$st = $nowx;}
$nowx++;
}
}
if ($st > $#mp3s){$st = 0;}
if ($src eq ""){$src = "".$mp3s[$st];$srcX = $mp3s[$st];
}
if ($src eq ""){$src = $emptymp3;}
#$GET{'src'} = $src;
my $tPlaylist = "y";
my $tShuffle = "y";
my $tReload = "y";
my $tAutoStart = "y";
my $tPlaylistStyle = "blon";
my $tShuffleStyle = "BlackLinks";
my $tReloadStyle = "BlackLinks";
my $tAutoStartStyle = "BlackLinks";
if ($GET{'shuffle'}){$src = $mp3s[rand($#mp3s)];$tShuffle = "";$tShuffleStyle = "blon";}
if ($GET{'reload'}){$tReload = "";$tReloadStyle = "blon";}
if ($GET{'autoStart'}){$tAutoStart = "";$tAutoStartStyle = "blon";}
#####
my %newQ = ();
my $qstr = "$ENV{'QUERY_STRING'}";
my @qs = split(/\&/,$qstr);
foreach my $li(@qs){
my($ln,$lv)=split(/\=/,$li);
#print "$li / $ln==$lv<hr>";
$newQ{$ln} = $lv;
}
my $cleanQ = "";
foreach my $li(keys %newQ){
if ($li){$cleanQ .= "$li=".$newQ{$li}."&";}
}
$ENV{'QUERY_STRING'} = $cleanQ;
my @colors = ("333333","9f0000","009f00","9f0000","9f009f","0000aa","dddddd","af64af","646464","98aa99");
my $bgColor;
if ($GET{'bgColor'} eq ""){$bgColor = $colors[rand($#colors)];$GET{'bgColor'} = $bgColor;}else{$bgColor = $GET{'bgColor'};}
if ($BG_COLOR){$bgColor = $BG_COLOR;}

my $srcQ = $MP3_BIN_URL.$src;
$srcQ =~ s/\%/\%25/g;
$srcQ =~ s/\+/\%2B/g;
$srcQ =~ s/\&/\%26/g;
$srcQ =~ s/\#/\%23/g;
$srcQ =~ s/\~/\%7E/g;
$srcQ =~ s/\'/\%27/g;
$srcQ =~ s/\(/\%28/g;
$srcQ =~ s/\)/\%29/g;
$srcQ =~ s/\-/\%2D/g;
$srcQ =~ s/\=/\%3D/g;
$srcQ =~ tr/ /+/;
$src = $srcQ;
if ($GET{'src'}){$src = $GET{'src'};}
$src =~ s/\&/\%26/g;
$tPlaylist = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?action=Playlist2" data-href="?action=Playlist2">Playlist</a>
EOM
$tShuffle = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src" data-href="?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src">Shuffle</a>
EOM
$tReload = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}reload=$tReload&src=$src" data-href="?$ENV{'QUERY_STRING'}reload=$tReload&src=$src">Reload</a>
EOM
$tAutoStart = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src" data-href="?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src">AutoStart</a>
EOM
print <<EOM;
<style>
a.blon:link{font-family:tahoma;text-decoration:underline;color:$bgColor;}
a.blon:visited{font-family:tahoma;text-decoration:underline;color:$bgColor;}
a.blon:hover{font-family:tahoma;text-decoration:underline;color:ff0000;}
a.BlackLinks:link{font-family:tahoma;text-decoration:none;color:$bgColor;}
a.BlackLinks:visited{font-family:tahoma;text-decoration:none;color:$bgColor;}
a.BlackLinks:hover{font-family:tahoma;text-decoration:none;color:ff0000;}
</style>
<body bgcolor=000000 leftmargin="0" topmargin="0" rightmargin="0" bottomargin="0" bottommargin="0">
<table width=100% border=0 cellpadding=0 cellspacing=0><tr>
<td align=right><font face=tahoma size=-2 color=$bgColor>
$tPlaylist /
$tReload /
$tAutoStart /
$tShuffle /
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}&src=&lastSrc=$src" data-href="?$ENV{'QUERY_STRING'}&src=&lastSrc=$src">Next Song</a> /
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}" data-href="#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}">Hide MP3 Player</a>
</font></td>
<td valign=top title="TOTAL SONGS=$LIBRARY_TOTAL\n$src" width=32 bgcolor=$bgColor><img src="$MP3_BIN_URL/anglenew.gif" border=0></td>
<td width=450 align=right bgcolor=$bgColor>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="450" HEIGHT="300" id="MP3player" ALIGN="">
<PARAM NAME=movie VALUE="$MP3_BIN_URL/MP3PlayerVisual.swf?action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src">
<PARAM NAME=quality VALUE=high>
<PARAM NAME=bgcolor VALUE="#$bgColor">
<EMBED src="$MP3_BIN_URL/MP3PlayerVisual.swf?action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src"
quality=high bgcolor=#$bgColor WIDTH="450" HEIGHT="300" NAME="MP3player"
ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
</EMBED></OBJECT></td>
</tr></table>
</html>
<body onLoad="window.MP3player.focus();">
EOM
}################################################## end mp3framevisual
sub mp3frame{
#my %GET = %_;
my @mp3s;
my @cnt;
##print "$MP3_BIN cnt=$#cnt<hr>";
if ($FOLDER_RECURSE){
@cnt = &RecurseMP3($MP3_BIN);
}else{
@cnt = &ReadContent($MP3_BIN,'\.mp3');
}
my $LIBRARY_TOTAL = $#cnt+1;
my $nowx = 0;
my $emptymp3;
my $st;
my $src;
my $srcX;
if ($GET{'src'}){$src = $GET{'src'};}
my $lastSrc = $GET{'lastSrc'};
my $lastSrcPattern;
$lastSrc =~ s/.*\///;
$srcX = $src;
$srcX =~ s/.*\///;
my @dcnt = @cnt;
if ($lastSrc eq ""){$lastSrcPattern = "BLAGGABLUGGABLOOGA";}else{$lastSrcPattern = "$lastSrc";}
foreach my $of(@dcnt){
if ($of =~ /\.mp3$/i){
$emptymp3 = $of;
my $cof = $of;
my $clastSrcPattern = $lastSrcPattern;
$cof =~ s/\W+//g;
$clastSrcPattern =~ s/\W+//g;
if ($cof !~ /$clastSrcPattern/i){
push (@mp3s,$of);
}
$of =~ s/\W+//g;
my $srcD = $src;
$srcD =~ s/\W+//g;
my $srcXD = $srcX;
$srcXD =~ s/\W+//g;
my $lastSrcD = $lastSrc;
$lastSrcD =~ s/\W+//g;
if (($srcXD)&&($of =~ /$srcXD$/i)){$st = $nowx;}
if (($lastSrcD)&&($of =~ /$lastSrcD$/i)){$st = $nowx;}
$nowx++;
}
}
if ($st > $#mp3s){$st = 0;}
if ($src eq ""){$src = "".$mp3s[$st];$srcX = $mp3s[$st];
}
if ($src eq ""){$src = $emptymp3;}
#$GET{'src'} = $src;
my $tPlaylist = "y";
my $tShuffle = "y";
my $tReload = "y";
my $tAutoStart = "y";
my $tPlaylistStyle = "blon";
my $tShuffleStyle = "BlackLinks";
my $tReloadStyle = "BlackLinks";
my $tAutoStartStyle = "BlackLinks";
if ($GET{'shuffle'}){$src = $mp3s[rand($#mp3s)];$tShuffle = "";$tShuffleStyle = "blon";}
if ($GET{'reload'}){$tReload = "";$tReloadStyle = "blon";}
if ($GET{'autoStart'}){$tAutoStart = "";$tAutoStartStyle = "blon";}
#####
my %newQ = ();
my $qstr = "$ENV{'QUERY_STRING'}";
my @qs = split(/\&/,$qstr);
foreach my $li(@qs){
my($ln,$lv)=split(/\=/,$li);
#print "$li / $ln==$lv<hr>";
$newQ{$ln} = $lv;
}
my $cleanQ = "";
foreach my $li(keys %newQ){
if ($li){$cleanQ .= "$li=".$newQ{$li}."&";}
}
$ENV{'QUERY_STRING'} = $cleanQ;
my @colors = ("333333","9f0000","009f00","9f0000","9f009f","0000aa","dddddd","af64af","646464","98aa99");
my $bgColor;
if ($GET{'bgColor'} eq ""){$bgColor = $colors[rand($#colors)];$GET{'bgColor'} = $bgColor;}else{$bgColor = $GET{'bgColor'};}
if ($BG_COLOR){$bgColor = $BG_COLOR;}
if ($SECURITY_CHMOD){&AllowFile("$MP3_BIN$src");}
my $srcQ = $MP3_BIN_URL.$src;
$srcQ =~ s/\%/\%25/g;
$srcQ =~ s/\+/\%2B/g;
$srcQ =~ s/\&/\%26/g;
$srcQ =~ s/\#/\%23/g;
$srcQ =~ s/\~/\%7E/g;
$srcQ =~ s/\'/\%27/g;
$srcQ =~ s/\(/\%28/g;
$srcQ =~ s/\)/\%29/g;
$srcQ =~ s/\-/\%2D/g;
$srcQ =~ s/\=/\%3D/g;
$srcQ =~ tr/ /+/;
$src = $srcQ;
if ($GET{'src'}){$src = $GET{'src'};}
$src =~ s/\&/\%26/g;
$tPlaylist = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?action=Playlist2" data-href="?action=Playlist2">Playlist</a>
EOM
$tShuffle = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src" data-href="?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src">Shuffle</a>
EOM
$tReload = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}reload=$tReload&src=$src" data-href="?$ENV{'QUERY_STRING'}reload=$tReload&src=$src">Reload</a>
EOM
$tAutoStart = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src" data-href="?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src">AutoStart</a>
EOM
my $volmod;
if ($GET{'vol'}){$volmod = "vol=$GET{'vol'}";}
print <<EOM;
<style>
a.blon:link{font-family:tahoma;text-decoration:underline;color:$bgColor;}
a.blon:visited{font-family:tahoma;text-decoration:underline;color:$bgColor;}
a.blon:hover{font-family:tahoma;text-decoration:underline;color:ff0000;}
a.BlackLinks:link{font-family:tahoma;text-decoration:none;color:$bgColor;}
a.BlackLinks:visited{font-family:tahoma;text-decoration:none;color:$bgColor;}
a.BlackLinks:hover{font-family:tahoma;text-decoration:none;color:ff0000;}
</style>
<body bgcolor=000000 leftmargin="0" topmargin="0" rightmargin="0" bottomargin="0" bottommargin="0">
<table width=100% border=0 cellpadding=0 cellspacing=0><tr>
<td align=right><font face=tahoma size=-2 color=$bgColor>
$tPlaylist /
$tReload /
$tAutoStart /
$tShuffle /
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}&src=&lastSrc=$src" data-href="?$ENV{'QUERY_STRING'}&src=&lastSrc=$src">Next Song</a> /
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}" data-href="#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}">Hide MP3 Player</a>
</font></td>
<td title="TOTAL SONGS=$LIBRARY_TOTAL\n$src" width=32 bgcolor=$bgColor><img src="$MP3_BIN_URL/anglenew.gif" border=0></td>
<td width=450 align=right bgcolor=$bgColor>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="450" HEIGHT="25" id="MP3player" ALIGN="">
<PARAM NAME=movie VALUE="$MP3_BIN_URL/MP3PlayerMini.swf?action=$GET{'action'}&$volmod&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src">
<PARAM NAME=quality VALUE=high>
<PARAM NAME=bgcolor VALUE="#$bgColor">
<EMBED src="$MP3_BIN_URL/MP3PlayerMini.swf?action=$GET{'action'}&shuffle=$GET{'shuffle'}&$volmod&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src"
quality=high bgcolor=#$bgColor WIDTH="450" HEIGHT="25" NAME="MP3player"
ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
</EMBED></OBJECT></td>
</tr></table>
</html>
<body onLoad="window.MP3player.focus();">
EOM
}################################################## end mp3frame
sub mp3frame2{
my @mp3s;
my @cnt;
if ($FOLDER_RECURSE){
@cnt = &RecurseMP3($MP3_BIN);
}else{
@cnt = &ReadContent($MP3_BIN,'\.mp3');
}
my $LIBRARY_TOTAL = $#cnt+1;
my $nowx = 0;
my $emptymp3;
my $st;
my $src;
my $srcX;
if ($GET{'src'}){$src = $GET{'src'};}
my $lastSrc = $GET{'lastSrc'};
my $lastSrcPattern;
$lastSrc =~ s/.*\///;
$srcX = $src;
$srcX =~ s/.*\///;
my @dcnt = @cnt;
if ($lastSrc eq ""){$lastSrcPattern = "BLAGGABLUGGABLOOGA";}else{$lastSrcPattern = "$lastSrc";}
foreach my $of(@dcnt){
if ($of =~ /\.mp3$/i){
$emptymp3 = $of;
my $cof = $of;
my $clastSrcPattern = $lastSrcPattern;
$cof =~ s/\W+//g;
$clastSrcPattern =~ s/\W+//g;
if ($cof !~ /$clastSrcPattern/i){
push (@mp3s,$of);
}
$of =~ s/\W+//g;
my $srcD = $src;
$srcD =~ s/\W+//g;
my $srcXD = $srcX;
$srcXD =~ s/\W+//g;
my $lastSrcD = $lastSrc;
$lastSrcD =~ s/\W+//g;
if (($srcXD)&&($of =~ /$srcXD$/i)){$st = $nowx;}
if (($lastSrcD)&&($of =~ /$lastSrcD$/i)){$st = $nowx;}
$nowx++;
}
}
if ($st > $#mp3s){$st = 0;}
if ($src eq ""){$src = "".$mp3s[$st];$srcX = $mp3s[$st];
}
if ($src eq ""){$src = $emptymp3;}
#$GET{'src'} = $src;
my $tPlaylist = "y";
my $tShuffle = "y";
my $tReload = "y";
my $tAutoStart = "y";
my $tPlaylistStyle = "blon";
my $tShuffleStyle = "BlackLinks";
my $tReloadStyle = "BlackLinks";
my $tAutoStartStyle = "BlackLinks";
if ($GET{'shuffle'}){$src = $mp3s[rand($#mp3s)];$tShuffle = "";$tShuffleStyle = "blon";}
if ($GET{'reload'}){$tReload = "";$tReloadStyle = "blon";}
if ($GET{'autoStart'}){$tAutoStart = "";$tAutoStartStyle = "blon";}
#####
my %newQ = ();
my $qstr = "$ENV{'QUERY_STRING'}";
my @qs = split(/\&/,$qstr);
foreach my $li(@qs){
my($ln,$lv)=split(/\=/,$li);
$newQ{$ln} = $lv;
}
my $cleanQ = "";
foreach my $li(keys %newQ){
if ($li){$cleanQ .= "$li=".$newQ{$li}."&";}
}
$ENV{'QUERY_STRING'} = $cleanQ;
my @colors = ("333333","9f0000","009f00","9f0000","9f009f","0000aa","dddddd","af64af","646464","98aa99");
my $bgColor;
if ($GET{'bgColor'} eq ""){$bgColor = $colors[rand($#colors)];$GET{'bgColor'} = $bgColor;}else{$bgColor = $GET{'bgColor'};}
if ($BG_COLOR){$bgColor = $BG_COLOR;}
my $srcQ = $MP3_BIN_URL.$src;
$srcQ =~ s/\%/\%25/g;
$srcQ =~ s/\+/\%2B/g;
$srcQ =~ s/\&/\%26/g;
$srcQ =~ s/\#/\%23/g;
$srcQ =~ s/\~/\%7E/g;
$srcQ =~ s/\'/\%27/g;
$srcQ =~ s/\(/\%28/g;
$srcQ =~ s/\)/\%29/g;
$srcQ =~ s/\-/\%2D/g;
$srcQ =~ s/\=/\%3D/g;
$srcQ =~ tr/ /+/;
$src = $srcQ;
if ($GET{'src'}){$src = $GET{'src'};}
$src =~ s/\&/\%26/g;
$tPlaylist = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?action=Playlist2" data-href="?action=Playlist2">Playlist</a>
EOM
$tShuffle = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src" data-href="?$ENV{'QUERY_STRING'}shuffle=$tShuffle&src=$src">Shuffle</a>
EOM
$tReload = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}reload=$tReload&src=$src" data-href="?$ENV{'QUERY_STRING'}reload=$tReload&src=$src">Reload</a>
EOM
$tAutoStart = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src" data-href="?$ENV{'QUERY_STRING'}&autoStart=$tAutoStart&src=$src">AutoStart</a>
EOM
if ($GET{'vol'} =~ /^\d+$/){
$GET{'vol'} = "&vol=$GET{'vol'}&";
}
print <<EOM;
<style>
a.blon:link{font-family:tahoma;text-decoration:underline;color:$bgColor;}
a.blon:visited{font-family:tahoma;text-decoration:underline;color:$bgColor;}
a.blon:hover{font-family:tahoma;text-decoration:underline;color:ff0000;}
a.BlackLinks:link{font-family:tahoma;text-decoration:none;color:$bgColor;}
a.BlackLinks:visited{font-family:tahoma;text-decoration:none;color:$bgColor;}
a.BlackLinks:hover{font-family:tahoma;text-decoration:none;color:ff0000;}
</style>
<body bgcolor=000000 leftmargin="0" topmargin="0" rightmargin="0" bottomargin="0" bottommargin="0">
<table width=100% border=0 cellpadding=0 cellspacing=0><tr>
<td align=right><font face=tahoma size=-2 color=$bgColor>
$tPlaylist /
$tReload /
$tAutoStart /
$tShuffle /
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?$ENV{'QUERY_STRING'}&src=&lastSrc=$src" data-href="?$ENV{'QUERY_STRING'}&src=&lastSrc=$src">Next Song</a> /
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}" data-href="#" onClick="var df = ''+parent.frames[0].location;if (df != ''){parent.location = parent.frames[0].location;}else{parent.location = 'http://$ENV{'SERVER_NAME'}';}">Hide MP3 Player</a>
</font></td>
<td valign=top title="TOTAL SONGS=$LIBRARY_TOTAL\n$src" width=32 bgcolor=$bgColor><img src="$MP3_BIN_URL/anglenew.gif" border=0></td>
<td width=640 align=right bgcolor=$bgColor>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="640" HEIGHT="200" id="MP3player" ALIGN="">
<PARAM NAME=movie VALUE="$MP3_BIN_URL/play.swf?$GET{'vol'}action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src">
<PARAM NAME=quality VALUE=high>
<PARAM NAME=bgcolor VALUE="#$bgColor">
<EMBED src="$MP3_BIN_URL/play.swf?$GET{'vol'}action=$GET{'action'}&shuffle=$GET{'shuffle'}&reload=$GET{'reload'}&autoStart=$GET{'autoStart'}&src=$src"
quality=high bgcolor=#$bgColor WIDTH="640" HEIGHT="200" NAME="MP3player"
ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
</EMBED></OBJECT></td>
</tr></table>
</html>
<body onLoad="window.MP3player.focus();">
<body onFocus="window.MP3player.focus();">
EOM
}################################################## end mp3frame2
sub Search{
my $FONT = "font-family:arial;";
my $COL1 = "background-color:#AAAA00;";
my $COL2 = "background-color:#CCCC00;";
my $borders = <<EOM;
border-top:solid 1px #CCCCCC;
border-left:solid 1px #CCCCCC;
border-bottom:solid 1px #333333;
border-right:solid 1px #333333
EOM
my $RESULT;
if ($GET{'Q'}){
my @cnt;
my $fnd;
if ($FOLDER_RECURSE){
@cnt = &RecurseMP3($MP3_BIN);
}else{
@cnt = &ReadContent($MP3_BIN,'\.mp3');
}
foreach my $li(@cnt){
if ($li =~ /$GET{'Q'}/si){$fnd++;}
}
if ($fnd >= 1){
$GET{'RESULT'} = "Results found: $fnd";
&Playlist2;
}else{
$RESULT = "No results found";
}
}
print <<EOM;
<title>MP3 Player Playlist</title>
<style>
td.C{font-size:xx-small;background-color:#AAAAAA;color:#FFFFFF;$FONT$borders}
</style>
<BODY BGCOLOR="#646455">
<form action="?">
<input type=hidden name=action value="Search">
<table border=0 cellspacing=0 cellpadding=3><tr>
<td class=C colspan=2>Search</td></tr><tr>
<td class=RESULT colspan=2>$RESULT</td></tr><tr>
<td align=right>Search</td><td align=right><input type=text name=Q value=""></td></tr><tr>
<td class=F colspan=2><input type=submit value="SEARCH"></td></tr><tr>
</tr></table>
</form>
EOM
exit;
}################################# end Search
sub Playlist2{
my @playlist;
my $SHOW_TITLE = 1;
my $SHOW_SIZE = 1;
my $SHOW_MODIFIED = 1;
my $SHOW_CREATED = 0;
my $SHOW_CNT = 1;
my $COL;
my $FONT = "font-family:arial;";
my $COL1 = "background-color:#998899;";
my $COL2 = "background-color:#887788;";
my $borders = <<EOM;
border-top:solid 1px #CCCCCC;
border-left:solid 1px #CCCCCC;
border-bottom:solid 1px #333333;
border-right:solid 1px #333333
EOM
if ($GET{'flip'} =~ /^\-(.*)/){my $iz = $1;if ($iz =~ /[a-zA-Z]/){$GET{'flip'} = "";}else{$GET{'flip'} = "T";}}
my $SORT = $GET{'sortby'};
my $FLIP = $GET{'flip'};
my @fields = ("TITLE","SIZE","MODIFIED","CREATED");
my $colspan = $#fields+2;
if ($FOLDER_RECURSE){
@playlist = &RecurseMP3($MP3_BIN);
}else{
@playlist = &ReadContent($MP3_BIN,'\.mp3');
}
################## SEARCH THE PLAYLIST
if ($GET{'Q'}){
my $fnd;
my @keep;
foreach my $li(@playlist){
if ($li =~ /$GET{'Q'}/si){$fnd++;push(@keep,$li);}
}
@playlist = @keep;
}
################## SORT THE PLAYLIST?
if ($SORT){
my $cnt;
my @SORTME;
foreach my $mp3(@playlist){$cnt++;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$MP3_BIN$mp3");
my $sor;
if ($SORT eq "TITLE"){$sor = $mp3;}
if ($SORT eq "SIZE"){$sor = $size;}
if ($SORT eq "MODIFIED"){$sor = $mtime;}
if ($SORT eq "CREATED"){$sor = $ctime;}
$sor =~ s/\|/\%7C/gs;
if ($sor =~ /^[0-9]+/){$sor = $sor+1000000000000;
}else{
$sor = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA".$sor;
$sor =~ s/.*(.{256})$/$1/;
$sor =~ tr/[A-Z]/[a-z]/;
}
push(@SORTME,"$sor\|$mp3");
}
my @kp;
if ($FLIP){@SORTME = reverse sort @SORTME;}else{@SORTME = sort @SORTME;}
foreach my $done(@SORTME){
$done =~ s/.*\|//;
push(@kp,$done);
}
@playlist = @kp;
}
my $smod;
if ($GET{'RESULT'}){
$smod = <<EOM;
<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?action=Playlist2" data-href="?action=Playlist2">All Songs</a> /
EOM
}
my $LIBRARY_TOTAL = $#playlist+1;
my @RECURSE_TITLE = ("Off","On");
print <<EOM;
<title>MP3 Player Playlist</title>
<style>
td.C{font-size:xx-small;background-color:#AAAAAA;color:#FFFFFF;$FONT$borders}
</style>
<BODY BGCOLOR="#646455">
<table border=0 cellspacing=0 cellpadding=3><tr>
<td class=C colspan=$colspan>MP3Player Playlist $smod<a data-test="test" rel="nofollow" style="word-wrap: break-word;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&url=?action=Search" data-href="?action=Search">Search Playlist</a></td></tr><tr>
<td class=RESULT colspan=$colspan>$GET{'RESULT'}</td></tr><tr>
EOM
if ($SHOW_CNT){print "<td class=C> </td>";}
foreach my $field(@fields){my $vl = eval("\$SHOW_$field");if ($vl){print "<td class=C><a href=\"?action=Playlist2&sortby=$field&flip=\-$GET{'flip'}\">$field</a></td>";}}print "</tr><tr>\n";
my $cnt;
foreach my $mp3(@playlist){$cnt++;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$MP3_BIN$mp3");
my $mp3q = $mp3;
$mp3q =~ s/\&/\%26/g;
$mp3q =~ s/\s+/\+/g;
if ($COL eq "$COL2"){$COL = "$COL1";}else{$COL = "$COL2";}
if ($SHOW_CNT){print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$cnt</td>\n";}
if ($SHOW_TITLE){print "<td style=\"$FONT$COL$borders;font-size:x-small;\"><a target=\"mp3Player\" href=\"?action=mp3frame&reload=y&autoStart=y&vol=100&src=$MP3_BIN_URL$mp3q\">$mp3</a></td>\n";}
if ($SHOW_SIZE){$size = &DescribeSize($size);print "<td alt=\"$MP3_BIN$mp3\" style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$size</td>\n";}
if ($SHOW_MODIFIED){$mtime = &Epoch2Style($mtime,"mon/dat/yr time");print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$mtime</td>\n";}
if ($SHOW_CREATED){$ctime = &Epoch2Style($ctime,"mon/dat/yr time");print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$ctime</td>\n";}
print "</tr><tr>";
}
print <<EOM;
<td colspan=$colspan> </td></tr><tr>
</table>
EOM
exit;
}################################################## end Playlist2
sub Info{
my @playlist;
if ($FOLDER_RECURSE){
@playlist = &RecurseMP3($MP3_BIN);
}else{
@playlist = &ReadContent($MP3_BIN,'\.mp3');
}
my $LIBRARY_TOTAL = $#playlist+1;
my @RECURSE_TITLE = ("Off","On");
print <<EOM;
<title>MP3 Player Info</title>
<table border=0><tr>
<td class=2>MP3 Player Info</td></tr><tr>
<td align=right>MP3_BIN:</td><td style="font-weight:bold;">$MP3_BIN</td></tr><tr>
<td align=right>TOTAL SONGS:</td><td style="font-weight:bold;">$LIBRARY_TOTAL</td></tr><tr>
<td align=right>FOLDER_RECURSE:</td><td style="font-weight:bold;">$RECURSE_TITLE[$FOLDER_RECURSE]</td></tr><tr>
</table>
EOM
foreach my $mp3(@playlist){
print "<li>$mp3\n";
}
exit;
}################################################## end Info
sub Playlist{
my @playlist;
my $SHOW_TITLE = 1;
my $SHOW_SIZE = 1;
my $SHOW_MODIFIED = 1;
my $SHOW_CREATED = 0;
my $SHOW_CNT = 1;
my $COL;
my $FONT = "font-family:arial;";
my $COL1 = "background-color:#AAAA00;";
my $COL2 = "background-color:#CCCC00;";
my $borders = <<EOM;
border-top:solid 1px #CCCCCC;
border-left:solid 1px #CCCCCC;
border-bottom:solid 1px #333333;
border-right:solid 1px #333333
EOM
if ($GET{'flip'} =~ /^\-(.*)/){my $iz = $1;if ($iz =~ /[a-zA-Z]/){$GET{'flip'} = "";}else{$GET{'flip'} = "T";}}
my $SORT = $GET{'sortby'};
my $FLIP = $GET{'flip'};
my @fields = ("TITLE","SIZE","MODIFIED","CREATED");
my $colspan = $#fields+2;
if ($FOLDER_RECURSE){
@playlist = &RecurseMP3($MP3_BIN);
}else{
@playlist = &ReadContent($MP3_BIN,'\.mp3');
}
################## SORT THE PLAYLIST?
if ($SORT){
my $cnt;
my @SORTME;
foreach my $mp3(@playlist){$cnt++;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$MP3_BIN$mp3");
my $sor;
if ($SORT eq "TITLE"){$sor = $mp3;}
if ($SORT eq "SIZE"){$sor = $size;}
if ($SORT eq "MODIFIED"){$sor = $mtime;}
if ($SORT eq "CREATED"){$sor = $ctime;}
$sor =~ s/\|/\%7C/gs;
if ($sor =~ /^[0-9]+/){$sor = $sor+1000000000000;
}else{
$sor = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA".$sor;
$sor =~ s/.*(.{256})$/$1/;
$sor =~ tr/[A-Z]/[a-z]/;
}
push(@SORTME,"$sor\|$mp3");
}
my @kp;
if ($FLIP){@SORTME = reverse sort @SORTME;}else{@SORTME = sort @SORTME;}
foreach my $done(@SORTME){
$done =~ s/.*\|//;
push(@kp,$done);
}
@playlist = @kp;
}
my $LIBRARY_TOTAL = $#playlist+1;
my @RECURSE_TITLE = ("Off","On");
print <<EOM;
<title>MP3 Player Playlist</title>
<style>
td.C{font-size:xx-small;background-color:#AAAAAA;color:#FFFFFF;$FONT$borders}
</style>
<BODY BGCOLOR="#646455">
<table border=0 cellspacing=0 cellpadding=3><tr>
<td class=C colspan=$colspan>MP3Player Playlist</td></tr><tr>
EOM
if ($SHOW_CNT){print "<td class=C> </td>";}
foreach my $field(@fields){my $vl = eval("\$SHOW_$field");if ($vl){print "<td class=C><a href=\"?action=Playlist&sortby=$field&flip=\-$GET{'flip'}\">$field</a></td>";}}print "</tr><tr>\n";
my $cnt;
foreach my $mp3(@playlist){$cnt++;
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$MP3_BIN$mp3");
if ($COL eq "$COL2"){$COL = "$COL1";}else{$COL = "$COL2";}
if ($SHOW_CNT){print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$cnt</td>\n";}
if ($SHOW_TITLE){print "<td style=\"$FONT$COL$borders;font-size:x-small;\"><a target=\"_top\" href=\"?reload=y&autoStart=y&vol=100&src=$MP3_BIN_URL$mp3\">$mp3</a></td>\n";}
if ($SHOW_SIZE){$size = &DescribeSize($size);print "<td alt=\"$MP3_BIN$mp3\" style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$size</td>\n";}
if ($SHOW_MODIFIED){$mtime = &Epoch2Style($mtime,"mon/dat/yr time");print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$mtime</td>\n";}
if ($SHOW_CREATED){$ctime = &Epoch2Style($ctime,"mon/dat/yr time");print "<td style=\"$FONT$COL$borders;font-size:xx-small;text-align:right;\">$ctime</td>\n";}
print "</tr><tr>";
}
print <<EOM;
<td colspan=$colspan> </td></tr><tr>
</table>
EOM
exit;
}################################################## end Playlist
sub DescribeSize{
my $bytes = $_[0];
my $val = 0;my $size = 0;my $kilobytes = 0;my $megabytes = 0;my $gigabytes = 0;
my $fmat = "b";
if ($bytes > 1024){$val = $bytes/1024;$fmat = "k";$kilobytes = $bytes/1024;}
if ($bytes > (1024*1024)){$val = $bytes/(1024*1024);$fmat = "M";$megabytes = $bytes/(1024*1024);}
if ($bytes > (1024*1024*1024)){$val = $bytes/(1024*1024*1024);$fmat = "G";$gigabytes = $bytes/(1024*1024*1024);}
$val =~ s/\.(.).*/\.$1/;
if (($_[0] > 0)&&($_[0] < 1025)){$val = 1;$fmat = "k";}
$val = "$val $fmat";
if ($val eq "0 b"){$val = "";}
return $val;
}#################################### end DescribeSize
sub Epoch2Style{
my $tima = $_[0];
my $template = $_[1];
my %TIM = ();
$TIM{'time'} = $tima;
$TIM{'template'} = $template;
$TIM{'date'} = localtime($TIM{'time'});
my($dow,$mon,$dat,$tim,$yer)=split(/\s+/,$TIM{'date'});
my $yr = $yer;$yr =~ s/^\d\d//;
my($hr,$min,$sec)=split(/\:/,$tim);
my $time24 = $tim;
$time24 =~ s/\D+//g;
my($hr24,$min24,$sec24)=split(/\:/,$tim);

my $mer = "am";if ($hr > 11){$mer = "pm";$hr = $hr - 12;}
$hr =~ s/^0//;
my $monthid = &GetMonthID("$mon");
my $monthvalue = "00".$monthid;
$monthvalue =~ s/.*(..)$/$1/;
my $datevalue = "00".$dat;
$datevalue =~ s/.*(..)$/$1/;
my $hrv = "00".$hr;
$hrv =~ s/.*(..)$/$1/;
my $minv = "00".$min;
$minv =~ s/.*(..)$/$1/;
$TIM{'template'} =~ s/mmm/$mon/g;
$TIM{'template'} =~ s/timestamp/$yer$monthvalue$datevalue$time24/gi;
$TIM{'template'} =~ s/month/$mon/g;
$TIM{'template'} =~ s/mon/$mon/g;
$TIM{'template'} =~ s/mm/$monthid/g;
$TIM{'template'} =~ s/mv/$monthvalue/g;
$TIM{'template'} =~ s/dd/$dat/g;
$TIM{'template'} =~ s/hv/$hrv/g;
$TIM{'template'} =~ s/hrv/$hrv/g;
$TIM{'template'} =~ s/time24/$hr24$min24$sec24/g;
$TIM{'template'} =~ s/hr24/$hr24/g;
$TIM{'template'} =~ s/min24/$min24/g;
$TIM{'template'} =~ s/sec24/$sec24/g;
$TIM{'template'} =~ s/hr/$hr/g;
$TIM{'template'} =~ s/minv/$minv/g;
$TIM{'template'} =~ s/min/$min/g;
$TIM{'template'} =~ s/sec/$sec/g;
$TIM{'template'} =~ s/mer/$mer/g;
$TIM{'template'} =~ s/datevalue/$datevalue/g;
$TIM{'template'} =~ s/datvalue/$datevalue/g;
$TIM{'template'} =~ s/datv/$datevalue/g;
$TIM{'template'} =~ s/dv/$datevalue/g;
$TIM{'template'} =~ s/date/$dat/g;
$TIM{'template'} =~ s/dat/$dat/g;
$TIM{'template'} =~ s/year/$yer/gi;
$TIM{'template'} =~ s/yr/$yr/gi;
$TIM{'template'} =~ s/yy/$yr/gi;
$TIM{'template'} =~ s/dow/$dow/g;
$TIM{'template'} =~ s/time/$tim/g;
#20040203200000
if ($TIM{'template'} =~ /mysql/){
my $monthid = &GetMonthID("$mon");
my $dateid = "00".$dat;$dateid =~ s/.*(\d\d)$/$1/;
my $hourid = "00".$hr;$hourid =~ s/.*(\d\d)$/$1/;
my $minid = "00".$min;$minid =~ s/.*(\d\d)$/$1/;
my $secid = "00".$sec;$secid =~ s/.*(\d\d)$/$1/;
my $mysql = $yer.$monthid.$dateid.$hourid.$minid.$secid;
$TIM{'template'} =~ s/mysql/$mysql/g;
}
return $TIM{'template'};
}################################ end Epoch2Style
sub GetMonthID{
my $month = $_[0];
my $month_id;
my @month_titles = ("January","February","March","April","May","June","July","August","September","October","November","December");
my $Y = 0;
foreach my $month_title(@month_titles){$Y++;
if ($month_title =~ /$month/i){$month_id = $Y;}
}
return $month_id;
}##################################### end GetMonthID
sub RecurseMP3{
my @playlist = &ReadContent($MP3_BIN,'\.mp3');
my %PLIST;
foreach my $song(@playlist){$PLIST{$song} = 1;}
my @FOLDERS = &Recurse($MP3_BIN);
my $RECURSE;
foreach my $subf(@FOLDERS){
my @subdir = &ReadContent($subf,'\.mp3');
$RECURSE .= "<li>$subf=".($#subdir+1)."\n";
my $apend = $subf;
$apend =~ s/^$MP3_BIN//;
if ($MP3_BIN =~ /\\/){$apend .= "\\";}else{$apend .= "/";}
foreach my $submp3(@subdir){
if (!$PLIST{$submp3}){push(@playlist,$apend.$submp3);}
}
}
return @playlist;
}################################################## end RecurseMP3
sub Recurse{
my $path = $_[0];
my $req = $_[1];
my @subs = ();
my @dir = &ReadContent("$path");
if ($path =~ /\\/){#### are we using the downhill slash in our path?
$path =~ s/\\+$//;
foreach my $ld(@dir){
if (-d $path."\\".$ld){
push (@subs,$path."\\".$ld);
my @asubs = &Recurse("$path\\$ld");
foreach my $ald(@asubs){if (-d $ald){push(@subs,$ald);}}
}
}
}else{#### then do it the nice unix way
$path =~ s/\/+$//;
foreach my $ld(@dir){
if (-d $path."/".$ld){
push (@subs,$path."/".$ld);
my @asubs = &Recurse("$path/$ld");
foreach my $ald(@asubs){if (-d $ald){push(@subs,$ald);}}
}
}

}
return @subs;
}####################################### end Recurse
sub ReadContent{
my $content = $_[0];
my $qrequire = $_[1];
my @content = ();
if (!$content){return;}
if (-d "$content"){
opendir Tdir, "$content";
my $dir = readdir(Tdir);
while($dir = readdir(Tdir)){chomp $dir;
if ($dir eq ".."){}else{if ($qrequire){if ($dir =~ /$qrequire/i){push (@content,"$dir");}}else{push (@content,"$dir");}}
}close Tdir;
}else{
open (FILE,$content);
#flock(FILE,LOCK_EX);
while (<FILE>){chomp $_;
push (@content,$_);
}
#flock(FILE,LOCK_UN);
close FILE;
}
return @content;
}##################################### end ReadContent
sub ReadContentOLD{
my $content = $_[0];
my @content=();
if (-d "$content"){
opendir Tdir, "$content";
my $dir = readdir(Tdir);
while($dir = readdir(Tdir)){chomp $dir;
if ($dir eq ".."){}else{push (@content,"$dir");}
}close Tdir;
}else{
open (FILE,"$content");
while (<FILE>){chomp $_;
push (@content,"$_");
}close FILE;
}
return @content;
}##################################### end ReadContent
sub readGet{
my %GET = ();
if ($ENV{'QUERY_STRING'} =~ /lastSrc\=(.*)/){$GET{'ZlastSrc'} = $1;
$GET{'ZlastSrc'} =~ tr/+/ /;
$GET{'ZlastSrc'} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}
if ($ENV{'QUERY_STRING'}){
my $qstring= $ENV{'QUERY_STRING'};
my @get = split(/\&/,$qstring);
foreach (@get){
my ($qname,$qvalue)=split(/=/,$_,2);
$qvalue =~ tr/+/ /;
$qvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$GET{$qname} = $qvalue;
}
}
if ($ARGV[0] =~ /^\w\:[\\|\/]/){
#print "YO";
$GET{'drop'} = $ARGV[0];
$ARGV[0] = "";
foreach (@ARGV){
my @line = split(/\=/,$_,2);
if ($line[0]){
$GET{'drop'} .= ",".$line[0];
}
}
@ARGV = ();
}
if (@ARGV){
foreach (@ARGV){
my @line = split(/\=/,$_,2);
if ($line[0]){
$GET{$line[0]} = $line[1];
}
}
}
if ($GET{'ZlastSrc'}){$GET{'lastSrc'} = $GET{'ZlastSrc'};}
return %GET;
}################################
sub initENV{
my %MYENV = ();
my $this_dir = cwd."/".$0;
if ($0 =~ /^[a-zA-Z]\:/){$this_dir = $0;}
$this_dir =~ s/(.*)([\/|\\]+)[^\/|\\]+$/$1$2/;
if ($this_dir eq ""){print "Failed to find a working directory path=$this_dir\n";exit;}
$this_dir =~ s/[\/|\\]+$//;
$this_dir =~ s/\\+/\//g;
$MYENV{'this_dir'} = "$this_dir";
if ($ENV{'SERVER_NAME'}){
$MYENV{'this_cgi'} = "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";
$MYENV{'this_url'} = $MYENV{'this_cgi'};
$MYENV{'this_url'} =~ s/\/[^\/]+$//;
}
return %MYENV;
}######################################## end initENV


Temel Bilgiler ve İstatistikler
Aktiflik: Şu anda DH'de değil
Son Giriş: 4 yıl önce
Son Mesaj Zamanı: 5 yıl
Mesaj Sayısı: 432
Gerçek Toplam Mesaj Sayısı: 649
İkinci El Bölümü Mesajları: 4
Konularının görüntülenme sayısı: 94.131 (Bu ay: 405)
Toplam aldığı artı oy sayısı: 3 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Web Tasarım - Programlama
Mesajları
İkinci El Referansları
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.