#!/usr/bin/perl  
# :::r00tabega security labs:::
# :::  www.r00tabega.com    :::
# coded by bansh33 [bansh33@r00tabega.com]
# Gets the latest $number defacements from attrition.org
# and saves them to $filepath which you can then
# include on your website by using SSI. 
# Nothing much, but there haven't been any scripts to do this before
# and it's useful for webmasters, etc. 
# Make sure $filepath is the full path to the file (which you must chmod 777)
# Set $number to the number of latest defacements you want to get.
# Add this script to your crontab to have it auto update.
# Depends on lynx.
# ----begin c0de----
$filepath = "/home/rishi/attrition.txt";
$number = 10;
@attrition = `lynx -source http://www.attrition.org/mirror/attrition/index.html`;
open(OUTF, ">>$filepath");
print OUTF "Latest Defacements from <a href\=\"http\://attrition.org\">attrition</a><BR>\n";
$i = 0;
for ($i  = 26; $i < $number + 26; $i++) {
	print OUTF "$attrition[$i]<BR>\n";
 }
close(OUTF);