Add flashing script for adsl2mue (#3994)
[openwrt/svn-archive/archive.git] / scripts / adam2flash-fritzbox.pl
1 #!/usr/bin/env perl
2 #
3 # D-Link DSL-G6x4T flash utility
4 #
5 # Copyright (C) 2005 Felix Fietkau <mailto@nbd.name>
6 # based on fbox recovery util by Enrik Berkhan
7 #
8 # This program is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 2 of the License, or
11 # (at your option) any later version.
12 #
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software
20 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 #
22
23 use IO::Socket::INET;
24 use IO::Select;
25 use Socket;
26 use strict;
27 use warnings;
28
29 sub usage() {
30 print STDERR "Usage: $0 <ip> [firmware.bin]\n\n";
31 exit 0;
32 }
33
34 my $ip = shift @ARGV;
35 $ip and $ip =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/ or usage();
36
37 my $setip = unpack("N", inet_aton($ip));
38 $setip > 0 or usage();
39
40 my @packets;
41 foreach my $ver ([18, 1], [22, 2]) {
42 push @packets, pack("vCCVNV", 0, @$ver, 1, $setip, 0);
43 }
44 print STDERR "Looking for device: ";
45 my $scanning;
46 my $box;
47
48 my $probe = IO::Socket::INET->new(Proto => 'udp',
49 Broadcast => 1,
50 LocalAddr => $ip,
51 LocalPort => 5035) or die "socket: $!";
52 my $sel = IO::Select->new($probe);
53 my $packet = pack("vCCVNV", 0, 18, 1, 1, 0, 0);
54 my $broadcast = sockaddr_in(5035, INADDR_BROADCAST);
55
56 $probe->send($packet, 0, $broadcast);
57
58
59 scan_again:
60 print "Looking for Fritz!Box ";
61 my @boxes = ();
62 my $peer;
63 $scanning = 100;
64 print "o";
65 while($scanning) {
66 my $reply;
67 my @ready;
68
69 if (@ready = $sel->can_read(0.2)) {
70 $peer = $probe->recv($reply, 16);
71 next if (length($reply) < 16);
72 my ($port, $addr) = sockaddr_in($peer);
73 my ($major, $minor1, $minor2, $code, $addr2) = unpack("vCCVV", $reply);
74 $addr2 = pack("N", $addr2);
75 if ($code == 2) {
76 print "O";
77 push @boxes, [$major, $minor1, $minor2, $addr, $addr2];
78 $scanning = 2 if ($scanning > 2);
79 }
80 } else {
81 $scanning--;
82 if (scalar @boxes == 0) {
83 $probe->send($packet, 0, $broadcast);
84 print "o";
85 } else {
86 print ".";
87 }
88 }
89 }
90
91 if (scalar @boxes == 0) {
92 print " none found, giving up.\n";
93 exit 1;
94 } else {
95 print " found!\n";
96 }
97
98 {
99 package ADAM2FTP;
100 use base qw(Net::FTP);
101 # ADAM2 requires upper case commands, some brain dead firewall doesn't ;-)
102 sub _USER { shift->command("USER",@_)->response() }
103 sub _PASV { shift->command("P\@SW")->response() == Net::FTP::CMD_OK }
104 sub _GETENV {
105 my $ftp = shift;
106 my ($ok, $name, $value);
107
108 $ftp->command("GETENV",@_);
109 while(length($ok = $ftp->response()) < 1) {
110 my $line = $ftp->getline();
111 unless (defined($value)) {
112 chomp($line);
113 ($name, $value) = split(/\s+/, $line, 2);
114 }
115 }
116 $ftp->debug_print(0, "getenv: $value\n")
117 if $ftp->debug();
118 return $value;
119 }
120 sub getenv {
121 my $ftp = shift;
122 my $name = shift;
123 return $ftp->_GETENV($name);
124 }
125 sub _REBOOT { shift->command("REBOOT")->response() == Net::FTP::CMD_OK }
126 sub reboot {
127 my $ftp = shift;
128 $ftp->_REBOOT;
129 $ftp->close;
130 }
131 sub check {
132 my $ftp = shift;
133
134 delete ${*$ftp}{'net_ftp_port'};
135 delete ${*$ftp}{'net_ftp_pasv'};
136
137 my $data = $ftp->_data_cmd('CHECK' ,@_) or return undef;
138 my $sum;
139 if (${${*$ftp}{'net_cmd_resp'}}[0] =~ /^Flash check 0x([0-9A-F]{8})/) {
140 $sum = hex($1);
141 }
142 $data->_close();
143 return $sum;
144 }
145 }
146
147 # passive mode geht mit Net::FTP nicht, connected zu spaet fuer ADAM2!
148 my $ftp = ADAM2FTP->new($ip, Passive => 0, Debug => 0, Timeout => 600)
149 or die "can't FTP ADAM2";
150 $ftp->login("adam2", "adam2") or die "can't login adam2";
151 $ftp->binary();
152 my $pid = $ftp->getenv('ProductID');
153 my $hwrev = $ftp->getenv('HWRevision');
154 my $fwrev = $ftp->getenv('firmware_info');
155 my $ulrev = $ftp->getenv('urlader-version');
156
157 print "Product ID: $pid\n";
158 print "Hardware Revision: $hwrev\n";
159 print "Urlader Revision: $ulrev\n";
160 print "Firmware Revision: $fwrev\n";
161
162 $ftp->hash(\*STDOUT, 64 * 1024);
163
164 my $file = shift @ARGV;
165 $file || exit 0;
166
167 open FILE, "<$file" or die "can't open firmware file\n";
168
169 my $mtd0 = $ftp->getenv("mtd0");
170 my $mtd1 = $ftp->getenv("mtd1");
171 my ($ksize, $fssize);
172
173 $mtd1 =~ /^(0x\w+),(0x\w+)$/ and $ksize = hex($2) - hex($1);
174 $mtd0 =~ /^(0x\w+),(0x\w+)$/ and $fssize = hex($2) - hex($1);
175 $ksize and $fssize or die 'cannot read partition offsets';
176 printf STDERR "Available flash space: 0x%08x (0x%08x + 0x%08x)\n", $ksize + $fssize, $ksize, $fssize;
177
178 $ftp->command("MEDIA FLSH")->response();
179 $ftp->binary();
180 print STDERR "Writing to mtd1...\n";
181
182 my $dc = $ftp->stor("fs mtd1");
183 $dc or die "can't open data connection\n";
184 my $rbytes = 1;
185
186 while (($ksize > 0) and ($rbytes > 0)) {
187 my $buffer;
188 my $len = ($ksize > 1024 ? 1024 : $ksize);
189 $rbytes = read FILE, $buffer, $len;
190 $rbytes and $ksize -= $dc->write($buffer, $rbytes, 600);
191 }
192
193 $dc->close();
194 $rbytes or die "no more data left to write\n";
195
196 print STDERR "Writing to mtd0...\n";
197
198 $dc = $ftp->stor("fs mtd0");
199 $dc or die "can't open data connection\n";
200
201 while (($fssize > 0) and ($rbytes > 0)) {
202 my $buffer;
203 my $len = ($fssize > 1024 ? 1024 : $fssize);
204 $rbytes = read FILE, $buffer, $len;
205 $rbytes and $fssize -= $dc->write($buffer, $rbytes, 600);
206 }
207
208 $dc->close();
209 $ftp->reboot();