init III

Perl Browse Links/extract_from_bookmarks.pl

@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+$in=$ARGV[0];
+$out=$ARGV[1];
+
+if ($ARGV[1] eq "") {
+ print "input und output Datei angeben!\n";
+ exit 1; 
+}
+print "in $in\nout $out\n";
+print "Suche nach Beginn\n";
+
+open IN, "$in"; open OUT, ">>$out";
+
+$s=0;
+foreach (<IN>) {
+ chomp;
+ if ($_ =~ /<H3 ADD_DATE="[0-9]*" LAST_MODIFIED="[0-9]*">_____<\/H3>/) {
+  $s = 1; print "Beginn gefunden\n";
+  next;
+ }
+ if ($_ =~ /<H3 ADD_DATE="[0-9]*" LAST_MODIFIED="[0-9]*">.*<\/H3>/ and $s == 1) {
+  $s = 2; print "\nEnde gefunden\n";
+ }
+
+ if ($s == 1) {
+  print ".";
+  ($a) = $_ =~ /href="(.*?)"/i;
+  printf OUT "$a\n";
+ }
+ if ($s == 2) {
+  close IN; close OUT;
+  exit 0;
+ }
+}

Perl Browse Links/get_links.pl

@@ -0,0 +1,84 @@
+#!/usr/bin/perl
+
+use LWP::Simple;
+
+open FILE, "<links_todo";
+@LINKS=<FILE>;
+close FILE;
+
+open DONT, "<links_done";
+@DONE=<DONT>;
+close DONT;
+
+print "\nExtrahiere Links\n\n";
+
+foreach $link (@LINKS) {
+ chomp $link;
+ next if already_done("$link",@DONE);
+ next if ($link eq "");
+ 
+ $html = get ($link);
+ $html =~ m{<TITLE>(.*?)</TITLE>}gism;
+ $title = $1;
+ chomp $title;
+
+ print "Link: $link\nVerzeichnisnamen eingeben [xxx | \"$1\"]: ";
+ $path = <STDIN>;
+ chomp $path;
+
+ $path = $title if ($path eq "");
+ 
+ if ($path ne "xxx") {
+
+  print "Pfad '$path' wird erstellt\n";
+  mkdir ($path);
+
+  open_default_browser("$link");
+
+  open DONE, ">>links_done";
+  printf DONE "$link\n";
+  close DONE;
+  
+  print "\n";
+ }
+ else {
+  print "Abbruch\n";
+  exit 0;
+ }
+}
+
+print "Ende\n\n";
+
+
+
+
+sub already_done {
+ $link = shift;
+ foreach (@DONE) {
+  chomp;
+  if ($_ eq $link) {
+   return 1;
+  }
+ }
+ return 0;
+}
+
+
+
+sub open_default_browser {
+  my $url = shift;
+  my $platform = $^O;
+  my $cmd;
+
+
+  if    ($platform eq 'darwin')  { $cmd = "open \"$url\"";          } # Mac OS X
+  elsif ($platform eq 'linux')   { $cmd = "x-www-browser \"$url\""; } # Linux
+  elsif ($platform eq 'MSWin32') { $cmd = "start $url";             } # Win95..Win7
+  if (defined $cmd) {
+    qx /$cmd 2>&1/;
+  } else {
+    die "Can't locate default browser";
+  }
+}
+
+

Perl Browse Links/links_done

@@ -0,0 +1,4 @@
+http://www.novojoy.com/hot-bethanie-badertscher
+http://www.morazzia.com/a-perfect-match
+http://www.sexykittenporn.com/babes/victoria-sweet
+http://www.morazzia.com/madison-ivy-2

Perl Browse Links/links_todo

@@ -0,0 +1,42 @@
+http://www.morazzia.com/playboy-galleries/18117/kellie-smith
+http://www.nudity911.com/daisa-hubert
+http://www.hottystop.com/jess-davies-peach-lingerie/?
+http://www.chickteases.com/kate-hughes
+http://www.grabpussy.com/meghan-williams-in-thong-panties-outdoor
+http://www.decorativemodels.com/gemma-massey-cow
+http://www.sexykittenporn.com/playboyplus/beautiful-playboy-playmate-kristen-nicole
+http://www.novoporn.com/taylor-vixen-strips-off-her-black-lingerie
+http://www.glam0ur.com/rebecca-lynn
+http://www.novojoy.com/hot-bethanie-badertscher
+http://www.morazzia.com/a-perfect-match
+http://www.sexykittenporn.com/babes/victoria-sweet
+http://www.morazzia.com/madison-ivy-2
+http://www.babesandgirls.com/sexy-blonde-danica
+http://www.morazzia.com/kendall-rayanne-2
+http://www.exgirlfriendmarket.com/galleries/busty-brits/nuts-magazine/holly-peers/sexy-outtakes
+http://www.babesanatomy.com/strip-leah-francis
+http://galleries.pmates.com/gals/photodromm/2013/01/talia_in_pink_sunset/index.php?
+http://www.girlsofdesire.org/galleries/sexy-goddes-theresa-correa/?
+http://www.exgirlfriendmarket.com/galleries/glamour/playboy/aleksa-slusarchi
+http://www.babesbang.com/aimee-ryan-&-anjelica-sharing-my-boy
+http://www.babesandbitches.net/beauty-naked-teen-clover-spreads-her-pink-pussy
+http://www.morazzia.com/jaslyn-ome
+http://www.babesandgirls.com/kiera-winters-2
+http://www.novoporn.com/summer-brielle-liberates-her-big-boobs
+http://www.babesaround.com/hoyden-nelly-shaped-body
+http://www.babesbang.com/lilly-roma---lost-in-the-woods
+http://www.100bucksbabes.com/tessa-stripping-on-bed
+http://www.decorativemodels.com/candice-swanepoel-wet
+http://www.morazzia.com/playboy-galleries/18117/kellie-smith
+http://www.nudity911.com/daisa-hubert
+http://www.hottystop.com/jess-davies-peach-lingerie/?
+http://www.chickteases.com/kate-hughes
+http://www.grabpussy.com/meghan-williams-in-thong-panties-outdoor
+http://www.decorativemodels.com/gemma-massey-cow
+http://www.sexykittenporn.com/playboyplus/beautiful-playboy-playmate-kristen-nicole
+http://www.novoporn.com/taylor-vixen-strips-off-her-black-lingerie
+http://www.glam0ur.com/rebecca-lynn
+http://www.novojoy.com/hot-bethanie-badertscher
+http://www.morazzia.com/a-perfect-match
+http://www.sexykittenporn.com/babes/victoria-sweet
+http://www.morazzia.com/madison-ivy-2