#!/usr/bin/perl # # D-Link DSL-G6x4T flash utility # # Copyright (C) 2005 Felix Fietkau # based on fbox recovery util by Enrik Berkhan # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # use IO::Socket::INET; use Socket; use strict; use warnings; sub usage() { print STDERR "Usage: $0 [firmware.bin]\n\n"; exit 0; } my $ip = shift @ARGV; $ip and $ip =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/ or usage(); my $probe = IO::Socket::INET->new(Proto => 'udp', Broadcast => 1, LocalPort => 5035) or die "socket: $!"; my $setip = unpack("N", inet_aton($ip)); $setip > 0 or usage(); my @packets; foreach my $ver ([18, 1], [22, 2]) { push @packets, pack("vCCVNV", 0, @$ver, 1, $setip, 0); } print STDERR "Looking for device: "; my $broadcast = sockaddr_in(5035, INADDR_BROADCAST); my $scanning; my $box; $SIG{"ALRM"} = sub { return if --$scanning <= 0; foreach my $packet (@packets) { $probe->send($packet, 0, $broadcast); } print STDERR "."; }; $scanning = 10; foreach my $packet (@packets) { $probe->send($packet, 0, $broadcast); } print STDERR "."; while($scanning) { my $reply; alarm(1); if (my $peer = $probe->recv($reply, 16)) { next if (length($reply) < 16); my ($port, $addr) = sockaddr_in($peer); my ($major, $minor1, $minor2, $code, $addr2) = unpack("vCCVV", $reply); $addr2 = pack("N", $addr2); if ($code == 2) { $scanning = 0; printf STDERR " found!\nADAM2 version $major.$minor1.$minor2 at %s (%s)\n", inet_ntoa($addr), inet_ntoa($addr2); $box = inet_ntoa($addr); } } } $box or die " not found!\n"; { package ADAM2FTP; use base qw(Net::FTP); # ADAM2 requires upper case commands, some brain dead firewall doesn't ;-) sub _USER { shift->command("USER",@_)->response() } sub _GETENV { my $ftp = shift; my ($ok, $name, $value); $ftp->command("GETENV",@_); while(length($ok = $ftp->response()) < 1) { my $line = $ftp->getline(); unless (defined($value)) { chomp($line); ($name, $value) = split(/\s+/, $line, 2); } } $ftp->debug_print(0, "getenv: $value\n") if $ftp->debug(); return $value; } sub getenv { my $ftp = shift; my $name = shift; return $ftp->_GETENV($name); } sub _REBOOT { shift->command("REBOOT")->response() == Net::FTP::CMD_OK } sub reboot { my $ftp = shift; $ftp->_REBOOT; $ftp->close; } } my $file = shift @ARGV; $file || exit 0; open FILE, "<$file" or die "can't open firmware file\n"; my $ftp = ADAM2FTP->new($box, Debug => 0, Timeout => 600) or die "can't open control connection\n"; $ftp->login("adam2", "adam2") or die "can't login\n"; my $mtd0 = $ftp->getenv("mtd0"); my $mtd1 = $ftp->getenv("mtd1"); my ($ksize, $fssize); $mtd1 =~ /^(0x\w+),(0x\w+)$/ and $ksize = hex($2) - hex($1); $mtd0 =~ /^(0x\w+),(0x\w+)$/ and $fssize = hex($2) - hex($1); $ksize and $fssize or die 'cannot read partition offsets'; printf STDERR "Available flash space: 0x%08x (0x%08x + 0x%08x)\n", $ksize + $fssize, $ksize, $fssize; $ftp->command("MEDIA FLSH")->response(); $ftp->binary(); print STDERR "Writing to mtd1...\n"; my $dc = $ftp->stor("fs mtd1"); $dc or die "can't open data connection\n"; my $rbytes = 1; while (($ksize > 0) and ($rbytes > 0)) { my $buffer; my $len = ($ksize > 1024 ? 1024 : $ksize); $rbytes = read FILE, $buffer, $len; $rbytes and $ksize -= $dc->write($buffer, $rbytes, 600); } $dc->close(); $rbytes or die "no more data left to write\n"; print STDERR "Writing to mtd0...\n"; $dc = $ftp->stor("fs mtd0"); $dc or die "can't open data connection\n"; while (($fssize > 0) and ($rbytes > 0)) { my $buffer; my $len = ($fssize > 1024 ? 1024 : $fssize); $rbytes = read FILE, $buffer, $len; $rbytes and $fssize -= $dc->write($buffer, $rbytes, 600); } $dc->close(); $ftp->reboot(); a>)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
/*
 *  DRAGINO V2 board support, based on Atheros AP121 board support
 *
 *  Copyright (C) 2011-2012 Gabor Juhos <juhosg@openwrt.org>
 *  Copyright (C) 2012 Elektra Wagenrad <elektra@villagetelco.org>
 *
 *  This program is free software; you can redistribute it and/or modify it
 *  under the terms of the GNU General Public License version 2 as published
 *  by the Free Software Foundation.
 */

