mac80211: update to version 4.19.23-1
[oweals/openwrt.git] / scripts / flashing / 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();