NationStates

Code: Select all

#!/usr/bin/env perl
use strict;
use warnings;
use WWW::Mechanize;

# Enter your MAIN Nation name here:
my $username = "YOURMAINNATIONNAME";

# Enter names and passwords of your nations here:
my @nations = (
  ["nation1", "password1"],
  ["nation2", "password2"],
  ["nation3", "password3"],
);

# ---------------------------------------------------------------------------------------------
# --- Nothing to edit beyond this point ---
my $delayTime = 6; # pause between fetches
my $mech = WWW::Mechanize->new ();
$mech->agent ("Nation:$username ");

foreach my $loginItem (@nations)
{
  my $nation = lc($loginItem->[0]);
  $nation =~ s/ /_/g;
  my $password = $loginItem->[1];
  print "LOGIN: $nation\n";
  my %envelop = ( nation => $nation, password => $password, logging_in => 1);
  while (!defined eval {$mech->post ("http://www.nationstates.net", \%envelop)})
  {
    print "Trying again...\n";
    sleep ($delayTime);
  }
  sleep ($delayTime);
  my $pageContent = $mech->content ();
  utf8::decode ($pageContent);
  if (-1 == rindex ($pageContent, "a href=\"nation=$nation\" class=\"STANDOUT\""))
  {
    print "LOGIN FAILED! Halting run...\n";
    last; # jump out of foreach loop
  }
}

Unibot III wrote:For Ballo's script use no capitals and use underscores for spaces in regards to nation-names.

Unibot III wrote:Also, be warned, if you have handed out a nation to someone that's on that list and the script is run while your friend is borrowing your nation and using it as a WA Nation while you also have a WA Nation.. it appears as multing to the mods. Speaking from experiencing.

Ballotonia wrote:The above script does not have that as a requirement. The name "Unibot III" should work.

Letoilenoir wrote:Would it be feasible to replicate this in PHP?

Scoochi2 wrote:

Letoilenoir wrote:Would it be feasible to replicate this in PHP?

my login script is in pure PHP.
However most servers have a fixed 30 second execution limit.
If you have control, change the value in php.ini to whatever you need (more nations = more time).

If you run PHP locally, you DO have control.

The Blaatschapen wrote:

Scoochi2 wrote:my login script is in pure PHP.
However most servers have a fixed 30 second execution limit.
If you have control, change the value in php.ini to whatever you need (more nations = more time).

If you run PHP locally, you DO have control.

You can also use set_time_limit(). This has the benefit that you don't need to tweak php.ini by which other scripts might also be affected.

Ballotonia wrote:Yes, that is legal.

Here's a legal login script, in Perl:

Code: Select all

#!/usr/bin/env perl
use strict;
use warnings;
use WWW::Mechanize;

# Enter your MAIN Nation name here:
my $username = "YOURMAINNATIONNAME";

# Enter names and passwords of your nations here:
my @nations = (
  ["nation1", "password1"],
  ["nation2", "password2"],
  ["nation3", "password3"],
);

# ---------------------------------------------------------------------------------------------
# --- Nothing to edit beyond this point ---
my $delayTime = 6; # pause between fetches
my $mech = WWW::Mechanize->new ();
$mech->agent ("Nation:$username ");

foreach my $loginItem (@nations)
{
  my $nation = lc($loginItem->[0]);
  $nation =~ s/ /_/g;
  my $password = $loginItem->[1];
  print "LOGIN: $nation\n";
  my %envelop = ( nation => $nation, password => $password, logging_in => 1);
  while (!defined eval {$mech->post ("http://www.nationstates.net", \%envelop)})
  {
    print "Trying again...\n";
    sleep ($delayTime);
  }
  sleep ($delayTime);
  my $pageContent = $mech->content ();
  utf8::decode ($pageContent);
  if (-1 == rindex ($pageContent, "a href=\"nation=$nation\" class=\"STANDOUT\""))
  {
    print "LOGIN FAILED! Halting run...\n";
    last; # jump out of foreach loop
  }
}

Make sure to fill in the stuff at the top: main nation name (needed for the UserAgent, so Admin knows who is running which script.) and of course the names and passwords of your nations.

