iMacro script to swap between Flickr albums

The following handy iMacro script logs you from one Flickr account to another. I currently have six of these, one for each separate free Flickr album/account I have on the go (there's a maximum of 200 photos you can share for free in each account). All you have to do is install the iMacro plugin into your browser and save the following script not forgetting to add your login and password in the "User set variables" section.

Obviously if Flickr change their main site layout then this may break the script and it would have to be tweaked.

Script Starts

---

' Last Edit: 13 Nov 2008

' User set variables
' !VAR1 = your login ID, !VAR2 = your password
SET !VAR1 yourlogin@yahoo.com
SET !VAR2 password

' This script is intended to toggle you out of your
' current Flickr account and into one set by the
' variables above so you can easily swap between
' several albums

' Assumptions
' - A Sign Out link is on every Flickr page
' - You are currently logged into Flickr

' Main script
TAB T=1
FILTER TYPE=IMAGES STATUS=ON
SET !ERRORIGNORE YES
TAG POS=1 TYPE=A ATTR=TXT:Sign<SP>Out
TAG POS=1 TYPE=A ATTR=TXT:Sign<SP>in*
WAIT SECONDS=2
TAG POS=1 TYPE=A ATTR=TXT:Sign<SP>in<SP>as<SP>a*
SET !ERRORIGNORE NO
WAIT SECONDS=2
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:login_form ATTR=NAME:login CONTENT={{!VAR1}}
SET !ENCRYPTION NO
TAG POS=1 TYPE=INPUT:PASSWORD ATTR=ID:passwd CONTENT={{!VAR2}}
TAG POS=1 TYPE=INPUT:SUBMIT ATTR=VALUE:Sign<SP>In
FILTER TYPE=IMAGES STATUS=OFF
URL GOTO=http://www.flickr.com/activity
TAG POS=1 TYPE=SELECT FORM=* ATTR=ID:act-since CONTENT=%lastlogin

---

Script Ends

Latest changes:

1. I added the 2 second wait times as Sxipper (a password plugin) seemed to be causing 'focus' problems.
2. ErrorIgnore is used so that the script still works (though slower) if you have logged off but are still on the Flickr site.

Track Flickr group membership history using iMacro

User Guide	This script keeps a running log (every time you execute it), by updating a discussion message and/or saving a snapshot of group memberships. For the running log you have to create a message in each Flickr group you are an administrator for (or specifically declare), called "Member count". This log keeps a historical record of "date, membership total, total number of items". Before adding a new log entry it checks if the last entry (and the one before that) was less than a fortnight ago and updates it semi-intelligently.
Why?	I created this script as there is no easy alternative for keeping a history of membership for restricted groups in Flickr.
Notes	I'm an administrator for 9 Flickr groups and maintain membership logs in 4 other groups. Watching the macro chug along updating the logs is quite satisfying. It takes 10 seconds per group (loading 3 to 4 web pages each time and added waiting time, to avoid possible page freezes, composes most of that time) but this can increase up to three-fold depending on Flickr traffic. For a macro that I only need to run once every one or two weeks that doesn't seem too shabby.

[Source code now maintained at Sourceforge.net]

iMacro setup

iMacro installs itself with some example JavaScript files (.js) which are visible in the folders that iMacro shows you in Firefox. If you find the location of these folders on your hard disk (on the Mac these are under /<your_username>/iMacros/Macros/) and then save the script in this location with a ".js" extension you should be able to see the file when you refresh the iMacro folder list in Firefox. You should then be able to play the script from within iMacro (you have to already be logged in to your Flickr account and have created "Member count" discussion topics for groups you want to log). In the first instance I suggest you try the test test version which will run fully and show you the intended changes in the detailed change log but will not actually commit them. See wiki.imacros.net for further help.

Flickr iMacro script to invite all your Flickr friends to a group

There was no automatic way to invite all your friends to join a group so I knocked up this quick script to take you from any group main page to the invite page, extract your list of friends (and no other contacts) and then send off the invite. The invite only goes to friends not yet in the group and not previously invited so you will not be bugging them with unwanted spam.

Note that more than 500 friends may result in time-out errors waiting for Flickr to respond. In this situation you may be better off inviting a few hundred at a time by recording an iMacro selecting the first checkbox on the invite page, then generalize it by removing the ATTR=NAME: and copy that line 200 times but change POS=1 to POS=R1 so that the next checkbox relative to the cursor position is ticked each time. When you've trimmed to a more manageable number then this script can apply again.

[JavaScript source code START]

/*
Description:
JavaScript for iMacro to create a block invite for all your 
friends (but not family or other contacts) to join a Flickr group.
For more information see http://useroffline.blogspot.com

Assumptions:
- You have iMacro installed.
- You have your group's main page currently displayed.

Why:
There is no block invite facility built into Flickr.
*/

// Get friends list
var friendArr=new Array();
iimPlay("CODE:\
TAG POS=1 TYPE=A ATTR=TXT:Invite\n\
TAG POS=1 TYPE=A ATTR=TXT:Choose<SP>from<SP>your<SP>contacts?\n\
TAG POS=5 TYPE=TR EXTRACT=HTM\
");
// Tidy up extracted data
friendArr=iimGetLastExtract(1).split("name=\"");
friendArr.splice(0,1);
for(i in friendArr){
friendArr[i]=friendArr[i].split("\"")[0];
friendArr[i]="TAG POS=1 TYPE=INPUT:CHECKBOX ATTR=NAME:"+friendArr[i]+" CONTENT=YES";
}
iimPlay("CODE:"+
"' Total no. of friends = "+friendArr.length+"\n"+
friendArr.join("\n"));
// Send the message
iimPlay("CODE:\
TAG POS=1 TYPE=INPUT:SUBMIT ATTR=NAME:Submit&&VALUE:PREVIEW*\n\
TAG POS=1 TYPE=INPUT:SUBMIT ATTR=NAME:done_send&&VALUE:SEND*\
");

[JavaScript source code END]

Re-list books on Amazon using iMacro

User Guide	This script imports my Google spreadsheet of books and then pastes them to sell on Amazon books. It takes about 20 seconds to list each book but you only process those in your spreadsheet marked to be re-listed. Example Google Spreadsheet.
Why?	Unless you pay £28.75 per month to Amazon Books to become a professional seller, you don't get the facility to import from a spreadsheet. This iMacro code does exactly that, for free, though it is of course intended for smallish quantities (in practice I'm normally adding less than 6 books at a time and have less than 20 books up for sale). Having recently realized that the handful of books I was trying to sell had not only all expired but had also permanently gone from my closed listings so I had to put them in from scratch, I had the incentive to spend a few hours playing with JavaScript and iMacro to find a decent work around.
Known Bugs	When I have more than 20 books the last ones on the list are ignored as already listed, probably due to export limitations with iMacro. My work around is to list new books at the top of the spreadsheet and it will work fine. You could also cut and paste previously listed books into a second page of the spreadsheet and keep the front page for new books to be listed.