#include <linux/gpio.h>
#include <asm/mach-ath79/ath79.h>
#include <asm/mach-ath79/ar71xx_regs.h>
#include "common.h"
#include "dev-eth.h"
#include "dev-gpio-buttons.h"
#include "dev-leds-gpio.h"
#include "dev-m25p80.h"
#include "dev-spi.h"
#include "dev-usb.h"
#include "dev-wmac.h"
#include "machtypes.h"

#define DRAGINO2_GPIO_LED_WLAN		0
#define DRAGINO2_GPIO_LED_LAN		13
#define DRAGINO2_GPIO_LED_WAN		17

/*
 * The following GPIO is actually named "Router" on the board.
 * However, since the "Router" feature is not supported as of yet
 * we use it to display USB activity.
 */

#define DRAGINO2_GPIO_LED_USB		28
#define DRAGINO2_GPIO_BTN_JUMPSTART	11
#define DRAGINO2_GPIO_BTN_RESET		12

#define DRAGINO2_KEYS_POLL_INTERVAL	20	/* msecs */
#define DRAGINO2_KEYS_DEBOUNCE_INTERVAL	(3 * DRAGINO2_KEYS_POLL_INTERVAL)

#define DRAGINO2_MAC0_OFFSET		0x0000
#define DRAGINO2_MAC1_OFFSET		0x0006
#define DRAGINO2_CALDATA_OFFSET		0x1000
#define DRAGINO2_WMAC_MAC_OFFSET	0x1002

static struct gpio_led dragino2_leds_gpio[] __initdata = {
	{
		.name		= "dragino2:red:lan",
		.gpio		= DRAGINO2_GPIO_LED_LAN,
		.active_low	= 0,
	},
	{
		.name		= "dragino2:red:wlan",
		.gpio		= DRAGINO2_GPIO_LED_WLAN,
		.active_low	= 0,
	},
		{
		.name		= "dragino2:red:wan",
		.gpio		= DRAGINO2_GPIO_LED_WAN,
		.active_low	= 0,
	},
	{
		.name		= "dragino2:red:usb",
		.gpio		= DRAGINO2_GPIO_LED_USB,
		.active_low	= 0,
	},
};

static struct gpio_keys_button dragino2_gpio_keys[] __initdata = {
	{
		.desc		= "jumpstart button",
		.type		= EV_KEY,
		.code		= KEY_WPS_BUTTON,
		.debounce_interval = DRAGINO2_KEYS_DEBOUNCE_INTERVAL,
		.gpio		= DRAGINO2_GPIO_BTN_JUMPSTART,
		.active_low	= 1,
	},
	{
		.desc		= "reset button",
		.type		= EV_KEY,
		.code		= KEY_RESTART,
		.debounce_interval = DRAGINO2_KEYS_DEBOUNCE_INTERVAL,
		.gpio		= DRAGINO2_GPIO_BTN_RESET,
		.active_low	= 1,
	}
};

static void __init dragino2_common_setup(void)
{
	u8 *art = (u8 *) KSEG1ADDR(0x1fff0000);

	ath79_register_m25p80(NULL);
	ath79_register_wmac(art + DRAGINO2_CALDATA_OFFSET,
			    art + DRAGINO2_WMAC_MAC_OFFSET);

	ath79_init_mac(ath79_eth0_data.mac_addr, art + DRAGINO2_MAC0_OFFSET, 0);
	ath79_init_mac(ath79_eth1_data.mac_addr, art + DRAGINO2_MAC1_OFFSET, 0);

	ath79_register_mdio(0, 0x0);

	/* Enable GPIO15 and GPIO16 and possibly GPIO26 and GPIO27 */
	ath79_gpio_function_disable(AR933X_GPIO_FUNC_ETH_SWITCH_LED2_EN |
				    AR933X_GPIO_FUNC_ETH_SWITCH_LED3_EN);

	/* LAN ports */
	ath79_register_eth(1);

	/* WAN port */
	ath79_register_eth(0);
}

static void __init dragino2_setup(void)
{
	dragino2_common_setup();

	ath79_register_leds_gpio(-1, ARRAY_SIZE(dragino2_leds_gpio),
				 dragino2_leds_gpio);
	ath79_register_gpio_keys_polled(-1, DRAGINO2_KEYS_POLL_INTERVAL,
					ARRAY_SIZE(dragino2_gpio_keys),
					dragino2_gpio_keys);
	ath79_register_usb();
}

MIPS_MACHINE(ATH79_MACH_DRAGINO2, "DRAGINO2", "Dragino Dragino v2",
	     dragino2_setup);