Note that this script uses a 6 second delay between calls, which is important for it to be legal (don't run more than one script at a time though).

Ballotonia

The Blaatschapen wrote:Sorry for the revival of this thread, but Ballotonia, can I post an edit on this login script that I made, that will notify the user which puppet has a new telegram?

I just tested it with the new TG system

Svobodny wrote:What do you use to execute these scripts? Does it require third party software to be downloaded? If so, from where? I've been looking into doing this for sometime but don't know where to start - never thought to post here!

Ballotonia wrote:

The Blaatschapen wrote:Sorry for the revival of this thread, but Ballotonia, can I post an edit on this login script that I made, that will notify the user which puppet has a new telegram?

I just tested it with the new TG system

It's ok to post any legal script for others to use as well.

Ballotonia

Code: Select all

#!/usr/bin/env perl
use strict;
use warnings;
use WWW::Mechanize;

# Enter your MAIN Nation name here:
my $username = "YOURMAINNATIONNAME";

# Enter names and passwords of your nations here:
my @nations = (
  ["nation1", "password1"],
  ["nation2", "password2"],
  ["nation3", "password3"],
);

# ---------------------------------------------------------------------------------------------
# --- Nothing to edit beyond this point ---
my $delayTime = 6; # pause between fetches
my $mech = WWW::Mechanize->new ();
$mech->agent ("Nation:$username ");

foreach my $loginItem (@nations)
{
  my $nation = lc($loginItem->[0]);
  $nation =~ s/ /_/g;
  my $password = $loginItem->[1];
  print "\nLOGIN: $nation";
  my %envelop = ( nation => $nation, password => $password, logging_in => 1);
  while (!defined eval {$mech->post ("http://century.nationstates.net", \%envelop)})
  {
    print "Trying again...\n";
    sleep ($delayTime);
  }
  sleep ($delayTime);
  my $pageContent = $mech->content ();
  utf8::decode ($pageContent);
  if (-1 == rindex ($pageContent, "a href=\"nation=$nation\" class=\"STANDOUT\""))
  {
    print "LOGIN FAILED! Halting run...\n";
    last; # jump out of foreach loop
  }
if (-1 != rindex ($pageContent, "You have <a href=\"page=telegrams\">"))
  {
    print " has telegrams";
  }
}

QuietDad of TNP wrote:I've been running this script once a month for years without issue. Recently, after running it, I was warned by the admins that it violates the rules by direct HTML calls and not using the API. Looking at it (I'm a programmer for decades),it uses PERL's POST funtion and logs you on thru the web site and not the API. I see that this does violate terms of service,I just have run it monthly for years (scheduled chron job) without an issue supporting my 650+ puppets.
While I fully see the issues and will use one of the other solutions that do a direct API call, I'm just warning everyone while I ran it forever without issue, it doesn't make it right

The JELLEAIN Republic wrote:How would use such a script? Where do you, ... put it ?

QuietDad of TNP wrote:I've been running this script once a month for years without issue. Recently, after running it, I was warned by the admins that it violates the rules by direct HTML calls and not using the API.

Ballotonia wrote:Yes, that is legal.

Here's a legal login script, in Perl:

Code: Select all

#!/usr/bin/env perl
use strict;
use warnings;
use WWW::Mechanize;

# Enter your MAIN Nation name here:
my $username = "YOURMAINNATIONNAME";

# Enter names and passwords of your nations here:
my @nations = (
  ["nation1", "password1"],
  ["nation2", "password2"],
  ["nation3", "password3"],
);

# ---------------------------------------------------------------------------------------------
# --- Nothing to edit beyond this point ---
my $delayTime = 6; # pause between fetches
my $mech = WWW::Mechanize->new ();
$mech->agent ("Nation:$username ");

foreach my $loginItem (@nations)
{
  my $nation = lc($loginItem->[0]);
  $nation =~ s/ /_/g;
  my $password = $loginItem->[1];
  print "LOGIN: $nation\n";
  my %envelop = ( nation => $nation, password => $password, logging_in => 1);
  while (!defined eval {$mech->post ("http://www.nationstates.net", \%envelop)})
  {
    print "Trying again...\n";
    sleep ($delayTime);
  }
  sleep ($delayTime);
  my $pageContent = $mech->content ();
  utf8::decode ($pageContent);
  if (-1 == rindex ($pageContent, "a href=\"nation=$nation\" class=\"STANDOUT\""))
  {
    print "LOGIN FAILED! Halting run...\n";
    last; # jump out of foreach loop
  }
}

Make sure to fill in the stuff at the top: main nation name (needed for the UserAgent, so Admin knows who is running which script.) and of course the names and passwords of your nations.

Note that this script uses a 6 second delay between calls, which is important for it to be legal (don't run more than one script at a time though).

Ballotonia