/*****************************************************************************
Title: AMAZON BOOK LIST IMPORT FROM GOOGLE SPREADSHEET

Created: 15 May 2008
Last Edit: 17 May 2008
Author:  UserOffline.blogspot.com
If you find this script useful, blog me back.

Description:
This iMacro script reads data from a Google spreadsheet of books and then
writes all those (marked as unlisted) to Amazon. Progress is highlighted
in a pop-up window.
The google spreadsheet has data for:
[0] ISBN,
[1] Title (for convenience only, not used),
[2] Condition,
[3] Comments,
[4] Price,
[5] Listed (Yes/No).
This script is particularly handy for managing books taking longer than
Amazon's 60 day listing expiry to sell.

Assumptions:
1. Google spreadsheet published and the URL GOTO command below points to it.
Note by publishing your spreadsheet, in theory anyone could read it; if
they can find it. As there is no personal data apart from the price you
set for the books (which is published on your Amazon listing) this creates
no privacy risk that I can think of apart from someone associating your
Amazon trading name with your Google account name. If you consider this a
risk I suggest you create a new (free) Google account for this purpose.
2. You are logged in to your Amazon account.
3. You don't use Firefox while it is running.
Note run time is about 25s/book but this includes pauses so you can see
what is going on, remove these to save another 5 to 10 seconds.
4. You have iMacro (it's free) installed with Firefox.
5. This script does not remove listings from Amazon, so if you want to change
a listing do it by hand or delete the old one and use this script to create
it again.

Version History:
17 May Changed ISBN recognition to recognize ASINs as well.
******************************************************************************/

