Today's Audio News
Directory
Add
URL
Search
New Listings
Most
Popular
Highest
Rated
Categories
Top
Pro
Audio
HiFi
Audio
DVD-Audio
SACD
Car
Audio
Music
Internet
Audio
Personal Pages
Channels
HiFi Audio
Home Theater
Pro Audio
Home Recording
Car Audio
MP3
Net Audio
AudioBiz
MusicBiz
Forums
Talkback
StraightWire
Media
About AudioWorld
Submit
Material
Advertise
Link to Us
Contact Us
Audio Site Links
Audio Site Directory
|
|
AudioWorld News Summary - August 4, 2004 |
[ << PREV ] [ NEXT >> ]
|
#!/usr/bin/perl
# The previous line (first line in file) needs to point to the system path for perl on Unix machines.
# Under NT, this line is usually unnecessary...unless you are running Apache for NT.
####################################################################################
# Copyright (C) 2000 Anaconda Partners LLC
####################################################################################
$ap_setpackage = 1;
package APFX;
$ap_setpackage = 1;
$ExecutiveInit++;
unless($ExecutiveInit)
{
$ap_modules{versions} .= "[ANACONDA! LAUNCH STUB]: [1.2] [6/6/00] ";
}
#
#### EXTRA PARAMETERS ##########################################################
#
# Additional parameters can be set here to pass to the Anaconda Executive. If you want
# to run the Foundation products with several different options, and you don't want to
# always pass the options on the URL, you can create multiple copies of apexec.pl, all
# named differently, and put the specific URL options for each in this setting.
$ap_extraparms = "";
#
#### PATHS #####################################################################
#
# This should be unnecessary, but if the stub cannot find the apexecutive.apl file, you can hardcode
# the system path to the script directory where the apexecutive.apl file is found. Do not include a
# trailing "/".
$ap_scriptpath = ".";
#
# System path to template files.
$ap_parm{templatepath} = "/home/audio/public_html/cgi-bin/anaconda_templates";
#
# Name of template file (or URL)
$ap_parm{template} = "aftemplate.html";
#$ap_parm{templateurl} = "http://www.audioworld.com/mytemplate.html";
#
#### COMMUNICATIONS ############################################################
#
# STD or ALT
# Try setting this to "ALT" if the host communication times out.
$ap_parm{commtype} = "STD";
#
# UNIX or NT
$ap_parm{os} = "UNIX";
#
# Timeout value
$ap_parm{maxtime} = 12;
#
#### SECURITY ##################################################################
#
# For extra security:
# This line lets you define the hosts that are authorized to refer browsers to this
# script. Uncomment the line and edit or add your addresses to utilize this.
#@ap_referers = ('anaconda.net');
#
#### USER DEFINED EXTENSIONS ###################################################
#
# User defined processing file
# File gets "required" in (if it exists) right after settings. Don't do important processing in the
# main file if you plan on using mod_perl, as mod_perl doesn't run this section for successive instances.
# You can read documentation about the user defined processing at:
# http://anaconda.net/support/ap_af_user_defined.shtml
#$ap_userfunc{FILE} = "ap_extra.pl";
#
################################################################################
###### PLEASE CHANGE NOTHING BELOW THIS LINE! ##################################
$| = 1; if(@ap_referers) { fap_stub_DoRefs(); } if($ap_scriptpath and (-e "$ap_scriptpath/apexecutive.apl")) { $I1II1I1II1I1I1II = "$ap_scriptpath/apexecutive.apl";
$ap_parm{scriptpath} = $ap_scriptpath; } else { $ap_parm{scriptpath} = $ENV{'SCRIPT_FILENAME'}; if(!$ap_parm{scriptpath}) { $ap_parm{scriptpath} = $ENV{'PATH_TRANSLATED'};
} $ap_parm{scriptpath} =~ s|[\\/]*[\w\.\d]+$||i; $I1II1I1II1I1I1II = "$ap_parm{scriptpath}/apexecutive.apl"; } if(-e $I1II1I1II1I1I1II) { require "$I1II1I1II1I1I1II";
&fap_exec_go(); } else { print "Content-type: text/html\n\n"; print "Anaconda Error: Cannot find Anaconda Executive (apexecutive.apl), looked in [$ap_scriptpath] and [$ap_parm{scriptpath}] ";
} sub fap_stub_DoRefs { my($I1III11I1111I1II) = 0; if ($ENV{'HTTP_REFERER'}) { foreach $I111IIIIII111I1I (@ap_referers) { if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$I111IIIIII111I1I|i)
{ $I1III11I1111I1II = 1; last; } } } else { $I1III11I1111I1II = 1; } if ($I1III11I1111I1II != 1) { print "Content-type: text/html\n\n"; print "Anaconda Error: Invalid Referer";
exit; } } 1;
|
@ AudioShops.com |
[ Headlines ]
[ The Web ]
|
#!/usr/bin/perl
# The previous line (first line in file) needs to point to the system path for perl on Unix machines.
# Under NT, this line is usually unnecessary...unless you are running Apache for NT.
####################################################################################
# Copyright (C) 2000 Anaconda Partners LLC
####################################################################################
$ap_setpackage = 1;
package APFX;
$ap_setpackage = 1;
$ExecutiveInit++;
unless($ExecutiveInit)
{
$ap_modules{versions} .= "[ANACONDA! LAUNCH STUB]: [1.2] [6/6/00] ";
}
#
#### EXTRA PARAMETERS ##########################################################
#
# Additional parameters can be set here to pass to the Anaconda Executive. If you want
# to run the Foundation products with several different options, and you don't want to
# always pass the options on the URL, you can create multiple copies of apexec.pl, all
# named differently, and put the specific URL options for each in this setting.
$ap_extraparms = "";
#
#### PATHS #####################################################################
#
# This should be unnecessary, but if the stub cannot find the apexecutive.apl file, you can hardcode
# the system path to the script directory where the apexecutive.apl file is found. Do not include a
# trailing "/".
$ap_scriptpath = ".";
#
# System path to template files.
$ap_parm{templatepath} = "/home/audio/public_html/cgi-bin/anaconda_templates";
#
# Name of template file (or URL)
$ap_parm{template} = "aftemplate.html";
#$ap_parm{templateurl} = "http://www.audioworld.com/mytemplate.html";
#
#### COMMUNICATIONS ############################################################
#
# STD or ALT
# Try setting this to "ALT" if the host communication times out.
$ap_parm{commtype} = "STD";
#
# UNIX or NT
$ap_parm{os} = "UNIX";
#
# Timeout value
$ap_parm{maxtime} = 12;
#
#### SECURITY ##################################################################
#
# For extra security:
# This line lets you define the hosts that are authorized to refer browsers to this
# script. Uncomment the line and edit or add your addresses to utilize this.
#@ap_referers = ('anaconda.net');
#
#### USER DEFINED EXTENSIONS ###################################################
#
# User defined processing file
# File gets "required" in (if it exists) right after settings. Don't do important processing in the
# main file if you plan on using mod_perl, as mod_perl doesn't run this section for successive instances.
# You can read documentation about the user defined processing at:
# http://anaconda.net/support/ap_af_user_defined.shtml
#$ap_userfunc{FILE} = "ap_extra.pl";
#
################################################################################
###### PLEASE CHANGE NOTHING BELOW THIS LINE! ##################################
$| = 1; if(@ap_referers) { fap_stub_DoRefs(); } if($ap_scriptpath and (-e "$ap_scriptpath/apexecutive.apl")) { $I1II1I1II1I1I1II = "$ap_scriptpath/apexecutive.apl";
$ap_parm{scriptpath} = $ap_scriptpath; } else { $ap_parm{scriptpath} = $ENV{'SCRIPT_FILENAME'}; if(!$ap_parm{scriptpath}) { $ap_parm{scriptpath} = $ENV{'PATH_TRANSLATED'};
} $ap_parm{scriptpath} =~ s|[\\/]*[\w\.\d]+$||i; $I1II1I1II1I1I1II = "$ap_parm{scriptpath}/apexecutive.apl"; } if(-e $I1II1I1II1I1I1II) { require "$I1II1I1II1I1I1II";
&fap_exec_go(); } else { print "Content-type: text/html\n\n"; print "Anaconda Error: Cannot find Anaconda Executive (apexecutive.apl), looked in [$ap_scriptpath] and [$ap_parm{scriptpath}] ";
} sub fap_stub_DoRefs { my($I1III11I1111I1II) = 0; if ($ENV{'HTTP_REFERER'}) { foreach $I111IIIIII111I1I (@ap_referers) { if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$I111IIIIII111I1I|i)
{ $I1III11I1111I1II = 1; last; } } } else { $I1III11I1111I1II = 1; } if ($I1III11I1111I1II != 1) { print "Content-type: text/html\n\n"; print "Anaconda Error: Invalid Referer";
exit; } } 1;
|
Around the Web - August 4, 2004 |
[ Headlines ]
[ AudioShops ]
|
More than 4,000 audio-specific website links!
Add Your URL
|
#!/usr/bin/perl
# The previous line (first line in file) needs to point to the system path for perl on Unix machines.
# Under NT, this line is usually unnecessary...unless you are running Apache for NT.
####################################################################################
# Copyright (C) 2000 Anaconda Partners LLC
####################################################################################
$ap_setpackage = 1;
package APFX;
$ap_setpackage = 1;
$ExecutiveInit++;
unless($ExecutiveInit)
{
$ap_modules{versions} .= "[ANACONDA! LAUNCH STUB]: [1.2] [6/6/00] ";
}
#
#### EXTRA PARAMETERS ##########################################################
#
# Additional parameters can be set here to pass to the Anaconda Executive. If you want
# to run the Foundation products with several different options, and you don't want to
# always pass the options on the URL, you can create multiple copies of apexec.pl, all
# named differently, and put the specific URL options for each in this setting.
$ap_extraparms = "";
#
#### PATHS #####################################################################
#
# This should be unnecessary, but if the stub cannot find the apexecutive.apl file, you can hardcode
# the system path to the script directory where the apexecutive.apl file is found. Do not include a
# trailing "/".
$ap_scriptpath = ".";
#
# System path to template files.
$ap_parm{templatepath} = "/home/audio/public_html/cgi-bin/anaconda_templates";
#
# Name of template file (or URL)
$ap_parm{template} = "aftemplate.html";
#$ap_parm{templateurl} = "http://www.audioworld.com/mytemplate.html";
#
#### COMMUNICATIONS ############################################################
#
# STD or ALT
# Try setting this to "ALT" if the host communication times out.
$ap_parm{commtype} = "STD";
#
# UNIX or NT
$ap_parm{os} = "UNIX";
#
# Timeout value
$ap_parm{maxtime} = 12;
#
#### SECURITY ##################################################################
#
# For extra security:
# This line lets you define the hosts that are authorized to refer browsers to this
# script. Uncomment the line and edit or add your addresses to utilize this.
#@ap_referers = ('anaconda.net');
#
#### USER DEFINED EXTENSIONS ###################################################
#
# User defined processing file
# File gets "required" in (if it exists) right after settings. Don't do important processing in the
# main file if you plan on using mod_perl, as mod_perl doesn't run this section for successive instances.
# You can read documentation about the user defined processing at:
# http://anaconda.net/support/ap_af_user_defined.shtml
#$ap_userfunc{FILE} = "ap_extra.pl";
#
################################################################################
###### PLEASE CHANGE NOTHING BELOW THIS LINE! ##################################
$| = 1; if(@ap_referers) { fap_stub_DoRefs(); } if($ap_scriptpath and (-e "$ap_scriptpath/apexecutive.apl")) { $I1II1I1II1I1I1II = "$ap_scriptpath/apexecutive.apl";
$ap_parm{scriptpath} = $ap_scriptpath; } else { $ap_parm{scriptpath} = $ENV{'SCRIPT_FILENAME'}; if(!$ap_parm{scriptpath}) { $ap_parm{scriptpath} = $ENV{'PATH_TRANSLATED'};
} $ap_parm{scriptpath} =~ s|[\\/]*[\w\.\d]+$||i; $I1II1I1II1I1I1II = "$ap_parm{scriptpath}/apexecutive.apl"; } if(-e $I1II1I1II1I1I1II) { require "$I1II1I1II1I1I1II";
&fap_exec_go(); } else { print "Content-type: text/html\n\n"; print "Anaconda Error: Cannot find Anaconda Executive (apexecutive.apl), looked in [$ap_scriptpath] and [$ap_parm{scriptpath}] ";
} sub fap_stub_DoRefs { my($I1III11I1111I1II) = 0; if ($ENV{'HTTP_REFERER'}) { foreach $I111IIIIII111I1I (@ap_referers) { if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$I111IIIIII111I1I|i)
{ $I1III11I1111I1II = 1; last; } } } else { $I1III11I1111I1II = 1; } if ($I1III11I1111I1II != 1) { print "Content-type: text/html\n\n"; print "Anaconda Error: Invalid Referer";
exit; } } 1;
|
More Recent Additions |
[ Headlines ]
[ AudioShops
] |
#!/usr/bin/perl
# The previous line (first line in file) needs to point to the system path for perl on Unix machines.
# Under NT, this line is usually unnecessary...unless you are running Apache for NT.
####################################################################################
# Copyright (C) 2000 Anaconda Partners LLC
####################################################################################
$ap_setpackage = 1;
package APFX;
$ap_setpackage = 1;
$ExecutiveInit++;
unless($ExecutiveInit)
{
$ap_modules{versions} .= "[ANACONDA! LAUNCH STUB]: [1.2] [6/6/00] ";
}
#
#### EXTRA PARAMETERS ##########################################################
#
# Additional parameters can be set here to pass to the Anaconda Executive. If you want
# to run the Foundation products with several different options, and you don't want to
# always pass the options on the URL, you can create multiple copies of apexec.pl, all
# named differently, and put the specific URL options for each in this setting.
$ap_extraparms = "";
#
#### PATHS #####################################################################
#
# This should be unnecessary, but if the stub cannot find the apexecutive.apl file, you can hardcode
# the system path to the script directory where the apexecutive.apl file is found. Do not include a
# trailing "/".
$ap_scriptpath = ".";
#
# System path to template files.
$ap_parm{templatepath} = "/home/audio/public_html/cgi-bin/anaconda_templates";
#
# Name of template file (or URL)
$ap_parm{template} = "aftemplate.html";
#$ap_parm{templateurl} = "http://www.audioworld.com/mytemplate.html";
#
#### COMMUNICATIONS ############################################################
#
# STD or ALT
# Try setting this to "ALT" if the host communication times out.
$ap_parm{commtype} = "STD";
#
# UNIX or NT
$ap_parm{os} = "UNIX";
#
# Timeout value
$ap_parm{maxtime} = 12;
#
#### SECURITY ##################################################################
#
# For extra security:
# This line lets you define the hosts that are authorized to refer browsers to this
# script. Uncomment the line and edit or add your addresses to utilize this.
#@ap_referers = ('anaconda.net');
#
#### USER DEFINED EXTENSIONS ###################################################
#
# User defined processing file
# File gets "required" in (if it exists) right after settings. Don't do important processing in the
# main file if you plan on using mod_perl, as mod_perl doesn't run this section for successive instances.
# You can read documentation about the user defined processing at:
# http://anaconda.net/support/ap_af_user_defined.shtml
#$ap_userfunc{FILE} = "ap_extra.pl";
#
################################################################################
###### PLEASE CHANGE NOTHING BELOW THIS LINE! ##################################
$| = 1; if(@ap_referers) { fap_stub_DoRefs(); } if($ap_scriptpath and (-e "$ap_scriptpath/apexecutive.apl")) { $I1II1I1II1I1I1II = "$ap_scriptpath/apexecutive.apl";
$ap_parm{scriptpath} = $ap_scriptpath; } else { $ap_parm{scriptpath} = $ENV{'SCRIPT_FILENAME'}; if(!$ap_parm{scriptpath}) { $ap_parm{scriptpath} = $ENV{'PATH_TRANSLATED'};
} $ap_parm{scriptpath} =~ s|[\\/]*[\w\.\d]+$||i; $I1II1I1II1I1I1II = "$ap_parm{scriptpath}/apexecutive.apl"; } if(-e $I1II1I1II1I1I1II) { require "$I1II1I1II1I1I1II";
&fap_exec_go(); } else { print "Content-type: text/html\n\n"; print "Anaconda Error: Cannot find Anaconda Executive (apexecutive.apl), looked in [$ap_scriptpath] and [$ap_parm{scriptpath}] ";
} sub fap_stub_DoRefs { my($I1III11I1111I1II) = 0; if ($ENV{'HTTP_REFERER'}) { foreach $I111IIIIII111I1I (@ap_referers) { if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$I111IIIIII111I1I|i)
{ $I1III11I1111I1II = 1; last; } } } else { $I1III11I1111I1II = 1; } if ($I1III11I1111I1II != 1) { print "Content-type: text/html\n\n"; print "Anaconda Error: Invalid Referer";
exit; } } 1;
|
|
|
#!/usr/bin/perl
#
# Master Merry-Go-Round
# Version 1.2
# Version 1.0 completed August 14, 2000
# Version 1.2 completed May 28, 2002
#
# Tech Support at http://willmaster.com/master/techsupport/
#
# Before installing and/or using Master Merry-Go-Round,
# you must agree to the complete license agreement
# linked from http://willmaster.com/master
#
# (G) Access your control panel by putting the URL of your script plus
# ?admin=YOURPASSWORD
#
#===============================
#
my $Password = 'abroc39';
my $DataDirectory = 'rotatedata';
use strict;
my %In = ();
my $DBname = 'mmgr';
my $TrackFile = 'mmgTrack';
my $DBextension = '.db';
my @TopLines = qw(abovecontent abovebold aboveitalic aboveunderlined abovelarge abovecenter);
my %TopLines = ();
{ my $i = 0; for(@TopLines) { $TopLines{$_} = $i; $i++; } }
my $ME = $0;
$ME =~ s/.*\///;
sub ForDisplay
{
my $s = shift;
$s =~ s/\\</sg;
$s =~ s/\>/\>/sg;
$s =~ s/\"/\"/sg;
return $s;
} # sub ForDisplay
sub GetBottom
{
return < |