- Joined
- Mar 24, 2005
- Location
- Wheeling, WV
i just installed using uberbuzzards one click so maybe this one will work better for me.....
Welcome to Overclockers Forums! Join us to reply in threads, receive reduced ads, and to customize your site experience!
BlckToyBx said:Wow I'm really new to all this and my head hurts just reading all this stuff. I so far got to the point of getting the script right but when I double click on the lizard the DOS window opens and then its gone so I can't answer the questions as the directions state. Sorry for being such a newbie... wish I could go back to the days as a kid at the Boys Club where i learned to program in Basic lol. Man a lot of stuff has changed and I sure didn't keep up on it.
cd c:\mksig
perl mksig.pl
Forbidden
You don't have permission to access /~cotto1/ochosting/mksig.txt on this server.
Apache/2.0.54 (Unix) Server at gladstone.uoregon.edu Port 80
BenF said:the link on the first page doesn't work. The mksig link says that I don't have access
Does anyone else have a link to it?
#!/usr/bin/perl
use LWP::UserAgent;
#------------------------
# get stats from Free-DC
#------------------------
@time = localtime;
$time[5] += 1900;
$time[4]++;
$dimes_cache = "dimes.html";
#only download stanford's page every 3 hours ( = 60*60*3 seconds)
#(stat($file))[9] is the time since file was last modified, in seconds
if ( (! -e $dimes_cache) || (time - (stat($dimes_cache))[9] > (60*60*3)) ) {
$ua = LWP::UserAgent->new();
$dimes_page = $ua->get(
"http://stats.free-dc.org/new/userstats.php?proj=dimes&name=jiggamanjb");
if (! $dimes_page->is_success) {
die "Couldn't download Stanford's page.";
}
open dimes_CACHE, ">$dimes_cache";
print dimes_CACHE $dimes_page->content;
close dimes_CACHE;
$s_content = $dimes_page->content;
} else {
open dimes_CACHE, "$dimes_cache";
while(<dimes_CACHE>) {
$s_content .= $_;
}
close dimes_CACHE;
}
#------------------------
# get stats from DIMES
#------------------------
@time = localtime;
$time[5] += 1900;
$time[4]++;
$dimes1_cache = "dimes1.html";
#only download stanford's page every 3 hours ( = 60*60*3 seconds)
#(stat($file))[9] is the time since file was last modified, in seconds
if ( (! -e $dimes1_cache) || (time - (stat($dimes1_cache))[9] > (60*60*3)) ) {
$ua = LWP::UserAgent->new();
$dimes1_page = $ua->get(
"http://www.netdimes.org/data.php?team=802");
if (! $dimes1_page->is_success) {
die "Couldn't download Stanford's page.";
}
open dimes1_CACHE, ">$dimes1_cache";
print dimes1_CACHE $dimes1_page->content;
close dimes1_CACHE;
$s_content = $dimes1_page->content;
} else {
open dimes1_CACHE, "$dimes1_cache";
while(<dimes1_CACHE>) {
$s_content .= $_;
}
close dimes1_CACHE;
}
#------------------------
# get stats from DIMES
#------------------------
@time = localtime;
$time[5] += 1900;
$time[4]++;
$dimes2_cache = "dimes2.html";
#only download stanford's page every 3 hours ( = 60*60*3 seconds)
#(stat($file))[9] is the time since file was last modified, in seconds
if ( (! -e $dimes2_cache) || (time - (stat($dimes2_cache))[9] > (60*60*3)) ) {
$ua = LWP::UserAgent->new();
$dimes2_page = $ua->get(
"http://stats.free-dc.org/new/teamstats.php?proj=dimes&team=www.OCForums.com");
if (! $dimes2_page->is_success) {
die "Couldn't download Stanford's page.";
}
open dimes2_CACHE, ">$dimes2_cache";
print dimes2_CACHE $dimes2_page->content;
close dimes2_CACHE;
$s_content = $dimes2_page->content;
} else {
open dimes2_CACHE, "$dimes2_cache";
while(<dimes2_CACHE>) {
$s_content .= $_;
}
close dimes2_CACHE;
}
$test = $s_content;
for ($c07) {
s/[\n\r]//g; #chop new lines and return chars
s/\#.{6}//g; #chop all colors like #000fff (kills digits)
s/=(\d*)//g; #chop all numbers like size=3
s/.*jiggamanjb//; #chop before & including "7 days"
s/\D*//; #chop all non-digits
s/(\d*).*/$1/; #store stat in variable, kill rest
}
print $test