//Define functions

function writeResults(s){top.results.document.write(s)}
function showTime(d){
var myS=parseInt((d.valueOf()-startDate.valueOf())/1000);
return parseInt(myS/60)+" minutes "+(myS % 60)+" seconds";
}
/* Pad number with zeros */
function pad(number, length){
var str=""+number;
while(str.length<length){str = "0"+str}
return str;
}
/* Make a string iMacro command compliant */
function safe(str){
return str.replace(/\s/g,"<SP>").replace(/\n/g,"<BR>");
}

//Open progress window

top.results=window.open( "", "myWindow", "menubar=1,resizable=1,status=1,\
width=300,height=450,scrollbars=1,left=10,top=500");
writeResults("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \
\"http://www.w3.org/TR/html4/strict.dtd\">\
<html><head><title>Amazon book lister</title></head>\n\
<body bgcolor=lightyellow>\n\
<font face='Tahoma, Arial' size=1>\n\n");

//Variables

var cr="\n", i, j, startDate=new Date();
var books=new Array();  // 2 dim array for book data
var booksHTML=new Array(); // HTML rows from spreadsheet

//Get table of books and extract to booksHTML array

iimPlay("CODE:\
URL GOTO=http://spreadsheets.google.com/pub?\
*Your Google URL to a published spreadsheet goes here*\n\
TAG POS=3 TYPE=TABLE EXTRACT=HTML");
booksHTML=iimGetLastExtract(1).split("<tr");
j=0;
for(i in booksHTML){
/* check for ASIN/ISBN of 10+ digits or uppercase letters */
if(booksHTML[i].search(/[\dA-Z]{10}/)>-1){
books[j]=booksHTML[i].split("<td");
j++;
}
}
/* Note - I started off using </td to split the rows, which worked initially
but Google appears inconsistent in use of </td> as the next time I used it,
the </td> tags were sloppily not included in the web page source. */

//Tidy books array

for(i in books){
/* remove first chopped HTML tag (using "||" as a covenient marker) */
books[i]=books[i].join("||").replace(/\|[^\|<>]*>/g,"|").split("||");
/* drop first two elements as google spreadsheet chaff */
books[i].splice(0,2);
/* remove any leftover full HTML tag */
books[i]=books[i].join("||").replace(/<[^><\|]*>/g,"").split("||");
}

//Display and put details on Amazon

for(i in books){
if(books[i][5].search(/No/ig)>-1){
writeResults("<br>");
for(j in Array(0,1,2,3,4)){
writeResults(books[i][j]+"<br>\n");
}
iimPlay("CODE:\
URL GOTO=http://www.amazon.co.uk/gp/seller-account/management/your-account.html\n\
TAG POS=1 TYPE=A ATTR=ID:ListSingleItemsLink&&TXT:List<SP>single<SP>items\n\
'** ISBN **\n\
TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:*asin CONTENT="+
books[i][0]+"\n\
WAIT SECONDS=1\n\
TAG POS=1 TYPE=INPUT:IMAGE ATTR=ID:*asin.submit\n\
'** Condition and comments **\n\
TAG POS=1 TYPE=SELECT ATTR=NAME:*condition-type CONTENT=$"+
safe(books[i][2])+"\n\
TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:*condition-comments CONTENT="+
safe(books[i][3])+"\n\
WAIT SECONDS=1\n\
TAG POS=1 TYPE=INPUT:IMAGE\n\
'** Price **\n\
TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:selling-asking-price CONTENT="+
books[i][4].replace(/[^\d\.]/g,"")+"\n\
TAG POS=1 TYPE=INPUT:RADIO ATTR=VALUE:will-ship-to-united-states\n\
WAIT SECONDS=1\n\
TAG POS=1 TYPE=INPUT:IMAGE FORM=ACTION:/exec/varzea/sdp/sai-confirm*\n\
'** Final visual check **\n\
WAIT SECONDS=6\n\
TAG POS=2 TYPE=INPUT:IMAGE FORM=ACTION:/exec/varzea/sdp/sai-thank-you*\n\
");
writeResults("<span style='color:red;font-weight:bold'>[Book "+i+
" now listed on Amazon]</span><br>\n")
}else{
writeResults("<span style='color:green'>"+("[Book "+i+
" is already listed]</span>").replace(/\s/g,"&nbsp;")+" \n")
}
}

