From 1498aea446766f8fb60606fc733aaf2f62d6869b Mon Sep 17 00:00:00 2001 From: Florian Fainelli Date: Wed, 17 Dec 2008 13:35:14 +0000 Subject: Move flashing scripts to scripts/flashing/ git-svn-id: svn://svn.openwrt.org/openwrt/trunk@13674 3c298f89-4303-0410-b956-a3cf2f4a3e73 --- scripts/adam2flash-fritzbox.pl | 209 ----------------------------------------- 1 file changed, 209 deletions(-) delete mode 100644 scripts/adam2flash-fritzbox.pl (limited to 'scripts/adam2flash-fritzbox.pl') diff --git a/scripts/adam2flash-fritzbox.pl b/scripts/adam2flash-fritzbox.pl deleted file mode 100644 index f8d745f678..0000000000 --- a/scripts/adam2flash-fritzbox.pl +++ /dev/null @@ -1,209 +0,0 @@ -#!/usr/bin/env 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 IO::Select; -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 $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 $scanning; -my $box; - -my $probe = IO::Socket::INET->new(Proto => 'udp', - Broadcast => 1, - LocalAddr => $ip, - LocalPort => 5035) or die "socket: $!"; -my $sel = IO::Select->new($probe); -my $packet = pack("vCCVNV", 0, 18, 1, 1, 0, 0); -my $broadcast = sockaddr_in(5035, INADDR_BROADCAST); - -$probe->send($packet, 0, $broadcast); - - -scan_again: -print "Looking for Fritz!Box "; -my @boxes = (); -my $peer; -$scanning = 100; -print "o"; -while($scanning) { - my $reply; - my @ready; - - if (@ready = $sel->can_read(0.2)) { - $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) { - print "O"; - push @boxes, [$major, $minor1, $minor2, $addr, $addr2]; - $scanning = 2 if ($scanning > 2); - } - } else { - $scanning--; - if (scalar @boxes == 0) { - $probe->send($packet, 0, $broadcast); - print "o"; - } else { - print "."; - } - } -} - -if (scalar @boxes == 0) { - print " none found, giving up.\n"; - exit 1; -} else { - print " 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 _PASV { shift->command("P\@SW")->response() == Net::FTP::CMD_OK } - 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; - } - sub check { - my $ftp = shift; - - delete ${*$ftp}{'net_ftp_port'}; - delete ${*$ftp}{'net_ftp_pasv'}; - - my $data = $ftp->_data_cmd('CHECK' ,@_) or return undef; - my $sum; - if (${${*$ftp}{'net_cmd_resp'}}[0] =~ /^Flash check 0x([0-9A-F]{8})/) { - $sum = hex($1); - } - $data->_close(); - return $sum; - } -} - -# passive mode geht mit Net::FTP nicht, connected zu spaet fuer ADAM2! -my $ftp = ADAM2FTP->new($ip, Passive => 0, Debug => 0, Timeout => 600) - or die "can't FTP ADAM2"; -$ftp->login("adam2", "adam2") or die "can't login adam2"; -$ftp->binary(); -my $pid = $ftp->getenv('ProductID'); -my $hwrev = $ftp->getenv('HWRevision'); -my $fwrev = $ftp->getenv('firmware_info'); -my $ulrev = $ftp->getenv('urlader-version'); - -print "Product ID: $pid\n"; -print "Hardware Revision: $hwrev\n"; -print "Urlader Revision: $ulrev\n"; -print "Firmware Revision: $fwrev\n"; - -$ftp->hash(\*STDOUT, 64 * 1024); - -my $file = shift @ARGV; -$file || exit 0; - -open FILE, "<$file" or die "can't open firmware file\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(); -- cgit v1.2.3