Rephraser blog sparked a thought.
This blog post here made me think.
Rephraser » Blog Archive » SEO Army
He says to build a network of blog links, no two link directly to each other. I'm not so good at going to each of 50 blogs and updating the links manually so here's a little something for you.. Yeah I wrote this and yeah you can do whatever with it. I'll be mentioning it out there in the wild shortly.
In a directory, create a group of files, one for each of your hosts.
wordpress.list, squidoo.list, et cetera.
Inside each file should be a list of domains, one per line.
Run this script, and you should wind up with a group of opml files that you can import into your link manager ( for instance, in wordpress, go to links, import links ).
This isn't the final version of this script, but gives you something to start with if the thought of figuring that out on your own gives you the shivers.
russ@badger:~/work/build_network$ cat wordpress.list
wordpress1
wordpress2
wordpress3
wordpress4
wordpress5
wordpress6
wordpress7
wordpress8
They should be unique.
modify the first line of this script with your "real" path to perl.
modify the third line of this script with your list of lists
#!/usr/bin/perl
@networks = qw( wordpress blogger livejournal squidoo);
foreach $foo ( @networks ) {
@{$foo}=();
open( $handle, '<'.$foo.'.list' );
while( <$handle>) {
chomp;
$value = $_.'.'.$foo.'.com';
push ( @{$foo}, $value );
}
close( $handle );
}
# read the files need to output the files
$modulo = scalar( @networks );
foreach $foo ( @networks ) {
# clean out the old stuff.
for ( $x = 1; $x <= $modulo; $x++ ) {
open( $handle, "> $foo".$x.'.opml' );
print $handle "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>
<opml version=\"1.1\">
<head>
<title>ourFavoriteFeedsData.top100</title>
<dateCreated>Fri, 02 Jan 2004 12:59:58 GMT</dateCreated>
<dateModified>Fri, 23 Jul 2004 23:41:32 GMT</dateModified>
<ownerName>Random User</ownerName>
<ownerEmail>randomEmailWithAtSignEscaped</ownerEmail>
<expansionState></expansionState>
<vertScrollState>1</vertScrollState>
<windowTop>20</windowTop>
<windowLeft>0</windowLeft>
<windowBottom>120</windowBottom>
<windowRight>147</windowRight>
</head>
<body>\n";
close( $handle );
}
foreach $bar( @networks ) {
if ( $bar ne $foo ) {
$i=0;
foreach $baz( @{$bar} ) {
$j = $i++ % $modulo;
if ( $j > 0 ) {
open( $handle, " >> $foo".$j.'.opml' );
$opml_line="<outline text=\"something or other \" description=\"something else\" url=\"http://".$b
az."\" />\n";
print $handle $opml_line;
close( $handle );
}
}
}
}
close( $handle );
}
# close up shop
#
foreach $foo ( @networks ) {
for( $x = 1; $x <= $modulo; $x++ ) {
open( $handle, ">> $foo".$x.'.opml' );
print $handle "</body>\n</opml>\n";
}
}