//Close down

var endDate=new Date();
writeResults('\n<p>Run time '+showTime(endDate)+"."+cr+
"<br>For more information see <a href='http://useroffline.blogspot.com'>\
UserOffline</a> blog.\n</font>\n</body>\n</html>");
top.results.document.close();
/* Could close when finished with top.results.window.close(); */

// END

How to add a book title from an ISBN or ASIN in a Google spreadsheet

Having recently created an iMacro to import books from Google spreadsheet to Amazon, I realized that the formula I was re-using to automatically put in the book title was quite a neat feature of Google docs that most people are probably unaware of.

I use the importXML function. This finds data based on an HTML tag in any webpage and you can create that source webpage name as a formula. This gives a really neat way of cribbing data about a book straight from it's Amazon webpage to be used on your own spreadsheet (also known as website scraping).

Here's my example formula (assuming the ISBN or ASIN is at cell A1), read this as one line:

=importXML( concatenate( "http://www.amazon.co.uk/exec/obidos/ASIN/", A1), "//span[@id='btAsinTitle']")

By looking at the webpage source code for any Amazon book you can find HTML tags around all of the product data. In this case the HTML tag <span> with the ID attribute set to "btAsinTitle" surrounds the book title. If you wanted to grab data on the number of pages, publisher or even lowest second hand price, this is all possible in a similar manner.

I have also created neat formulas to grab best match full film title and release date from IMDB.com as a search sheet to support my DVD index so I can quickly cut & paste details based on typing in key words from the film title.

The only limitation is there is a maximum of 50 such formulas in any spreadsheet. However if you are building a catalogue or sales list, it is a fairly simple matter to cut & paste the values over the formulas for books or DVDs already indexed so only new entries use the formula.

How to find the cheapest train tickets by website scraping

One of my niggles with train timetable websites is that it can be very tricky to find the cheapest train ticket if you want to ask questions like "What is the cheapest ticket if I could travel on Sunday, Monday or Tuesday next month?" or even worse "What would be the cheapest 1st class ticket if can travel any weekend in June?". If you phone up a train hotline they would probably give up (and you are normally paying 10p/min while they try) or they would guess and might miss the best deal.

My solution was to use iMacro. This is a macro recording plugin for Firefox that can automate interactions with a website. I can now set up an initial script and set the browser to look for the cheapest possible ticket.

For example, below are the results for London to Nottingham travelling in the mornings (9am to 1pm) from 3rd to 5th May searching for the cheapest direct train ticket in any 2 hour slot. It took 20 seconds to configure the script (after taking a day to develop it) and my computer took 5 minutes to run the search as it has to enter data on the timetable website 12 times (3 days x 2 time slots x two classes of travel) and wait each time for the website to refresh with new data. I chose the Virgin Trains website as it seemed to have quite a nice interface which made it easy to pick the first radio button to find the cheapest ticket and seemed to return the most comprehensive results (I kept finding discrepancies on other sites, which surprised me as I assumed they shared the same underlying data).

Results for London to Nottingham 
[click to show longer example]
Searched on Sun, 27 Apr 2008 12:44:50 GMT

Saturday  3 May 2008
Slot  | Time  |   Std   | Time  |   1st
09:00 | 08:55 | £ 15.00 | 08:55 | £ 18.00
11:00 | 12:55 | £ 15.00 | 11:55 | £ 18.00

Sunday  4 May 2008
Slot  | Time  |   Std   | Time  |   1st
09:00 | 09:00 | £ 15.00 | 09:00 | £ 18.00
11:00 | 11:00 | £ 15.00 | 11:00 | £ 18.00

Monday  5 May 2008
Slot  | Time  |   Std   | Time  |   1st
09:00 | 08:55 | £ 11.00 | 08:55 | £ 18.00
11:00 | 10:55 | £ 11.00 | 10:55 | £ 18.00

London to Nottingham 
[click to show shorter example]
London to Nottingham
Virgin Trains Wed, 30 Apr 2008 23:26:26 GMT
Thursday 1 May 2008
Slot
Time
Std
Time
1st
08
09:55
£ 30.00
09:55
£ 30.00
10
09:55
£ 30.00
09:55
£ 30.00
12
11:55
£ 49.00
11:55
£ 86.00
14
13:55
£ 49.00
13:55
£ 86.00
16
15:55
£ 49.00
15:55
£ 86.00
18
19:30
£ 49.00
17:55
£ 86.00
Friday 2 May 2008
Slot
Time
Std
Time
1st
08
09:55
£ 22.00
09:55
£ 29.00
10
10:55
£ 18.00
10:55
£ 18.00
12
11:55
£ 18.00
11:55
£ 22.00
14
13:55
£ 22.00
13:55
£ 22.00
16
17:00
£ 45.00
17:00
£ 45.00
18
17:55
£ 45.00
17:55
£ 45.00
Saturday 3 May 2008
Slot
Time
Std
Time
1st
08
07:55
£ 18.00
07:55
£ 18.00
10
09:55
£ 22.00
09:55
£ 22.00
12
12:55
£ 15.00
12:55
£ 18.00
14
14:55
£ 15.00
13:55
£ 18.00
16
15:55
£ 15.00
15:55
£ 18.00
18
17:55
£ 18.00
17:55
£ 22.00
Sunday 4 May 2008
Slot
Time
Std
Time
1st
08
09:00
£ 18.00
09:00
£ 18.00
10
10:00
£ 18.00
10:00
£ 18.00
12
12:00
£ 18.00
12:00
£ 22.00
14
14:00
£ 22.00
14:00
£ 22.00
16
16:00
£ 22.00
16:00
£ 22.00
18
21:00
£ 18.00
20:00
£ 22.00
Monday 5 May 2008
Slot
Time
Std
Time
1st
08
07:55
£ 11.00
07:55
£ 18.00
10
09:55
£ 15.00
09:55
£ 22.00
12
12:55
£ 18.00
12:55
£ 22.00
14
13:55
£ 22.00
13:55
£ 29.00
16
15:55
£ 22.00
17:45
£ 22.00
18
17:55
£ 22.00
19:30
£ 22.00
Tuesday 6 May 2008
Slot
Time
Std
Time
1st
08
09:55
£ 15.00
09:55
£ 22.00
10
09:55
£ 15.00
09:55
£ 22.00
12
11:55
£ 15.00
11:55
£ 22.00
14
13:55
£ 18.00
£    
16
15:55
£ 49.00
15:55
£ 86.00
18
19:55
£ 22.00
19:55
£ 29.00
Wednesday 7 May 2008
Slot
Time
Std
Time
1st
08
09:55
£ 15.00
09:55
£ 22.00
10
09:55
£ 15.00
09:55
£ 22.00
12
11:55
£ 15.00
11:55
£ 22.00
14
13:55
£ 18.00
13:55
£ 29.00
16
15:55
£ 49.00
15:55
£ 86.00
18
19:55
£ 18.00
19:55
£ 29.00
Thursday 8 May 2008
Slot
Time
Std
Time
1st
08
09:55
£ 15.00
09:55
£ 22.00
10
09:55
£ 15.00
09:55
£ 22.00
12
11:55
£ 15.00
11:55
£ 22.00
14
13:55
£ 18.00
13:55
£ 29.00
16
15:55
£ 49.00
15:55
£ 86.00
18
19:55
£ 22.00
19:55
£ 29.00
Friday 9 May 2008
Slot
Time
Std
Time
1st
08
09:55
£ 18.00
09:55
£ 22.00
10
11:55
£ 11.00
11:55
£ 18.00
12
11:55
£ 11.00
11:55
£ 18.00
14
13:55
£ 18.00
13:55
£ 22.00
16
17:00
£ 45.00
17:00
£ 45.00
18
19:55
£ 40.00
17:55
£ 45.00
Saturday 10 May 2008
Slot
Time
Std
Time
1st
08
07:55
£  9.00
07:55
£ 14.00
10
11:55
£ 14.00
11:55
£ 14.00
12
12:55
£ 11.00
11:55
£ 14.00
14
13:55
£ 11.00
13:55
£ 14.00
16
15:55
£ 15.00
15:55
£ 18.00
18
17:55
£ 18.00
17:55
£ 18.00
Sunday 11 May 2008
Slot
Time
Std
Time
1st
08
09:00
£ 11.00
09:00
£ 14.00
10
10:00
£ 11.00
10:00
£ 14.00
12
12:00
£ 18.00
12:00
£ 22.00
14
14:00
£ 18.00
14:00
£ 22.00
16
16:00
£ 22.00
16:00
£ 22.00
18
21:00
£ 15.00
21:00
£ 18.00
Monday 12 May 2008
Slot
Time
Std
Time
1st
08
09:55
£  9.00
09:55
£ 18.00
10
09:55
£  9.00
09:55
£ 18.00
12
11:55
£ 49.00
11:55
£ 18.00
14
13:55
£ 15.00
13:55
£ 22.00
16
15:55
£ 40.00
15:55
£ 64.00
18
19:55
£ 18.00
19:55
£ 29.00
Tuesday 13 May 2008
Slot
Time
Std
Time
1st
08
09:55
£  9.00
09:55
£ 18.00
10
09:55
£  9.00
09:55
£ 18.00
12
11:55
£  9.00
11:55
£ 18.00
14
13:55
£ 15.00
13:55
£ 22.00
16
15:55
£ 40.00
15:55
£ 64.00
18
19:55
£ 18.00
19:55
£ 29.00
Wednesday 14 May 2008
Slot
Time
Std
Time
1st
08
09:55
£  9.00
09:55
£ 18.00
10
09:55
£  9.00
09:55
£ 18.00
12
11:55
£  9.00
11:55
£ 18.00
14
13:55
£ 15.00
13:55
£ 22.00
16
15:55
£ 40.00
15:55
£ 64.00
18
19:55
£ 18.00
19:55
£ 22.00
Search time 142 minutes 27 seconds

I have tested with very long queries taking more than an hour to run and the only problem may be time-outs from the website. In these cases iMacro appears to lock but by pressing the Pause/Resume button will continue without losing data. Note it is best not to use the browser when running an iMacro script but I have successfully used a different browser (Safari) at the same time without any problems.

The macro is run from a javascript file in iMacro which calls iMacro commands (previously I passed variables to an iim file but it seems easier to put it all in one file) and I tweak the "Set up query" section of the javascript to query a particular train route, this could easily be set from user prompts. For the time being it is always cheapest to get two singles rather than a return so I've only bothered writing the macro for a single. Note that the slot hours (set in array myhour) are based on the maximum number of hours that Virgin trains will display in the particular train route. For London/Nottingham this is 2 hours and for London/Redruth this is 3 hours. Nice bonus functionality I've included are returning the date in long text form from the Virgin site and keeping the iMacro code display updated telling you the estimated time left.

The latest version opens a results window to show the data in an html table. You can use iimDisplay() but it is limited to a tiny window and was (at the time of writing) not resizeable by scripting.

Here's the source code. Note that the source code is not word wrapped and long lines may appear truncated, but if you cut & paste to your editor you should see all the text.

JavaScript source code Virgin-Trains.js (click to show)Virgin-Trains.js (click to hide)

// Set up query

var myfirstday=10;
var mynodays=3;
var mymonth="05";
var myleaving="London";
var mygoing="Nottingham";
var myhour = new Array("09","11");
  /* Every 2 hours for Nottingham trains as they are every 30 mins */

/** No need to edit below this line if you only want to configure the query **
/************************************************************************************
  Author: http://useroffline.blogspot.com
  Created: 28 April 2008
  Last Edit: 1 May 2008
  Title: iMacro Virgin Trains timetable search

  Description:
  Fills out query form on Virgin Trains timetable website (covers all UK timetables)
  and extracts the cheapest standard and first class ticket prices and times in any
  timeslot (normally two or three hour slots depending on what the timetables look
  like from Virgin for the particular route).
  Results are displayed in a new browser window in an html table which is written to
  as the search completes each calendar day.

  Assumptions:
  1. Virgin trains site has no technical difficulties
  2. iMacro has 'view Javascript while running' option set to off (for better speed)
  3. Infrequent usage to avoid IP blocking by Virgin
  4. Browser will not be used for anything else while running the macro
  5. Route does not use the new timetable layout (Virgin is upgrading layout)

  Suggestions for improvement:
  o Add link to each train in results table to live timetable page (probably not
    Virgin)
************************************************************************************/

// Open results window

var cr = "\r\n";
top.results=window.open( "", "myWindow", "menubar=1,resizable=1,status=1,width=500,height=600,scrollbars=1");
top.results.document.write("<html><title>Train Timetable search results</title><head>"+cr+
  "<style>td {border-width:thin;border-color:black;-moz-border-radius: 8px 8px 8px 8px;}"+cr+
  "</style></head>"+cr+
  "<body bgcolor=lightgreen style='font-family:Tahoma, Arial;'>");
top.results.window.status="Initializing, time to make a cup of tea.";

// Variables

var c=0, j, price=" na ", count=0, mytime=" na ", longdate=" na ", pArr=new Array();
var classArr=new Array("Std","1st");
var startDate=new Date();
var ret=cr+"<h3>"+myleaving+" to "+mygoing+"</h3>"+cr+"<br>Virgin Trains "+startDate.toGMTString()+"<p>"+cr;
var retTemp, runTimeM, runTimeS, runTimeMS, timeLeftS, timeLeftM, loopTime;
var mydate = new Array;

// Pad dates ("1" becomes "01")

var i;
for (i=0;i < mynodays;i++) {
  mydate[i]=(myfirstday+i).toString();
  if (mydate[i].length < 2) { mydate[i]='0'+mydate[i] }
  }
var loopTotal=mydate.length*myhour.length*2;

// Initialize to avoid timeout errors

iimPlay("CODE:URL GOTO=http://www.virgintrains.co.uk");

// Main loop

ret+="<table class='results' bgcolor=lightyellow cellpadding=4>";
top.results.document.write(ret);
ret="";

/* Static parts of the code */
pArr[1]="URL GOTO=http://www.virgintrains.co.uk/default.aspx";
pArr[7]="TAG POS=1 TYPE=SELECT FORM=NAME:qtt ATTR=NAME:outMinuteField CONTENT=$00"+cr+
    "TAG POS=1 TYPE=INPUT:IMAGE FORM=NAME:qtt ATTR=ID:_ctl15_findTimes";
pArr[9]="TAG POS=1 TYPE=INPUT:RADIO FORM=NAME:Form ATTR=ID:*ServiceTypeRadioButtons_1"+cr+
    /* ServiceType 1 = direct trains only, 0 = Any train */
    "TAG POS=1 TYPE=INPUT:IMAGE FORM=NAME:Form ATTR=ALT:Check<SP>availability"+cr+
    "TAG POS=1 TYPE=INPUT:RADIO EXTRACT=TXT"+cr+
    "TAG POS=1 TYPE=TD ATTR=CLASS:tableCell EXTRACT=TXT"+cr+
    "TAG POS=2 TYPE=TD ATTR=CLASS:tableCell EXTRACT=TXT"+cr+
    "TAG POS=3 TYPE=TD ATTR=CLASS:tableCell EXTRACT=TXT"+cr+
    "TAG POS=4 TYPE=TD ATTR=CLASS:tableCell EXTRACT=TXT"+cr+
    "TAG POS=5 TYPE=TD ATTR=CLASS:tableCell EXTRACT=TXT"+cr+
    "TAG POS=1 TYPE=TD ATTR=CLASS:tableTitle EXTRACT=HTM"+cr+
    "WAIT SECONDS=4";  // Could help to avoid lock-up?

for (j in mydate) {
  retTemp='<tr align=center ><td bgcolor=lightgreen >Slot</td><td bgcolor=lightgreen >Time</td><td bgcolor=lightgreen >Std</td><td bgcolor=lightgreen >Time</td><td bgcolor=lightgreen >1st</td></tr>';
  for (i in myhour) {
  retTemp+='<tr align=center ><td bgcolor=lightgreen >'+myhour[i]+'</td>';
  for (c=0;c < 2;c++) {
    count++;
    /* Estimate time left */
    var now = new Date();
    runTimeMS=now.valueOf()-startDate.valueOf();
    runTimeS=parseInt(runTimeMS/1000);
    runTimeM=parseInt(runTimeS/60);
    runTimeS %=60;
    loopTime=runTimeMS/count;
    timeLeftS=parseInt((loopTotal+1-count)*loopTime/1000);
    timeLeftM=parseInt(timeLeftS/60);
    timeLeftS %=60;
    /* Results window status bar feedback */
    top.results.window.status = "Loop "+count+" of "+loopTotal+
    " [Last result "+longdate+" @ "+mytime+", "+classArr[1-c]+" = £"+price.replace(/ /g,"")+"]";
    /* Run iMacro */
    pArr[0]="CODE:"+"' "+runTimeM+" minutes "+runTimeS+" seconds current run time"+cr+
        "' "+timeLeftM+" minutes "+timeLeftS+" seconds estimate to complete";
    pArr[2]="TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:qtt ATTR=ID:idLeaving CONTENT="+myleaving;
    pArr[3]="TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:qtt ATTR=ID:idGoing CONTENT="+mygoing;
    pArr[4]="TAG POS=1 TYPE=SELECT FORM=NAME:qtt ATTR=NAME:outDay CONTENT=$"+mydate[j];
    pArr[5]="TAG POS=1 TYPE=SELECT FORM=NAME:qtt ATTR=NAME:outMth CONTENT=$"+mymonth;
    pArr[6]="TAG POS=1 TYPE=SELECT FORM=NAME:qtt ATTR=NAME:outHourField CONTENT=$"+myhour[i];
    pArr[8]="TAG POS=1 TYPE=INPUT:RADIO FORM=NAME:Form ATTR=ID:*TicketClassRadioButtons_"+c.toString();
    iimPlay(pArr.join(cr));
    /* Get long date */
    try {longdate=iimGetLastExtract(7).split('>')[2].replace(/  /g," ")}
    catch (err) {}
    /* Parse train time and price */
    price=iimGetLastExtract(1).substr(5+(iimGetLastExtract(1).substr(4)).search("_"));
    price='    '.substr(1,6-price.length)+price;      // Pad out to 6 characters
    mytime=parseInt(iimGetLastExtract(1).substr(0,1));  // Find the table column number of train time
    mytime=iimGetLastExtract(mytime+1);          // Get time in column header
    retTemp+='<td>'+mytime+'</td><td>£'+price+'</td>';
  }  /* end class */
  retTemp+='</tr>';
  }  /* end hour */
  ret+="<tr><td colspan=5 bgcolor=lightgreen >"+longdate+'</td></tr>'+retTemp;
  top.results.document.write(ret);
  ret='';
}  /* end date */

// Calculate total running time

var endDate=new Date();
var runTimeS=parseInt((endDate.valueOf()-startDate.valueOf())/1000);
var runTimeM=parseInt(runTimeS/60);
runTimeS %=60;
ret+='</table>'+cr+'<p>Search time '+runTimeM+' minutes '+runTimeS+' seconds';
ret+=cr+"<br>Created by <a href='http://useroffline.blogspot.com' title='Author details'>UserOffline</a> 2008";

// Display Results

top.results.window.status="Finished";
top.results.document.write(ret+cr+"</body></html>");
top.results.document.close();